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 ---[H[J[2J[HPSSNTEG 2619 printed Dec 13, 2024@02:33:19 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
