- 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
- 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
