SRTPRK.m

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