QAONTEG.m

QAONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 17, 1993@08:50:31

 ;;3.0;Occurrence Screen;;09/14/1993

 ;;7.0;SEP 17, 1993@08:50:31

 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 ;;

QAOAUTO ;;5064591

QAOC0 ;;2052153

QAOC1011 ;;3880218

QAOC102 ;;5657394

QAOC1061 ;;5265433

QAOC107 ;;5103193

QAOC109 ;;2548352

QAOC199 ;;4557250

QAOEDT ;;4502289

QAOEDT0 ;;8938807

QAOEDT0C ;;4761999

QAOEDT0M ;;1199694

QAOEDT0P ;;5115209

QAOEDT1 ;;6151957

QAOEDT2 ;;5459204

QAOEDT3 ;;4243620

QAOSAHO2 ;;12313936

QAOSAHOC ;;1706676

QAOSCKEY ;;8532871

QAOSCNV0 ;;1121987

QAOSCNV1 ;;7345141

QAOSCNV2 ;;1762227

QAOSCNV3 ;;5054127

QAOSCNV4 ;;974707

QAOSCNV5 ;;1347925

QAOSCNV6 ;;1116658

QAOSCNV8 ;;9837176

QAOSCNV9 ;;10965659

QAOSCREE ;;2756664

QAOSDDUT ;;2531266

QAOSDELT ;;4756542

QAOSENT1 ;;2771352

QAOSENTR ;;10020436

QAOSERCR ;;3178121

QAOSEWS0 ;;4397519

QAOSEWS1 ;;1996228

QAOSLAPS ;;1457784

QAOSOCID ;;1644318

QAOSOPEN ;;1656999

QAOSPAD0 ;;10841320

QAOSPAD1 ;;10711388

QAOSPAU0 ;;3991645

QAOSPAUD ;;1663345

QAOSPCL0 ;;17341183

QAOSPCL1 ;;14501122

QAOSPCM0 ;;6091939

QAOSPDQ0 ;;13234378

QAOSPDQ1 ;;8045530

QAOSPHDR ;;4885629

QAOSPINQ ;;2460212

QAOSPMG0 ;;8291204

QAOSPNAM ;;3193959

QAOSPPR0 ;;14910313

QAOSPRD0 ;;7437499

QAOSPRD1 ;;3686172

QAOSPRS0 ;;12316412

QAOSPRS1 ;;7231457

QAOSPRS2 ;;5578201

QAOSPSM ;;3190885

QAOSPSM0 ;;7845537

QAOSPSM1 ;;4820419

QAOSPSM2 ;;5186585

QAOSPSM3 ;;8989780

QAOSPSM4 ;;2462086

QAOSPSM5 ;;4736414

QAOSPSR0 ;;11905628

QAOSPSS ;;6652480

QAOSPSS0 ;;10523427

QAOSPSS1 ;;4313607

QAOSPSS2 ;;4689826

QAOSPSY0 ;;11366556

QAOSPTR0 ;;10364347

QAOSPTR1 ;;6566036

QAOSPTX0 ;;3485753

QAOSPURG ;;5360503

QAOSPWT0 ;;6244769

QAOSSFR0 ;;8509712

QAOSSFR1 ;;5952409

QAOSUPL0 ;;5003608

QAOSUPL1 ;;6004414

QAOSUPL2 ;;6544135

QAOSWRK0 ;;11994383

QAOSXTRN ;;957679

QAOUTL0 ;;3561155

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QAONTEG   2411     printed  Apr 23, 2025@18:35:46                                                                                                                                                                                                     Page 2

QAONTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 17, 1993@08:50:31

 +1       ;;3.0;Occurrence Screen;;09/14/1993

 +2       ;;7.0;SEP 17, 1993@08:50:31

 +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       ;;

QAOAUTO   ;;5064591

QAOC0     ;;2052153

QAOC1011  ;;3880218

QAOC102   ;;5657394

QAOC1061  ;;5265433

QAOC107   ;;5103193

QAOC109   ;;2548352

QAOC199   ;;4557250

QAOEDT    ;;4502289

QAOEDT0   ;;8938807

QAOEDT0C  ;;4761999

QAOEDT0M  ;;1199694

QAOEDT0P  ;;5115209

QAOEDT1   ;;6151957

QAOEDT2   ;;5459204

QAOEDT3   ;;4243620

QAOSAHO2  ;;12313936

QAOSAHOC  ;;1706676

QAOSCKEY  ;;8532871

QAOSCNV0  ;;1121987

QAOSCNV1  ;;7345141

QAOSCNV2  ;;1762227

QAOSCNV3  ;;5054127

QAOSCNV4  ;;974707

QAOSCNV5  ;;1347925

QAOSCNV6  ;;1116658

QAOSCNV8  ;;9837176

QAOSCNV9  ;;10965659

QAOSCREE  ;;2756664

QAOSDDUT  ;;2531266

QAOSDELT  ;;4756542

QAOSENT1  ;;2771352

QAOSENTR  ;;10020436

QAOSERCR  ;;3178121

QAOSEWS0  ;;4397519

QAOSEWS1  ;;1996228

QAOSLAPS  ;;1457784

QAOSOCID  ;;1644318

QAOSOPEN  ;;1656999

QAOSPAD0  ;;10841320

QAOSPAD1  ;;10711388

QAOSPAU0  ;;3991645

QAOSPAUD  ;;1663345

QAOSPCL0  ;;17341183

QAOSPCL1  ;;14501122

QAOSPCM0  ;;6091939

QAOSPDQ0  ;;13234378

QAOSPDQ1  ;;8045530

QAOSPHDR  ;;4885629

QAOSPINQ  ;;2460212

QAOSPMG0  ;;8291204

QAOSPNAM  ;;3193959

QAOSPPR0  ;;14910313

QAOSPRD0  ;;7437499

QAOSPRD1  ;;3686172

QAOSPRS0  ;;12316412

QAOSPRS1  ;;7231457

QAOSPRS2  ;;5578201

QAOSPSM   ;;3190885

QAOSPSM0  ;;7845537

QAOSPSM1  ;;4820419

QAOSPSM2  ;;5186585

QAOSPSM3  ;;8989780

QAOSPSM4  ;;2462086

QAOSPSM5  ;;4736414

QAOSPSR0  ;;11905628

QAOSPSS   ;;6652480

QAOSPSS0  ;;10523427

QAOSPSS1  ;;4313607

QAOSPSS2  ;;4689826

QAOSPSY0  ;;11366556

QAOSPTR0  ;;10364347

QAOSPTR1  ;;6566036

QAOSPTX0  ;;3485753

QAOSPURG  ;;5360503

QAOSPWT0  ;;6244769

QAOSSFR0  ;;8509712

QAOSSFR1  ;;5952409

QAOSUPL0  ;;5003608

QAOSUPL1  ;;6004414

QAOSUPL2  ;;6544135

QAOSWRK0  ;;11994383

QAOSXTRN  ;;957679

QAOUTL0   ;;3561155