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

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

initial load of WorldVistAEHR

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