PRCANTE1.m

PRCANTE1 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48

 ;;0.0;

 ;;7.2;SEP 19, 1995@07:50:48

 S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!

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")

 ;

 K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q

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),!

 W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")

 W ! G CONT

ROU ;;

PRCAX1 ;;6050889

PRCAXP ;;7826075

RCAM ;;6510442

RCAMADD ;;3398554

RCAMDTH ;;5146330

RCAMFN01 ;;1165134

RCAMINS ;;8557007

RCAMLET ;;528109

RCCPW ;;5314144

RCCPW1 ;;5556718

RCDPCON ;;4560949

RCDPCRE ;;2154271

RCDPDEP ;;3677574

RCDPDRV1 ;;1300877

RCDPEDT ;;1848753

RCDPFMS ;;4453726

RCDPFN01 ;;483987

RCDPLST ;;2551886

RCDPUT ;;6841470

RCDPVDP ;;1331434

RCDPVW ;;976515

RCEVDD1 ;;634535

RCEVDRV1 ;;2991716

RCEVGEN ;;3795640

RCEVUTL ;;2172663

RCEVUTL1 ;;2878290

RCFMCAF ;;5357712

RCFMDRV1 ;;2043627

RCFMFN02 ;;1014814

RCFMOBR ;;10480368

RCFMPUR ;;1364855

RCFMUDL ;;869103

RCFN01 ;;3307541

RCMSDD1 ;;2246931

RCMSFN01 ;;1019986

RCMSITE ;;3167404

RCMSNUM ;;3540265

RCNR4 ;;8553724

RCNR4A ;;3586334

RCNR4P ;;6087092

RCNR4T ;;7258264

RCNRBD ;;6716980

RCNRBD1 ;;1980050

RCNRBD2 ;;3978783

RCNRSUM ;;6634149

RCNRSUM1 ;;2466150

RCTRAN ;;8273762

RCTRAN1 ;;3817236

RCY ;;5451202

RCY215 ;;2986648

RCY21A ;;5265121

RCY21B ;;9717389

RCYAPP ;;6125594

RCYCPAY ;;1720483

RCYDD1 ;;8259761

RCYDD2 ;;561020

RCYE ;;9573132

RCYHLP ;;3494355

RCYLT ;;3761646

RCYPT ;;11432978

RCYPT2 ;;8174341

RCYPT3 ;;7184502

RCYPT4 ;;3119401

RCYREC ;;2478299

RCYTRA ;;9270020

RCYUT ;;8809208

RCYVOI ;;2363301

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCANTE1   1941     printed  Mar 13, 2025@20:45:11                                                                                                                                                                                                    Page 2

PRCANTE1  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48

 +1       ;;0.0;

 +2       ;;7.2;SEP 19, 1995@07:50:48

 +3        SET XT4="I 1"

           SET X=$TEXT(+3)

           WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!

CONT       FOR XT1=1:1

               SET XT2=$TEXT(ROU+XT1)

               if XT2=""

                   QUIT 

               SET X=$PIECE(XT2," ",1)

               SET XT3=$PIECE(XT2,";",3)

               XECUTE XT4

               IF $TEST

                   WRITE !,X

                   XECUTE ^%ZOSF("TEST")

                   if '$TEST

                       SET XT3=0

                   if XT3

                       XECUTE ^%ZOSF("RSUM")

                   WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")

 +1       ;

 +2        KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4

           QUIT 

ONE        SET XT4="I $D(^UTILITY($J,X))"

           SET X=$TEXT(+3)

           WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!

 +1        WRITE !,"Check a subset of routines:"

           KILL ^UTILITY($JOB)

           XECUTE ^%ZOSF("RSEL")

 +2        WRITE !

           GOTO CONT

ROU       ;;

PRCAX1    ;;6050889

PRCAXP    ;;7826075

RCAM      ;;6510442

RCAMADD   ;;3398554

RCAMDTH   ;;5146330

RCAMFN01  ;;1165134

RCAMINS   ;;8557007

RCAMLET   ;;528109

RCCPW     ;;5314144

RCCPW1    ;;5556718

RCDPCON   ;;4560949

RCDPCRE   ;;2154271

RCDPDEP   ;;3677574

RCDPDRV1  ;;1300877

RCDPEDT   ;;1848753

RCDPFMS   ;;4453726

RCDPFN01  ;;483987

RCDPLST   ;;2551886

RCDPUT    ;;6841470

RCDPVDP   ;;1331434

RCDPVW    ;;976515

RCEVDD1   ;;634535

RCEVDRV1  ;;2991716

RCEVGEN   ;;3795640

RCEVUTL   ;;2172663

RCEVUTL1  ;;2878290

RCFMCAF   ;;5357712

RCFMDRV1  ;;2043627

RCFMFN02  ;;1014814

RCFMOBR   ;;10480368

RCFMPUR   ;;1364855

RCFMUDL   ;;869103

RCFN01    ;;3307541

RCMSDD1   ;;2246931

RCMSFN01  ;;1019986

RCMSITE   ;;3167404

RCMSNUM   ;;3540265

RCNR4     ;;8553724

RCNR4A    ;;3586334

RCNR4P    ;;6087092

RCNR4T    ;;7258264

RCNRBD    ;;6716980

RCNRBD1   ;;1980050

RCNRBD2   ;;3978783

RCNRSUM   ;;6634149

RCNRSUM1  ;;2466150

RCTRAN    ;;8273762

RCTRAN1   ;;3817236

RCY       ;;5451202

RCY215    ;;2986648

RCY21A    ;;5265121

RCY21B    ;;9717389

RCYAPP    ;;6125594

RCYCPAY   ;;1720483

RCYDD1    ;;8259761

RCYDD2    ;;561020

RCYE      ;;9573132

RCYHLP    ;;3494355

RCYLT     ;;3761646

RCYPT     ;;11432978

RCYPT2    ;;8174341

RCYPT3    ;;7184502

RCYPT4    ;;3119401

RCYREC    ;;2478299

RCYTRA    ;;9270020

RCYUT     ;;8809208

RCYVOI    ;;2363301