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 ---[H[J[2J[HSRTPRK3 1116 printed Oct 16, 2024@18:49:25 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)
