Annotation of freem_fileman/DINTEG3.m, revision 1.1.1.1
1.1 snw 1: DINTEG3 ;SFISC/dizSUM FILEMAN-FileMan checksum checker ;DEC 28, 1994@11:30:03
2: ;;21.0;VA FileMan;;Dec 28, 1994;
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^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
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 $D(^ (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: DINIT02 ;;2462683
18: DINIT03 ;;2421273
19: DINIT04 ;;3697957
20: DINIT05 ;;1825546
21: DINIT06 ;;1001974
22: DINIT07 ;;3740650
23: DINIT08 ;;7989773
24: DINIT0F0 ;;4401468
25: DINIT0F1 ;;2844141
26: DINIT0F2 ;;5669730
27: DINIT0F3 ;;6115371
28: DINIT0F4 ;;5916366
29: DINIT0F5 ;;4792287
30: DINIT0F6 ;;3822369
31: DINIT0F7 ;;3809021
32: DINIT0F8 ;;3681049
33: DINIT0F9 ;;2083336
34: DINIT1 ;;6609056
35: DINIT11 ;;7807097
36: DINIT11A ;;9392153
37: DINIT11B ;;3195420
38: DINIT11C ;;6005195
39: DINIT12 ;;9306353
40: DINIT120 ;;8317853
41: DINIT121 ;;10875848
42: DINIT122 ;;10992491
43: DINIT123 ;;11544691
44: DINIT124 ;;12338353
45: DINIT125 ;;10484654
46: DINIT126 ;;10127786
47: DINIT127 ;;8335195
48: DINIT13 ;;10341008
49: DINIT14 ;;3422144
50: DINIT2 ;;729944
51: DINIT20 ;;5340670
52: DINIT21 ;;3491420
53: DINIT22 ;;1548661
54: DINIT220 ;;487349
55: DINIT24 ;;11140614
56: DINIT25 ;;8381842
57: DINIT250 ;;4565635
58: DINIT255 ;;3074177
59: DINIT26 ;;7320579
60: DINIT260 ;;7558780
61: DINIT27 ;;8893587
62: DINIT270 ;;8954842
63: DINIT271 ;;4962636
64: DINIT27A ;;4535134
65: DINIT27B ;;3392667
66: DINIT27C ;;3010708
67: DINIT27D ;;3129310
68: DINIT27E ;;2362322
69: DINIT27F ;;7294806
70: DINIT27G ;;7287275
71: DINIT27H ;;991763
72: DINIT27I ;;1784973
73: DINIT27J ;;4891073
74: DINIT27K ;;4910854
75: DINIT27L ;;2952488
76: DINIT28 ;;2224020
77: DINIT285 ;;9217149
78: DINIT286 ;;2757795
79: DINIT287 ;;939077
80: DINIT290 ;;9040841
81: DINIT291 ;;8374884
82: DINIT292 ;;8869220
83: DINIT293 ;;11561311
84: DINIT294 ;;8359242
85: DINIT295 ;;10019078
86: DINIT296 ;;9334293
87: DINIT297 ;;1310471
88: DINIT298 ;;9267752
89: DINIT299 ;;11066049
90: DINIT29A ;;11649557
91: DINIT29B ;;9992422
92: DINIT29C ;;10380082
93: DINIT29D ;;8208281
94: DINIT29E ;;2998981
95: DINIT29P ;;1161392
96: DINIT3 ;;9096420
97: DINIT4 ;;9010496
98: DINIT41 ;;11669306
99: DINIT42 ;;8065804
100: DINIT5 ;;9581562
101: DINIT6 ;;3176942
102: DINITPST ;;118426
103: DINV1DTM ;;1497765
104: DINV1VXD ;;2343090
105: DINVDTM ;;6129007
106: DINVMSM ;;8405664
107: DINVVXD ;;6649372
108: DINZDTM ;;6206888
109: DINZMGR ;;8170762
110: DINZMGR1 ;;5426403
111: DINZMSM ;;3819112
112: DINZVXD ;;4163974
113: DIO ;;7212010
114: DIO0 ;;9337666
115: DIO1 ;;6789778
116: DIO2 ;;4090173
117: DIO3 ;;4969134
118: DIO4 ;;5969086
119: DIOC ;;906643
120: DIOQ ;;951380
121: DIOS ;;7207594
122: DIOS1 ;;1190642
123: DIOU ;;4893133
124: DIOZ ;;5699472
125: DIP ;;10842684
126: DIP0 ;;9017625
127: DIP1 ;;9630060
128: DIP10 ;;5485584
129: DIP11 ;;8098143
130: DIP12 ;;5158083
131: DIP2 ;;8015552
132: DIP21 ;;12550282
133: DIP22 ;;6639498
134: DIP23 ;;467210
135: DIP3 ;;10660874
136: DIP31 ;;1492535
137: DIP4 ;;2871248
138: DIP5 ;;9722926
139: DIPKI001 ;;8527821
140: DIPKI002 ;;8311211
141: DIPKI003 ;;10161905
142: DIPKI004 ;;11066884
143: DIPKI005 ;;9699423
144: DIPKI006 ;;7153468
145: DIPKI007 ;;8930731
146: DIPKI008 ;;8606961
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINTEG3.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman