Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
3.5 KB
|
Line | |
---|
1 | PSDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970224.092204
|
---|
2 | ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
|
---|
3 | ;;7.3;2970224.092204
|
---|
4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
---|
5 | CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
|
---|
6 | G CONT^PSDNTEG0
|
---|
7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
---|
8 | ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
---|
9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
---|
10 | W ! G CONT
|
---|
11 | ROU ;;
|
---|
12 | PSDACT ;;9975594
|
---|
13 | PSDACT1 ;;11604254
|
---|
14 | PSDACT2 ;;6805666
|
---|
15 | PSDADJ ;;13992080
|
---|
16 | PSDADJB ;;3411172
|
---|
17 | PSDADJC ;;12709010
|
---|
18 | PSDADJD ;;13684417
|
---|
19 | PSDADJI ;;9664608
|
---|
20 | PSDADJIN ;;10882845
|
---|
21 | PSDADJN ;;12308094
|
---|
22 | PSDADJN1 ;;9209503
|
---|
23 | PSDADJR ;;9137032
|
---|
24 | PSDADJW ;;3140510
|
---|
25 | PSDADT ;;1852503
|
---|
26 | PSDADT1 ;;2880338
|
---|
27 | PSDAMIS ;;12951751
|
---|
28 | PSDAMIS0 ;;12093150
|
---|
29 | PSDAMIS1 ;;10954000
|
---|
30 | PSDAMIS2 ;;8653026
|
---|
31 | PSDAMIS3 ;;11517002
|
---|
32 | PSDAMIS4 ;;6905875
|
---|
33 | PSDAPU ;;453681
|
---|
34 | PSDBAL ;;11324223
|
---|
35 | PSDBALI ;;13145477
|
---|
36 | PSDBALI1 ;;4034805
|
---|
37 | PSDBAN ;;11322182
|
---|
38 | PSDBAN1 ;;6447121
|
---|
39 | PSDCODE ;;1276619
|
---|
40 | PSDCOR ;;12698386
|
---|
41 | PSDCOR1 ;;13395954
|
---|
42 | PSDCOR2 ;;13487461
|
---|
43 | PSDCOR3 ;;1989323
|
---|
44 | PSDCORP ;;10704766
|
---|
45 | PSDCORP1 ;;8074809
|
---|
46 | PSDCORP2 ;;8214810
|
---|
47 | PSDCORP3 ;;9384457
|
---|
48 | PSDCOSD ;;11666341
|
---|
49 | PSDCOSH ;;8058420
|
---|
50 | PSDCOSM ;;1588896
|
---|
51 | PSDCOSN ;;11610030
|
---|
52 | PSDCOST ;;17808268
|
---|
53 | PSDCOSV ;;8309730
|
---|
54 | PSDCPO ;;15492261
|
---|
55 | PSDCRP ;;15861595
|
---|
56 | PSDCSI ;;8739313
|
---|
57 | PSDCSL ;;9907995
|
---|
58 | PSDDFP ;;13632184
|
---|
59 | PSDDFP1 ;;4717046
|
---|
60 | PSDDWK ;;14582819
|
---|
61 | PSDDWK1 ;;8730816
|
---|
62 | PSDDWK2 ;;7776016
|
---|
63 | PSDDWK3 ;;7689842
|
---|
64 | PSDDWK4 ;;5365045
|
---|
65 | PSDDWKE ;;10267106
|
---|
66 | PSDEA ;;7236323
|
---|
67 | PSDEA41 ;;13153026
|
---|
68 | PSDEM ;;11848547
|
---|
69 | PSDEM1 ;;12993745
|
---|
70 | PSDEM2 ;;11157976
|
---|
71 | PSDEM3 ;;2984202
|
---|
72 | PSDEM4 ;;7256790
|
---|
73 | PSDEN ;;9553918
|
---|
74 | PSDERCP ;;15389660
|
---|
75 | PSDERD ;;7069296
|
---|
76 | PSDERP ;;15124151
|
---|
77 | PSDEST ;;14170737
|
---|
78 | PSDESTF ;;11545390
|
---|
79 | PSDESTO ;;12940785
|
---|
80 | PSDESTP ;;24798965
|
---|
81 | PSDEVO ;;13442414
|
---|
82 | PSDEVO1 ;;11404589
|
---|
83 | PSDEVOR ;;15314902
|
---|
84 | PSDEXGS ;;12646994
|
---|
85 | PSDEXGS1 ;;6305959
|
---|
86 | PSDEXP ;;15048479
|
---|
87 | PSDEXP1 ;;5042879
|
---|
88 | PSDFIL2 ;;14725710
|
---|
89 | PSDFIL3 ;;14685555
|
---|
90 | PSDFILM ;;2926376
|
---|
91 | PSDFND ;;16502908
|
---|
92 | PSDFND1 ;;2124618
|
---|
93 | PSDFT ;;14866922
|
---|
94 | PSDFT1 ;;15918295
|
---|
95 | PSDGEN ;;1437730
|
---|
96 | PSDGPR ;;11702075
|
---|
97 | PSDGSH ;;3741711
|
---|
98 | PSDGSH1 ;;5746281
|
---|
99 | PSDGSH11 ;;6013794
|
---|
100 | PSDGSH2 ;;13901298
|
---|
101 | PSDGSK ;;7890554
|
---|
102 | PSDGSL ;;8633650
|
---|
103 | PSDGSL1 ;;8018119
|
---|
104 | PSDGSPU ;;8969282
|
---|
105 | PSDGSRV ;;13538823
|
---|
106 | PSDGSRV1 ;;16149091
|
---|
107 | PSDGSRV2 ;;14427491
|
---|
108 | PSDHELP ;;167485
|
---|
109 | PSDHL7 ;;6316421
|
---|
110 | PSDHLK ;;1069196
|
---|
111 | PSDHLP ;;1933023
|
---|
112 | PSDHLX ;;1153846
|
---|
113 | PSDHLY ;;924987
|
---|
114 | PSDHRPT ;;14954948
|
---|
115 | PSDINPRE ;;3161234
|
---|
116 | PSDIPOS1 ;;4077569
|
---|
117 | PSDIPOST ;;6876049
|
---|
118 | PSDLBL ;;14060349
|
---|
119 | PSDLBL0 ;;8605513
|
---|
120 | PSDLBL1 ;;13258327
|
---|
121 | PSDLBL2 ;;10638900
|
---|
122 | PSDLBL3 ;;10994226
|
---|
123 | PSDLBL4 ;;4065314
|
---|
124 | PSDLBL5 ;;7201861
|
---|
125 | PSDLBLB ;;7160018
|
---|
126 | PSDLBLI ;;9423541
|
---|
127 | PSDLBLP ;;12044908
|
---|
128 | PSDLBLR ;;9703853
|
---|
129 | PSDLBLR0 ;;6059606
|
---|
130 | PSDLBLR1 ;;2638419
|
---|
131 | PSDLBLR2 ;;4532916
|
---|
132 | PSDLSTK ;;8066682
|
---|
133 | PSDLSTK1 ;;9733870
|
---|
134 | PSDLSTK2 ;;8185271
|
---|
135 | PSDMAPU ;;7479575
|
---|
136 | PSDMFG ;;3721775
|
---|
137 | PSDNACT ;;6740699
|
---|
138 | PSDNARC ;;3678699
|
---|
139 | PSDNBT ;;11058243
|
---|
140 | PSDNCGS ;;10321965
|
---|
141 | PSDNDES ;;13786726
|
---|
142 | PSDNRGO ;;12162069
|
---|
143 | PSDNRGS ;;15623486
|
---|
144 | PSDNSCG ;;10659453
|
---|
145 | PSDNSCL ;;9525064
|
---|
146 | PSDNSTK ;;16898603
|
---|
147 | PSDNTF ;;19598600
|
---|
148 | PSDNTR ;;14807386
|
---|
149 | PSDNTT ;;10244486
|
---|
150 | PSDNTT1 ;;8835538
|
---|
151 | PSDNU ;;13021502
|
---|
152 | PSDNU1 ;;14738135
|
---|
153 | PSDNU2 ;;12732100
|
---|
154 | PSDNU3 ;;2907042
|
---|
155 | PSDNVT ;;1478644
|
---|
156 | PSDOPT ;;12920789
|
---|
157 | PSDOPT0 ;;9875269
|
---|
158 | PSDOPT1 ;;7115187
|
---|
159 | PSDOPT2 ;;2480174
|
---|
160 | PSDOPTI ;;16473032
|
---|
161 | PSDOPTN ;;10853518
|
---|
162 | PSDOPTR ;;2226366
|
---|
163 | PSDOPTS ;;15071130
|
---|
164 | PSDOPTX ;;10178752
|
---|
165 | PSDOPTY ;;5930170
|
---|
166 | PSDOPTZ ;;7145611
|
---|
167 | PSDOR2 ;;7280763
|
---|
168 | PSDOR21 ;;9843322
|
---|
169 | PSDORD ;;13245815
|
---|
Note:
See
TracBrowser
for help on using the repository browser.