PSSNTEG.m

PSSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970930.145828

 ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97

 ;;7.3;2970930.145828

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

PSSADDIT ;;30685202

PSSAUTL ;;2539995

PSSCHENV ;;1140827

PSSCHPRE ;;1626421

PSSCHPST ;;3751390

PSSCLDRG ;;7333743

PSSCREAT ;;24972545

PSSD1 ;;10676

PSSDDUT ;;14994173

PSSDDUT2 ;;10950246

PSSDDUT3 ;;12058890

PSSDEE ;;43704990

PSSDEE1 ;;26240841

PSSDEE2 ;;5494501

PSSDELOI ;;3460320

PSSDENT ;;1634109

PSSENV ;;203759

PSSENVN ;;1146911

PSSFIL ;;18709905

PSSFILED ;;16572342

PSSGEN ;;462676

PSSGENM ;;434339

PSSGFILD ;;15862350

PSSGIU ;;9608320

PSSGMI ;;4459902

PSSGS0 ;;8551998

PSSGSH ;;5680648

PSSHELP ;;3001299

PSSHL1 ;;10469844

PSSHLSCH ;;1141341

PSSHLU ;;3879886

PSSITES1 ;;5263233

PSSITEST ;;5269974

PSSIVDRG ;;15593758

PSSJEEU ;;5145075

PSSJORDF ;;4873243

PSSJSPU ;;10488182

PSSJSPU0 ;;2605125

PSSJSV ;;13264221

PSSJSV0 ;;18084796

PSSJXR ;;6435098

PSSJXR1 ;;283291

PSSJXR10 ;;2104500

PSSJXR11 ;;690370

PSSJXR12 ;;927686

PSSJXR13 ;;2010380

PSSJXR14 ;;358482

PSSJXR15 ;;283700

PSSJXR16 ;;11238641

PSSJXR17 ;;9426208

PSSJXR18 ;;737442

PSSJXR19 ;;2124963

PSSJXR2 ;;1688794

PSSJXR20 ;;5762877

PSSJXR21 ;;1426401

PSSJXR22 ;;683202

PSSJXR3 ;;363618

PSSJXR4 ;;288930

PSSJXR5 ;;11117778

PSSJXR6 ;;9332083

PSSJXR7 ;;743494

PSSJXR8 ;;3365639

PSSJXR9 ;;3366364

PSSLAB ;;14173358

PSSLOOK ;;19462443

PSSMARK ;;26334152

PSSMATCH ;;21769167

PSSOICT ;;7252188

PSSOICT1 ;;8390406

PSSPOI ;;15938224

PSSPOIC ;;19806247

PSSPOIDT ;;33282191

PSSPOIKA ;;21393690

PSSPOIM ;;12995320

PSSPOIM1 ;;35563255

PSSPOIM2 ;;28347728

PSSPOIM3 ;;9862483

PSSPOIMN ;;27314811

PSSPOIMO ;;28153203

PSSPOST ;;5393689

PSSPRE ;;3908870

PSSPRETR ;;460682

PSSQOC ;;4706994

PSSREF ;;4469291

PSSSOLI1 ;;12192527

PSSSOLIT ;;14008478

PSSSPD ;;6082698

PSSSUTIL ;;7176881

PSSSYN ;;2968065

PSSVIDRG ;;16214050

PSSVX6 ;;4793258

PSSVX61 ;;1695682

PSSVX62 ;;401947

PSSVX63 ;;387628

PSSVX64 ;;1499523

PSSVX65 ;;401610

PSSVX66 ;;387249

PSSYSP ;;62952

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSNTEG   2619     printed  Apr 09, 2024@21:32:49                                                                                                                                                                                                     Page 2

PSSNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970930.145828

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;;9/30/97

 +2       ;;7.3;2970930.145828

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

PSSADDIT  ;;30685202

PSSAUTL   ;;2539995

PSSCHENV  ;;1140827

PSSCHPRE  ;;1626421

PSSCHPST  ;;3751390

PSSCLDRG  ;;7333743

PSSCREAT  ;;24972545

PSSD1     ;;10676

PSSDDUT   ;;14994173

PSSDDUT2  ;;10950246

PSSDDUT3  ;;12058890

PSSDEE    ;;43704990

PSSDEE1   ;;26240841

PSSDEE2   ;;5494501

PSSDELOI  ;;3460320

PSSDENT   ;;1634109

PSSENV    ;;203759

PSSENVN   ;;1146911

PSSFIL    ;;18709905

PSSFILED  ;;16572342

PSSGEN    ;;462676

PSSGENM   ;;434339

PSSGFILD  ;;15862350

PSSGIU    ;;9608320

PSSGMI    ;;4459902

PSSGS0    ;;8551998

PSSGSH    ;;5680648

PSSHELP   ;;3001299

PSSHL1    ;;10469844

PSSHLSCH  ;;1141341

PSSHLU    ;;3879886

PSSITES1  ;;5263233

PSSITEST  ;;5269974

PSSIVDRG  ;;15593758

PSSJEEU   ;;5145075

PSSJORDF  ;;4873243

PSSJSPU   ;;10488182

PSSJSPU0  ;;2605125

PSSJSV    ;;13264221

PSSJSV0   ;;18084796

PSSJXR    ;;6435098

PSSJXR1   ;;283291

PSSJXR10  ;;2104500

PSSJXR11  ;;690370

PSSJXR12  ;;927686

PSSJXR13  ;;2010380

PSSJXR14  ;;358482

PSSJXR15  ;;283700

PSSJXR16  ;;11238641

PSSJXR17  ;;9426208

PSSJXR18  ;;737442

PSSJXR19  ;;2124963

PSSJXR2   ;;1688794

PSSJXR20  ;;5762877

PSSJXR21  ;;1426401

PSSJXR22  ;;683202

PSSJXR3   ;;363618

PSSJXR4   ;;288930

PSSJXR5   ;;11117778

PSSJXR6   ;;9332083

PSSJXR7   ;;743494

PSSJXR8   ;;3365639

PSSJXR9   ;;3366364

PSSLAB    ;;14173358

PSSLOOK   ;;19462443

PSSMARK   ;;26334152

PSSMATCH  ;;21769167

PSSOICT   ;;7252188

PSSOICT1  ;;8390406

PSSPOI    ;;15938224

PSSPOIC   ;;19806247

PSSPOIDT  ;;33282191

PSSPOIKA  ;;21393690

PSSPOIM   ;;12995320

PSSPOIM1  ;;35563255

PSSPOIM2  ;;28347728

PSSPOIM3  ;;9862483

PSSPOIMN  ;;27314811

PSSPOIMO  ;;28153203

PSSPOST   ;;5393689

PSSPRE    ;;3908870

PSSPRETR  ;;460682

PSSQOC    ;;4706994

PSSREF    ;;4469291

PSSSOLI1  ;;12192527

PSSSOLIT  ;;14008478

PSSSPD    ;;6082698

PSSSUTIL  ;;7176881

PSSSYN    ;;2968065

PSSVIDRG  ;;16214050

PSSVX6    ;;4793258

PSSVX61   ;;1695682

PSSVX62   ;;401947

PSSVX63   ;;387628

PSSVX64   ;;1499523

PSSVX65   ;;401610

PSSVX66   ;;387249

PSSYSP    ;;62952