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

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

initial load of WorldVistAEHR

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