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 ---[H[J[2J[HPSXNTEG 3803 printed Sep 23, 2025@19:20:35 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
