Return to DINTEG2.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINTEG2	;SFISC/dizSUM FILEMAN-FileMan checksum checker ;DEC 28, 1994@11:30:03
    2: 	;;21.0;VA FileMan;;Dec 28, 1994;
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	S DIZ4="I 1" D DSP,INI
    5: CONT	F DIZ1=1:1 S DIZ2=$T(ROU+DIZ1) Q:DIZ2=""  S X=$P(DIZ2," ",1),DIZ3=$P(DIZ2,";",3) X DIZ4 I $T W !,X X DIZTEST W:'$T ?28,DIZ6 S:'$T DIZ3=0 X:DIZ3 DIZSUM W ?10,$S('DIZ3:"",DIZ3'=Y:$C(7)_"Calculated "_Y_", off by "_(Y-DIZ3),1:"ok")
    6: 	G CONT^DINTEG3
    7: 	S X="" F  S X=$O(^UTILITY($J,X)) Q:X=""  W !,X,?10,"not a routine in this INTEGRITY checker"
    8: 	K D,D1,D2,D3,X,Y,DIZ,DIZ1,DIZ2,DIZ3,DIZ4,DIZ5,DIZ6,DIZTEST,DIZSUM,DISYS,DIZSEL,^UTILITY($J) Q
    9: ONE	D INI S DIZSEL=$S($D(^%ZOSF("RSEL")):^("RSEL"),1:"F  S DIR(0)=""FO^1:8"",DIR(""A"")=""ROUTINE NAME"" D ^DIR Q:$D(DIRUT)  X DIZTEST W:'$T ?28,DIZ6 I $T S ^UTILITY($J,Y)=""""")
   10: 	S DIZ4="I $D(^UTILITY($J,X)) K ^(X)" D DSP
   11: 	W !,"Check a subset of routines:" K ^UTILITY($J) X DIZSEL
   12: 	W ! G CONT
   13: DSP	S X=$T(+2) W !!,"Checksum routine created on "_$P(X,";",6)_" by "_$P(X,";",4)_" V"_$P(X,";",3) Q
   14: INI	K ^UTILITY($J) D OS^DII S DIZTEST=$S($D(^DD("OS",DISYS,18)):^(18),1:"I $D(^ (X))"),DIZ5="",DIZ6=$C(7)_"Routine not in UCI"
   15: 	S DIZSUM="ZL @X S Y=0 F D=1,3:1 S D1=$T(+D),D3=$F(D1,"" "") Q:'D3  S D3=$S($E(D1,D3)'="";"":$L(D1),$E(D1,D3+1)="";"":$L(D1),1:D3-2) F D2=1:1:D3 S Y=$A(D1,D2)*D2+Y" Q
   16: ROU	;;
   17: DIFGGU	;;5525512
   18: DIFGO	;;3849638
   19: DIFGSRV	;;1145738
   20: DIFROM	;;11038655
   21: DIFROM0	;;9100392
   22: DIFROM1	;;9679123
   23: DIFROM11	;;8986254
   24: DIFROM12	;;6395291
   25: DIFROM2	;;6822749
   26: DIFROM3	;;7863608
   27: DIFROM4	;;3939991
   28: DIFROM41	;;14320255
   29: DIFROM42	;;3811931
   30: DIFROM5	;;13318228
   31: DIFROM6	;;8014990
   32: DIFROM7	;;5693246
   33: DIFROMH	;;8812360
   34: DIFROMH1	;;7701962
   35: DIFROMS	;;1725573
   36: DIFROMS1	;;5768831
   37: DIFROMS2	;;6190772
   38: DIFROMS3	;;7300037
   39: DIFROMS4	;;4240259
   40: DIFROMS5	;;3415060
   41: DIFROMS6	;;868273
   42: DIFROMSB	;;1316407
   43: DIFROMSC	;;1542160
   44: DIFROMSD	;;3803374
   45: DIFROMSE	;;5059847
   46: DIFROMSF	;;8096661
   47: DIFROMSI	;;8134488
   48: DIFROMSK	;;1421979
   49: DIFROMSL	;;371524
   50: DIFROMSO	;;1847867
   51: DIFROMSP	;;6888702
   52: DIFROMSR	;;4646734
   53: DIFROMSS	;;3496020
   54: DIFROMSU	;;5168157
   55: DIFROMSV	;;89285
   56: DIG	;;6265281
   57: DIH	;;4688941
   58: DII	;;6413260
   59: DII1	;;455555
   60: DIINI001	;;7758746
   61: DIINI002	;;7185246
   62: DIINI003	;;9033478
   63: DIINI004	;;7890739
   64: DIINI005	;;6512960
   65: DIINI006	;;8018142
   66: DIINI007	;;8798951
   67: DIINI008	;;7232119
   68: DIINI009	;;8236800
   69: DIINI00A	;;4880814
   70: DIINIS	;;2127703
   71: DIINIT	;;10268911
   72: DIINIT1	;;4312623
   73: DIINIT2	;;5232051
   74: DIINIT3	;;16801795
   75: DIINIT4	;;3357221
   76: DIINIT5	;;364747
   77: DIIS	;;374782
   78: DIISS	;;2408793
   79: DIK	;;7325945
   80: DIK1	;;5820262
   81: DIKZ	;;9722227
   82: DIKZ0	;;5940541
   83: DIKZ1	;;8933794
   84: DIKZ11	;;4558086
   85: DIKZ2	;;5230837
   86: DIL	;;6332887
   87: DIL0	;;5148814
   88: DIL1	;;6752508
   89: DIL11	;;5151125
   90: DIL2	;;9065502
   91: DILF	;;1129307
   92: DILFD	;;231253
   93: DILIBF	;;6348908
   94: DILL	;;6076491
   95: DIM	;;2096545
   96: DIM1	;;7391479
   97: DIM2	;;4847408
   98: DIM3	;;4724114
   99: DIM4	;;3593321
  100: DINIT	;;14307293
  101: DINIT0	;;5228258
  102: DINIT001	;;9222884
  103: DINIT002	;;9770143
  104: DINIT003	;;9283558
  105: DINIT004	;;7878368
  106: DINIT005	;;7116172
  107: DINIT006	;;7804999
  108: DINIT007	;;7371481
  109: DINIT008	;;7455825
  110: DINIT009	;;7710262
  111: DINIT00A	;;7298150
  112: DINIT00B	;;6817873
  113: DINIT00C	;;7474896
  114: DINIT00D	;;6215508
  115: DINIT00E	;;6203285
  116: DINIT00F	;;6944836
  117: DINIT00G	;;6618387
  118: DINIT00H	;;7525400
  119: DINIT00I	;;7064051
  120: DINIT00J	;;6340692
  121: DINIT00K	;;6814146
  122: DINIT00L	;;4996601
  123: DINIT00M	;;4988352
  124: DINIT00N	;;4358748
  125: DINIT00O	;;5099250
  126: DINIT00P	;;7094936
  127: DINIT00Q	;;7854917
  128: DINIT00R	;;6685186
  129: DINIT00S	;;6285951
  130: DINIT00T	;;6976234
  131: DINIT00U	;;6454261
  132: DINIT00V	;;10494647
  133: DINIT00W	;;10423570
  134: DINIT00X	;;7260573
  135: DINIT00Y	;;6362756
  136: DINIT00Z	;;7186746
  137: DINIT010	;;8406869
  138: DINIT011	;;8500074
  139: DINIT012	;;7486356
  140: DINIT013	;;6313482
  141: DINIT014	;;6116898
  142: DINIT015	;;5524998
  143: DINIT016	;;1335499
  144: DINIT017	;;8281492
  145: DINIT018	;;6764686
  146: DINIT019	;;3674630