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 ---[H[J[2J[HQAONTEG 2411 printed Dec 13, 2024@02:21:11 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
