- FHNTEG0 ;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")
- ;
- 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 ;;
- FHORD83 ;;1799300
- FHORD9 ;;5847432
- FHORD91 ;;3834038
- FHORD92 ;;7559275
- FHORD93 ;;8620031
- FHORDR ;;2998872
- FHORDW ;;6878589
- FHORDW1 ;;5597195
- FHORDW2 ;;4056534
- FHORDW3 ;;6541293
- FHORE1 ;;11602421
- FHORE1A ;;2003255
- FHORE2 ;;4556343
- FHORE21 ;;7400532
- FHORE3 ;;3649653
- FHOREW ;;7916080
- FHORO ;;4704498
- FHOROW ;;4629985
- FHORT1 ;;10129017
- FHORT10 ;;13332346
- FHORT11 ;;2453906
- FHORT2 ;;5921412
- FHORT3 ;;2509939
- FHORT5 ;;4446291
- FHORT5A ;;6669315
- FHORT5B ;;2194934
- FHORT5C ;;3301928
- FHORT5D ;;5290071
- FHORTW ;;7141005
- FHORX ;;564826
- FHORX1 ;;5217469
- FHORX1A ;;3214593
- FHORX1B ;;3634063
- FHORX1C ;;6936807
- FHORX2 ;;2683671
- FHORX3 ;;8023019
- FHPATM ;;6006350
- FHPRC ;;5655183
- FHPRC1 ;;5569532
- FHPRC10 ;;12077237
- FHPRC11 ;;14257467
- FHPRC12 ;;7937756
- FHPRC13 ;;12025361
- FHPRC14 ;;9606339
- FHPRC2 ;;5268120
- FHPRC3 ;;4313560
- FHPRC4 ;;2168815
- FHPRC5 ;;1913669
- FHPRC6 ;;4475322
- FHPRC7 ;;3360749
- FHPRC8 ;;9271546
- FHPRC9 ;;7757957
- FHPRF ;;1601618
- FHPRF1 ;;6509145
- FHPRF1A ;;3914573
- FHPRF2 ;;2915934
- FHPRF4 ;;1629107
- FHPRI ;;3919334
- FHPRI1 ;;4796204
- FHPRI2 ;;8125121
- FHPRI3 ;;1952818
- FHPRO ;;4733042
- FHPRO1 ;;10716446
- FHPRO2 ;;12102730
- FHPRO3 ;;2512818
- FHPRO4 ;;5871635
- FHPRO4A ;;3732530
- FHPRO5 ;;4997921
- FHPRO6 ;;2943379
- FHPRO7 ;;1769356
- FHPRR1 ;;4210131
- FHPRR2 ;;6726603
- FHPRW ;;10160467
- FHPRW1 ;;4038651
- FHPRW2 ;;3657285
- FHPRW3 ;;4037054
- FHPRW4 ;;1975449
- FHREC ;;3913108
- FHREC1 ;;4357665
- FHREC2 ;;5088857
- FHREC3 ;;1924284
- FHREC4 ;;3456680
- FHREC5 ;;2832308
- FHREC6 ;;8800982
- FHREC7 ;;1770111
- FHREP ;;4497192
- FHREP1 ;;11157584
- FHSEL1 ;;7821155
- FHSEL2 ;;9245176
- FHSEL3 ;;6646024
- FHSEL4 ;;6487559
- FHSP ;;962380
- FHSP1 ;;12519643
- FHSP11 ;;2598854
- FHSPED ;;11321876
- FHSPTAB ;;6298568
- FHSYSF ;;798296
- FHSYSK ;;3838891
- FHSYSP ;;1520196
- FHVER ;;1524619
- FHWADM ;;5975597
- FHWDIS ;;5304192
- FHWDISD ;;3992628
- FHWHEA ;;11863618
- FHWMAS ;;1763412
- FHWTRN ;;2567274
- FHXCNV ;;3360157
- FHXDB ;;12710968
- FHXDB1 ;;14538448
- FHXDB2 ;;8339509
- FHXIN ;;2450638
- FHXMOV ;;8770539
- FHXWRD ;;3711181
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHNTEG0 2764 printed Jan 18, 2025@02:53:40 Page 2
- FHNTEG0 ;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 ;
- +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 ;;
- FHORD83 ;;1799300
- FHORD9 ;;5847432
- FHORD91 ;;3834038
- FHORD92 ;;7559275
- FHORD93 ;;8620031
- FHORDR ;;2998872
- FHORDW ;;6878589
- FHORDW1 ;;5597195
- FHORDW2 ;;4056534
- FHORDW3 ;;6541293
- FHORE1 ;;11602421
- FHORE1A ;;2003255
- FHORE2 ;;4556343
- FHORE21 ;;7400532
- FHORE3 ;;3649653
- FHOREW ;;7916080
- FHORO ;;4704498
- FHOROW ;;4629985
- FHORT1 ;;10129017
- FHORT10 ;;13332346
- FHORT11 ;;2453906
- FHORT2 ;;5921412
- FHORT3 ;;2509939
- FHORT5 ;;4446291
- FHORT5A ;;6669315
- FHORT5B ;;2194934
- FHORT5C ;;3301928
- FHORT5D ;;5290071
- FHORTW ;;7141005
- FHORX ;;564826
- FHORX1 ;;5217469
- FHORX1A ;;3214593
- FHORX1B ;;3634063
- FHORX1C ;;6936807
- FHORX2 ;;2683671
- FHORX3 ;;8023019
- FHPATM ;;6006350
- FHPRC ;;5655183
- FHPRC1 ;;5569532
- FHPRC10 ;;12077237
- FHPRC11 ;;14257467
- FHPRC12 ;;7937756
- FHPRC13 ;;12025361
- FHPRC14 ;;9606339
- FHPRC2 ;;5268120
- FHPRC3 ;;4313560
- FHPRC4 ;;2168815
- FHPRC5 ;;1913669
- FHPRC6 ;;4475322
- FHPRC7 ;;3360749
- FHPRC8 ;;9271546
- FHPRC9 ;;7757957
- FHPRF ;;1601618
- FHPRF1 ;;6509145
- FHPRF1A ;;3914573
- FHPRF2 ;;2915934
- FHPRF4 ;;1629107
- FHPRI ;;3919334
- FHPRI1 ;;4796204
- FHPRI2 ;;8125121
- FHPRI3 ;;1952818
- FHPRO ;;4733042
- FHPRO1 ;;10716446
- FHPRO2 ;;12102730
- FHPRO3 ;;2512818
- FHPRO4 ;;5871635
- FHPRO4A ;;3732530
- FHPRO5 ;;4997921
- FHPRO6 ;;2943379
- FHPRO7 ;;1769356
- FHPRR1 ;;4210131
- FHPRR2 ;;6726603
- FHPRW ;;10160467
- FHPRW1 ;;4038651
- FHPRW2 ;;3657285
- FHPRW3 ;;4037054
- FHPRW4 ;;1975449
- FHREC ;;3913108
- FHREC1 ;;4357665
- FHREC2 ;;5088857
- FHREC3 ;;1924284
- FHREC4 ;;3456680
- FHREC5 ;;2832308
- FHREC6 ;;8800982
- FHREC7 ;;1770111
- FHREP ;;4497192
- FHREP1 ;;11157584
- FHSEL1 ;;7821155
- FHSEL2 ;;9245176
- FHSEL3 ;;6646024
- FHSEL4 ;;6487559
- FHSP ;;962380
- FHSP1 ;;12519643
- FHSP11 ;;2598854
- FHSPED ;;11321876
- FHSPTAB ;;6298568
- FHSYSF ;;798296
- FHSYSK ;;3838891
- FHSYSP ;;1520196
- FHVER ;;1524619
- FHWADM ;;5975597
- FHWDIS ;;5304192
- FHWDISD ;;3992628
- FHWHEA ;;11863618
- FHWMAS ;;1763412
- FHWTRN ;;2567274
- FHXCNV ;;3360157
- FHXDB ;;12710968
- FHXDB1 ;;14538448
- FHXDB2 ;;8339509
- FHXIN ;;2450638
- FHXMOV ;;8770539
- FHXWRD ;;3711181