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