source: FOIAVistA/trunk/r/CONTROLLED_SUBSTANCES-PSD/PSDNTEG.m@ 1310

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

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