SRTPRK ;BIR/SJA - PRINT KIDNEY - RECIPIENT INFORMATION ;04/21/08
;;3.0; Surgery ;**167**;24 Jun 93;Build 27
K DR,SRAO,SRX,Y
S SRDR=$S(SRNOVA:"1;11;187;10;12;4;5;96;26;27;95;97;33;98;37;42;19;94",1:"11;187;10;12;96;26;27;95;97;33;98;37;42;19;94")
K DA,DIC,DIQ,SRX,SRY S DIC="^SRT(",DA=SRTPP,DIQ="SRY",DIQ(0)="E",DR=SRDR D EN^DIQ1 K DA,DIC,DIQ,DR
S (SRX,SRZ)=0 F I=1:1 S SRZ=$P(SRDR,";",I) Q:'SRZ S SRX=I,SRAO(I)=SRY(139.5,SRTPP,SRZ,"E")_"^"_SRZ
VA I 'SRNOVA D
.W !!,"Date Placed on Waiting:",?24,$P(SRAO(1),"^"),?40,"Recipient CMV:",?71,$P(SRAO(4),"^")
.W !,"Date Started Dialysis:",?24,$P(SRAO(2),"^"),?40,"Recipient ABO Blood Type:",?71,$P(SRAO(3),"^")
.W !,"Calcineurin Inhibitor Toxicity:",?32,$P(SRAO(5),"^"),?40,"Membranous Nephropathy:",?71,$P(SRAO(10),"^")
.W !,"Glomerular Sclerosis/Nephritis:",?32,$P(SRAO(6),"^"),?40,"Obstructive Uropathy from BPH:",?71,$P(SRAO(11),"^")
.W !,"Graft Failure:",?32,$P(SRAO(7),"^"),?40,"Polycistic Disease:",?71,$P(SRAO(12),"^")
.W !,"IgA Nephropathy:",?32,$P(SRAO(8),"^"),?40,"Renal Cancer:",?71,$P(SRAO(13),"^")
.W !,"Lithium Toxicity:",?32,$P(SRAO(9),"^"),?40,"Rejection:",?71,$P(SRAO(15),"^")
.W !!,"Transplant Comments: " S SREXT=$P(SRAO(14),"^") D COMM^SRTPLIV1
NONVA I SRNOVA D
.D HW^SRTPUTL
.W !!,"Date Placed on Waiting:",?24,$P(SRAO(2),"^"),?46,"Recipient CMV:",?64,$P(SRAO(5),"^")
.W !,"Date Started Dialysis: ",?24,$P(SRAO(3),"^")
.S SRAO(6)=$$OUT^SRTPLUN1(4,$P(^SRT(SRTPP,0),"^",4))_"^4" W ?46,"Recipient Height:",?64,$P(SRAO(6),"^")
.W !,"ABO Blood Type:",?24,$P(SRAO(4),"^")
.S SRAO(7)=$$OUT^SRTPLUN1(5,$P(^SRT(SRTPP,0),"^",5))_"^5" W ?46,"Recipient Weight:",?64,$P(SRAO(7),"^")
.W !!,"Calcineurin Inhibitor Toxicity:",?32,$P(SRAO(8),"^"),?40,"Membranous Nephropathy:",?71,$P(SRAO(13),"^")
.W !,"Glomerular Sclerosis/Nephritis:",?32,$P(SRAO(9),"^"),?40,"Obstructive Uropathy from BPH:",?71,$P(SRAO(14),"^")
.W !,"Graft Failure:",?32,$P(SRAO(10),"^"),?40,"Polycistic Disease:",?71,$P(SRAO(15),"^")
.W !,"IgA Nephropathy:",?32,$P(SRAO(11),"^"),?40,"Renal Cancer:",?71,$P(SRAO(16),"^")
.W !,"Lithium Toxicity:",?32,$P(SRAO(12),"^"),?40,"Rejection:",?71,$P(SRAO(18),"^")
.W !!,"Transplant Comments: " S SREXT=$P(SRAO(17),"^") D COMM^SRTPLIV1
I $E(IOST)'="P" D PAGE^SRTPPAS I SRSOUT G END^SRTPPAS
I $E(IOST)="P" G:SRSOUT END^SRTPPAS I $Y+20>IOSL D PAGE^SRTPPAS I SRSOUT G END^SRTPPAS
G ^SRTPRK1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRTPRK 2410 printed Dec 13, 2024@02:48:44 Page 2
SRTPRK ;BIR/SJA - PRINT KIDNEY - RECIPIENT INFORMATION ;04/21/08
+1 ;;3.0; Surgery ;**167**;24 Jun 93;Build 27
+2 KILL DR,SRAO,SRX,Y
+3 SET SRDR=$SELECT(SRNOVA:"1;11;187;10;12;4;5;96;26;27;95;97;33;98;37;42;19;94",1:"11;187;10;12;96;26;27;95;97;33;98;37;42;19;94")
+4 KILL DA,DIC,DIQ,SRX,SRY
SET DIC="^SRT("
SET DA=SRTPP
SET DIQ="SRY"
SET DIQ(0)="E"
SET DR=SRDR
DO EN^DIQ1
KILL DA,DIC,DIQ,DR
+5 SET (SRX,SRZ)=0
FOR I=1:1
SET SRZ=$PIECE(SRDR,";",I)
if 'SRZ
QUIT
SET SRX=I
SET SRAO(I)=SRY(139.5,SRTPP,SRZ,"E")_"^"_SRZ
VA IF 'SRNOVA
Begin DoDot:1
+1 WRITE !!,"Date Placed on Waiting:",?24,$PIECE(SRAO(1),"^"),?40,"Recipient CMV:",?71,$PIECE(SRAO(4),"^")
+2 WRITE !,"Date Started Dialysis:",?24,$PIECE(SRAO(2),"^"),?40,"Recipient ABO Blood Type:",?71,$PIECE(SRAO(3),"^")
+3 WRITE !,"Calcineurin Inhibitor Toxicity:",?32,$PIECE(SRAO(5),"^"),?40,"Membranous Nephropathy:",?71,$PIECE(SRAO(10),"^")
+4 WRITE !,"Glomerular Sclerosis/Nephritis:",?32,$PIECE(SRAO(6),"^"),?40,"Obstructive Uropathy from BPH:",?71,$PIECE(SRAO(11),"^")
+5 WRITE !,"Graft Failure:",?32,$PIECE(SRAO(7),"^"),?40,"Polycistic Disease:",?71,$PIECE(SRAO(12),"^")
+6 WRITE !,"IgA Nephropathy:",?32,$PIECE(SRAO(8),"^"),?40,"Renal Cancer:",?71,$PIECE(SRAO(13),"^")
+7 WRITE !,"Lithium Toxicity:",?32,$PIECE(SRAO(9),"^"),?40,"Rejection:",?71,$PIECE(SRAO(15),"^")
+8 WRITE !!,"Transplant Comments: "
SET SREXT=$PIECE(SRAO(14),"^")
DO COMM^SRTPLIV1
End DoDot:1
NONVA IF SRNOVA
Begin DoDot:1
+1 DO HW^SRTPUTL
+2 WRITE !!,"Date Placed on Waiting:",?24,$PIECE(SRAO(2),"^"),?46,"Recipient CMV:",?64,$PIECE(SRAO(5),"^")
+3 WRITE !,"Date Started Dialysis: ",?24,$PIECE(SRAO(3),"^")
+4 SET SRAO(6)=$$OUT^SRTPLUN1(4,$PIECE(^SRT(SRTPP,0),"^",4))_"^4"
WRITE ?46,"Recipient Height:",?64,$PIECE(SRAO(6),"^")
+5 WRITE !,"ABO Blood Type:",?24,$PIECE(SRAO(4),"^")
+6 SET SRAO(7)=$$OUT^SRTPLUN1(5,$PIECE(^SRT(SRTPP,0),"^",5))_"^5"
WRITE ?46,"Recipient Weight:",?64,$PIECE(SRAO(7),"^")
+7 WRITE !!,"Calcineurin Inhibitor Toxicity:",?32,$PIECE(SRAO(8),"^"),?40,"Membranous Nephropathy:",?71,$PIECE(SRAO(13),"^")
+8 WRITE !,"Glomerular Sclerosis/Nephritis:",?32,$PIECE(SRAO(9),"^"),?40,"Obstructive Uropathy from BPH:",?71,$PIECE(SRAO(14),"^")
+9 WRITE !,"Graft Failure:",?32,$PIECE(SRAO(10),"^"),?40,"Polycistic Disease:",?71,$PIECE(SRAO(15),"^")
+10 WRITE !,"IgA Nephropathy:",?32,$PIECE(SRAO(11),"^"),?40,"Renal Cancer:",?71,$PIECE(SRAO(16),"^")
+11 WRITE !,"Lithium Toxicity:",?32,$PIECE(SRAO(12),"^"),?40,"Rejection:",?71,$PIECE(SRAO(18),"^")
+12 WRITE !!,"Transplant Comments: "
SET SREXT=$PIECE(SRAO(17),"^")
DO COMM^SRTPLIV1
End DoDot:1
+13 IF $EXTRACT(IOST)'="P"
DO PAGE^SRTPPAS
IF SRSOUT
GOTO END^SRTPPAS
+14 IF $EXTRACT(IOST)="P"
if SRSOUT
GOTO END^SRTPPAS
IF $Y+20>IOSL
DO PAGE^SRTPPAS
IF SRSOUT
GOTO END^SRTPPAS
+15 GOTO ^SRTPRK1
+16 QUIT
