source: FOIAVistA/tag/r/CMOP-PSX/PSXNTEG.m@ 1607

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

initial load of FOIAVistA 6/30/08 version
File size: 3.6 KB
Line 
1PSXNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAY 15, 1995@13:05
2 ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;;10 MAY 95
3 ;;7.1;MAY 15, 1995@13:05
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^PSXNTEG0
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 ;;
12PSXACK ;;6677108
13PSXACT ;;13965467
14PSXAUTO ;;14970271
15PSXBKD ;;16121605
16PSXBLD ;;13038258
17PSXBLD1 ;;9820561
18PSXCH ;;2668396
19PSXCMOP ;;17147896
20PSXCMOP0 ;;10832855
21PSXCMOP1 ;;16141223
22PSXCOPAY ;;3685279
23PSXCOSTU ;;10220940
24PSXCSCMN ;;16716833
25PSXCSDA ;;16101687
26PSXCSDC ;;7960597
27PSXCSDC1 ;;10096395
28PSXCSDC2 ;;6786767
29PSXCSHI ;;10869346
30PSXCSHI1 ;;5211550
31PSXCSLG1 ;;1369587
32PSXCSLOG ;;12284233
33PSXCSMN1 ;;9769855
34PSXCSMON ;;10584473
35PSXCSSUM ;;11402742
36PSXCST ;;12032859
37PSXCST1 ;;4231822
38PSXCSTPG ;;10700293
39PSXCSUTL ;;13045059
40PSXDENT ;;1621104
41PSXDQUE ;;6894902
42PSXEDIT ;;7061623
43PSXEDRG ;;7739227
44PSXEDUTL ;;5468671
45PSXERR ;;14094746
46PSXERR1 ;;2797303
47PSXIN001 ;;5283252
48PSXIN002 ;;7817731
49PSXIN003 ;;7693387
50PSXIN004 ;;11704708
51PSXIN005 ;;5843038
52PSXIN006 ;;5687091
53PSXIN007 ;;3722631
54PSXIN008 ;;2945101
55PSXIN009 ;;1781667
56PSXIN00A ;;6696587
57PSXIN00B ;;6113399
58PSXIN00C ;;5418791
59PSXIN00D ;;7152812
60PSXIN00E ;;4868805
61PSXIN00F ;;4894647
62PSXIN00G ;;4281646
63PSXIN00H ;;1735750
64PSXIN00I ;;7711474
65PSXIN00J ;;5390259
66PSXIN00K ;;7348489
67PSXIN00L ;;3509404
68PSXIN00M ;;6012235
69PSXIN00N ;;4301333
70PSXIN00O ;;6757219
71PSXIN00P ;;6676080
72PSXIN00Q ;;9612970
73PSXIN00R ;;6436073
74PSXIN00S ;;5566882
75PSXIN00T ;;7802269
76PSXIN00U ;;6824051
77PSXIN00V ;;6828764
78PSXIN00W ;;6040285
79PSXIN00X ;;4499248
80PSXIN00Y ;;6283720
81PSXIN00Z ;;5610344
82PSXIN010 ;;836391
83PSXIN011 ;;6459505
84PSXIN012 ;;5601696
85PSXIN013 ;;6181097
86PSXIN014 ;;8373265
87PSXIN015 ;;6362844
88PSXIN016 ;;7226168
89PSXIN017 ;;5151647
90PSXIN018 ;;5739519
91PSXIN019 ;;6778689
92PSXIN01A ;;6851131
93PSXIN01B ;;1050570
94PSXIN01C ;;6335010
95PSXIN01D ;;2118648
96PSXIN01E ;;5834304
97PSXIN01F ;;5330933
98PSXIN01G ;;4658198
99PSXIN01H ;;1774518
100PSXIN01I ;;6990204
101PSXIN01J ;;6671913
102PSXIN01K ;;6417163
103PSXIN01L ;;6534420
104PSXIN01M ;;6006061
105PSXIN01N ;;7196563
106PSXIN01O ;;5768679
107PSXIN01P ;;8580654
108PSXIN01Q ;;7806637
109PSXIN01R ;;7253012
110PSXIN01S ;;7159015
111PSXIN01T ;;4449256
112PSXIN01U ;;4478072
113PSXIN01V ;;2115884
114PSXINIS ;;2176409
115PSXINIT ;;11141200
116PSXINIT1 ;;5686615
117PSXINIT2 ;;5232705
118PSXINIT3 ;;16095509
119PSXINIT4 ;;3357877
120PSXINIT5 ;;2001568
121PSXJOB ;;1300511
122PSXLBL ;;7880340
123PSXLBL1 ;;8827335
124PSXLBL2 ;;5620049
125PSXLBLNR ;;4776682
126PSXLBLPT ;;1839508
127PSXLBLT ;;4774489
128PSXLBLU ;;11342551
129PSXLIST ;;12299585
130PSXLKUP ;;6788882
131PSXLTST ;;1837789
132PSXMARK ;;25882264
133PSXMISC ;;9291728
134PSXMISC1 ;;9171869
135PSXMSGS ;;9257926
136PSXMST ;;6597401
137PSXNEW ;;6161244
138PSXNOCMP ;;8547875
139PSXNOTE ;;14813623
140PSXOCMOP ;;8857484
141PSXOPUTL ;;5956540
142PSXPLOG ;;1783519
143PSXPOST ;;5688069
144PSXPRE ;;9113030
145PSXPURG ;;11296634
146PSXQRY ;;13722282
147PSXRECV ;;15971626
148PSXRECV1 ;;13571764
149PSXREF ;;4469306
150PSXREJ ;;10799840
151PSXREL ;;3818026
152PSXRHLP ;;10383316
153PSXRPPL ;;13716809
154PSXRPPL1 ;;11942476
155PSXRPT ;;9985051
156PSXRSTAT ;;8884193
157PSXRSUS ;;13734928
158PSXRSYU ;;13839089
159PSXRTN ;;18399803
160PSXRTN1 ;;12220675
161PSXRTR ;;6070039
162PSXRTRAN ;;18034286
163PSXRXQU ;;7810285
164PSXRXU ;;6469166
165PSXSERV ;;6298176
Note: See TracBrowser for help on using the repository browser.