PSJNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971216.152955
;;0.0;
;;7.3;2971216.152955
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")
G CONT^PSJNTEG0
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 ;;
PSGAL5 ;;5441715
PSGAMS ;;10549502
PSGAMS0 ;;4344378
PSGAMSA ;;14801593
PSGAP ;;4559319
PSGAP0 ;;16505444
PSGAPH ;;6145898
PSGAPIV ;;3389953
PSGAPP ;;15835658
PSGAXR ;;5177686
PSGBRJ ;;9623144
PSGCAP ;;17489925
PSGCAP0 ;;10614134
PSGCAPIV ;;4278138
PSGCAPP ;;9869420
PSGCAPP0 ;;8107032
PSGCT ;;1115903
PSGDCC ;;15581084
PSGDCCM ;;2683467
PSGDCR0 ;;8457985
PSGDCT ;;14158481
PSGDCT1 ;;12490651
PSGDCTP ;;10089690
PSGDL ;;5483697
PSGDS ;;9579866
PSGDS0 ;;16727020
PSGDSP ;;18990871
PSGDSP0 ;;10630520
PSGDSP1 ;;14595476
PSGDSPN ;;1638530
PSGEUD ;;17336835
PSGEUDD ;;6739300
PSGEUDP ;;9687269
PSGFILD0 ;;17335163
PSGFILD1 ;;7990496
PSGFILD2 ;;7016689
PSGFILD3 ;;17423076
PSGFILED ;;16058941
PSGGAO ;;3063407
PSGIU ;;7949412
PSGL ;;14712907
PSGL0 ;;19187109
PSGLBA ;;8090709
PSGLH ;;3878428
PSGLOI ;;16236725
PSGLPI ;;8004914
PSGLW ;;3035966
PSGMAR ;;20496280
PSGMAR0 ;;11114308
PSGMAR1 ;;5353727
PSGMAR2 ;;6844638
PSGMAR3 ;;9629120
PSGMI ;;4459432
PSGMIV ;;11254029
PSGMMAR ;;10224180
PSGMMAR0 ;;14132728
PSGMMAR1 ;;11878013
PSGMMAR2 ;;14235109
PSGMMAR3 ;;3590276
PSGMMAR4 ;;6026439
PSGMMAR5 ;;1681370
PSGMMARH ;;12079638
PSGMMIV ;;7749701
PSGMMIVC ;;9786381
PSGMUTL ;;5913174
PSGNE3 ;;9394484
PSGO ;;12018164
PSGOD ;;11807794
PSGOE ;;15327106
PSGOE0 ;;9193131
PSGOE1 ;;10594208
PSGOE2 ;;4879241
PSGOE3 ;;11951889
PSGOE31 ;;10243258
PSGOE4 ;;13490764
PSGOE41 ;;8440726
PSGOE42 ;;6382038
PSGOE5 ;;7735156
PSGOE6 ;;9943306
PSGOE7 ;;10161162
PSGOE8 ;;15618643
PSGOE81 ;;10028730
PSGOE82 ;;8607048
PSGOE9 ;;11804717
PSGOE91 ;;9890263
PSGOE92 ;;7143515
PSGOEC ;;15996336
PSGOECA ;;991050
PSGOECS ;;9031224
PSGOEE ;;17491629
PSGOEE0 ;;15138328
PSGOEEW ;;21844297
PSGOEF ;;13928521
PSGOEF1 ;;12680599
PSGOEH0 ;;8383765
PSGOEH1 ;;6724834
PSGOEHA ;;7007783
PSGOEI ;;3890619
PSGOEL ;;11267940
PSGOEM ;;19080178
PSGOEM1 ;;1940971
PSGOENG ;;4761090
PSGOEPO ;;15018055
PSGOER ;;13469511
PSGOER0 ;;13260485
PSGOER1 ;;3148238
PSGOERI ;;8898891
PSGOERS ;;18950616
PSGOES ;;11817894
PSGOESF ;;12518909
PSGOETO ;;16306689
PSGOETO1 ;;786017
PSGOEV ;;15864210
PSGOEVS ;;3588216
PSGON ;;19424974
PSGORS0 ;;7336776
PSGORVW ;;3907762
PSGOT ;;8547772
PSGOU ;;15325899
PSGP ;;9585275
PSGPEN ;;23532440
PSGPER ;;5408903
PSGPER0 ;;15726318
PSGPL ;;13097481
PSGPL0 ;;8430342
PSGPL1 ;;12319794
PSGPLD ;;12099262
PSGPLDP ;;10718642
PSGPLDP0 ;;18184874
PSGPLDPH ;;5015172
PSGPLF ;;14706289
PSGPLFM ;;8373997
PSGPLG ;;6885757
PSGPLPRG ;;11179828
PSGPLR ;;19302586
PSGPLR0 ;;15517159
PSGPLRP ;;12596914
PSGPLUP ;;16498991
PSGPLUP0 ;;11294576
PSGPLUTL ;;3186752
PSGPLXR ;;6638397
PSGPO ;;20554722
PSGPOR ;;4200448
PSGPR ;;17577726
PSGPRVR ;;12528305
PSGPRVR0 ;;7870922
PSGRET ;;9621475
PSGRPNT ;;581186
PSGS0 ;;8767968
PSGSCT ;;3903425
PSGSCT0 ;;5656609
PSGSEL ;;17761667
PSGSET ;;5107091
PSGSETU ;;6081391
PSGSH ;;5840841
PSGSICHK ;;17299903
PSGSSP ;;476867
PSGTAP ;;15795289
PSGTAP0 ;;8345851
PSGTAP1 ;;10767230
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJNTEG 3743 printed Dec 13, 2024@02:07:51 Page 2
PSJNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971216.152955
+1 ;;0.0;
+2 ;;7.3;2971216.152955
+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 GOTO CONT^PSJNTEG0
+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 ;;
PSGAL5 ;;5441715
PSGAMS ;;10549502
PSGAMS0 ;;4344378
PSGAMSA ;;14801593
PSGAP ;;4559319
PSGAP0 ;;16505444
PSGAPH ;;6145898
PSGAPIV ;;3389953
PSGAPP ;;15835658
PSGAXR ;;5177686
PSGBRJ ;;9623144
PSGCAP ;;17489925
PSGCAP0 ;;10614134
PSGCAPIV ;;4278138
PSGCAPP ;;9869420
PSGCAPP0 ;;8107032
PSGCT ;;1115903
PSGDCC ;;15581084
PSGDCCM ;;2683467
PSGDCR0 ;;8457985
PSGDCT ;;14158481
PSGDCT1 ;;12490651
PSGDCTP ;;10089690
PSGDL ;;5483697
PSGDS ;;9579866
PSGDS0 ;;16727020
PSGDSP ;;18990871
PSGDSP0 ;;10630520
PSGDSP1 ;;14595476
PSGDSPN ;;1638530
PSGEUD ;;17336835
PSGEUDD ;;6739300
PSGEUDP ;;9687269
PSGFILD0 ;;17335163
PSGFILD1 ;;7990496
PSGFILD2 ;;7016689
PSGFILD3 ;;17423076
PSGFILED ;;16058941
PSGGAO ;;3063407
PSGIU ;;7949412
PSGL ;;14712907
PSGL0 ;;19187109
PSGLBA ;;8090709
PSGLH ;;3878428
PSGLOI ;;16236725
PSGLPI ;;8004914
PSGLW ;;3035966
PSGMAR ;;20496280
PSGMAR0 ;;11114308
PSGMAR1 ;;5353727
PSGMAR2 ;;6844638
PSGMAR3 ;;9629120
PSGMI ;;4459432
PSGMIV ;;11254029
PSGMMAR ;;10224180
PSGMMAR0 ;;14132728
PSGMMAR1 ;;11878013
PSGMMAR2 ;;14235109
PSGMMAR3 ;;3590276
PSGMMAR4 ;;6026439
PSGMMAR5 ;;1681370
PSGMMARH ;;12079638
PSGMMIV ;;7749701
PSGMMIVC ;;9786381
PSGMUTL ;;5913174
PSGNE3 ;;9394484
PSGO ;;12018164
PSGOD ;;11807794
PSGOE ;;15327106
PSGOE0 ;;9193131
PSGOE1 ;;10594208
PSGOE2 ;;4879241
PSGOE3 ;;11951889
PSGOE31 ;;10243258
PSGOE4 ;;13490764
PSGOE41 ;;8440726
PSGOE42 ;;6382038
PSGOE5 ;;7735156
PSGOE6 ;;9943306
PSGOE7 ;;10161162
PSGOE8 ;;15618643
PSGOE81 ;;10028730
PSGOE82 ;;8607048
PSGOE9 ;;11804717
PSGOE91 ;;9890263
PSGOE92 ;;7143515
PSGOEC ;;15996336
PSGOECA ;;991050
PSGOECS ;;9031224
PSGOEE ;;17491629
PSGOEE0 ;;15138328
PSGOEEW ;;21844297
PSGOEF ;;13928521
PSGOEF1 ;;12680599
PSGOEH0 ;;8383765
PSGOEH1 ;;6724834
PSGOEHA ;;7007783
PSGOEI ;;3890619
PSGOEL ;;11267940
PSGOEM ;;19080178
PSGOEM1 ;;1940971
PSGOENG ;;4761090
PSGOEPO ;;15018055
PSGOER ;;13469511
PSGOER0 ;;13260485
PSGOER1 ;;3148238
PSGOERI ;;8898891
PSGOERS ;;18950616
PSGOES ;;11817894
PSGOESF ;;12518909
PSGOETO ;;16306689
PSGOETO1 ;;786017
PSGOEV ;;15864210
PSGOEVS ;;3588216
PSGON ;;19424974
PSGORS0 ;;7336776
PSGORVW ;;3907762
PSGOT ;;8547772
PSGOU ;;15325899
PSGP ;;9585275
PSGPEN ;;23532440
PSGPER ;;5408903
PSGPER0 ;;15726318
PSGPL ;;13097481
PSGPL0 ;;8430342
PSGPL1 ;;12319794
PSGPLD ;;12099262
PSGPLDP ;;10718642
PSGPLDP0 ;;18184874
PSGPLDPH ;;5015172
PSGPLF ;;14706289
PSGPLFM ;;8373997
PSGPLG ;;6885757
PSGPLPRG ;;11179828
PSGPLR ;;19302586
PSGPLR0 ;;15517159
PSGPLRP ;;12596914
PSGPLUP ;;16498991
PSGPLUP0 ;;11294576
PSGPLUTL ;;3186752
PSGPLXR ;;6638397
PSGPO ;;20554722
PSGPOR ;;4200448
PSGPR ;;17577726
PSGPRVR ;;12528305
PSGPRVR0 ;;7870922
PSGRET ;;9621475
PSGRPNT ;;581186
PSGS0 ;;8767968
PSGSCT ;;3903425
PSGSCT0 ;;5656609
PSGSEL ;;17761667
PSGSET ;;5107091
PSGSETU ;;6081391
PSGSH ;;5840841
PSGSICHK ;;17299903
PSGSSP ;;476867
PSGTAP ;;15795289
PSGTAP0 ;;8345851
PSGTAP1 ;;10767230
