ENXFNTEG.m

ENXFNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 17, 1995@14:48:05

 ;;7.0;ENGINEERING;**23**;Aug 17,1993

 ;;7.2;AUG 17, 1995@14:48:05

 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 ;;

ENPL1 ;;3419953

ENPL2 ;;2422528

ENPL3 ;;5725054

ENPL4 ;;2080627

ENPL5 ;;9810373

ENPL5A ;;5759972

ENPL5B ;;9642514

ENPL5C ;;2994588

ENPL5D ;;9573416

ENPL9 ;;5189520

ENPLS ;;7524511

ENPLS1 ;;3119737

ENPLS2 ;;4399304

ENPLSV ;;2812262

ENPLSV3 ;;5770343

ENPLSV4 ;;5602170

ENPLV ;;2837375

ENPLV1 ;;3979141

ENPLV2 ;;10005494

ENPLV3 ;;13597515

ENPLV4 ;;12731658

ENPLV5 ;;9123987

ENPLX ;;7945101

ENPLX1 ;;5931911

ENPLX2 ;;4653467

ENPLX3 ;;6182708

ENPROJ ;;10713877

ENXFI001 ;;3204022

ENXFI002 ;;1688433

ENXFI003 ;;9764230

ENXFI004 ;;10889989

ENXFI005 ;;14153846

ENXFI006 ;;11847645

ENXFI007 ;;13881157

ENXFI008 ;;11591503

ENXFI009 ;;9659156

ENXFI00A ;;1800676

ENXFI00B ;;5602356

ENXFI00C ;;2055390

ENXFI00D ;;5214219

ENXFI00E ;;5824882

ENXFI00F ;;5740193

ENXFI00G ;;6315745

ENXFI00H ;;3102004

ENXFI00I ;;8541955

ENXFI00J ;;10446268

ENXFI00K ;;1640367

ENXFI00L ;;6844970

ENXFI00M ;;5522279

ENXFI00N ;;4775990

ENXFI00O ;;3060970

ENXFI00P ;;1413058

ENXFI00Q ;;19669986

ENXFI00R ;;22560000

ENXFI00S ;;24103132

ENXFI00T ;;18735013

ENXFI00U ;;16253215

ENXFI00V ;;13513843

ENXFI00W ;;14356706

ENXFI00X ;;15220848

ENXFI00Y ;;15501842

ENXFI00Z ;;15504185

ENXFI010 ;;15763581

ENXFI011 ;;8145704

ENXFI012 ;;8716591

ENXFI013 ;;9058087

ENXFI014 ;;6873795

ENXFI015 ;;6668679

ENXFI016 ;;2268540

ENXFIENV ;;338456

ENXFINI1 ;;4933766

ENXFINI2 ;;5232600

ENXFINI3 ;;16807216

ENXFINI4 ;;3357772

ENXFINI5 ;;1240418

ENXFINIS ;;2212631

ENXFINIT ;;10521321

ENXFIPRE ;;6886769

ENXFIPST ;;7114250

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENXFNTEG   2278     printed  Apr 09, 2024@21:02:50                                                                                                                                                                                                    Page 2

ENXFNTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 17, 1995@14:48:05

 +1       ;;7.0;ENGINEERING;**23**;Aug 17,1993

 +2       ;;7.2;AUG 17, 1995@14:48:05

 +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       ;;

ENPL1     ;;3419953

ENPL2     ;;2422528

ENPL3     ;;5725054

ENPL4     ;;2080627

ENPL5     ;;9810373

ENPL5A    ;;5759972

ENPL5B    ;;9642514

ENPL5C    ;;2994588

ENPL5D    ;;9573416

ENPL9     ;;5189520

ENPLS     ;;7524511

ENPLS1    ;;3119737

ENPLS2    ;;4399304

ENPLSV    ;;2812262

ENPLSV3   ;;5770343

ENPLSV4   ;;5602170

ENPLV     ;;2837375

ENPLV1    ;;3979141

ENPLV2    ;;10005494

ENPLV3    ;;13597515

ENPLV4    ;;12731658

ENPLV5    ;;9123987

ENPLX     ;;7945101

ENPLX1    ;;5931911

ENPLX2    ;;4653467

ENPLX3    ;;6182708

ENPROJ    ;;10713877

ENXFI001  ;;3204022

ENXFI002  ;;1688433

ENXFI003  ;;9764230

ENXFI004  ;;10889989

ENXFI005  ;;14153846

ENXFI006  ;;11847645

ENXFI007  ;;13881157

ENXFI008  ;;11591503

ENXFI009  ;;9659156

ENXFI00A  ;;1800676

ENXFI00B  ;;5602356

ENXFI00C  ;;2055390

ENXFI00D  ;;5214219

ENXFI00E  ;;5824882

ENXFI00F  ;;5740193

ENXFI00G  ;;6315745

ENXFI00H  ;;3102004

ENXFI00I  ;;8541955

ENXFI00J  ;;10446268

ENXFI00K  ;;1640367

ENXFI00L  ;;6844970

ENXFI00M  ;;5522279

ENXFI00N  ;;4775990

ENXFI00O  ;;3060970

ENXFI00P  ;;1413058

ENXFI00Q  ;;19669986

ENXFI00R  ;;22560000

ENXFI00S  ;;24103132

ENXFI00T  ;;18735013

ENXFI00U  ;;16253215

ENXFI00V  ;;13513843

ENXFI00W  ;;14356706

ENXFI00X  ;;15220848

ENXFI00Y  ;;15501842

ENXFI00Z  ;;15504185

ENXFI010  ;;15763581

ENXFI011  ;;8145704

ENXFI012  ;;8716591

ENXFI013  ;;9058087

ENXFI014  ;;6873795

ENXFI015  ;;6668679

ENXFI016  ;;2268540

ENXFIENV  ;;338456

ENXFINI1  ;;4933766

ENXFINI2  ;;5232600

ENXFINI3  ;;16807216

ENXFINI4  ;;3357772

ENXFINI5  ;;1240418

ENXFINIS  ;;2212631

ENXFINIT  ;;10521321

ENXFIPRE  ;;6886769

ENXFIPST  ;;7114250