source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBNTEG01.m@ 1203

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

initial load of FOIAVistA 6/30/08 version
File size: 3.6 KB
Line 
1IBNTEG01 ;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^IBNTEG02
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 ;;
12IBDEI01H ;;7992688
13IBDEI01I ;;6311885
14IBDEI01J ;;3859113
15IBDEI01K ;;5879389
16IBDEI01L ;;7094485
17IBDEI01M ;;6372207
18IBDEI01N ;;5942935
19IBDEI01O ;;8541541
20IBDEI01P ;;5651382
21IBDEI01Q ;;6723525
22IBDEI01R ;;2279208
23IBDEI01S ;;996991
24IBDEI01T ;;6458903
25IBDEI01U ;;2419842
26IBDEI01V ;;920330
27IBDEI01W ;;2626862
28IBDEI01X ;;1182089
29IBDEI01Y ;;3699161
30IBDEINI1 ;;5628748
31IBDEINI2 ;;5232516
32IBDEINI3 ;;16091945
33IBDEINI4 ;;3357688
34IBDEINI5 ;;1691661
35IBDEINIS ;;2205388
36IBDEINIT ;;10989804
37IBDF10 ;;9760433
38IBDF10A ;;8225317
39IBDF10B ;;4334206
40IBDF11 ;;3608443
41IBDF11A ;;3372216
42IBDF12 ;;2936265
43IBDF13 ;;5611144
44IBDF14 ;;7804726
45IBDF15 ;;2784960
46IBDF16 ;;8130393
47IBDF17 ;;7034989
48IBDF18 ;;5760005
49IBDF19 ;;3093172
50IBDF1A ;;7658975
51IBDF1B ;;9947551
52IBDF1B1 ;;11669586
53IBDF1B1A ;;7661304
54IBDF1B1B ;;1767481
55IBDF1B2 ;;2029190
56IBDF1B3 ;;5211017
57IBDF1B5 ;;2971706
58IBDF1BA ;;11243446
59IBDF1C ;;3533740
60IBDF2A ;;10749365
61IBDF2B ;;7042800
62IBDF2B1 ;;2199728
63IBDF2D ;;10365846
64IBDF2D1 ;;3762256
65IBDF2E ;;1318742
66IBDF2F ;;3278399
67IBDF3 ;;7003790
68IBDF4 ;;5584361
69IBDF4A ;;4167881
70IBDF5 ;;9847863
71IBDF5A ;;3027638
72IBDF5B ;;6006533
73IBDF5C ;;3316889
74IBDF6 ;;8969820
75IBDF6A ;;5925315
76IBDF6C ;;906078
77IBDF7 ;;2562906
78IBDF8 ;;1759861
79IBDF9 ;;3690557
80IBDF9A ;;10720154
81IBDF9A1 ;;5968374
82IBDF9B ;;7645681
83IBDF9B1 ;;12759802
84IBDF9C ;;5498868
85IBDF9D ;;4630521
86IBDF9E ;;5793958
87IBDFN ;;10732403
88IBDFN1 ;;2496841
89IBDFN2 ;;6231082
90IBDFN3 ;;2563820
91IBDFN4 ;;2666489
92IBDFN5 ;;3054776
93IBDFN6 ;;4088594
94IBDFU ;;5914828
95IBDFU1 ;;5169538
96IBDFU10 ;;522617
97IBDFU1A ;;1402593
98IBDFU1B ;;3304286
99IBDFU2 ;;11114839
100IBDFU2A ;;8665828
101IBDFU2B ;;7574217
102IBDFU2C ;;7146508
103IBDFU3 ;;4202120
104IBDFU4 ;;4018137
105IBDFU5 ;;7337436
106IBDFU5A ;;2508527
107IBDFU6 ;;330526
108IBDFU7 ;;692991
109IBDFU8 ;;6185271
110IBDFU9 ;;1965684
111IBDFUA ;;1080437
112IBEBR ;;6557036
113IBEBRH ;;2330059
114IBECEA ;;4832433
115IBECEA0 ;;7120498
116IBECEA1 ;;6495786
117IBECEA2 ;;8039946
118IBECEA21 ;;9541385
119IBECEA22 ;;3918054
120IBECEA3 ;;7679170
121IBECEA31 ;;9702269
122IBECEA32 ;;11121791
123IBECEA33 ;;9962755
124IBECEA4 ;;5275337
125IBECEA5 ;;5154868
126IBECEA51 ;;8011607
127IBECEAU ;;7007799
128IBECEAU1 ;;12296342
129IBECEAU2 ;;9011739
130IBECEAU3 ;;2830374
131IBECEAU4 ;;6695615
132IBECK ;;2104265
133IBECPF ;;788382
134IBECPTE ;;8741638
135IBECPTT ;;6969487
136IBECPTZ ;;2766869
137IBEF ;;2149816
138IBEFCOP ;;1800588
139IBEFUNC ;;2552428
140IBEFUNC1 ;;5309761
141IBEFUNC2 ;;2541763
142IBEFUTL ;;7747735
143IBEFUTL1 ;;4273452
144IBEMTBC ;;6354798
145IBEMTF ;;7890309
146IBEMTF1 ;;5726092
147IBEMTF2 ;;5545891
148IBEMTO ;;7101853
149IBEMTO1 ;;6889786
150IBEPAR ;;12386948
151IBEPAR1 ;;2533964
152IBERS ;;10932371
153IBERS1 ;;8824914
154IBERS2 ;;7044980
155IBERS3 ;;5817160
156IBERSE ;;9487433
157IBERSI ;;3820304
158IBERSP ;;5307050
159IBERSP1 ;;4237227
160IBESTAT ;;3068706
161IBETIME ;;217627
162IBOA31 ;;7891797
163IBOA32 ;;2647903
164IBOAMS ;;10363537
165IBOBCC ;;4521115
166IBOBCC1 ;;3836641
167IBOBCR6 ;;4908726
168IBOBCRT ;;1471152
169IBOBL ;;7366044
170IBOCHK ;;7187383
171IBOCNC ;;3176152
172IBOCNC1 ;;7495773
173IBOCNC2 ;;8792370
174IBOCOSI ;;5228030
Note: See TracBrowser for help on using the repository browser.