QAPNTEG.m

QAPNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950828.141653

 ;;0.0;

 ;;7.3;2950828.141653

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

QAPADD ;;9381778

QAPADD1 ;;15887986

QAPCHKST ;;9864972

QAPCHX ;;13222413

QAPCHX1 ;;13074515

QAPCLEAR ;;5389492

QAPCOPY ;;8049181

QAPDCK ;;1145094

QAPDEL ;;3235849

QAPDEM ;;5792342

QAPDEM1 ;;13195854

QAPDEMS ;;10553121

QAPDEMS1 ;;18758928

QAPEDI1 ;;18696593

QAPEDINC ;;7853274

QAPEDIT ;;5923955

QAPEDIT1 ;;18656489

QAPFILE ;;2061012

QAPFIX ;;5187412

QAPIN001 ;;9157544

QAPIN002 ;;9816449

QAPIN003 ;;9030892

QAPIN004 ;;3064477

QAPIN005 ;;1185831

QAPIN006 ;;8083722

QAPIN007 ;;8351572

QAPIN008 ;;2692847

QAPIN009 ;;8316194

QAPIN00A ;;4906333

QAPIN00B ;;7681097

QAPIN00C ;;9109256

QAPIN00D ;;9769443

QAPIN00E ;;3458380

QAPINIS ;;2170326

QAPINIT ;;10137804

QAPINIT1 ;;4868360

QAPINIT2 ;;5232646

QAPINIT3 ;;16807578

QAPINIT4 ;;3357818

QAPINIT5 ;;765298

QAPPART ;;2562415

QAPPOST ;;1369081

QAPPRALL ;;7117711

QAPPT0 ;;4026929

QAPPT1 ;;16374805

QAPPTUSR ;;4395163

QAPQCOPY ;;10872402

QAPRELS ;;4166773

QAPRSEQ ;;5619807

QAPSCRN ;;13938074

QAPSCRN1 ;;19176074

QAPSDEL ;;5495723

QAPSTAT1 ;;16942794

QAPSTATS ;;6657070

QAPUTIL ;;16562010

QAPUTIL1 ;;12610046

QAPUTIL2 ;;14018630

QAPXFER ;;2653048

QAPXFER1 ;;16731315

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QAPNTEG   1856     printed  Apr 09, 2024@21:41:04                                                                                                                                                                                                     Page 2

QAPNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950828.141653

 +1       ;;0.0;

 +2       ;;7.3;2950828.141653

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

QAPADD    ;;9381778

QAPADD1   ;;15887986

QAPCHKST  ;;9864972

QAPCHX    ;;13222413

QAPCHX1   ;;13074515

QAPCLEAR  ;;5389492

QAPCOPY   ;;8049181

QAPDCK    ;;1145094

QAPDEL    ;;3235849

QAPDEM    ;;5792342

QAPDEM1   ;;13195854

QAPDEMS   ;;10553121

QAPDEMS1  ;;18758928

QAPEDI1   ;;18696593

QAPEDINC  ;;7853274

QAPEDIT   ;;5923955

QAPEDIT1  ;;18656489

QAPFILE   ;;2061012

QAPFIX    ;;5187412

QAPIN001  ;;9157544

QAPIN002  ;;9816449

QAPIN003  ;;9030892

QAPIN004  ;;3064477

QAPIN005  ;;1185831

QAPIN006  ;;8083722

QAPIN007  ;;8351572

QAPIN008  ;;2692847

QAPIN009  ;;8316194

QAPIN00A  ;;4906333

QAPIN00B  ;;7681097

QAPIN00C  ;;9109256

QAPIN00D  ;;9769443

QAPIN00E  ;;3458380

QAPINIS   ;;2170326

QAPINIT   ;;10137804

QAPINIT1  ;;4868360

QAPINIT2  ;;5232646

QAPINIT3  ;;16807578

QAPINIT4  ;;3357818

QAPINIT5  ;;765298

QAPPART   ;;2562415

QAPPOST   ;;1369081

QAPPRALL  ;;7117711

QAPPT0    ;;4026929

QAPPT1    ;;16374805

QAPPTUSR  ;;4395163

QAPQCOPY  ;;10872402

QAPRELS   ;;4166773

QAPRSEQ   ;;5619807

QAPSCRN   ;;13938074

QAPSCRN1  ;;19176074

QAPSDEL   ;;5495723

QAPSTAT1  ;;16942794

QAPSTATS  ;;6657070

QAPUTIL   ;;16562010

QAPUTIL1  ;;12610046

QAPUTIL2  ;;14018630

QAPXFER   ;;2653048

QAPXFER1  ;;16731315