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

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1IBJNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960104.104356
2 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
3 ;;7.3;2960104.104356
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 ;
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 ;;
12IBJIN001 ;;6622469
13IBJIN002 ;;8330734
14IBJIN003 ;;9897544
15IBJIN004 ;;8172440
16IBJIN005 ;;5902796
17IBJIN006 ;;1182613
18IBJINIS ;;2167243
19IBJINIT ;;10189082
20IBJINIT1 ;;4855631
21IBJINIT2 ;;5232622
22IBJINIT3 ;;16806828
23IBJINIT4 ;;3357794
24IBJINIT5 ;;542803
25IBJON001 ;;6398383
26IBJON002 ;;5570084
27IBJON003 ;;5551054
28IBJON004 ;;6849756
29IBJON005 ;;5608341
30IBJON006 ;;4892161
31IBJON007 ;;4869034
32IBJON008 ;;4936893
33IBJON009 ;;5037731
34IBJON010 ;;5116095
35IBJON011 ;;5838350
36IBJON012 ;;1252742
37IBJONIT ;;984681
38IBJONIT1 ;;1698516
39IBJONIT2 ;;82842
40IBJONIT3 ;;10576604
41IBJPB ;;4395095
42IBJPC ;;5690567
43IBJPM ;;3321971
44IBJPS ;;1717526
45IBJPS1 ;;5885642
46IBJPS2 ;;6921612
47IBJTA1 ;;6229980
48IBJTBA ;;7664632
49IBJTBB ;;1565884
50IBJTBC ;;5109265
51IBJTCA ;;1316208
52IBJTCA1 ;;8989506
53IBJTCA2 ;;4338110
54IBJTEA ;;6121164
55IBJTLA ;;2074270
56IBJTLA1 ;;3110881
57IBJTLB ;;1377870
58IBJTLB1 ;;4747778
59IBJTNA ;;2283123
60IBJTNB ;;6329430
61IBJTNC ;;1739789
62IBJTRA ;;3288648
63IBJTRA1 ;;5647363
64IBJTTA ;;947029
65IBJTTA1 ;;4532676
66IBJTTB ;;467631
67IBJTTB1 ;;9782865
68IBJTTB2 ;;7431969
69IBJTTC ;;4795262
70IBJTU1 ;;3870489
71IBJTU2 ;;3010897
72IBJTU3 ;;3270367
73IBJTU31 ;;4271255
74IBJTU4 ;;731886
75IBJTU5 ;;5344934
76IBJU1 ;;1955670
77IBJYL ;;9203927
78IBJYL1 ;;8976939
79IBJYL2 ;;9328370
80IBJYL3 ;;8693989
81IBJYL4 ;;3153781
82IBJYPT ;;5586130
Note: See TracBrowser for help on using the repository browser.