Annotation of freem_fileman/DINTEG2.m, revision 1.1.1.1
1.1 snw 1: DINTEG2 ;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^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
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: DIFGGU ;;5525512
18: DIFGO ;;3849638
19: DIFGSRV ;;1145738
20: DIFROM ;;11038655
21: DIFROM0 ;;9100392
22: DIFROM1 ;;9679123
23: DIFROM11 ;;8986254
24: DIFROM12 ;;6395291
25: DIFROM2 ;;6822749
26: DIFROM3 ;;7863608
27: DIFROM4 ;;3939991
28: DIFROM41 ;;14320255
29: DIFROM42 ;;3811931
30: DIFROM5 ;;13318228
31: DIFROM6 ;;8014990
32: DIFROM7 ;;5693246
33: DIFROMH ;;8812360
34: DIFROMH1 ;;7701962
35: DIFROMS ;;1725573
36: DIFROMS1 ;;5768831
37: DIFROMS2 ;;6190772
38: DIFROMS3 ;;7300037
39: DIFROMS4 ;;4240259
40: DIFROMS5 ;;3415060
41: DIFROMS6 ;;868273
42: DIFROMSB ;;1316407
43: DIFROMSC ;;1542160
44: DIFROMSD ;;3803374
45: DIFROMSE ;;5059847
46: DIFROMSF ;;8096661
47: DIFROMSI ;;8134488
48: DIFROMSK ;;1421979
49: DIFROMSL ;;371524
50: DIFROMSO ;;1847867
51: DIFROMSP ;;6888702
52: DIFROMSR ;;4646734
53: DIFROMSS ;;3496020
54: DIFROMSU ;;5168157
55: DIFROMSV ;;89285
56: DIG ;;6265281
57: DIH ;;4688941
58: DII ;;6413260
59: DII1 ;;455555
60: DIINI001 ;;7758746
61: DIINI002 ;;7185246
62: DIINI003 ;;9033478
63: DIINI004 ;;7890739
64: DIINI005 ;;6512960
65: DIINI006 ;;8018142
66: DIINI007 ;;8798951
67: DIINI008 ;;7232119
68: DIINI009 ;;8236800
69: DIINI00A ;;4880814
70: DIINIS ;;2127703
71: DIINIT ;;10268911
72: DIINIT1 ;;4312623
73: DIINIT2 ;;5232051
74: DIINIT3 ;;16801795
75: DIINIT4 ;;3357221
76: DIINIT5 ;;364747
77: DIIS ;;374782
78: DIISS ;;2408793
79: DIK ;;7325945
80: DIK1 ;;5820262
81: DIKZ ;;9722227
82: DIKZ0 ;;5940541
83: DIKZ1 ;;8933794
84: DIKZ11 ;;4558086
85: DIKZ2 ;;5230837
86: DIL ;;6332887
87: DIL0 ;;5148814
88: DIL1 ;;6752508
89: DIL11 ;;5151125
90: DIL2 ;;9065502
91: DILF ;;1129307
92: DILFD ;;231253
93: DILIBF ;;6348908
94: DILL ;;6076491
95: DIM ;;2096545
96: DIM1 ;;7391479
97: DIM2 ;;4847408
98: DIM3 ;;4724114
99: DIM4 ;;3593321
100: DINIT ;;14307293
101: DINIT0 ;;5228258
102: DINIT001 ;;9222884
103: DINIT002 ;;9770143
104: DINIT003 ;;9283558
105: DINIT004 ;;7878368
106: DINIT005 ;;7116172
107: DINIT006 ;;7804999
108: DINIT007 ;;7371481
109: DINIT008 ;;7455825
110: DINIT009 ;;7710262
111: DINIT00A ;;7298150
112: DINIT00B ;;6817873
113: DINIT00C ;;7474896
114: DINIT00D ;;6215508
115: DINIT00E ;;6203285
116: DINIT00F ;;6944836
117: DINIT00G ;;6618387
118: DINIT00H ;;7525400
119: DINIT00I ;;7064051
120: DINIT00J ;;6340692
121: DINIT00K ;;6814146
122: DINIT00L ;;4996601
123: DINIT00M ;;4988352
124: DINIT00N ;;4358748
125: DINIT00O ;;5099250
126: DINIT00P ;;7094936
127: DINIT00Q ;;7854917
128: DINIT00R ;;6685186
129: DINIT00S ;;6285951
130: DINIT00T ;;6976234
131: DINIT00U ;;6454261
132: DINIT00V ;;10494647
133: DINIT00W ;;10423570
134: DINIT00X ;;7260573
135: DINIT00Y ;;6362756
136: DINIT00Z ;;7186746
137: DINIT010 ;;8406869
138: DINIT011 ;;8500074
139: DINIT012 ;;7486356
140: DINIT013 ;;6313482
141: DINIT014 ;;6116898
142: DINIT015 ;;5524998
143: DINIT016 ;;1335499
144: DINIT017 ;;8281492
145: DINIT018 ;;6764686
146: DINIT019 ;;3674630
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINTEG2.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman