Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SRTPRK3

SRTPRK3.m

Go to the documentation of this file.
  1. SRTPRK3 ;BIR/SJA - PRINT KIDNEY-PANCREAS INFORMATION ;04/21/08
  1. ;;3.0; Surgery ;**167**;24 Jun 93;Build 27
  1. K DR,SRAO,SRX,Y
  1. W:$E(IOST)="P" ! W !,?28,"PANCREAS INFORMATION",!
  1. S (DR,SRDR)="134;135;136;137;138;139;140;141;142"
  1. 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
  1. 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
  1. W !,"Pancreas (SPK/PAK):",?33,$P(SRAO(1),"^")
  1. W !,"Glucose at Time of Listing:",?33,$$NS($P(SRAO(2),"^"))
  1. W !,"C-peptide at Time of Listing:",?33,$$NS($P(SRAO(3),"^"))
  1. W !,"Pancreatic Duct Anastomosis:",?33,$P(SRAO(4),"^")
  1. W !,"Glucose Post Transplant:",?33,$$NS($P(SRAO(5),"^"))
  1. W !,"Amylase Post Transplant:",?33,$$NS($P(SRAO(6),"^"))
  1. W !,"Lipase Post Transplant:",?33,$$NS($P(SRAO(7),"^"))
  1. W !,"Insulin Req Post Transplant:",?33,$P(SRAO(8),"^")
  1. W !,"Oral Hypoglycemics Req. Post TX:",?33,$P(SRAO(9),"^")
  1. I $E(IOST)="C" W !! K DIR S DIR(0)="FOA",DIR("A")="Press RETURN to continue" D ^DIR K DIR
  1. G END^SRTPPAS
  1. NS(SRF) ;
  1. Q $S(SRF="NS":"NO STUDY",1:SRF)