source: FOIAVistA/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCANTEG.m

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1PRCANTEG ;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^PRCANTE0
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 ;;
12PRCAACC ;;4043366
13PRCAADBO ;;7034078
14PRCAADIN ;;8227592
15PRCAAPR ;;8140887
16PRCAAPR1 ;;11564152
17PRCAATR ;;8783907
18PRCABD ;;12291906
19PRCABIL ;;5564563
20PRCABIL1 ;;12422838
21PRCABIL2 ;;7387356
22PRCABIL3 ;;8121698
23PRCABJ ;;6692362
24PRCABJ1 ;;4663573
25PRCABJV ;;5372708
26PRCABP1 ;;16980544
27PRCABP2 ;;18171823
28PRCABPF ;;2946867
29PRCACLM ;;10348676
30PRCACM ;;12117368
31PRCACOL ;;11033444
32PRCACPV ;;7264265
33PRCACV10 ;;5428098
34PRCADCDJ ;;9619500
35PRCADCJ1 ;;3167285
36PRCADEL ;;5304005
37PRCADIN ;;4845537
38PRCADJ ;;10533524
39PRCADR ;;9677108
40PRCADR1 ;;11064839
41PRCADR2 ;;7168312
42PRCADR3 ;;9610774
43PRCAEA ;;418637
44PRCAEA1 ;;3517911
45PRCAEIN ;;11764234
46PRCAEOL ;;10518361
47PRCAEXM ;;7481608
48PRCAFBD ;;8294390
49PRCAFBD1 ;;261027
50PRCAFBDM ;;3222877
51PRCAFBDU ;;10728645
52PRCAFDCT ;;1379875
53PRCAFN ;;7392695
54PRCAFN1 ;;973771
55PRCAFOR ;;1315459
56PRCAFUT ;;7677086
57PRCAFWO ;;3376487
58PRCAG ;;13321013
59PRCAGD ;;7990199
60PRCAGDR ;;5054538
61PRCAGDT ;;13912127
62PRCAGF ;;9875365
63PRCAGF1 ;;2876711
64PRCAGP ;;4992125
65PRCAGS ;;12982296
66PRCAGST ;;5366761
67PRCAGST1 ;;8964951
68PRCAGST2 ;;2033418
69PRCAGT ;;5306041
70PRCAGU ;;5343760
71PRCAHIS ;;12620784
72PRCAHIS1 ;;1270244
73PRCAHOL ;;4781886
74PRCAI001 ;;10494501
75PRCAI002 ;;10270191
76PRCAI003 ;;10643856
77PRCAI004 ;;5223325
78PRCAI005 ;;10294153
79PRCAI006 ;;9782997
80PRCAI007 ;;9921433
81PRCAI008 ;;7685656
82PRCAI009 ;;8595920
83PRCAI00A ;;1514956
84PRCAI00B ;;10354031
85PRCAI00C ;;10732944
86PRCAI00D ;;10713175
87PRCAI00E ;;9703211
88PRCAI00F ;;2226181
89PRCAI00G ;;8572946
90PRCAI00H ;;7759041
91PRCAI00I ;;5083256
92PRCAI00J ;;1682048
93PRCAI00K ;;6804588
94PRCAI00L ;;11058467
95PRCAI00M ;;12092172
96PRCAI00N ;;12009282
97PRCAI00O ;;11132794
98PRCAI00P ;;10588558
99PRCAI00Q ;;11870810
100PRCAI00R ;;10563027
101PRCAI00S ;;11709448
102PRCAI00T ;;10733716
103PRCAI00U ;;12043887
104PRCAI00V ;;11209150
105PRCAI00W ;;12055251
106PRCAI00X ;;12174925
107PRCAI00Y ;;10083230
108PRCAI00Z ;;11734912
109PRCAI010 ;;11753448
110PRCAI011 ;;12423487
111PRCAI012 ;;11161716
112PRCAI013 ;;11937677
113PRCAI014 ;;11274950
114PRCAI015 ;;12191184
115PRCAI016 ;;12316390
116PRCAI017 ;;11848678
117PRCAI018 ;;9793777
118PRCAI019 ;;9067966
119PRCAI01A ;;8871846
120PRCAI01B ;;10973851
121PRCAI01C ;;9544703
122PRCAI01D ;;1329297
123PRCAI01E ;;8149208
124PRCAI01F ;;6405246
125PRCAI01G ;;7699411
126PRCAI01H ;;2271317
127PRCAI01I ;;3458480
128PRCAI01J ;;1308374
129PRCAI01K ;;5188583
130PRCAI01L ;;2982491
131PRCAI01M ;;2777196
132PRCAI01N ;;6471211
133PRCAI01O ;;1330888
134PRCAI01P ;;5671362
135PRCAI01Q ;;5765023
136PRCAI01R ;;985299
137PRCAI01S ;;8843474
138PRCAI01T ;;2981051
139PRCAI01U ;;10391329
140PRCAI01V ;;11193669
141PRCAI01W ;;11423867
142PRCAI01X ;;8911230
143PRCAI01Y ;;9863908
144PRCAI01Z ;;9048562
145PRCAI020 ;;8483072
146PRCAI021 ;;9763786
147PRCAI022 ;;9708713
148PRCAI023 ;;8723029
149PRCAI024 ;;7678151
150PRCAI025 ;;8154091
151PRCAI026 ;;7528430
152PRCAI027 ;;9113682
153PRCAI028 ;;8796987
154PRCAI029 ;;10356723
155PRCAI02A ;;7361260
156PRCAI02B ;;3016704
157PRCAI02C ;;7563131
158PRCAI02D ;;8426136
159PRCAI02E ;;3979266
160PRCAI02F ;;7202613
161PRCAI02G ;;3340026
162PRCAI02H ;;7455606
163PRCAI02I ;;6439710
164PRCAI02J ;;10255391
Note: See TracBrowser for help on using the repository browser.