SROAPCA2.m

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 ---SROAPCA2   1261     printed  Mar 13, 2025@21:46:42                                                                                                                                                                                                    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