| [613] | 1 | HBHCNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 26, 1993@09:11:36
|
|---|
| 2 | ;;1.0;HOSPITAL BASED HOME CARE;;NOV 01, 1993
|
|---|
| 3 | ;;7.1;OCT 26, 1993@09:11:36
|
|---|
| 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 | HBHCADM ;;11962743
|
|---|
| 13 | HBHCAPPT ;;3801207
|
|---|
| 14 | HBHCCAN ;;3167005
|
|---|
| 15 | HBHCDIS ;;2879397
|
|---|
| 16 | HBHCEDSP ;;2626063
|
|---|
| 17 | HBHCFILE ;;9462975
|
|---|
| 18 | HBHCI001 ;;9839629
|
|---|
| 19 | HBHCI002 ;;13532905
|
|---|
| 20 | HBHCI003 ;;14186672
|
|---|
| 21 | HBHCI004 ;;13204334
|
|---|
| 22 | HBHCI005 ;;12185113
|
|---|
| 23 | HBHCI006 ;;11426349
|
|---|
| 24 | HBHCI007 ;;13685750
|
|---|
| 25 | HBHCI008 ;;12022124
|
|---|
| 26 | HBHCI009 ;;15164076
|
|---|
| 27 | HBHCI010 ;;11247687
|
|---|
| 28 | HBHCI011 ;;13717638
|
|---|
| 29 | HBHCI012 ;;13025280
|
|---|
| 30 | HBHCI013 ;;10084111
|
|---|
| 31 | HBHCI014 ;;9246223
|
|---|
| 32 | HBHCI015 ;;11431129
|
|---|
| 33 | HBHCI016 ;;12922254
|
|---|
| 34 | HBHCI017 ;;1388745
|
|---|
| 35 | HBHCI018 ;;3399284
|
|---|
| 36 | HBHCI019 ;;2045359
|
|---|
| 37 | HBHCI020 ;;3565067
|
|---|
| 38 | HBHCI021 ;;1617617
|
|---|
| 39 | HBHCI022 ;;3516730
|
|---|
| 40 | HBHCI023 ;;1973542
|
|---|
| 41 | HBHCI024 ;;7994337
|
|---|
| 42 | HBHCI025 ;;6824175
|
|---|
| 43 | HBHCI026 ;;3220051
|
|---|
| 44 | HBHCI027 ;;2802522
|
|---|
| 45 | HBHCI028 ;;2885704
|
|---|
| 46 | HBHCI029 ;;5392074
|
|---|
| 47 | HBHCI030 ;;1430033
|
|---|
| 48 | HBHCI031 ;;3627256
|
|---|
| 49 | HBHCI032 ;;9589531
|
|---|
| 50 | HBHCI033 ;;4178993
|
|---|
| 51 | HBHCI034 ;;1013953
|
|---|
| 52 | HBHCI035 ;;8757557
|
|---|
| 53 | HBHCI036 ;;10163687
|
|---|
| 54 | HBHCI037 ;;12256522
|
|---|
| 55 | HBHCI038 ;;1976037
|
|---|
| 56 | HBHCI039 ;;3268087
|
|---|
| 57 | HBHCI040 ;;3432031
|
|---|
| 58 | HBHCI041 ;;5632588
|
|---|
| 59 | HBHCI042 ;;4912648
|
|---|
| 60 | HBHCI043 ;;7625911
|
|---|
| 61 | HBHCI044 ;;3640608
|
|---|
| 62 | HBHCI045 ;;4549871
|
|---|
| 63 | HBHCI046 ;;2208710
|
|---|
| 64 | HBHCI047 ;;10681339
|
|---|
| 65 | HBHCI048 ;;12380522
|
|---|
| 66 | HBHCI049 ;;11192803
|
|---|
| 67 | HBHCI050 ;;8368601
|
|---|
| 68 | HBHCI051 ;;9568074
|
|---|
| 69 | HBHCI052 ;;6781152
|
|---|
| 70 | HBHCI053 ;;7736330
|
|---|
| 71 | HBHCI054 ;;8232052
|
|---|
| 72 | HBHCI055 ;;6727960
|
|---|
| 73 | HBHCI056 ;;5618113
|
|---|
| 74 | HBHCI057 ;;7748722
|
|---|
| 75 | HBHCI058 ;;4760902
|
|---|
| 76 | HBHCI059 ;;4258429
|
|---|
| 77 | HBHCI060 ;;3546965
|
|---|
| 78 | HBHCINI1 ;;5526064
|
|---|
| 79 | HBHCINI2 ;;5215729
|
|---|
| 80 | HBHCINI3 ;;15730129
|
|---|
| 81 | HBHCINI4 ;;3357677
|
|---|
| 82 | HBHCINI5 ;;2561001
|
|---|
| 83 | HBHCINIT ;;10782659
|
|---|
| 84 | HBHCRP1 ;;8660601
|
|---|
| 85 | HBHCRP10 ;;6625145
|
|---|
| 86 | HBHCRP11 ;;9560543
|
|---|
| 87 | HBHCRP12 ;;7849689
|
|---|
| 88 | HBHCRP13 ;;6167393
|
|---|
| 89 | HBHCRP2 ;;18125923
|
|---|
| 90 | HBHCRP3 ;;7022984
|
|---|
| 91 | HBHCRP4 ;;10163481
|
|---|
| 92 | HBHCRP5 ;;15359951
|
|---|
| 93 | HBHCRP6 ;;443595
|
|---|
| 94 | HBHCRP7 ;;10624801
|
|---|
| 95 | HBHCRP8 ;;6228007
|
|---|
| 96 | HBHCRP9 ;;346728
|
|---|
| 97 | HBHCRXMT ;;8914669
|
|---|
| 98 | HBHCUPD ;;9674302
|
|---|
| 99 | HBHCUTL ;;14512316
|
|---|
| 100 | HBHCUTL1 ;;16556234
|
|---|
| 101 | HBHCUTL2 ;;16455754
|
|---|
| 102 | HBHCXMA ;;16976380
|
|---|
| 103 | HBHCXMA1 ;;6206944
|
|---|
| 104 | HBHCXMC ;;1196490
|
|---|
| 105 | HBHCXMD ;;15371308
|
|---|
| 106 | HBHCXMD1 ;;10169772
|
|---|
| 107 | HBHCXMT ;;5373539
|
|---|
| 108 | HBHCXMV ;;10735029
|
|---|
