source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBNTEG0.m@ 1679

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

initial load of WorldVistAEHR
File size: 3.5 KB
Line 
1IBNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 21, 1994@00:43:44
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;7.2;MAR 21, 1994@00:43:44
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^IBNTEG01
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 ;;
12IBCNQ1 ;;8213160
13IBCNS ;;5047234
14IBCNS1 ;;5577010
15IBCNS2 ;;3745315
16IBCNSA ;;6396949
17IBCNSA0 ;;3165953
18IBCNSA1 ;;11651972
19IBCNSA2 ;;2611849
20IBCNSBL ;;2445320
21IBCNSBL1 ;;8197763
22IBCNSC ;;7465999
23IBCNSC0 ;;6126055
24IBCNSC01 ;;7789069
25IBCNSC1 ;;3850831
26IBCNSC2 ;;8154718
27IBCNSC3 ;;6631804
28IBCNSD ;;6629671
29IBCNSD1 ;;1158146
30IBCNSEH ;;4917879
31IBCNSEVT ;;393303
32IBCNSM ;;5264394
33IBCNSM1 ;;5083086
34IBCNSM2 ;;4308601
35IBCNSM3 ;;11770601
36IBCNSM31 ;;5120018
37IBCNSM4 ;;1683566
38IBCNSM5 ;;6602815
39IBCNSM6 ;;5555330
40IBCNSM7 ;;8914463
41IBCNSM8 ;;8047222
42IBCNSM9 ;;11256347
43IBCNSOK ;;10324180
44IBCNSOK1 ;;6457752
45IBCNSP ;;8601571
46IBCNSP0 ;;5809789
47IBCNSP01 ;;8590441
48IBCNSP02 ;;8471424
49IBCNSP1 ;;4868050
50IBCNSP2 ;;8141199
51IBCNSP3 ;;6580126
52IBCNSU ;;3908800
53IBCNSU1 ;;2310797
54IBCNSV ;;640320
55IBCOC ;;950251
56IBCOC1 ;;892863
57IBCONS1 ;;7413645
58IBCONS2 ;;11154246
59IBCONS3 ;;3101025
60IBCONSC ;;9041021
61IBCOPV ;;9900610
62IBCOPV1 ;;9480865
63IBCOPV2 ;;7533725
64IBCORC ;;9398632
65IBCORC1 ;;5338099
66IBCORC2 ;;3690596
67IBCRTN ;;4948111
68IBCSC1 ;;5176501
69IBCSC2 ;;5200799
70IBCSC3 ;;12494861
71IBCSC4 ;;9729300
72IBCSC4A ;;14651904
73IBCSC4B ;;16543108
74IBCSC4C ;;11565822
75IBCSC4D ;;9469474
76IBCSC4E ;;9915642
77IBCSC5 ;;8009258
78IBCSC5A ;;12648510
79IBCSC5B ;;9285889
80IBCSC5C ;;8047246
81IBCSC6 ;;6853801
82IBCSC61 ;;2995269
83IBCSC7 ;;4127768
84IBCSC8 ;;2681062
85IBCSC82 ;;4196265
86IBCSC8H ;;1582522
87IBCSCE ;;6334542
88IBCSCE1 ;;6140000
89IBCSCH ;;15072243
90IBCSCH1 ;;9538370
91IBCSCP ;;5142249
92IBCSCU ;;6000762
93IBCU ;;8741634
94IBCU1 ;;5276295
95IBCU2 ;;6391688
96IBCU3 ;;6929850
97IBCU4 ;;7789095
98IBCU41 ;;5944776
99IBCU5 ;;5504494
100IBCU6 ;;8585767
101IBCU61 ;;3598334
102IBCU62 ;;6633813
103IBCU63 ;;6510058
104IBCU64 ;;6703156
105IBCU7 ;;16823266
106IBCU71 ;;3477243
107IBCU8 ;;4608945
108IBCU81 ;;3744610
109IBCU82 ;;11651075
110IBCVA ;;3230375
111IBCVA0 ;;10422773
112IBCVA1 ;;9853216
113IBDE ;;3003311
114IBDE1 ;;6677694
115IBDE1A ;;3361379
116IBDE1B ;;1339223
117IBDE2 ;;383336
118IBDE3 ;;9522902
119IBDEHELP ;;7829287
120IBDEI001 ;;5914267
121IBDEI002 ;;3199545
122IBDEI003 ;;3723952
123IBDEI004 ;;6281872
124IBDEI005 ;;6938907
125IBDEI006 ;;2677613
126IBDEI007 ;;13070825
127IBDEI008 ;;14787357
128IBDEI009 ;;16942755
129IBDEI00A ;;1964916
130IBDEI00B ;;6821303
131IBDEI00C ;;7822738
132IBDEI00D ;;8086479
133IBDEI00E ;;7766991
134IBDEI00F ;;2531852
135IBDEI00G ;;3990534
136IBDEI00H ;;4023981
137IBDEI00I ;;974293
138IBDEI00J ;;6810223
139IBDEI00K ;;3736068
140IBDEI00L ;;3749473
141IBDEI00M ;;3784750
142IBDEI00N ;;3796078
143IBDEI00O ;;2452621
144IBDEI00P ;;6331684
145IBDEI00Q ;;2106265
146IBDEI00R ;;7573266
147IBDEI00S ;;7561219
148IBDEI00T ;;7123935
149IBDEI00U ;;7766530
150IBDEI00V ;;878660
151IBDEI00W ;;4726931
152IBDEI00X ;;4236815
153IBDEI00Y ;;4411642
154IBDEI00Z ;;3862497
155IBDEI010 ;;4088410
156IBDEI011 ;;3897227
157IBDEI012 ;;3867997
158IBDEI013 ;;3919512
159IBDEI014 ;;3960565
160IBDEI015 ;;3834719
161IBDEI016 ;;4326482
162IBDEI017 ;;4364433
163IBDEI018 ;;3977322
164IBDEI019 ;;4203924
165IBDEI01A ;;3887525
166IBDEI01B ;;3920282
167IBDEI01C ;;2644559
168IBDEI01D ;;8724015
169IBDEI01E ;;9940913
170IBDEI01F ;;7432564
171IBDEI01G ;;6432912
Note: See TracBrowser for help on using the repository browser.