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