- 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 Jan 18, 2025@03:49:57 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)