SRTPRK3.m

SRTPRK3 ;BIR/SJA - PRINT KIDNEY-PANCREAS INFORMATION ;04/21/08

 ;;3.0; Surgery ;**167**;24 Jun 93;Build 27

 K DR,SRAO,SRX,Y

 W:$E(IOST)="P" ! W !,?28,"PANCREAS INFORMATION",!

 S (DR,SRDR)="134;135;136;137;138;139;140;141;142"

 K DA,DIC,DIQ,SRX,SRY,SRZ 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

 W !,"Pancreas (SPK/PAK):",?33,$P(SRAO(1),"^")

 W !,"Glucose at Time of Listing:",?33,$$NS($P(SRAO(2),"^"))

 W !,"C-peptide at Time of Listing:",?33,$$NS($P(SRAO(3),"^"))

 W !,"Pancreatic Duct Anastomosis:",?33,$P(SRAO(4),"^")

 W !,"Glucose Post Transplant:",?33,$$NS($P(SRAO(5),"^"))

 W !,"Amylase Post Transplant:",?33,$$NS($P(SRAO(6),"^"))

 W !,"Lipase Post Transplant:",?33,$$NS($P(SRAO(7),"^"))

 W !,"Insulin Req Post Transplant:",?33,$P(SRAO(8),"^")

 W !,"Oral Hypoglycemics Req. Post TX:",?33,$P(SRAO(9),"^")

 I $E(IOST)="C" W !! K DIR S DIR(0)="FOA",DIR("A")="Press RETURN to continue" D ^DIR K DIR

 G END^SRTPPAS

NS(SRF) ;

 Q $S(SRF="NS":"NO STUDY",1:SRF)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SRTPRK3   1116     printed  Apr 09, 2024@21:44:44                                                                                                                                                                                                     Page 2

SRTPRK3   ;BIR/SJA - PRINT KIDNEY-PANCREAS INFORMATION ;04/21/08

 +1       ;;3.0; Surgery ;**167**;24 Jun 93;Build 27

 +2        KILL DR,SRAO,SRX,Y

 +3        if $EXTRACT(IOST)="P"

               WRITE !

           WRITE !,?28,"PANCREAS INFORMATION",!

 +4        SET (DR,SRDR)="134;135;136;137;138;139;140;141;142"

 +5        KILL DA,DIC,DIQ,SRX,SRY,SRZ

           SET DIC="^SRT("

           SET DA=SRTPP

           SET DIQ="SRY"

           SET DIQ(0)="E"

           SET DR=SRDR

           DO EN^DIQ1

           KILL DA,DIC,DIQ,DR

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

 +7        WRITE !,"Pancreas (SPK/PAK):",?33,$PIECE(SRAO(1),"^")

 +8        WRITE !,"Glucose at Time of Listing:",?33,$$NS($PIECE(SRAO(2),"^"))

 +9        WRITE !,"C-peptide at Time of Listing:",?33,$$NS($PIECE(SRAO(3),"^"))

 +10       WRITE !,"Pancreatic Duct Anastomosis:",?33,$PIECE(SRAO(4),"^")

 +11       WRITE !,"Glucose Post Transplant:",?33,$$NS($PIECE(SRAO(5),"^"))

 +12       WRITE !,"Amylase Post Transplant:",?33,$$NS($PIECE(SRAO(6),"^"))

 +13       WRITE !,"Lipase Post Transplant:",?33,$$NS($PIECE(SRAO(7),"^"))

 +14       WRITE !,"Insulin Req Post Transplant:",?33,$PIECE(SRAO(8),"^")

 +15       WRITE !,"Oral Hypoglycemics Req. Post TX:",?33,$PIECE(SRAO(9),"^")

 +16       IF $EXTRACT(IOST)="C"

               WRITE !!

               KILL DIR

               SET DIR(0)="FOA"

               SET DIR("A")="Press RETURN to continue"

               DO ^DIR

               KILL DIR

 +17       GOTO END^SRTPPAS

NS(SRF)   ;

 +1        QUIT $SELECT(SRF="NS":"NO STUDY",1:SRF)