source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSONTEG.m@ 841

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

initial load of WorldVistAEHR
File size: 3.5 KB
Line 
1PSONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971222.09512
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3 ;;7.3;2971222.09512
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^PSONTEG0
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 ;;
12PSOAMIS ;;8088370
13PSOAMIS0 ;;15530501
14PSOAMIS1 ;;15933021
15PSOARC ;;1543895
16PSOARCCO ;;7879291
17PSOARCCV ;;16524016
18PSOARCDE ;;1519886
19PSOARCF1 ;;9938950
20PSOARCF2 ;;6313447
21PSOARCF3 ;;10989252
22PSOARCF4 ;;14824919
23PSOARCF5 ;;10373233
24PSOARCF6 ;;2114902
25PSOARCIN ;;10467127
26PSOARCLT ;;11361257
27PSOARCR1 ;;6659841
28PSOARCR2 ;;11410187
29PSOARCRR ;;12610244
30PSOARCS2 ;;11785445
31PSOARCSV ;;14563867
32PSOARCTG ;;9524360
33PSOARCTP ;;4774424
34PSOARX ;;24537743
35PSOARX1 ;;8732603
36PSOAUTOC ;;11799857
37PSOB ;;12093795
38PSOBARV ;;4590989
39PSOBBC ;;17077721
40PSOBGMG1 ;;9615217
41PSOBGMG2 ;;16559725
42PSOBGMG3 ;;11706993
43PSOBGMGR ;;26029612
44PSOBING1 ;;20449880
45PSOBINGO ;;27965067
46PSOBKDED ;;3390318
47PSOBMST ;;12548532
48PSOBRPRT ;;12685512
49PSOBSET ;;8800979
50PSOBSET1 ;;8233165
51PSOBUILD ;;18513958
52PSOCAN ;;18537431
53PSOCAN1 ;;24583271
54PSOCAN2 ;;22710446
55PSOCAN3 ;;17987886
56PSOCAN4 ;;12203613
57PSOCLERK ;;580896
58PSOCLO1 ;;16692398
59PSOCLOLS ;;7584419
60PSOCLUTL ;;24520306
61PSOCMOP ;;8682406
62PSOCMOPA ;;6009311
63PSOCMOPB ;;5657331
64PSOCMOPC ;;3165423
65PSOCOPAY ;;2628544
66PSOCOST ;;16988098
67PSOCOSTP ;;4824429
68PSOCP ;;3646662
69PSOCPA ;;8121410
70PSOCPB ;;14175665
71PSOCPC ;;2336163
72PSOCPD ;;11289046
73PSOCPDUP ;;14367470
74PSOCPE ;;2802442
75PSOCPTRH ;;3598887
76PSOCPTRI ;;9927109
77PSOCPVW ;;3063870
78PSOCSRL ;;19568056
79PSOCST ;;1243245
80PSOCST10 ;;11107494
81PSOCST11 ;;11338986
82PSOCST12 ;;18885137
83PSOCST2 ;;10800053
84PSOCST3 ;;11384106
85PSOCST4 ;;11040507
86PSOCST5 ;;13475863
87PSOCST6 ;;10963759
88PSOCST7 ;;9540110
89PSOCST8 ;;10397479
90PSOCST9 ;;14526699
91PSOCSTD ;;16715457
92PSOCSTM ;;17123922
93PSODACT ;;8653547
94PSODEA ;;2282011
95PSODEDT ;;8093286
96PSODELI ;;1437148
97PSODEM ;;10715086
98PSODGAL ;;5387171
99PSODGDG1 ;;22372333
100PSODGDG2 ;;7110510
101PSODGDGI ;;21636668
102PSODIR ;;6314040
103PSODIR1 ;;16914116
104PSODIR2 ;;9167439
105PSODIR3 ;;5216246
106PSODISP ;;24192299
107PSODISP1 ;;20533972
108PSODISP2 ;;2853632
109PSODISP3 ;;8688157
110PSODISPS ;;15792743
111PSODIV ;;9106287
112PSODLKP ;;12394095
113PSODP ;;7869809
114PSODRDU1 ;;13178884
115PSODRDU2 ;;9325905
116PSODRDUP ;;22075959
117PSODRG ;;7801992
118PSODSPL ;;8767448
119PSODSRC ;;2809154
120PSODUE ;;4990585
121PSOEXBCH ;;17471798
122PSOEXDT ;;3390663
123PSOEXREF ;;2938164
124PSOEXRST ;;27534572
125PSOFUNC ;;5153561
126PSOHCSUM ;;7694494
127PSOHELP ;;20630563
128PSOHELP1 ;;18428458
129PSOHELP2 ;;5206648
130PSOHELP3 ;;4616409
131PSOHELP4 ;;782147
132PSOHLD ;;18883227
133PSOHLEXP ;;6671290
134PSOHLNE1 ;;10306531
135PSOHLNE2 ;;24072158
136PSOHLNEW ;;33884077
137PSOHLSG ;;14426239
138PSOHLSG1 ;;22096952
139PSOHLSG2 ;;11980019
140PSOHLSG3 ;;17462571
141PSOHLSG4 ;;5082832
142PSOHLSIG ;;16078021
143PSOHLSIH ;;12638114
144PSOHLSN ;;15349796
145PSOHLSN1 ;;20803809
146PSOHLUP ;;12005271
147PSOHLUP1 ;;7432439
148PSOLAB ;;4226213
149PSOLBL ;;26777589
150PSOLBL1 ;;18314169
151PSOLBL2 ;;18742229
152PSOLBL3 ;;2387864
153PSOLBL4 ;;22298368
154PSOLBLD ;;18323127
155PSOLBLD1 ;;6414526
156PSOLBLN ;;17575125
157PSOLBLN1 ;;25664258
158PSOLBLN2 ;;20535870
159PSOLBLS ;;18302467
160PSOLBLT ;;3427886
161PSOLMAL ;;100919
162PSOLMAO ;;95773
163PSOLMDA ;;197910
164PSOLMLST ;;1673965
Note: See TracBrowser for help on using the repository browser.