source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCANTE0.m@ 1119

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1PRCANTE0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48
2 ;;0.0;
3 ;;7.2;SEP 19, 1995@07:50:48
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^PRCANTE1
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 ;;
12PRCAI02K ;;8007994
13PRCAI02L ;;10327226
14PRCAI02M ;;10873093
15PRCAI02N ;;8963541
16PRCAI02O ;;10109729
17PRCAI02P ;;6826290
18PRCAI02Q ;;960956
19PRCAI02R ;;8649853
20PRCAI02S ;;8104721
21PRCAI02T ;;7277981
22PRCAI02U ;;8107829
23PRCAI02V ;;11677837
24PRCAI02W ;;16244788
25PRCAI02X ;;17075662
26PRCAI02Y ;;12274573
27PRCAI02Z ;;13381976
28PRCAI030 ;;12345426
29PRCAI031 ;;11483989
30PRCAI032 ;;10668818
31PRCAI033 ;;14455621
32PRCAI034 ;;13902721
33PRCAI035 ;;13874247
34PRCAI036 ;;12525023
35PRCAI037 ;;12885572
36PRCAI038 ;;10111549
37PRCAI039 ;;12080000
38PRCAI03A ;;8526214
39PRCAI03B ;;5281278
40PRCAI03C ;;11640455
41PRCAI03D ;;11021635
42PRCAI03E ;;13161574
43PRCAI03F ;;12402198
44PRCAI03G ;;17168216
45PRCAI03H ;;16568262
46PRCAI03I ;;17186299
47PRCAI03J ;;15760618
48PRCAI03K ;;13569305
49PRCAI03L ;;14391893
50PRCAI03M ;;17499453
51PRCAI03N ;;13281182
52PRCAI03O ;;17490178
53PRCAI03P ;;16231410
54PRCAI03Q ;;18152253
55PRCAI03R ;;9476855
56PRCAI03S ;;7537069
57PRCAI03T ;;6237207
58PRCAI03U ;;8457505
59PRCAI03V ;;7514911
60PRCAI03W ;;7041327
61PRCAI03X ;;7740587
62PRCAI03Y ;;6850615
63PRCAI03Z ;;8390948
64PRCAI040 ;;7729811
65PRCAI041 ;;8157068
66PRCAI042 ;;7645512
67PRCAI043 ;;8315602
68PRCAI044 ;;8285033
69PRCAI045 ;;7972071
70PRCAI046 ;;8916747
71PRCAI047 ;;7296355
72PRCAI048 ;;9574157
73PRCAI049 ;;9421376
74PRCAI04A ;;7758784
75PRCAI04B ;;8351678
76PRCAI04C ;;8697970
77PRCAI04D ;;10051672
78PRCAI04E ;;10133133
79PRCAI04F ;;9559488
80PRCAI04G ;;9443032
81PRCAI04H ;;8511706
82PRCAI04I ;;8441560
83PRCAI04J ;;7657223
84PRCAI04K ;;8337881
85PRCAI04L ;;9164430
86PRCAI04M ;;5218914
87PRCAI04N ;;4929607
88PRCAI04O ;;1928416
89PRCAINI1 ;;5004820
90PRCAINI2 ;;5232536
91PRCAINI3 ;;16806494
92PRCAINI4 ;;3357708
93PRCAINI5 ;;2514289
94PRCAINIS ;;2209498
95PRCAINIT ;;10324995
96PRCAINS1 ;;4248556
97PRCAINST ;;2087276
98PRCAKBT ;;13416814
99PRCAKBT1 ;;12375527
100PRCAKM ;;9835440
101PRCAKMR ;;5182179
102PRCAKS ;;8219375
103PRCAKTP ;;3816580
104PRCAKUN ;;9454631
105PRCALET ;;1444147
106PRCALM ;;9961044
107PRCALST ;;13048313
108PRCALST1 ;;1260099
109PRCALT2 ;;4758188
110PRCAMARK ;;6372040
111PRCAMAS ;;3280486
112PRCAMESG ;;781868
113PRCAMRKC ;;545164
114PRCANRU ;;8570583
115PRCANRU0 ;;6087574
116PRCAOFF ;;12315560
117PRCAOFF1 ;;8556370
118PRCAOFF2 ;;13326420
119PRCAOFF3 ;;7837487
120PRCAOFF4 ;;8279590
121PRCAOLD ;;9177437
122PRCAPAT ;;18113504
123PRCAPAT1 ;;1657991
124PRCAPAY ;;11877840
125PRCAPAY1 ;;13978186
126PRCAPAY2 ;;10975714
127PRCAPAY3 ;;2847314
128PRCAPCL ;;8181427
129PRCAPRO ;;10192688
130PRCAPTR ;;4330309
131PRCAQUE ;;4247288
132PRCAREP ;;9114542
133PRCAREPT ;;13564453
134PRCARETN ;;12618183
135PRCARFD ;;18279609
136PRCARFD1 ;;11110938
137PRCARFD2 ;;2403950
138PRCARFD3 ;;2152789
139PRCARFP ;;7070826
140PRCARFU ;;6738284
141PRCARPS ;;9786141
142PRCARPS1 ;;15508414
143PRCASER ;;7326682
144PRCASER1 ;;10306446
145PRCASET ;;5156070
146PRCASIG ;;3048834
147PRCASVC ;;5279576
148PRCASVC1 ;;4487671
149PRCASVC3 ;;3133773
150PRCASVC6 ;;9687817
151PRCAUDT ;;12891243
152PRCAUDT1 ;;5877681
153PRCAUPD ;;5882693
154PRCAUT1 ;;4102245
155PRCAUT2 ;;3164379
156PRCAUT3 ;;5490775
157PRCAUTL ;;11165515
158PRCAWO ;;9280254
159PRCAWO1 ;;6372476
160PRCAWOF ;;8448404
161PRCAWREA ;;6818127
162PRCAWV ;;5919273
163PRCAX ;;10670246
Note: See TracBrowser for help on using the repository browser.