| 1 | DINTEG1 ;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^DINTEG2
|
|---|
| 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 | DDWK ;;1021815
|
|---|
| 18 | DDWT1 ;;5205058
|
|---|
| 19 | DDXP ;;2355934
|
|---|
| 20 | DDXP1 ;;8242677
|
|---|
| 21 | DDXP2 ;;4539899
|
|---|
| 22 | DDXP3 ;;6242061
|
|---|
| 23 | DDXP31 ;;10768233
|
|---|
| 24 | DDXP32 ;;4257847
|
|---|
| 25 | DDXP33 ;;1616122
|
|---|
| 26 | DDXP4 ;;7016440
|
|---|
| 27 | DDXP41 ;;1471391
|
|---|
| 28 | DDXP5 ;;883390
|
|---|
| 29 | DDXPLIB ;;2740156
|
|---|
| 30 | DI ;;385007
|
|---|
| 31 | DIA ;;7752413
|
|---|
| 32 | DIA1 ;;8353215
|
|---|
| 33 | DIA2 ;;3778793
|
|---|
| 34 | DIA3 ;;10625537
|
|---|
| 35 | DIAC ;;960436
|
|---|
| 36 | DIALOG ;;9955906
|
|---|
| 37 | DIALOGU ;;1585021
|
|---|
| 38 | DIAR ;;12160588
|
|---|
| 39 | DIARA ;;14013708
|
|---|
| 40 | DIARB ;;6210401
|
|---|
| 41 | DIARCALC ;;2009574
|
|---|
| 42 | DIARR ;;10469571
|
|---|
| 43 | DIARR1 ;;10326725
|
|---|
| 44 | DIARR2 ;;4740869
|
|---|
| 45 | DIARR3 ;;10772756
|
|---|
| 46 | DIARR4 ;;4010759
|
|---|
| 47 | DIARR5 ;;5439123
|
|---|
| 48 | DIARR6 ;;5070511
|
|---|
| 49 | DIARU ;;14044819
|
|---|
| 50 | DIARX ;;8629637
|
|---|
| 51 | DIAU ;;6245085
|
|---|
| 52 | DIAX ;;11303014
|
|---|
| 53 | DIAXD ;;11580617
|
|---|
| 54 | DIAXERR ;;600222
|
|---|
| 55 | DIAXF ;;373535
|
|---|
| 56 | DIAXM ;;9420934
|
|---|
| 57 | DIAXM1 ;;4416751
|
|---|
| 58 | DIAXM2 ;;8396635
|
|---|
| 59 | DIAXM3 ;;5623823
|
|---|
| 60 | DIAXMS ;;7778891
|
|---|
| 61 | DIAXP ;;2094474
|
|---|
| 62 | DIAXT ;;1965631
|
|---|
| 63 | DIAXU ;;7159038
|
|---|
| 64 | DIB ;;7431185
|
|---|
| 65 | DIBT ;;11367668
|
|---|
| 66 | DIBT1 ;;7178879
|
|---|
| 67 | DIBTED ;;10413273
|
|---|
| 68 | DIC ;;10513568
|
|---|
| 69 | DIC0 ;;4489087
|
|---|
| 70 | DIC1 ;;7920273
|
|---|
| 71 | DIC11 ;;3133605
|
|---|
| 72 | DIC2 ;;2989510
|
|---|
| 73 | DIC3 ;;8044472
|
|---|
| 74 | DIC4 ;;4973984
|
|---|
| 75 | DICA ;;8337676
|
|---|
| 76 | DICA1 ;;7134262
|
|---|
| 77 | DICA2 ;;3685096
|
|---|
| 78 | DICA3 ;;1604228
|
|---|
| 79 | DICATT ;;8217226
|
|---|
| 80 | DICATT0 ;;7932864
|
|---|
| 81 | DICATT1 ;;6222908
|
|---|
| 82 | DICATT2 ;;9604401
|
|---|
| 83 | DICATT22 ;;7969359
|
|---|
| 84 | DICATT3 ;;6345117
|
|---|
| 85 | DICATT4 ;;11895745
|
|---|
| 86 | DICATT5 ;;6797753
|
|---|
| 87 | DICATT6 ;;5640525
|
|---|
| 88 | DICATTA ;;6837632
|
|---|
| 89 | DICATTD ;;9780938
|
|---|
| 90 | DICATTD0 ;;1008871
|
|---|
| 91 | DICATTD1 ;;3443939
|
|---|
| 92 | DICATTD2 ;;2061431
|
|---|
| 93 | DICATTD3 ;;2948456
|
|---|
| 94 | DICATTD4 ;;1244779
|
|---|
| 95 | DICATTD5 ;;429848
|
|---|
| 96 | DICATTD6 ;;3662352
|
|---|
| 97 | DICATTD7 ;;788242
|
|---|
| 98 | DICATTD8 ;;5071999
|
|---|
| 99 | DICATTD9 ;;488739
|
|---|
| 100 | DICATTDD ;;1815314
|
|---|
| 101 | DICATTDE ;;10836616
|
|---|
| 102 | DICATTDK ;;2170130
|
|---|
| 103 | DICATTDM ;;4014417
|
|---|
| 104 | DICD ;;9956379
|
|---|
| 105 | DICE ;;11530586
|
|---|
| 106 | DICE0 ;;7809447
|
|---|
| 107 | DICE1 ;;5929202
|
|---|
| 108 | DICE2 ;;9103183
|
|---|
| 109 | DICE3 ;;1063202
|
|---|
| 110 | DICE4 ;;7914237
|
|---|
| 111 | DICE7 ;;6858722
|
|---|
| 112 | DICF ;;8504495
|
|---|
| 113 | DICF0 ;;5072927
|
|---|
| 114 | DICF1 ;;6446378
|
|---|
| 115 | DICF2 ;;8772057
|
|---|
| 116 | DICF3 ;;3363767
|
|---|
| 117 | DICF4 ;;7990992
|
|---|
| 118 | DICF5 ;;2319707
|
|---|
| 119 | DICFIX ;;6867704
|
|---|
| 120 | DICFIX1 ;;1160939
|
|---|
| 121 | DICL ;;4252310
|
|---|
| 122 | DICL1 ;;4176424
|
|---|
| 123 | DICL10 ;;3112263
|
|---|
| 124 | DICL2 ;;4796448
|
|---|
| 125 | DICL3 ;;4999363
|
|---|
| 126 | DICLIB ;;770990
|
|---|
| 127 | DICLIX ;;6388314
|
|---|
| 128 | DICLIX0 ;;2323129
|
|---|
| 129 | DICLIX1 ;;2988293
|
|---|
| 130 | DICM ;;8046960
|
|---|
| 131 | DICM0 ;;6941241
|
|---|
| 132 | DICM1 ;;6170473
|
|---|
| 133 | DICM2 ;;5782025
|
|---|
| 134 | DICM3 ;;3812212
|
|---|
| 135 | DICN ;;6535731
|
|---|
| 136 | DICN0 ;;4104440
|
|---|
| 137 | DICN1 ;;7864160
|
|---|
| 138 | DICOMP ;;7232175
|
|---|
| 139 | DICOMP0 ;;9896481
|
|---|
| 140 | DICOMP1 ;;6197157
|
|---|
| 141 | DICOMPV ;;8888896
|
|---|
| 142 | DICOMPW ;;8886232
|
|---|
| 143 | DICOMPX ;;3939321
|
|---|
| 144 | DICOMPY ;;6302870
|
|---|
| 145 | DICOMPZ ;;8915237
|
|---|
| 146 | DICQ ;;6248469
|
|---|
| 147 | DICQ1 ;;7645506
|
|---|
| 148 | DICR ;;3769352
|
|---|
| 149 | DICRW ;;6532741
|
|---|
| 150 | DICRW1 ;;1020868
|
|---|
| 151 | DICU ;;3198839
|
|---|
| 152 | DICU1 ;;6382864
|
|---|
| 153 | DICU11 ;;3617845
|
|---|
| 154 | DICU2 ;;8083831
|
|---|
