PSJNTEG0 ;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^PSJNTEG1
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 ;;
PSGTCTD ;;6065289
PSGTCTD0 ;;8315839
PSGTI ;;6401473
PSGVBW ;;18130677
PSGVBW0 ;;15711004
PSGVBW1 ;;2577458
PSGVBWP ;;13781808
PSGVBWU ;;14654477
PSGVDS ;;7457905
PSGVW ;;13617950
PSGVW0 ;;4907591
PSGVWP ;;3618804
PSIV ;;9632222
PSIVACT ;;5206018
PSIVAL ;;7219660
PSIVALN ;;3733100
PSIVAMIS ;;13357019
PSIVAOR ;;15769366
PSIVAOR1 ;;4646774
PSIVCAL ;;13734655
PSIVCHK ;;11955268
PSIVCHK1 ;;10650255
PSIVCSED ;;4498107
PSIVDCR ;;15391673
PSIVDCR1 ;;15555679
PSIVDCR2 ;;10558819
PSIVDRG ;;8093131
PSIVEDRG ;;12165589
PSIVEDT ;;11834139
PSIVEDT1 ;;8513857
PSIVHIS ;;3341319
PSIVHLD ;;1849135
PSIVHLP ;;11111969
PSIVHLP1 ;;10706730
PSIVHLP2 ;;11000260
PSIVHLP3 ;;3588957
PSIVHYP ;;3653720
PSIVHYPL ;;15011059
PSIVLABL ;;12986653
PSIVLBDL ;;7062706
PSIVLBL1 ;;16294393
PSIVLTR ;;1848959
PSIVLTR1 ;;4469996
PSIVMAN ;;11277462
PSIVMAN1 ;;13852085
PSIVOE ;;4165977
PSIVOPT ;;10674345
PSIVOPT1 ;;10501516
PSIVOPT2 ;;12232659
PSIVORA ;;13128297
PSIVORA1 ;;11240725
PSIVORAL ;;9610524
PSIVORC ;;10141585
PSIVORC1 ;;14586162
PSIVORC2 ;;13696024
PSIVORE ;;14225817
PSIVORE1 ;;14892529
PSIVORE2 ;;7806596
PSIVOREN ;;11929114
PSIVORFA ;;11673391
PSIVORFB ;;11186136
PSIVORFE ;;7975789
PSIVORH ;;4076816
PSIVORLB ;;9232616
PSIVORV1 ;;11935581
PSIVORV2 ;;6852622
PSIVPAT ;;7058627
PSIVPCR ;;12828965
PSIVPCR1 ;;3217504
PSIVPGE ;;16101277
PSIVPR ;;11856703
PSIVPRO ;;10241971
PSIVQUI ;;7058626
PSIVRD ;;12883074
PSIVREC ;;4540790
PSIVRNL ;;17941560
PSIVRP ;;19368402
PSIVRP1 ;;9529006
PSIVRQ ;;11580483
PSIVRQ1 ;;14193047
PSIVSET ;;11971611
PSIVSP ;;11493491
PSIVSPDC ;;4523227
PSIVST2 ;;10812968
PSIVSTAT ;;11185386
PSIVSUS ;;20540089
PSIVSUS1 ;;9233493
PSIVUDL ;;12893010
PSIVUTL ;;7154813
PSIVUTL1 ;;7128902
PSIVUWL ;;9325172
PSIVVW1 ;;8162548
PSIVWCR ;;12737296
PSIVWCR1 ;;2836925
PSIVWL ;;15985042
PSIVWL1 ;;15920427
PSIVWRP ;;14216186
PSIVXREF ;;672248
PSIVXU ;;2636747
PSJ200 ;;11883362
PSJAC ;;8790985
PSJADT ;;14320096
PSJADT0 ;;17469396
PSJADT1 ;;3886524
PSJALG ;;4878413
PSJDCHK ;;11850014
PSJDDUT ;;16989030
PSJDDUT2 ;;12090780
PSJDDUT3 ;;4798877
PSJDEA ;;4418374
PSJDGAL ;;2657545
PSJEEU ;;5082000
PSJEEU0 ;;11810342
PSJEXP ;;22569862
PSJEXP0 ;;17975167
PSJFL ;;7929486
PSJFL1 ;;4540012
PSJH1 ;;9462313
PSJHEAD ;;15526491
PSJHIS ;;4373003
PSJHL2 ;;8978069
PSJHL3 ;;13294105
PSJHL4 ;;21181671
PSJHL5 ;;6805998
PSJHL6 ;;10385690
PSJHL7 ;;15568482
PSJHL9 ;;11661940
PSJHLERR ;;2035077
PSJHLU ;;4443407
PSJHVARS ;;7325044
PSJIENV ;;712925
PSJIPRE ;;4561152
PSJIPST ;;9594885
PSJIPST1 ;;14509257
PSJIPST2 ;;9596551
PSJIPST3 ;;17764021
PSJIPSTA ;;6270357
PSJLIACT ;;2257018
PSJLIFN ;;4534897
PSJLIFNI ;;1742255
PSJLIORD ;;999487
PSJLIPRF ;;653170
PSJLIUTL ;;6126958
PSJLIVFD ;;5508085
PSJLIVMD ;;5160354
PSJLMAL ;;98929
PSJLMDA ;;178896
PSJLMGUD ;;17316547
PSJLMHED ;;9814074
PSJLMPRI ;;6611303
PSJLMPRU ;;5945946
PSJLMUDE ;;19967093
PSJLMUT1 ;;17706585
PSJLMUTL ;;10117738
PSJLOI ;;863278
PSJMDIR ;;15822387
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJNTEG0 3760 printed Dec 13, 2024@02:07:52 Page 2
PSJNTEG0 ;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^PSJNTEG1
+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 ;;
PSGTCTD ;;6065289
PSGTCTD0 ;;8315839
PSGTI ;;6401473
PSGVBW ;;18130677
PSGVBW0 ;;15711004
PSGVBW1 ;;2577458
PSGVBWP ;;13781808
PSGVBWU ;;14654477
PSGVDS ;;7457905
PSGVW ;;13617950
PSGVW0 ;;4907591
PSGVWP ;;3618804
PSIV ;;9632222
PSIVACT ;;5206018
PSIVAL ;;7219660
PSIVALN ;;3733100
PSIVAMIS ;;13357019
PSIVAOR ;;15769366
PSIVAOR1 ;;4646774
PSIVCAL ;;13734655
PSIVCHK ;;11955268
PSIVCHK1 ;;10650255
PSIVCSED ;;4498107
PSIVDCR ;;15391673
PSIVDCR1 ;;15555679
PSIVDCR2 ;;10558819
PSIVDRG ;;8093131
PSIVEDRG ;;12165589
PSIVEDT ;;11834139
PSIVEDT1 ;;8513857
PSIVHIS ;;3341319
PSIVHLD ;;1849135
PSIVHLP ;;11111969
PSIVHLP1 ;;10706730
PSIVHLP2 ;;11000260
PSIVHLP3 ;;3588957
PSIVHYP ;;3653720
PSIVHYPL ;;15011059
PSIVLABL ;;12986653
PSIVLBDL ;;7062706
PSIVLBL1 ;;16294393
PSIVLTR ;;1848959
PSIVLTR1 ;;4469996
PSIVMAN ;;11277462
PSIVMAN1 ;;13852085
PSIVOE ;;4165977
PSIVOPT ;;10674345
PSIVOPT1 ;;10501516
PSIVOPT2 ;;12232659
PSIVORA ;;13128297
PSIVORA1 ;;11240725
PSIVORAL ;;9610524
PSIVORC ;;10141585
PSIVORC1 ;;14586162
PSIVORC2 ;;13696024
PSIVORE ;;14225817
PSIVORE1 ;;14892529
PSIVORE2 ;;7806596
PSIVOREN ;;11929114
PSIVORFA ;;11673391
PSIVORFB ;;11186136
PSIVORFE ;;7975789
PSIVORH ;;4076816
PSIVORLB ;;9232616
PSIVORV1 ;;11935581
PSIVORV2 ;;6852622
PSIVPAT ;;7058627
PSIVPCR ;;12828965
PSIVPCR1 ;;3217504
PSIVPGE ;;16101277
PSIVPR ;;11856703
PSIVPRO ;;10241971
PSIVQUI ;;7058626
PSIVRD ;;12883074
PSIVREC ;;4540790
PSIVRNL ;;17941560
PSIVRP ;;19368402
PSIVRP1 ;;9529006
PSIVRQ ;;11580483
PSIVRQ1 ;;14193047
PSIVSET ;;11971611
PSIVSP ;;11493491
PSIVSPDC ;;4523227
PSIVST2 ;;10812968
PSIVSTAT ;;11185386
PSIVSUS ;;20540089
PSIVSUS1 ;;9233493
PSIVUDL ;;12893010
PSIVUTL ;;7154813
PSIVUTL1 ;;7128902
PSIVUWL ;;9325172
PSIVVW1 ;;8162548
PSIVWCR ;;12737296
PSIVWCR1 ;;2836925
PSIVWL ;;15985042
PSIVWL1 ;;15920427
PSIVWRP ;;14216186
PSIVXREF ;;672248
PSIVXU ;;2636747
PSJ200 ;;11883362
PSJAC ;;8790985
PSJADT ;;14320096
PSJADT0 ;;17469396
PSJADT1 ;;3886524
PSJALG ;;4878413
PSJDCHK ;;11850014
PSJDDUT ;;16989030
PSJDDUT2 ;;12090780
PSJDDUT3 ;;4798877
PSJDEA ;;4418374
PSJDGAL ;;2657545
PSJEEU ;;5082000
PSJEEU0 ;;11810342
PSJEXP ;;22569862
PSJEXP0 ;;17975167
PSJFL ;;7929486
PSJFL1 ;;4540012
PSJH1 ;;9462313
PSJHEAD ;;15526491
PSJHIS ;;4373003
PSJHL2 ;;8978069
PSJHL3 ;;13294105
PSJHL4 ;;21181671
PSJHL5 ;;6805998
PSJHL6 ;;10385690
PSJHL7 ;;15568482
PSJHL9 ;;11661940
PSJHLERR ;;2035077
PSJHLU ;;4443407
PSJHVARS ;;7325044
PSJIENV ;;712925
PSJIPRE ;;4561152
PSJIPST ;;9594885
PSJIPST1 ;;14509257
PSJIPST2 ;;9596551
PSJIPST3 ;;17764021
PSJIPSTA ;;6270357
PSJLIACT ;;2257018
PSJLIFN ;;4534897
PSJLIFNI ;;1742255
PSJLIORD ;;999487
PSJLIPRF ;;653170
PSJLIUTL ;;6126958
PSJLIVFD ;;5508085
PSJLIVMD ;;5160354
PSJLMAL ;;98929
PSJLMDA ;;178896
PSJLMGUD ;;17316547
PSJLMHED ;;9814074
PSJLMPRI ;;6611303
PSJLMPRU ;;5945946
PSJLMUDE ;;19967093
PSJLMUT1 ;;17706585
PSJLMUTL ;;10117738
PSJLOI ;;863278
PSJMDIR ;;15822387
