| 1 | DINTEG5 ;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 | ;
|
|---|
| 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 | DIQGDD0 ;;1846736
|
|---|
| 18 | DIQGDDF ;;1999058
|
|---|
| 19 | DIQGDDT ;;7439520
|
|---|
| 20 | DIQGDDU ;;1578963
|
|---|
| 21 | DIQGQ ;;15845121
|
|---|
| 22 | DIQGU ;;4828002
|
|---|
| 23 | DIQGU0 ;;3019674
|
|---|
| 24 | DIQQ ;;10195940
|
|---|
| 25 | DIQQ1 ;;1279104
|
|---|
| 26 | DIQQQ ;;5024310
|
|---|
| 27 | DIR ;;8925710
|
|---|
| 28 | DIR0 ;;5505897
|
|---|
| 29 | DIR01 ;;4710189
|
|---|
| 30 | DIR02 ;;2241633
|
|---|
| 31 | DIR03 ;;4452265
|
|---|
| 32 | DIR0H ;;2000761
|
|---|
| 33 | DIR0K ;;1519785
|
|---|
| 34 | DIR0W ;;3089175
|
|---|
| 35 | DIR1 ;;11551993
|
|---|
| 36 | DIR2 ;;9383057
|
|---|
| 37 | DIR3 ;;2913754
|
|---|
| 38 | DIRCR ;;3369745
|
|---|
| 39 | DIRQ ;;968045
|
|---|
| 40 | DIS ;;8082470
|
|---|
| 41 | DIS0 ;;7360682
|
|---|
| 42 | DIS1 ;;5931795
|
|---|
| 43 | DIS2 ;;5717533
|
|---|
| 44 | DIS3 ;;1548747
|
|---|
| 45 | DIT ;;9006532
|
|---|
| 46 | DIT0 ;;2588866
|
|---|
| 47 | DIT1 ;;10465331
|
|---|
| 48 | DIT2 ;;2621259
|
|---|
| 49 | DIT3 ;;5880904
|
|---|
| 50 | DITC ;;8730630
|
|---|
| 51 | DITC0 ;;3191582
|
|---|
| 52 | DITC1 ;;5739425
|
|---|
| 53 | DITC2 ;;9411545
|
|---|
| 54 | DITC3 ;;4586809
|
|---|
| 55 | DITM ;;3764313
|
|---|
| 56 | DITM1 ;;3291696
|
|---|
| 57 | DITM2 ;;4300014
|
|---|
| 58 | DITMGM1 ;;3241730
|
|---|
| 59 | DITMGM2 ;;3998925
|
|---|
| 60 | DITMGM2A ;;7225704
|
|---|
| 61 | DITMGM2B ;;3795853
|
|---|
| 62 | DITMGM2C ;;3476209
|
|---|
| 63 | DITMGMRG ;;4234244
|
|---|
| 64 | DITMGMRI ;;3560391
|
|---|
| 65 | DITMU1 ;;267174
|
|---|
| 66 | DITMU2 ;;1127015
|
|---|
| 67 | DITMU3 ;;422892
|
|---|
| 68 | DITMU4 ;;7174363
|
|---|
| 69 | DITP ;;6552936
|
|---|
| 70 | DITR ;;5528738
|
|---|
| 71 | DITR1 ;;7434301
|
|---|
| 72 | DIU ;;4154847
|
|---|
| 73 | DIU0 ;;6435132
|
|---|
| 74 | DIU1 ;;9899497
|
|---|
| 75 | DIU2 ;;4715210
|
|---|
| 76 | DIU20 ;;3002389
|
|---|
| 77 | DIU21 ;;6146003
|
|---|
| 78 | DIU3 ;;6911213
|
|---|
| 79 | DIU31 ;;9874154
|
|---|
| 80 | DIU4 ;;5389344
|
|---|
| 81 | DIU5 ;;251900
|
|---|
| 82 | DIUTL ;;1393463
|
|---|
| 83 | DIV ;;3841210
|
|---|
| 84 | DIVC ;;4408241
|
|---|
| 85 | DIVR ;;8571704
|
|---|
| 86 | DIVR1 ;;10947202
|
|---|
| 87 | DIVRE ;;7154469
|
|---|
| 88 | DIVRE1 ;;634136
|
|---|
| 89 | DIVU ;;3100544
|
|---|
| 90 | DIWE ;;6032247
|
|---|
| 91 | DIWE1 ;;6185993
|
|---|
| 92 | DIWE11 ;;4308475
|
|---|
| 93 | DIWE12 ;;5612992
|
|---|
| 94 | DIWE2 ;;6639751
|
|---|
| 95 | DIWE3 ;;11694484
|
|---|
| 96 | DIWE4 ;;9685833
|
|---|
| 97 | DIWE5 ;;7891987
|
|---|
| 98 | DIWF ;;5538065
|
|---|
| 99 | DIWP ;;5138047
|
|---|
| 100 | DIWW ;;5644162
|
|---|
| 101 | DIX ;;2522654
|
|---|
| 102 | DIXC ;;4724715
|
|---|
| 103 | DMSQ ;;10102863
|
|---|
| 104 | DMSQD ;;8773197
|
|---|
| 105 | DMSQE ;;843826
|
|---|
| 106 | DMSQF ;;9792265
|
|---|
| 107 | DMSQF1 ;;8518725
|
|---|
| 108 | DMSQF2 ;;8370804
|
|---|
| 109 | DMSQP ;;2371815
|
|---|
| 110 | DMSQP1 ;;3565656
|
|---|
| 111 | DMSQP2 ;;6721470
|
|---|
| 112 | DMSQP3 ;;11874271
|
|---|
| 113 | DMSQP4 ;;2151271
|
|---|
| 114 | DMSQP5 ;;5423594
|
|---|
| 115 | DMSQP6 ;;10074783
|
|---|
| 116 | DMSQS ;;3197279
|
|---|
| 117 | DMSQT ;;11672859
|
|---|
| 118 | DMSQT1 ;;1181888
|
|---|
| 119 | DMSQU ;;10591593
|
|---|
