AGNTEG.m

AGNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070416.124346

 ;;0.0;

 ;;7.3;3070416.124346

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

AG ;;6930894

AG0 ;;7913017

AG2 ;;6602362

AG2A ;;3885745

AG3 ;;1986422

AG3RDP ;;9070165

AG4 ;;8584125

AG5 ;;9788303

AG6 ;;8783915

AG7 ;;1956385

AG71A3 ;;15627869

AG71EN3 ;;7930349

AG8B ;;2962588

AGACT ;;8150918

AGAPIPAT ;;5130908

AGAPIS ;;11313194

AGAPIS1 ;;16064924

AGBENPRD ;;7918353

AGCAT ;;9904055

AGCNVROI ;;333307

AGDATA ;;12157483

AGED ;;4684968

AGED1 ;;13900332

AGED11A ;;14505814

AGED2 ;;22072782

AGED4 ;;21540685

AGED41 ;;1707772

AGED42 ;;15559345

AGED4A ;;24777019

AGED4A01 ;;3137423

AGED4A1 ;;37654890

AGED4A2 ;;2848048

AGED4A3 ;;1219270

AGED4PD ;;17574091

AGED6 ;;19099086

AGED61 ;;2027081

AGED62 ;;16395664

AGED6PD ;;17610958

AGED8 ;;5962081

AGEDBEA ;;19731442

AGEDBEB ;;19121589

AGEDBEC ;;19435320

AGEDBEF ;;11633822

AGEDBEG ;;11756310

AGEDBEH ;;10159178

AGEDCHEK ;;5752806

AGEDERR ;;14722259

AGEDERR1 ;;13833233

AGEDERR2 ;;3131070

AGEDGUA1 ;;1832193

AGEDGUAR ;;18152000

AGEDIT ;;6426367

AGEDMCD ;;19692451

AGEDMCD1 ;;4786177

AGEDPRV ;;29115665

AGEDPRV1 ;;4117995

AGEDPRVB ;;13986970

AGEDPRVI ;;9149628

AGEDPRVP ;;14789819

AGEDPRVU ;;2614584

AGEDTPL ;;8547343

AGEDWC ;;10030049

AGEL ;;9556051

AGEL0 ;;9115338

AGEL0A ;;5936490

AGEL1 ;;8919319

AGEL3 ;;3021352

AGELUP1 ;;16363597

AGELUP2 ;;10375453

AGELUP3 ;;7013843

AGELUPNM ;;5364636

AGERRAUD ;;27553862

AGEVC ;;13600576

AGFACE ;;15978760

AGFACE4 ;;2139069

AGFACE6 ;;2406369

AGFACE7 ;;4811680

AGFLDREQ ;;3531882

AGINS ;;22038924

AGINS1 ;;8035384

AGMANERS ;;3984271

AGMCRP4 ;;9477032

AGOV64 ;;17224576

AGPHADDR ;;20875714

AGRPTPDP ;;12378978

AGRPTPRV ;;14627732

AGRPTVET ;;10162427

AGSS1 ;;7384029

AGTMCOV ;;2299147

AGTXALL ;;21247374

AGTXERP ;;11775646

AGTXPER ;;1956633

AGUND18 ;;8585512

AGUTILS ;;12714598

AGVAR ;;1853836

AGNTEG    ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070416.124346

 +1       ;;0.0;

 +2       ;;7.3;3070416.124346

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

AG        ;;6930894

AG0       ;;7913017

AG2       ;;6602362

AG2A      ;;3885745

AG3       ;;1986422

AG3RDP    ;;9070165

AG4       ;;8584125

AG5       ;;9788303

AG6       ;;8783915

AG7       ;;1956385

AG71A3    ;;15627869

AG71EN3   ;;7930349

AG8B      ;;2962588

AGACT     ;;8150918

AGAPIPAT  ;;5130908

AGAPIS    ;;11313194

AGAPIS1   ;;16064924

AGBENPRD  ;;7918353

AGCAT     ;;9904055

AGCNVROI  ;;333307

AGDATA    ;;12157483

AGED      ;;4684968

AGED1     ;;13900332

AGED11A   ;;14505814

AGED2     ;;22072782

AGED4     ;;21540685

AGED41    ;;1707772

AGED42    ;;15559345

AGED4A    ;;24777019

AGED4A01  ;;3137423

AGED4A1   ;;37654890

AGED4A2   ;;2848048

AGED4A3   ;;1219270

AGED4PD   ;;17574091

AGED6     ;;19099086

AGED61    ;;2027081

AGED62    ;;16395664

AGED6PD   ;;17610958

AGED8     ;;5962081

AGEDBEA   ;;19731442

AGEDBEB   ;;19121589

AGEDBEC   ;;19435320

AGEDBEF   ;;11633822

AGEDBEG   ;;11756310

AGEDBEH   ;;10159178

AGEDCHEK  ;;5752806

AGEDERR   ;;14722259

AGEDERR1  ;;13833233

AGEDERR2  ;;3131070

AGEDGUA1  ;;1832193

AGEDGUAR  ;;18152000

AGEDIT    ;;6426367

AGEDMCD   ;;19692451

AGEDMCD1  ;;4786177

AGEDPRV   ;;29115665

AGEDPRV1  ;;4117995

AGEDPRVB  ;;13986970

AGEDPRVI  ;;9149628

AGEDPRVP  ;;14789819

AGEDPRVU  ;;2614584

AGEDTPL   ;;8547343

AGEDWC    ;;10030049

AGEL      ;;9556051

AGEL0     ;;9115338

AGEL0A    ;;5936490

AGEL1     ;;8919319

AGEL3     ;;3021352

AGELUP1   ;;16363597

AGELUP2   ;;10375453

AGELUP3   ;;7013843

AGELUPNM  ;;5364636

AGERRAUD  ;;27553862

AGEVC     ;;13600576

AGFACE    ;;15978760

AGFACE4   ;;2139069

AGFACE6   ;;2406369

AGFACE7   ;;4811680

AGFLDREQ  ;;3531882

AGINS     ;;22038924

AGINS1    ;;8035384

AGMANERS  ;;3984271

AGMCRP4   ;;9477032

AGOV64    ;;17224576

AGPHADDR  ;;20875714

AGRPTPDP  ;;12378978

AGRPTPRV  ;;14627732

AGRPTVET  ;;10162427

AGSS1     ;;7384029

AGTMCOV   ;;2299147

AGTXALL   ;;21247374

AGTXERP   ;;11775646

AGTXPER   ;;1956633

AGUND18   ;;8585512

AGUTILS   ;;12714598

AGVAR     ;;1853836