source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINTEG3.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 3.6 KB
Line 
1DINTEG3 ;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^DINTEG4
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 ;;
17DIKK ;;8668460
18DIKK1 ;;2999261
19DIKK2 ;;7003020
20DIKKDD ;;619322
21DIKKFORM ;;4020610
22DIKKP ;;4960174
23DIKKUTL ;;7891682
24DIKKUTL1 ;;7440382
25DIKKUTL2 ;;3321012
26DIKKUTL3 ;;5832605
27DIKKUTL4 ;;5542445
28DIKZ ;;10002654
29DIKZ0 ;;10320064
30DIKZ1 ;;9229373
31DIKZ11 ;;4558086
32DIKZ2 ;;5046219
33DIL ;;6333527
34DIL0 ;;5148814
35DIL1 ;;6856617
36DIL11 ;;5151125
37DIL2 ;;9004976
38DILF ;;2130649
39DILFD ;;231253
40DILIBF ;;7474309
41DILL ;;6100960
42DIM ;;2236006
43DIM1 ;;6135531
44DIM2 ;;4310650
45DIM3 ;;4265731
46DIM4 ;;3292224
47DINIT ;;14206897
48DINIT0 ;;5228258
49DINIT001 ;;14508772
50DINIT002 ;;13588488
51DINIT003 ;;1581370
52DINIT004 ;;11043470
53DINIT005 ;;10186263
54DINIT006 ;;11577960
55DINIT007 ;;10157790
56DINIT008 ;;10934076
57DINIT009 ;;10025795
58DINIT00A ;;10964723
59DINIT00B ;;10114739
60DINIT00C ;;11848580
61DINIT00D ;;9602595
62DINIT00E ;;9681953
63DINIT00F ;;10204123
64DINIT00G ;;10224518
65DINIT00H ;;8865487
66DINIT00I ;;8471256
67DINIT00J ;;7134655
68DINIT00K ;;7241879
69DINIT00L ;;9874316
70DINIT00M ;;10643142
71DINIT00N ;;10071584
72DINIT00O ;;11551621
73DINIT00P ;;8727020
74DINIT00Q ;;15168785
75DINIT00R ;;14638500
76DINIT00S ;;10098710
77DINIT00T ;;12267505
78DINIT00U ;;9544524
79DINIT00V ;;11149620
80DINIT00W ;;11855494
81DINIT00X ;;9838636
82DINIT00Y ;;8368445
83DINIT00Z ;;9947320
84DINIT010 ;;1380027
85DINIT011 ;;11943970
86DINIT012 ;;4026838
87DINIT013 ;;6100108
88DINIT02 ;;2462843
89DINIT07 ;;3740650
90DINIT08 ;;7989773
91DINIT0F0 ;;6212996
92DINIT0F1 ;;5527731
93DINIT0F2 ;;6166174
94DINIT0F3 ;;4903781
95DINIT0F4 ;;6382515
96DINIT0F5 ;;7697568
97DINIT0F6 ;;6316746
98DINIT0F7 ;;4711128
99DINIT0F8 ;;7102472
100DINIT0F9 ;;6185855
101DINIT0FA ;;7807085
102DINIT0FB ;;9020615
103DINIT0FC ;;5772591
104DINIT0FD ;;6456159
105DINIT0FE ;;5897346
106DINIT0FF ;;8836421
107DINIT0FG ;;8409070
108DINIT0FH ;;8855011
109DINIT0FI ;;5372744
110DINIT0FJ ;;5577122
111DINIT0FK ;;5843271
112DINIT0FL ;;9505191
113DINIT0FM ;;19265777
114DINIT0FN ;;11731152
115DINIT1 ;;6609056
116DINIT11 ;;7807097
117DINIT11A ;;9397074
118DINIT11B ;;3195420
119DINIT11C ;;6005195
120DINIT12 ;;8644619
121DINIT120 ;;13978285
122DINIT121 ;;13775662
123DINIT122 ;;14151880
124DINIT123 ;;15919572
125DINIT124 ;;18245323
126DINIT125 ;;14791473
127DINIT126 ;;14076027
128DINIT127 ;;1844442
129DINIT13 ;;6745649
130DINIT14 ;;3422144
131DINIT2 ;;729944
132DINIT20 ;;8343419
133DINIT21 ;;3404826
134DINIT22 ;;1548661
135DINIT220 ;;487349
136DINIT24 ;;11140614
137DINIT25 ;;8381842
138DINIT250 ;;4565635
139DINIT255 ;;3074177
140DINIT26 ;;7320579
141DINIT260 ;;7558780
142DINIT27 ;;8893587
Note: See TracBrowser for help on using the repository browser.