PSXNTEG.m

PSXNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAY 15, 1995@13:05

 ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;;10 MAY 95

 ;;7.1;MAY 15, 1995@13: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")

 G CONT^PSXNTEG0

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

PSXACK ;;6677108

PSXACT ;;13965467

PSXAUTO ;;14970271

PSXBKD ;;16121605

PSXBLD ;;13038258

PSXBLD1 ;;9820561

PSXCH ;;2668396

PSXCMOP ;;17147896

PSXCMOP0 ;;10832855

PSXCMOP1 ;;16141223

PSXCOPAY ;;3685279

PSXCOSTU ;;10220940

PSXCSCMN ;;16716833

PSXCSDA ;;16101687

PSXCSDC ;;7960597

PSXCSDC1 ;;10096395

PSXCSDC2 ;;6786767

PSXCSHI ;;10869346

PSXCSHI1 ;;5211550

PSXCSLG1 ;;1369587

PSXCSLOG ;;12284233

PSXCSMN1 ;;9769855

PSXCSMON ;;10584473

PSXCSSUM ;;11402742

PSXCST ;;12032859

PSXCST1 ;;4231822

PSXCSTPG ;;10700293

PSXCSUTL ;;13045059

PSXDENT ;;1621104

PSXDQUE ;;6894902

PSXEDIT ;;7061623

PSXEDRG ;;7739227

PSXEDUTL ;;5468671

PSXERR ;;14094746

PSXERR1 ;;2797303

PSXIN001 ;;5283252

PSXIN002 ;;7817731

PSXIN003 ;;7693387

PSXIN004 ;;11704708

PSXIN005 ;;5843038

PSXIN006 ;;5687091

PSXIN007 ;;3722631

PSXIN008 ;;2945101

PSXIN009 ;;1781667

PSXIN00A ;;6696587

PSXIN00B ;;6113399

PSXIN00C ;;5418791

PSXIN00D ;;7152812

PSXIN00E ;;4868805

PSXIN00F ;;4894647

PSXIN00G ;;4281646

PSXIN00H ;;1735750

PSXIN00I ;;7711474

PSXIN00J ;;5390259

PSXIN00K ;;7348489

PSXIN00L ;;3509404

PSXIN00M ;;6012235

PSXIN00N ;;4301333

PSXIN00O ;;6757219

PSXIN00P ;;6676080

PSXIN00Q ;;9612970

PSXIN00R ;;6436073

PSXIN00S ;;5566882

PSXIN00T ;;7802269

PSXIN00U ;;6824051

PSXIN00V ;;6828764

PSXIN00W ;;6040285

PSXIN00X ;;4499248

PSXIN00Y ;;6283720

PSXIN00Z ;;5610344

PSXIN010 ;;836391

PSXIN011 ;;6459505

PSXIN012 ;;5601696

PSXIN013 ;;6181097

PSXIN014 ;;8373265

PSXIN015 ;;6362844

PSXIN016 ;;7226168

PSXIN017 ;;5151647

PSXIN018 ;;5739519

PSXIN019 ;;6778689

PSXIN01A ;;6851131

PSXIN01B ;;1050570

PSXIN01C ;;6335010

PSXIN01D ;;2118648

PSXIN01E ;;5834304

PSXIN01F ;;5330933

PSXIN01G ;;4658198

PSXIN01H ;;1774518

PSXIN01I ;;6990204

PSXIN01J ;;6671913

PSXIN01K ;;6417163

PSXIN01L ;;6534420

PSXIN01M ;;6006061

PSXIN01N ;;7196563

PSXIN01O ;;5768679

PSXIN01P ;;8580654

PSXIN01Q ;;7806637

PSXIN01R ;;7253012

PSXIN01S ;;7159015

PSXIN01T ;;4449256

PSXIN01U ;;4478072

PSXIN01V ;;2115884

PSXINIS ;;2176409

PSXINIT ;;11141200

PSXINIT1 ;;5686615

PSXINIT2 ;;5232705

PSXINIT3 ;;16095509

PSXINIT4 ;;3357877

PSXINIT5 ;;2001568

PSXJOB ;;1300511

PSXLBL ;;7880340

PSXLBL1 ;;8827335

PSXLBL2 ;;5620049

PSXLBLNR ;;4776682

PSXLBLPT ;;1839508

PSXLBLT ;;4774489

PSXLBLU ;;11342551

PSXLIST ;;12299585

PSXLKUP ;;6788882

PSXLTST ;;1837789

PSXMARK ;;25882264

PSXMISC ;;9291728

PSXMISC1 ;;9171869

PSXMSGS ;;9257926

PSXMST ;;6597401

PSXNEW ;;6161244

PSXNOCMP ;;8547875

PSXNOTE ;;14813623

PSXOCMOP ;;8857484

PSXOPUTL ;;5956540

PSXPLOG ;;1783519

PSXPOST ;;5688069

PSXPRE ;;9113030

PSXPURG ;;11296634

PSXQRY ;;13722282

PSXRECV ;;15971626

PSXRECV1 ;;13571764

PSXREF ;;4469306

PSXREJ ;;10799840

PSXREL ;;3818026

PSXRHLP ;;10383316

PSXRPPL ;;13716809

PSXRPPL1 ;;11942476

PSXRPT ;;9985051

PSXRSTAT ;;8884193

PSXRSUS ;;13734928

PSXRSYU ;;13839089

PSXRTN ;;18399803

PSXRTN1 ;;12220675

PSXRTR ;;6070039

PSXRTRAN ;;18034286

PSXRXQU ;;7810285

PSXRXU ;;6469166

PSXSERV ;;6298176

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSXNTEG   3803     printed  Apr 09, 2024@20:49:51                                                                                                                                                                                                     Page 2

PSXNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAY 15, 1995@13:05

 +1       ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;;10 MAY 95

 +2       ;;7.1;MAY 15, 1995@13: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        GOTO CONT^PSXNTEG0

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

PSXACK    ;;6677108

PSXACT    ;;13965467

PSXAUTO   ;;14970271

PSXBKD    ;;16121605

PSXBLD    ;;13038258

PSXBLD1   ;;9820561

PSXCH     ;;2668396

PSXCMOP   ;;17147896

PSXCMOP0  ;;10832855

PSXCMOP1  ;;16141223

PSXCOPAY  ;;3685279

PSXCOSTU  ;;10220940

PSXCSCMN  ;;16716833

PSXCSDA   ;;16101687

PSXCSDC   ;;7960597

PSXCSDC1  ;;10096395

PSXCSDC2  ;;6786767

PSXCSHI   ;;10869346

PSXCSHI1  ;;5211550

PSXCSLG1  ;;1369587

PSXCSLOG  ;;12284233

PSXCSMN1  ;;9769855

PSXCSMON  ;;10584473

PSXCSSUM  ;;11402742

PSXCST    ;;12032859

PSXCST1   ;;4231822

PSXCSTPG  ;;10700293

PSXCSUTL  ;;13045059

PSXDENT   ;;1621104

PSXDQUE   ;;6894902

PSXEDIT   ;;7061623

PSXEDRG   ;;7739227

PSXEDUTL  ;;5468671

PSXERR    ;;14094746

PSXERR1   ;;2797303

PSXIN001  ;;5283252

PSXIN002  ;;7817731

PSXIN003  ;;7693387

PSXIN004  ;;11704708

PSXIN005  ;;5843038

PSXIN006  ;;5687091

PSXIN007  ;;3722631

PSXIN008  ;;2945101

PSXIN009  ;;1781667

PSXIN00A  ;;6696587

PSXIN00B  ;;6113399

PSXIN00C  ;;5418791

PSXIN00D  ;;7152812

PSXIN00E  ;;4868805

PSXIN00F  ;;4894647

PSXIN00G  ;;4281646

PSXIN00H  ;;1735750

PSXIN00I  ;;7711474

PSXIN00J  ;;5390259

PSXIN00K  ;;7348489

PSXIN00L  ;;3509404

PSXIN00M  ;;6012235

PSXIN00N  ;;4301333

PSXIN00O  ;;6757219

PSXIN00P  ;;6676080

PSXIN00Q  ;;9612970

PSXIN00R  ;;6436073

PSXIN00S  ;;5566882

PSXIN00T  ;;7802269

PSXIN00U  ;;6824051

PSXIN00V  ;;6828764

PSXIN00W  ;;6040285

PSXIN00X  ;;4499248

PSXIN00Y  ;;6283720

PSXIN00Z  ;;5610344

PSXIN010  ;;836391

PSXIN011  ;;6459505

PSXIN012  ;;5601696

PSXIN013  ;;6181097

PSXIN014  ;;8373265

PSXIN015  ;;6362844

PSXIN016  ;;7226168

PSXIN017  ;;5151647

PSXIN018  ;;5739519

PSXIN019  ;;6778689

PSXIN01A  ;;6851131

PSXIN01B  ;;1050570

PSXIN01C  ;;6335010

PSXIN01D  ;;2118648

PSXIN01E  ;;5834304

PSXIN01F  ;;5330933

PSXIN01G  ;;4658198

PSXIN01H  ;;1774518

PSXIN01I  ;;6990204

PSXIN01J  ;;6671913

PSXIN01K  ;;6417163

PSXIN01L  ;;6534420

PSXIN01M  ;;6006061

PSXIN01N  ;;7196563

PSXIN01O  ;;5768679

PSXIN01P  ;;8580654

PSXIN01Q  ;;7806637

PSXIN01R  ;;7253012

PSXIN01S  ;;7159015

PSXIN01T  ;;4449256

PSXIN01U  ;;4478072

PSXIN01V  ;;2115884

PSXINIS   ;;2176409

PSXINIT   ;;11141200

PSXINIT1  ;;5686615

PSXINIT2  ;;5232705

PSXINIT3  ;;16095509

PSXINIT4  ;;3357877

PSXINIT5  ;;2001568

PSXJOB    ;;1300511

PSXLBL    ;;7880340

PSXLBL1   ;;8827335

PSXLBL2   ;;5620049

PSXLBLNR  ;;4776682

PSXLBLPT  ;;1839508

PSXLBLT   ;;4774489

PSXLBLU   ;;11342551

PSXLIST   ;;12299585

PSXLKUP   ;;6788882

PSXLTST   ;;1837789

PSXMARK   ;;25882264

PSXMISC   ;;9291728

PSXMISC1  ;;9171869

PSXMSGS   ;;9257926

PSXMST    ;;6597401

PSXNEW    ;;6161244

PSXNOCMP  ;;8547875

PSXNOTE   ;;14813623

PSXOCMOP  ;;8857484

PSXOPUTL  ;;5956540

PSXPLOG   ;;1783519

PSXPOST   ;;5688069

PSXPRE    ;;9113030

PSXPURG   ;;11296634

PSXQRY    ;;13722282

PSXRECV   ;;15971626

PSXRECV1  ;;13571764

PSXREF    ;;4469306

PSXREJ    ;;10799840

PSXREL    ;;3818026

PSXRHLP   ;;10383316

PSXRPPL   ;;13716809

PSXRPPL1  ;;11942476

PSXRPT    ;;9985051

PSXRSTAT  ;;8884193

PSXRSUS   ;;13734928

PSXRSYU   ;;13839089

PSXRTN    ;;18399803

PSXRTN1   ;;12220675

PSXRTR    ;;6070039

PSXRTRAN  ;;18034286

PSXRXQU   ;;7810285

PSXRXU    ;;6469166

PSXSERV   ;;6298176