NLTNTEG.m

NLTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 06, 1995@10:04:37

 ;;5.254;NATIONAL LABORATORY TESTS;;SEP 21, 1995

 ;;7.1;SEP 21, 1995@20:43:41

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

NLTIN001 ;;7199567

NLTIN002 ;;6802735

NLTIN003 ;;6950315

NLTIN004 ;;6327361

NLTIN005 ;;7930344

NLTIN006 ;;2727958

NLTIN007 ;;5295184

NLTIN008 ;;5395137

NLTIN009 ;;5700942

NLTIN00A ;;4880479

NLTIN00B ;;5130498

NLTIN00C ;;4802826

NLTIN00D ;;4732279

NLTIN00E ;;4636288

NLTIN00F ;;4666860

NLTIN00G ;;4795753

NLTIN00H ;;5089813

NLTIN00I ;;5298959

NLTIN00J ;;2442058

NLTIN00K ;;7250934

NLTIN00L ;;6595364

NLTIN00M ;;5070112

NLTIN00N ;;5016758

NLTIN00O ;;5140468

NLTIN00P ;;4865357

NLTIN00Q ;;5060353

NLTIN00R ;;5419480

NLTIN00S ;;5086217

NLTIN00T ;;5484253

NLTIN00U ;;4597266

NLTIN00V ;;4995572

NLTIN00W ;;5252609

NLTIN00X ;;5077820

NLTIN00Y ;;5425288

NLTIN00Z ;;5418057

NLTIN010 ;;5645811

NLTIN011 ;;5624653

NLTIN012 ;;5038323

NLTIN013 ;;4110639

NLTIN014 ;;4581948

NLTIN015 ;;5085797

NLTIN016 ;;4795464

NLTIN017 ;;5724636

NLTIN018 ;;5604990

NLTIN019 ;;5328600

NLTIN01A ;;5189908

NLTIN01B ;;4836654

NLTIN01C ;;4808386

NLTIN01D ;;5135851

NLTIN01E ;;5088295

NLTIN01F ;;5556649

NLTIN01G ;;5321983

NLTIN01H ;;4712751

NLTIN01I ;;4355981

NLTIN01J ;;4204086

NLTIN01K ;;4203827

NLTIN01L ;;4372039

NLTIN01M ;;5054404

NLTIN01N ;;4912417

NLTIN01O ;;5378899

NLTIN01P ;;5118668

NLTIN01Q ;;4833166

NLTIN01R ;;4490087

NLTIN01S ;;4252231

NLTIN01T ;;4388264

NLTIN01U ;;4205403

NLTIN01V ;;2882309

NLTIN01W ;;5213695

NLTIN01X ;;1564470

NLTIN01Y ;;3787496

NLTIN01Z ;;2729984

NLTIN020 ;;2980010

NLTIN021 ;;3391421

NLTIN022 ;;3437419

NLTIN023 ;;3468910

NLTIN024 ;;1431872

NLTIN025 ;;5761009

NLTIN026 ;;1752486

NLTINIS ;;2173278

NLTINIT ;;10615768

NLTINIT1 ;;4888898

NLTINIT2 ;;5232677

NLTINIT3 ;;16808288

NLTINIT4 ;;3357849

NLTINIT5 ;;1083023

NLTIPCK ;;2620689

NLTIPOST ;;2219364

NLTIPRE ;;1588563

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NLTNTEG   2505     printed  Apr 09, 2024@21:20:19                                                                                                                                                                                                     Page 2

NLTNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 06, 1995@10:04:37

 +1       ;;5.254;NATIONAL LABORATORY TESTS;;SEP 21, 1995

 +2       ;;7.1;SEP 21, 1995@20:43:41

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

NLTIN001  ;;7199567

NLTIN002  ;;6802735

NLTIN003  ;;6950315

NLTIN004  ;;6327361

NLTIN005  ;;7930344

NLTIN006  ;;2727958

NLTIN007  ;;5295184

NLTIN008  ;;5395137

NLTIN009  ;;5700942

NLTIN00A  ;;4880479

NLTIN00B  ;;5130498

NLTIN00C  ;;4802826

NLTIN00D  ;;4732279

NLTIN00E  ;;4636288

NLTIN00F  ;;4666860

NLTIN00G  ;;4795753

NLTIN00H  ;;5089813

NLTIN00I  ;;5298959

NLTIN00J  ;;2442058

NLTIN00K  ;;7250934

NLTIN00L  ;;6595364

NLTIN00M  ;;5070112

NLTIN00N  ;;5016758

NLTIN00O  ;;5140468

NLTIN00P  ;;4865357

NLTIN00Q  ;;5060353

NLTIN00R  ;;5419480

NLTIN00S  ;;5086217

NLTIN00T  ;;5484253

NLTIN00U  ;;4597266

NLTIN00V  ;;4995572

NLTIN00W  ;;5252609

NLTIN00X  ;;5077820

NLTIN00Y  ;;5425288

NLTIN00Z  ;;5418057

NLTIN010  ;;5645811

NLTIN011  ;;5624653

NLTIN012  ;;5038323

NLTIN013  ;;4110639

NLTIN014  ;;4581948

NLTIN015  ;;5085797

NLTIN016  ;;4795464

NLTIN017  ;;5724636

NLTIN018  ;;5604990

NLTIN019  ;;5328600

NLTIN01A  ;;5189908

NLTIN01B  ;;4836654

NLTIN01C  ;;4808386

NLTIN01D  ;;5135851

NLTIN01E  ;;5088295

NLTIN01F  ;;5556649

NLTIN01G  ;;5321983

NLTIN01H  ;;4712751

NLTIN01I  ;;4355981

NLTIN01J  ;;4204086

NLTIN01K  ;;4203827

NLTIN01L  ;;4372039

NLTIN01M  ;;5054404

NLTIN01N  ;;4912417

NLTIN01O  ;;5378899

NLTIN01P  ;;5118668

NLTIN01Q  ;;4833166

NLTIN01R  ;;4490087

NLTIN01S  ;;4252231

NLTIN01T  ;;4388264

NLTIN01U  ;;4205403

NLTIN01V  ;;2882309

NLTIN01W  ;;5213695

NLTIN01X  ;;1564470

NLTIN01Y  ;;3787496

NLTIN01Z  ;;2729984

NLTIN020  ;;2980010

NLTIN021  ;;3391421

NLTIN022  ;;3437419

NLTIN023  ;;3468910

NLTIN024  ;;1431872

NLTIN025  ;;5761009

NLTIN026  ;;1752486

NLTINIS   ;;2173278

NLTINIT   ;;10615768

NLTINIT1  ;;4888898

NLTINIT2  ;;5232677

NLTINIT3  ;;16808288

NLTINIT4  ;;3357849

NLTINIT5  ;;1083023

NLTIPCK   ;;2620689

NLTIPOST  ;;2219364

NLTIPRE   ;;1588563