PXNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960814.111525
;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
;;7.3;2960814.111525
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 ;;
PXEDIM ;;2693872
PXEDIP ;;1319914
PXIPENV ;;4829265
PXIPOST ;;10609601
PXIPOST1 ;;5403177
PXIPREI ;;98554
PXKCO ;;9069835
PXKCO1 ;;5412432
PXKCOC ;;4494784
PXKCOC1 ;;5092027
PXKCODX ;;4448898
PXKCODX1 ;;2851561
PXKCOP ;;5617646
PXKCOV ;;6243549
PXKCOV1 ;;839177
PXKENC ;;2241921
PXKFCPT ;;476276
PXKFCPT1 ;;5059140
PXKFHF ;;331373
PXKFIMM ;;344831
PXKFIMM1 ;;1448124
PXKFPED ;;313254
PXKFPOV ;;585703
PXKFPRV ;;341731
PXKFSK ;;334599
PXKFSK1 ;;1397729
PXKFTRT ;;453618
PXKFVST ;;1800075
PXKFXAM ;;322199
PXKMAIN ;;9022682
PXKMAIN1 ;;7844038
PXKMAIN2 ;;3960335
PXKMASC ;;4745615
PXKMASC1 ;;425778
PXKVST ;;7444037
PXPT ;;4195785
PXPTPOST ;;310535
PXRHS01 ;;3657081
PXRHS02 ;;3882829
PXRHS03 ;;3581019
PXRHS04 ;;2343645
PXRHS05 ;;2600637
PXRHS06 ;;3145202
PXRHS07 ;;3381334
PXRHS08 ;;3092038
PXRHS12 ;;3243447
PXRHS13 ;;284836
PXRHS14 ;;2063087
PXRM ;;1708203
PXRMAFOP ;;1628213
PXRMAGE ;;3463261
PXRMCF ;;1080464
PXRMCFOP ;;2116530
PXRMCODE ;;4751961
PXRMDATE ;;8190170
PXRMDEV ;;912350
PXRMDGOP ;;1722486
PXRMDGPT ;;5029719
PXRMDISC ;;349895
PXRMEDIT ;;189592
PXRMEDU ;;1978722
PXRMEXAM ;;1528931
PXRMFOUT ;;7789264
PXRMHF ;;880737
PXRMHFOP ;;2603921
PXRMICD9 ;;40926
PXRMIMM ;;1908149
PXRMLAB ;;1469254
PXRMLOG ;;5648113
PXRMMEAS ;;4562918
PXRMOBES ;;660543
PXRMPINF ;;128503
PXRMPROB ;;586296
PXRMPROC ;;13175
PXRMPROP ;;816990
PXRMPT ;;1973992
PXRMRAD ;;1310165
PXRMRAOP ;;932105
PXRMREDT ;;607428
PXRMRINQ ;;248770
PXRMSKIN ;;1472020
PXRMSTDC ;;160943
PXRMTAXP ;;4911949
PXRMTEDT ;;493821
PXRMTF ;;182258
PXRMTFOP ;;1412749
PXRMTGOP ;;634049
PXRMTP ;;766683
PXRMTPA ;;693519
PXRMTYPE ;;817172
PXRMUNIQ ;;4375824
PXRMUTIL ;;3647079
PXRMVCOP ;;1123516
PXRMVCPT ;;585304
PXRMVPOP ;;1088013
PXRMVPOV ;;584024
PXRMWCHK ;;2052937
PXRRADUT ;;1787434
PXRRECQ ;;862139
PXRRECSE ;;4656064
PXRRFDD ;;2261881
PXRRFDP ;;9864798
PXRRFDQ ;;969448
PXRRFDSD ;;6406005
PXRRFDSE ;;3427136
PXRRGPRT ;;4739446
PXRRGUT ;;786807
PXRRLCCP ;;4173188
PXRRLCD ;;1192118
PXRRLCHP ;;4624532
PXRRPCE ;;11186617
PXRRPCE1 ;;9048578
PXRRPCE2 ;;10302854
PXRRPCE3 ;;17178680
PXRRPCE4 ;;18066573
PXRRPCE5 ;;12851121
PXRRPCEQ ;;8481247
PXRRPCR ;;13260711
PXRRPCR1 ;;3427796
PXRRPCR2 ;;13244946
PXRRPCR3 ;;7942411
PXRRPCR4 ;;5999209
PXRRPRD ;;1140404
PXRRPRDP ;;6700997
PXRRPRPL ;;921087
PXRRPRSP ;;3247242
PXRRSC ;;13073533
PXSCH1 ;;4162981
PXSCH2 ;;2132778
PXSCH3 ;;1751960
PXSCH4 ;;2844383
PXTTEDC ;;3598740
PXTTEDE ;;433947
PXTTEDQ ;;923725
PXTTU1 ;;4808536
PXUTL1 ;;3604821
PXUTLSCC ;;5994057
PXUTLSTP ;;5176784
PXUTLVST ;;545819
PXXDPT ;;2929744
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXNTEG0 3390 printed Dec 13, 2024@02:29:45 Page 2
PXNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960814.111525
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
+2 ;;7.3;2960814.111525
+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 ;;
PXEDIM ;;2693872
PXEDIP ;;1319914
PXIPENV ;;4829265
PXIPOST ;;10609601
PXIPOST1 ;;5403177
PXIPREI ;;98554
PXKCO ;;9069835
PXKCO1 ;;5412432
PXKCOC ;;4494784
PXKCOC1 ;;5092027
PXKCODX ;;4448898
PXKCODX1 ;;2851561
PXKCOP ;;5617646
PXKCOV ;;6243549
PXKCOV1 ;;839177
PXKENC ;;2241921
PXKFCPT ;;476276
PXKFCPT1 ;;5059140
PXKFHF ;;331373
PXKFIMM ;;344831
PXKFIMM1 ;;1448124
PXKFPED ;;313254
PXKFPOV ;;585703
PXKFPRV ;;341731
PXKFSK ;;334599
PXKFSK1 ;;1397729
PXKFTRT ;;453618
PXKFVST ;;1800075
PXKFXAM ;;322199
PXKMAIN ;;9022682
PXKMAIN1 ;;7844038
PXKMAIN2 ;;3960335
PXKMASC ;;4745615
PXKMASC1 ;;425778
PXKVST ;;7444037
PXPT ;;4195785
PXPTPOST ;;310535
PXRHS01 ;;3657081
PXRHS02 ;;3882829
PXRHS03 ;;3581019
PXRHS04 ;;2343645
PXRHS05 ;;2600637
PXRHS06 ;;3145202
PXRHS07 ;;3381334
PXRHS08 ;;3092038
PXRHS12 ;;3243447
PXRHS13 ;;284836
PXRHS14 ;;2063087
PXRM ;;1708203
PXRMAFOP ;;1628213
PXRMAGE ;;3463261
PXRMCF ;;1080464
PXRMCFOP ;;2116530
PXRMCODE ;;4751961
PXRMDATE ;;8190170
PXRMDEV ;;912350
PXRMDGOP ;;1722486
PXRMDGPT ;;5029719
PXRMDISC ;;349895
PXRMEDIT ;;189592
PXRMEDU ;;1978722
PXRMEXAM ;;1528931
PXRMFOUT ;;7789264
PXRMHF ;;880737
PXRMHFOP ;;2603921
PXRMICD9 ;;40926
PXRMIMM ;;1908149
PXRMLAB ;;1469254
PXRMLOG ;;5648113
PXRMMEAS ;;4562918
PXRMOBES ;;660543
PXRMPINF ;;128503
PXRMPROB ;;586296
PXRMPROC ;;13175
PXRMPROP ;;816990
PXRMPT ;;1973992
PXRMRAD ;;1310165
PXRMRAOP ;;932105
PXRMREDT ;;607428
PXRMRINQ ;;248770
PXRMSKIN ;;1472020
PXRMSTDC ;;160943
PXRMTAXP ;;4911949
PXRMTEDT ;;493821
PXRMTF ;;182258
PXRMTFOP ;;1412749
PXRMTGOP ;;634049
PXRMTP ;;766683
PXRMTPA ;;693519
PXRMTYPE ;;817172
PXRMUNIQ ;;4375824
PXRMUTIL ;;3647079
PXRMVCOP ;;1123516
PXRMVCPT ;;585304
PXRMVPOP ;;1088013
PXRMVPOV ;;584024
PXRMWCHK ;;2052937
PXRRADUT ;;1787434
PXRRECQ ;;862139
PXRRECSE ;;4656064
PXRRFDD ;;2261881
PXRRFDP ;;9864798
PXRRFDQ ;;969448
PXRRFDSD ;;6406005
PXRRFDSE ;;3427136
PXRRGPRT ;;4739446
PXRRGUT ;;786807
PXRRLCCP ;;4173188
PXRRLCD ;;1192118
PXRRLCHP ;;4624532
PXRRPCE ;;11186617
PXRRPCE1 ;;9048578
PXRRPCE2 ;;10302854
PXRRPCE3 ;;17178680
PXRRPCE4 ;;18066573
PXRRPCE5 ;;12851121
PXRRPCEQ ;;8481247
PXRRPCR ;;13260711
PXRRPCR1 ;;3427796
PXRRPCR2 ;;13244946
PXRRPCR3 ;;7942411
PXRRPCR4 ;;5999209
PXRRPRD ;;1140404
PXRRPRDP ;;6700997
PXRRPRPL ;;921087
PXRRPRSP ;;3247242
PXRRSC ;;13073533
PXSCH1 ;;4162981
PXSCH2 ;;2132778
PXSCH3 ;;1751960
PXSCH4 ;;2844383
PXTTEDC ;;3598740
PXTTEDE ;;433947
PXTTEDQ ;;923725
PXTTU1 ;;4808536
PXUTL1 ;;3604821
PXUTLSCC ;;5994057
PXUTLSTP ;;5176784
PXUTLVST ;;545819
PXXDPT ;;2929744
