PSDNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970224.092204
;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
;;7.3;2970224.092204
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 ;;
PSDORD1 ;;5503924
PSDORD2 ;;9845578
PSDORD3 ;;10533519
PSDORD4 ;;6799467
PSDORL ;;8634977
PSDORM ;;776198
PSDORN ;;17240585
PSDORN0 ;;3335766
PSDORN1 ;;10110015
PSDORN2 ;;9413654
PSDORN3 ;;2529519
PSDORNC ;;11880898
PSDORNO ;;8417500
PSDORNP ;;2507189
PSDORNV ;;22085947
PSDORP ;;13916576
PSDORP1 ;;10804969
PSDORP2 ;;10839369
PSDORSN ;;12743249
PSDORST ;;11974190
PSDORSU ;;1465679
PSDORV ;;12050829
PSDORV1 ;;9568706
PSDPAT ;;9885020
PSDPAT1 ;;15574098
PSDPAT2 ;;1802637
PSDPATI ;;2646287
PSDPDR ;;12844263
PSDPDR1 ;;9409104
PSDPDR2 ;;11849071
PSDPDU ;;6045018
PSDPDU1 ;;8201887
PSDPGS ;;14596742
PSDPGS1 ;;13694811
PSDPLOG ;;11534343
PSDPLOG1 ;;12446872
PSDPLOG2 ;;12389311
PSDPLOG3 ;;13851776
PSDPMFG ;;13422702
PSDPMFG1 ;;5591190
PSDPND ;;13294730
PSDPND1 ;;6924928
PSDPRG ;;1970060
PSDPRT ;;2408019
PSDPSI ;;14873503
PSDPSTK ;;8990935
PSDPSTK1 ;;8092144
PSDPUGS ;;16231791
PSDPWK ;;15287898
PSDPWK1 ;;7742039
PSDPWK2 ;;7700215
PSDPWK3 ;;2545818
PSDRDR ;;15646391
PSDRDR1 ;;8437976
PSDRDR2 ;;8426549
PSDREC ;;14123478
PSDREC1 ;;12864977
PSDREC2 ;;15231570
PSDREC3 ;;15332761
PSDREC4 ;;18621378
PSDREPD ;;13641941
PSDREPV ;;7760550
PSDREV ;;7566494
PSDREVC ;;11004109
PSDREVD ;;11761089
PSDRF ;;10486656
PSDRF1 ;;4186133
PSDRF2 ;;1861988
PSDRF4 ;;9624765
PSDRF5 ;;3739493
PSDRFD ;;5100369
PSDRFL ;;4102731
PSDRFM ;;3789859
PSDRFR ;;11253895
PSDRFS ;;10472321
PSDRFT ;;5774305
PSDRFU ;;4537478
PSDRFV ;;2769747
PSDRFW ;;11631143
PSDRFX ;;4489710
PSDRFZ ;;2541571
PSDRLOG ;;11699910
PSDRLOG1 ;;11924210
PSDRLOG2 ;;11940626
PSDRLOG3 ;;14064513
PSDRPGS ;;9527571
PSDRPGS1 ;;6879636
PSDRPGS2 ;;10242187
PSDRPGS3 ;;783899
PSDRPT ;;14469073
PSDRSI ;;8838714
PSDRWK ;;13538312
PSDSET ;;5861527
PSDSITE ;;5487380
PSDSP ;;1202028
PSDSTK ;;13320484
PSDTER ;;15930469
PSDTER1 ;;2193405
PSDTER2 ;;12051923
PSDTRA ;;14206901
PSDTRA1 ;;5410830
PSDTRAK ;;6276923
PSDTRN ;;15129881
PSDTRN1 ;;4640239
PSDTRV ;;11437123
PSDTRV1 ;;8648163
PSDTRVR ;;10130105
PSDTRVR1 ;;8134031
PSDUP2 ;;7299120
PSDUP3 ;;5837741
PSDUSER ;;5959242
PSDUTL ;;7108281
PSDUTL1 ;;7232289
PSDUTL2 ;;2220870
PSDUTL3 ;;5520873
PSDUTL4 ;;1808777
PSDUTL5 ;;3705845
PSDWADD ;;17564518
PSDWCHG ;;18928513
PSDWL ;;2402560
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSDNTEG0 3021 printed Nov 22, 2024@16:57:15 Page 2
PSDNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970224.092204
+1 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
+2 ;;7.3;2970224.092204
+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 ;;
PSDORD1 ;;5503924
PSDORD2 ;;9845578
PSDORD3 ;;10533519
PSDORD4 ;;6799467
PSDORL ;;8634977
PSDORM ;;776198
PSDORN ;;17240585
PSDORN0 ;;3335766
PSDORN1 ;;10110015
PSDORN2 ;;9413654
PSDORN3 ;;2529519
PSDORNC ;;11880898
PSDORNO ;;8417500
PSDORNP ;;2507189
PSDORNV ;;22085947
PSDORP ;;13916576
PSDORP1 ;;10804969
PSDORP2 ;;10839369
PSDORSN ;;12743249
PSDORST ;;11974190
PSDORSU ;;1465679
PSDORV ;;12050829
PSDORV1 ;;9568706
PSDPAT ;;9885020
PSDPAT1 ;;15574098
PSDPAT2 ;;1802637
PSDPATI ;;2646287
PSDPDR ;;12844263
PSDPDR1 ;;9409104
PSDPDR2 ;;11849071
PSDPDU ;;6045018
PSDPDU1 ;;8201887
PSDPGS ;;14596742
PSDPGS1 ;;13694811
PSDPLOG ;;11534343
PSDPLOG1 ;;12446872
PSDPLOG2 ;;12389311
PSDPLOG3 ;;13851776
PSDPMFG ;;13422702
PSDPMFG1 ;;5591190
PSDPND ;;13294730
PSDPND1 ;;6924928
PSDPRG ;;1970060
PSDPRT ;;2408019
PSDPSI ;;14873503
PSDPSTK ;;8990935
PSDPSTK1 ;;8092144
PSDPUGS ;;16231791
PSDPWK ;;15287898
PSDPWK1 ;;7742039
PSDPWK2 ;;7700215
PSDPWK3 ;;2545818
PSDRDR ;;15646391
PSDRDR1 ;;8437976
PSDRDR2 ;;8426549
PSDREC ;;14123478
PSDREC1 ;;12864977
PSDREC2 ;;15231570
PSDREC3 ;;15332761
PSDREC4 ;;18621378
PSDREPD ;;13641941
PSDREPV ;;7760550
PSDREV ;;7566494
PSDREVC ;;11004109
PSDREVD ;;11761089
PSDRF ;;10486656
PSDRF1 ;;4186133
PSDRF2 ;;1861988
PSDRF4 ;;9624765
PSDRF5 ;;3739493
PSDRFD ;;5100369
PSDRFL ;;4102731
PSDRFM ;;3789859
PSDRFR ;;11253895
PSDRFS ;;10472321
PSDRFT ;;5774305
PSDRFU ;;4537478
PSDRFV ;;2769747
PSDRFW ;;11631143
PSDRFX ;;4489710
PSDRFZ ;;2541571
PSDRLOG ;;11699910
PSDRLOG1 ;;11924210
PSDRLOG2 ;;11940626
PSDRLOG3 ;;14064513
PSDRPGS ;;9527571
PSDRPGS1 ;;6879636
PSDRPGS2 ;;10242187
PSDRPGS3 ;;783899
PSDRPT ;;14469073
PSDRSI ;;8838714
PSDRWK ;;13538312
PSDSET ;;5861527
PSDSITE ;;5487380
PSDSP ;;1202028
PSDSTK ;;13320484
PSDTER ;;15930469
PSDTER1 ;;2193405
PSDTER2 ;;12051923
PSDTRA ;;14206901
PSDTRA1 ;;5410830
PSDTRAK ;;6276923
PSDTRN ;;15129881
PSDTRN1 ;;4640239
PSDTRV ;;11437123
PSDTRV1 ;;8648163
PSDTRVR ;;10130105
PSDTRVR1 ;;8134031
PSDUP2 ;;7299120
PSDUP3 ;;5837741
PSDUSER ;;5959242
PSDUTL ;;7108281
PSDUTL1 ;;7232289
PSDUTL2 ;;2220870
PSDUTL3 ;;5520873
PSDUTL4 ;;1808777
PSDUTL5 ;;3705845
PSDWADD ;;17564518
PSDWCHG ;;18928513
PSDWL ;;2402560
