source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINTEG1.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

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