| 1 | PRCANTE1 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48
|
|---|
| 2 | ;;0.0;
|
|---|
| 3 | ;;7.2;SEP 19, 1995@07:50:48
|
|---|
| 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 | PRCAX1 ;;6050889
|
|---|
| 13 | PRCAXP ;;7826075
|
|---|
| 14 | RCAM ;;6510442
|
|---|
| 15 | RCAMADD ;;3398554
|
|---|
| 16 | RCAMDTH ;;5146330
|
|---|
| 17 | RCAMFN01 ;;1165134
|
|---|
| 18 | RCAMINS ;;8557007
|
|---|
| 19 | RCAMLET ;;528109
|
|---|
| 20 | RCCPW ;;5314144
|
|---|
| 21 | RCCPW1 ;;5556718
|
|---|
| 22 | RCDPCON ;;4560949
|
|---|
| 23 | RCDPCRE ;;2154271
|
|---|
| 24 | RCDPDEP ;;3677574
|
|---|
| 25 | RCDPDRV1 ;;1300877
|
|---|
| 26 | RCDPEDT ;;1848753
|
|---|
| 27 | RCDPFMS ;;4453726
|
|---|
| 28 | RCDPFN01 ;;483987
|
|---|
| 29 | RCDPLST ;;2551886
|
|---|
| 30 | RCDPUT ;;6841470
|
|---|
| 31 | RCDPVDP ;;1331434
|
|---|
| 32 | RCDPVW ;;976515
|
|---|
| 33 | RCEVDD1 ;;634535
|
|---|
| 34 | RCEVDRV1 ;;2991716
|
|---|
| 35 | RCEVGEN ;;3795640
|
|---|
| 36 | RCEVUTL ;;2172663
|
|---|
| 37 | RCEVUTL1 ;;2878290
|
|---|
| 38 | RCFMCAF ;;5357712
|
|---|
| 39 | RCFMDRV1 ;;2043627
|
|---|
| 40 | RCFMFN02 ;;1014814
|
|---|
| 41 | RCFMOBR ;;10480368
|
|---|
| 42 | RCFMPUR ;;1364855
|
|---|
| 43 | RCFMUDL ;;869103
|
|---|
| 44 | RCFN01 ;;3307541
|
|---|
| 45 | RCMSDD1 ;;2246931
|
|---|
| 46 | RCMSFN01 ;;1019986
|
|---|
| 47 | RCMSITE ;;3167404
|
|---|
| 48 | RCMSNUM ;;3540265
|
|---|
| 49 | RCNR4 ;;8553724
|
|---|
| 50 | RCNR4A ;;3586334
|
|---|
| 51 | RCNR4P ;;6087092
|
|---|
| 52 | RCNR4T ;;7258264
|
|---|
| 53 | RCNRBD ;;6716980
|
|---|
| 54 | RCNRBD1 ;;1980050
|
|---|
| 55 | RCNRBD2 ;;3978783
|
|---|
| 56 | RCNRSUM ;;6634149
|
|---|
| 57 | RCNRSUM1 ;;2466150
|
|---|
| 58 | RCTRAN ;;8273762
|
|---|
| 59 | RCTRAN1 ;;3817236
|
|---|
| 60 | RCY ;;5451202
|
|---|
| 61 | RCY215 ;;2986648
|
|---|
| 62 | RCY21A ;;5265121
|
|---|
| 63 | RCY21B ;;9717389
|
|---|
| 64 | RCYAPP ;;6125594
|
|---|
| 65 | RCYCPAY ;;1720483
|
|---|
| 66 | RCYDD1 ;;8259761
|
|---|
| 67 | RCYDD2 ;;561020
|
|---|
| 68 | RCYE ;;9573132
|
|---|
| 69 | RCYHLP ;;3494355
|
|---|
| 70 | RCYLT ;;3761646
|
|---|
| 71 | RCYPT ;;11432978
|
|---|
| 72 | RCYPT2 ;;8174341
|
|---|
| 73 | RCYPT3 ;;7184502
|
|---|
| 74 | RCYPT4 ;;3119401
|
|---|
| 75 | RCYREC ;;2478299
|
|---|
| 76 | RCYTRA ;;9270020
|
|---|
| 77 | RCYUT ;;8809208
|
|---|
| 78 | RCYVOI ;;2363301
|
|---|
