| [613] | 1 | DINTEG2 ;SFISC/dizSUMB FILEMAN-FileMan checksum checker ;MAR 30, 1999 13:20
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 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 $T(^@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 | DICUF ;;2175347
|
|---|
| 18 | DICUIX ;;7050873
|
|---|
| 19 | DICUIX1 ;;3761139
|
|---|
| 20 | DICUIX2 ;;7134369
|
|---|
| 21 | DID ;;11403295
|
|---|
| 22 | DID1 ;;10810057
|
|---|
| 23 | DID2 ;;10525120
|
|---|
| 24 | DIDC ;;8218283
|
|---|
| 25 | DIDG ;;5459532
|
|---|
| 26 | DIDH ;;6566881
|
|---|
| 27 | DIDH1 ;;9603613
|
|---|
| 28 | DIDT ;;6481242
|
|---|
| 29 | DIDTC ;;7099203
|
|---|
| 30 | DIDU ;;7893426
|
|---|
| 31 | DIDU1 ;;1818550
|
|---|
| 32 | DIDU2 ;;3645214
|
|---|
| 33 | DIDX ;;8570843
|
|---|
| 34 | DIE ;;10522278
|
|---|
| 35 | DIE0 ;;4913436
|
|---|
| 36 | DIE1 ;;10102666
|
|---|
| 37 | DIE17 ;;9556587
|
|---|
| 38 | DIE2 ;;8785703
|
|---|
| 39 | DIE3 ;;4915247
|
|---|
| 40 | DIE9 ;;5169923
|
|---|
| 41 | DIED ;;8319960
|
|---|
| 42 | DIEF ;;11594187
|
|---|
| 43 | DIEF1 ;;9138291
|
|---|
| 44 | DIEFU ;;4610014
|
|---|
| 45 | DIEFW ;;3026875
|
|---|
| 46 | DIEH ;;6060388
|
|---|
| 47 | DIEH1 ;;1201975
|
|---|
| 48 | DIEKMSG ;;4110527
|
|---|
| 49 | DIENV ;;1166929
|
|---|
| 50 | DIENVSTP ;;1202956
|
|---|
| 51 | DIENVWRN ;;1424931
|
|---|
| 52 | DIEQ ;;5540099
|
|---|
| 53 | DIEQ1 ;;1766980
|
|---|
| 54 | DIET ;;5583630
|
|---|
| 55 | DIETED ;;12174194
|
|---|
| 56 | DIEV ;;10272887
|
|---|
| 57 | DIEV1 ;;4308402
|
|---|
| 58 | DIEVK ;;6784329
|
|---|
| 59 | DIEVK1 ;;5034393
|
|---|
| 60 | DIEVS ;;2284643
|
|---|
| 61 | DIEZ ;;9351704
|
|---|
| 62 | DIEZ0 ;;10216147
|
|---|
| 63 | DIEZ1 ;;8970637
|
|---|
| 64 | DIEZ2 ;;14215709
|
|---|
| 65 | DIEZ3 ;;1035196
|
|---|
| 66 | DIEZ4 ;;4969253
|
|---|
| 67 | DIFG ;;9620802
|
|---|
| 68 | DIFG0 ;;9271581
|
|---|
| 69 | DIFG0A ;;5263645
|
|---|
| 70 | DIFG0B ;;3277889
|
|---|
| 71 | DIFG1 ;;6466432
|
|---|
| 72 | DIFG2 ;;6268614
|
|---|
| 73 | DIFG3 ;;11191749
|
|---|
| 74 | DIFG3A ;;5426591
|
|---|
| 75 | DIFG4 ;;11076453
|
|---|
| 76 | DIFG4A ;;4158452
|
|---|
| 77 | DIFG5 ;;11716060
|
|---|
| 78 | DIFG6 ;;12531183
|
|---|
| 79 | DIFG7 ;;3294917
|
|---|
| 80 | DIFGA ;;10149588
|
|---|
| 81 | DIFGA1 ;;1674663
|
|---|
| 82 | DIFGB ;;7602021
|
|---|
| 83 | DIFGG ;;5089070
|
|---|
| 84 | DIFGG2 ;;9806486
|
|---|
| 85 | DIFGG4 ;;5207113
|
|---|
| 86 | DIFGGI ;;5710645
|
|---|
| 87 | DIFGGSB ;;483886
|
|---|
| 88 | DIFGGSB1 ;;8206690
|
|---|
| 89 | DIFGGSB2 ;;5150555
|
|---|
| 90 | DIFGGU ;;5525512
|
|---|
| 91 | DIFGO ;;3849838
|
|---|
| 92 | DIFGSRV ;;1145738
|
|---|
| 93 | DIFROM ;;12725017
|
|---|
| 94 | DIFROM0 ;;9269715
|
|---|
| 95 | DIFROM1 ;;9679123
|
|---|
| 96 | DIFROM11 ;;9004800
|
|---|
| 97 | DIFROM12 ;;6412655
|
|---|
| 98 | DIFROM2 ;;6844257
|
|---|
| 99 | DIFROM3 ;;7863608
|
|---|
| 100 | DIFROM4 ;;4141771
|
|---|
| 101 | DIFROM41 ;;14320255
|
|---|
| 102 | DIFROM42 ;;3818444
|
|---|
| 103 | DIFROM5 ;;13318228
|
|---|
| 104 | DIFROM6 ;;8014990
|
|---|
| 105 | DIFROM7 ;;5693246
|
|---|
| 106 | DIFROMH ;;8812360
|
|---|
| 107 | DIFROMH1 ;;7701962
|
|---|
| 108 | DIFROMS ;;1767005
|
|---|
| 109 | DIFROMS1 ;;7066700
|
|---|
| 110 | DIFROMS2 ;;7691714
|
|---|
| 111 | DIFROMS3 ;;8999406
|
|---|
| 112 | DIFROMS4 ;;4187300
|
|---|
| 113 | DIFROMS5 ;;3339679
|
|---|
| 114 | DIFROMSB ;;1316407
|
|---|
| 115 | DIFROMSC ;;1542160
|
|---|
| 116 | DIFROMSD ;;3803374
|
|---|
| 117 | DIFROMSE ;;5059847
|
|---|
| 118 | DIFROMSI ;;8387932
|
|---|
| 119 | DIFROMSK ;;1421979
|
|---|
| 120 | DIFROMSL ;;371524
|
|---|
| 121 | DIFROMSO ;;1615788
|
|---|
| 122 | DIFROMSP ;;7375587
|
|---|
| 123 | DIFROMSR ;;4932510
|
|---|
| 124 | DIFROMSS ;;3490849
|
|---|
| 125 | DIFROMSU ;;5222720
|
|---|
| 126 | DIFROMSV ;;89285
|
|---|
| 127 | DIFROMSX ;;3683091
|
|---|
| 128 | DIFROMSY ;;3656754
|
|---|
| 129 | DIG ;;6293627
|
|---|
| 130 | DIH ;;4688941
|
|---|
| 131 | DII ;;6196367
|
|---|
| 132 | DII1 ;;468832
|
|---|
| 133 | DIIS ;;374782
|
|---|
| 134 | DIISS ;;2408793
|
|---|
| 135 | DIK ;;9360789
|
|---|
| 136 | DIK1 ;;6155873
|
|---|
| 137 | DIKC ;;11169535
|
|---|
| 138 | DIKC1 ;;4416248
|
|---|
| 139 | DIKC2 ;;5211266
|
|---|
| 140 | DIKCDD ;;633139
|
|---|
| 141 | DIKCFORM ;;10827227
|
|---|
| 142 | DIKCP ;;4105817
|
|---|
| 143 | DIKCP1 ;;7463319
|
|---|
| 144 | DIKCP2 ;;2304021
|
|---|
| 145 | DIKCP3 ;;4532184
|
|---|
| 146 | DIKCU ;;3210281
|
|---|
| 147 | DIKCU1 ;;3879444
|
|---|
| 148 | DIKCU2 ;;4020096
|
|---|
| 149 | DIKCUTL ;;2987602
|
|---|
| 150 | DIKCUTL1 ;;6197088
|
|---|
| 151 | DIKCUTL2 ;;6730540
|
|---|
| 152 | DIKCUTL3 ;;3718932
|
|---|
