- 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 Feb 18, 2025@23:34:15 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