SROAPCA2 ;BIR/MAM - PRINT OPERATIVE DATA ;06/28/06
;;3.0;Surgery;**38,71,95,125,153,174,175,182,184**;24 Jun 93;Build 35
S SRA(206)=$G(^SRF(SRTN,206)),SRA(207)=$G(^SRF(SRTN,207)),SRA(209)=$G(^SRF(SRTN,209)),SRA(207.1)=$G(^SRF(SRTN,207.1))
S SRAO(24)=$P(SRA(206),"^",37)_"^451"
S SRAO(25)=$P(SRA(206),"^",36)_"^450"
S Y=$P(SRA(207),"^",26),C=$P(^DD(130,468,0),"^",2) D:Y'="" Y^DIQ S SRAO(26)=Y_"^468"
S Y=$P(SRA(207),"^",27),C=$P(^DD(130,469,0),"^",2) D:Y'="" Y^DIQ S SRAO(27)=Y_"^469"
S NYUK=$P(SRA(209),"^",9) D YN1 S SRAO(28)=SHEMP_"^481"
S (NYUK,SHEMP)=""
S NYUK=$P(SRA(209),"^",13) D YN S SRAO(29)=SHEMP_"^502"
W !!,"VI. OPERATIVE DATA"
W !!,"Bridge to Transplant: ",?29,$P(SRAO(28),"^")
W !!,"Operative Data details:"
W !,"Total CPB Time: ",?29,$P(SRAO(24),"^")_" min",?50,"Total Ischemic Time: ",$P(SRAO(25),"^")_" min"
W !,"Incision Type: ",?29,$P(SRAO(26),"^")
W !,"Conversion Off Pump to CPB:",?29,$P(SRAO(27),"^")
I $Y+6>IOSL D PAGE^SROAPCA I SRSOUT Q
K SRA,SRAO D ^SROAPCA3
Q
YN ; store answer
S SHEMP=$S(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")
Q
YN1 ; store answer for SRAO(28)
S SHEMP=$S(NYUK="Y":"YES",NYUK="N":"NONE",NYUK="B":"BRIDGE TO TRANSPORT",NYUK="D":"DESTINATION THERAPY",1:"")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROAPCA2 1261 printed Dec 13, 2024@02:41:30 Page 2
SROAPCA2 ;BIR/MAM - PRINT OPERATIVE DATA ;06/28/06
+1 ;;3.0;Surgery;**38,71,95,125,153,174,175,182,184**;24 Jun 93;Build 35
+2 SET SRA(206)=$GET(^SRF(SRTN,206))
SET SRA(207)=$GET(^SRF(SRTN,207))
SET SRA(209)=$GET(^SRF(SRTN,209))
SET SRA(207.1)=$GET(^SRF(SRTN,207.1))
+3 SET SRAO(24)=$PIECE(SRA(206),"^",37)_"^451"
+4 SET SRAO(25)=$PIECE(SRA(206),"^",36)_"^450"
+5 SET Y=$PIECE(SRA(207),"^",26)
SET C=$PIECE(^DD(130,468,0),"^",2)
if Y'=""
DO Y^DIQ
SET SRAO(26)=Y_"^468"
+6 SET Y=$PIECE(SRA(207),"^",27)
SET C=$PIECE(^DD(130,469,0),"^",2)
if Y'=""
DO Y^DIQ
SET SRAO(27)=Y_"^469"
+7 SET NYUK=$PIECE(SRA(209),"^",9)
DO YN1
SET SRAO(28)=SHEMP_"^481"
+8 SET (NYUK,SHEMP)=""
+9 SET NYUK=$PIECE(SRA(209),"^",13)
DO YN
SET SRAO(29)=SHEMP_"^502"
+10 WRITE !!,"VI. OPERATIVE DATA"
+11 WRITE !!,"Bridge to Transplant: ",?29,$PIECE(SRAO(28),"^")
+12 WRITE !!,"Operative Data details:"
+13 WRITE !,"Total CPB Time: ",?29,$PIECE(SRAO(24),"^")_" min",?50,"Total Ischemic Time: ",$PIECE(SRAO(25),"^")_" min"
+14 WRITE !,"Incision Type: ",?29,$PIECE(SRAO(26),"^")
+15 WRITE !,"Conversion Off Pump to CPB:",?29,$PIECE(SRAO(27),"^")
+16 IF $Y+6>IOSL
DO PAGE^SROAPCA
IF SRSOUT
QUIT
+17 KILL SRA,SRAO
DO ^SROAPCA3
+18 QUIT
YN ; store answer
+1 SET SHEMP=$SELECT(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")
+2 QUIT
YN1 ; store answer for SRAO(28)
+1 SET SHEMP=$SELECT(NYUK="Y":"YES",NYUK="N":"NONE",NYUK="B":"BRIDGE TO TRANSPORT",NYUK="D":"DESTINATION THERAPY",1:"")
+2 QUIT
