FHNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 11, 1995@10:01:46
;;0.0;
;;7.1;OCT 11, 1995@10:01:46
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^FHNTEG0
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 ;;
FH ;;1933177
FHADM2 ;;2855586
FHADM21 ;;7966786
FHADM2A ;;2375833
FHADM3 ;;5810121
FHADM4 ;;9500389
FHADM5 ;;323152
FHADR1 ;;6236966
FHADR10 ;;2472024
FHADR1A ;;6939546
FHADR2 ;;3823209
FHADR3 ;;1811235
FHADR3A ;;6395711
FHADR4 ;;3651849
FHADR5 ;;3779837
FHADR6 ;;10058150
FHADR61 ;;2724873
FHADR7 ;;6397935
FHADR8 ;;3103134
FHADR81 ;;5662701
FHADR9 ;;7544892
FHADR9A ;;4060734
FHADRPT ;;2949179
FHADRSY ;;1383849
FHASC ;;1661812
FHASE ;;12352922
FHASE1 ;;4636527
FHASE1A ;;10368196
FHASE2 ;;4358156
FHASE3 ;;1455346
FHASM1 ;;8647619
FHASM2 ;;8399539
FHASM2A ;;2430817
FHASM2B ;;3386101
FHASM2C ;;3102927
FHASM2D ;;2275862
FHASM3 ;;5096802
FHASM3A ;;9169407
FHASM4 ;;6344698
FHASM5 ;;8945494
FHASM6 ;;7486877
FHASM7 ;;9593313
FHASMR ;;2727928
FHASMR1 ;;9517687
FHASN ;;3149876
FHASN1 ;;3511694
FHASN3 ;;6030523
FHASN4 ;;9774004
FHASN5 ;;8678046
FHASN6 ;;7635637
FHASN7 ;;2602313
FHASN71 ;;9171190
FHASP ;;7858984
FHASP1 ;;5062129
FHASP2 ;;3530400
FHASXR ;;6537891
FHASXR1 ;;8965616
FHBIR ;;4059872
FHCLN ;;740822
FHCMS1 ;;778447
FHCMSR ;;4571401
FHCMSR1 ;;6665228
FHCTF ;;681451
FHCTF1 ;;6124347
FHCTF2 ;;397188
FHCTF3 ;;13151878
FHCTF4 ;;6160915
FHDCR1 ;;8507036
FHDCR11 ;;4507014
FHDCR1A ;;6164513
FHDCR1B ;;9131155
FHDCR1C ;;2162795
FHDCR1D ;;6930746
FHDCR2 ;;872781
FHDEV ;;1319169
FHDMP ;;7066349
FHDMP1 ;;3150137
FHDMP2 ;;5848038
FHDMP3 ;;4936568
FHDMP4 ;;7823399
FHDMP5 ;;5203454
FHDPA ;;2974151
FHIPST ;;5821572
FHIPST1 ;;2376175
FHIPST10 ;;5608317
FHIPST11 ;;5908172
FHIPST12 ;;5840142
FHIPST13 ;;5669546
FHIPST14 ;;6093522
FHIPST15 ;;4681408
FHIPST16 ;;5603245
FHIPST17 ;;1797845
FHIPST18 ;;1252543
FHIPST19 ;;811740
FHIPST2 ;;1871064
FHIPST20 ;;3761391
FHIPST3 ;;5363809
FHIPST4 ;;1980574
FHIPST5 ;;1154415
FHIPST6 ;;700221
FHIPST7 ;;1254271
FHIPST8 ;;1109712
FHIPST9 ;;6158714
FHMTK ;;8334209
FHMTK1 ;;9736775
FHMTK11 ;;9501249
FHMTK1A ;;5652773
FHMTK1B ;;9506136
FHMTK1C ;;7533994
FHMTK2 ;;4933044
FHMTK21 ;;5663649
FHMTK3 ;;7247098
FHMTK4 ;;6393503
FHMTK5 ;;7788180
FHMTK6 ;;6997795
FHMTK7 ;;4842201
FHNO1 ;;2554062
FHNO2 ;;10768538
FHNO21 ;;3984168
FHNO3 ;;3504490
FHNO31 ;;7450905
FHNO4 ;;1121656
FHNO41 ;;7922111
FHNO5 ;;5224038
FHNO6 ;;9801097
FHNO7 ;;2361316
FHNO8 ;;2731298
FHNU ;;1616737
FHNU1 ;;4573798
FHNU10 ;;5583463
FHNU11 ;;10048442
FHNU12 ;;5447130
FHNU2 ;;12335468
FHNU3 ;;6834955
FHNU4 ;;11724524
FHNU5 ;;10454629
FHNU6 ;;4729171
FHNU7 ;;5806572
FHNU8 ;;7815140
FHNU9 ;;4484537
FHNUT ;;4362721
FHORC ;;4988961
FHORC1 ;;3376539
FHORC2 ;;10784717
FHORC3 ;;7547945
FHORC4 ;;2770986
FHORC5 ;;2011042
FHORCW ;;6949788
FHORD ;;1618989
FHORD1 ;;12718924
FHORD10 ;;6881787
FHORD11 ;;10078328
FHORD13 ;;7875615
FHORD1A ;;3630323
FHORD2 ;;6094066
FHORD3 ;;6474710
FHORD4 ;;5320132
FHORD41 ;;4108718
FHORD5 ;;5286069
FHORD6 ;;9749127
FHORD61 ;;7575939
FHORD7 ;;5790814
FHORD71 ;;7838090
FHORD72 ;;7184640
FHORD8 ;;6489332
FHORD81 ;;5717162
FHORD82 ;;7938833
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHNTEG 3762 printed Dec 13, 2024@01:52:26 Page 2
FHNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 11, 1995@10:01:46
+1 ;;0.0;
+2 ;;7.1;OCT 11, 1995@10:01:46
+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^FHNTEG0
+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 ;;
FH ;;1933177
FHADM2 ;;2855586
FHADM21 ;;7966786
FHADM2A ;;2375833
FHADM3 ;;5810121
FHADM4 ;;9500389
FHADM5 ;;323152
FHADR1 ;;6236966
FHADR10 ;;2472024
FHADR1A ;;6939546
FHADR2 ;;3823209
FHADR3 ;;1811235
FHADR3A ;;6395711
FHADR4 ;;3651849
FHADR5 ;;3779837
FHADR6 ;;10058150
FHADR61 ;;2724873
FHADR7 ;;6397935
FHADR8 ;;3103134
FHADR81 ;;5662701
FHADR9 ;;7544892
FHADR9A ;;4060734
FHADRPT ;;2949179
FHADRSY ;;1383849
FHASC ;;1661812
FHASE ;;12352922
FHASE1 ;;4636527
FHASE1A ;;10368196
FHASE2 ;;4358156
FHASE3 ;;1455346
FHASM1 ;;8647619
FHASM2 ;;8399539
FHASM2A ;;2430817
FHASM2B ;;3386101
FHASM2C ;;3102927
FHASM2D ;;2275862
FHASM3 ;;5096802
FHASM3A ;;9169407
FHASM4 ;;6344698
FHASM5 ;;8945494
FHASM6 ;;7486877
FHASM7 ;;9593313
FHASMR ;;2727928
FHASMR1 ;;9517687
FHASN ;;3149876
FHASN1 ;;3511694
FHASN3 ;;6030523
FHASN4 ;;9774004
FHASN5 ;;8678046
FHASN6 ;;7635637
FHASN7 ;;2602313
FHASN71 ;;9171190
FHASP ;;7858984
FHASP1 ;;5062129
FHASP2 ;;3530400
FHASXR ;;6537891
FHASXR1 ;;8965616
FHBIR ;;4059872
FHCLN ;;740822
FHCMS1 ;;778447
FHCMSR ;;4571401
FHCMSR1 ;;6665228
FHCTF ;;681451
FHCTF1 ;;6124347
FHCTF2 ;;397188
FHCTF3 ;;13151878
FHCTF4 ;;6160915
FHDCR1 ;;8507036
FHDCR11 ;;4507014
FHDCR1A ;;6164513
FHDCR1B ;;9131155
FHDCR1C ;;2162795
FHDCR1D ;;6930746
FHDCR2 ;;872781
FHDEV ;;1319169
FHDMP ;;7066349
FHDMP1 ;;3150137
FHDMP2 ;;5848038
FHDMP3 ;;4936568
FHDMP4 ;;7823399
FHDMP5 ;;5203454
FHDPA ;;2974151
FHIPST ;;5821572
FHIPST1 ;;2376175
FHIPST10 ;;5608317
FHIPST11 ;;5908172
FHIPST12 ;;5840142
FHIPST13 ;;5669546
FHIPST14 ;;6093522
FHIPST15 ;;4681408
FHIPST16 ;;5603245
FHIPST17 ;;1797845
FHIPST18 ;;1252543
FHIPST19 ;;811740
FHIPST2 ;;1871064
FHIPST20 ;;3761391
FHIPST3 ;;5363809
FHIPST4 ;;1980574
FHIPST5 ;;1154415
FHIPST6 ;;700221
FHIPST7 ;;1254271
FHIPST8 ;;1109712
FHIPST9 ;;6158714
FHMTK ;;8334209
FHMTK1 ;;9736775
FHMTK11 ;;9501249
FHMTK1A ;;5652773
FHMTK1B ;;9506136
FHMTK1C ;;7533994
FHMTK2 ;;4933044
FHMTK21 ;;5663649
FHMTK3 ;;7247098
FHMTK4 ;;6393503
FHMTK5 ;;7788180
FHMTK6 ;;6997795
FHMTK7 ;;4842201
FHNO1 ;;2554062
FHNO2 ;;10768538
FHNO21 ;;3984168
FHNO3 ;;3504490
FHNO31 ;;7450905
FHNO4 ;;1121656
FHNO41 ;;7922111
FHNO5 ;;5224038
FHNO6 ;;9801097
FHNO7 ;;2361316
FHNO8 ;;2731298
FHNU ;;1616737
FHNU1 ;;4573798
FHNU10 ;;5583463
FHNU11 ;;10048442
FHNU12 ;;5447130
FHNU2 ;;12335468
FHNU3 ;;6834955
FHNU4 ;;11724524
FHNU5 ;;10454629
FHNU6 ;;4729171
FHNU7 ;;5806572
FHNU8 ;;7815140
FHNU9 ;;4484537
FHNUT ;;4362721
FHORC ;;4988961
FHORC1 ;;3376539
FHORC2 ;;10784717
FHORC3 ;;7547945
FHORC4 ;;2770986
FHORC5 ;;2011042
FHORCW ;;6949788
FHORD ;;1618989
FHORD1 ;;12718924
FHORD10 ;;6881787
FHORD11 ;;10078328
FHORD13 ;;7875615
FHORD1A ;;3630323
FHORD2 ;;6094066
FHORD3 ;;6474710
FHORD4 ;;5320132
FHORD41 ;;4108718
FHORD5 ;;5286069
FHORD6 ;;9749127
FHORD61 ;;7575939
FHORD7 ;;5790814
FHORD71 ;;7838090
FHORD72 ;;7184640
FHORD8 ;;6489332
FHORD81 ;;5717162
FHORD82 ;;7938833
