SROACTH.m

SROACTH ;B'HAM ISC/MAM - CARDIAC CATH INFO (PAGE 1) ; [ 04/01/04  3:25 PM ]

 ;;3.0;Surgery;**38,95,125,184**;24 Jun 93;Build 35

 S SRA(206)=$G(^SRF(SRTN,206)),SRA(209)=$G(^SRF(SRTN,209))

 S NYUK=$P(SRA(209),"^",4) S SRAO(1)=$S(NYUK="C":"Cath",NYUK="I":"IVUS",NYUK="B":"BOTH",NYUK="NS":" NS",1:"")_"^476"

 S SRAO(2)=$P(SRA(206),"^",24)_"^357",SRAO(3)=$P(SRA(206),"^",25)_"^358",SRAO(4)=$P(SRA(206),"^",26)_"^359",SRAO(5)=$P(SRA(206),"^",27)_"^360"

 S NYUK=$P(SRA(206),"^",30) D LV S SRAO(6)=SHEMP_"^363"

 S Y=$P(SRA(206),"^",9),C=$P(^DD(130,415,0),"^",2) D:Y'="" Y^DIQ S:Y="NO STUDY" Y="NS" S SRAO(7)=Y_"^415"

 S NYUK=$P(SRA(209),"^",5) S SRAO(8)=$S(NYUK="0":"NONE/TRIVIAL",NYUK=1:"MILD",NYUK=2:"MODERATE",NYUK=3:"SEVERE",NYUK="NS":"NS",1:"")_"^477"

 ;

DISP S SRPAGE="PAGE: 1 OF 2" D HDR^SROAUTL

 W "1. Procedure:",?29,$P(SRAO(1),"^")

 W !,"2. LVEDP:",?29,$P(SRAO(2),"^") W:$P(SRAO(2),"^") ?32," mm Hg"

 W !,"3. Aortic Systolic Pressure: ",?29,$P(SRAO(3),"^") W:$P(SRAO(3),"^") ?32," mm Hg"

 W !!,"For patients having right heart cath"

 W !,"4. PA Systolic Pressure:",?29,$P(SRAO(4),"^") W:$P(SRAO(4),"^") ?32," mm Hg"

 W !,"5. PAW Mean Pressure:",?29,$P(SRAO(5),"^") W:$P(SRAO(5),"^") ?32," mm Hg"

 W !!,"6. LV Contraction Grade  (from contrast ",!,"    or radionuclide angiogram or 2D echo): "_$P(SRAO(6),"^")

 W !!,"7. Mitral Regurgitation:",?30,$P(SRAO(7),"^")

 W !,"8. Aortic Stenosis:",?30,$P(SRAO(8),"^")

 W !! F MOE=1:1:80 W "-"

 Q

LV S SHEMP=$S(NYUK="I":"I   > or = 0.55    NORMAL",NYUK="II":"II  0.45-0.54    MILD DYSFUNCTION",NYUK="III":"III  0.35-0.44  MODERATE DYSFUNCTION",NYUK="IIIa":"IIIa 0.40-0.44 MODERATE DYSFUNCTION A",1:NYUK)

 Q:SHEMP'=NYUK  S SHEMP=$S(NYUK="IIIb":"IIIb 0.35-0.39 MODERATE DYSFUNCTION B",NYUK="IV":"IV  0.25-0.34  SEVERE DYSFUNCTION",NYUK="V":"V  <0.25  VERY SEVERE DYSFUNCTION",NYUK="NS":"NO LV STUDY",1:"")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROACTH   1873     printed  Apr 09, 2024@21:46:04                                                                                                                                                                                                     Page 2

SROACTH   ;B'HAM ISC/MAM - CARDIAC CATH INFO (PAGE 1) ; [ 04/01/04  3:25 PM ]

 +1       ;;3.0;Surgery;**38,95,125,184**;24 Jun 93;Build 35

 +2        SET SRA(206)=$GET(^SRF(SRTN,206))

           SET SRA(209)=$GET(^SRF(SRTN,209))

 +3        SET NYUK=$PIECE(SRA(209),"^",4)

           SET SRAO(1)=$SELECT(NYUK="C":"Cath",NYUK="I":"IVUS",NYUK="B":"BOTH",NYUK="NS":" NS",1:"")_"^476"

 +4        SET SRAO(2)=$PIECE(SRA(206),"^",24)_"^357"

           SET SRAO(3)=$PIECE(SRA(206),"^",25)_"^358"

           SET SRAO(4)=$PIECE(SRA(206),"^",26)_"^359"

           SET SRAO(5)=$PIECE(SRA(206),"^",27)_"^360"

 +5        SET NYUK=$PIECE(SRA(206),"^",30)

           DO LV

           SET SRAO(6)=SHEMP_"^363"

 +6        SET Y=$PIECE(SRA(206),"^",9)

           SET C=$PIECE(^DD(130,415,0),"^",2)

           if Y'=""

               DO Y^DIQ

           if Y="NO STUDY"

               SET Y="NS"

           SET SRAO(7)=Y_"^415"

 +7        SET NYUK=$PIECE(SRA(209),"^",5)

           SET SRAO(8)=$SELECT(NYUK="0":"NONE/TRIVIAL",NYUK=1:"MILD",NYUK=2:"MODERATE",NYUK=3:"SEVERE",NYUK="NS":"NS",1:"")_"^477"

 +8       ;

DISP       SET SRPAGE="PAGE: 1 OF 2"

           DO HDR^SROAUTL

 +1        WRITE "1. Procedure:",?29,$PIECE(SRAO(1),"^")

 +2        WRITE !,"2. LVEDP:",?29,$PIECE(SRAO(2),"^")

           if $PIECE(SRAO(2),"^")

               WRITE ?32," mm Hg"

 +3        WRITE !,"3. Aortic Systolic Pressure: ",?29,$PIECE(SRAO(3),"^")

           if $PIECE(SRAO(3),"^")

               WRITE ?32," mm Hg"

 +4        WRITE !!,"For patients having right heart cath"

 +5        WRITE !,"4. PA Systolic Pressure:",?29,$PIECE(SRAO(4),"^")

           if $PIECE(SRAO(4),"^")

               WRITE ?32," mm Hg"

 +6        WRITE !,"5. PAW Mean Pressure:",?29,$PIECE(SRAO(5),"^")

           if $PIECE(SRAO(5),"^")

               WRITE ?32," mm Hg"

 +7        WRITE !!,"6. LV Contraction Grade  (from contrast ",!,"    or radionuclide angiogram or 2D echo): "_$PIECE(SRAO(6),"^")

 +8        WRITE !!,"7. Mitral Regurgitation:",?30,$PIECE(SRAO(7),"^")

 +9        WRITE !,"8. Aortic Stenosis:",?30,$PIECE(SRAO(8),"^")

 +10       WRITE !!

           FOR MOE=1:1:80

               WRITE "-"

 +11       QUIT 

LV         SET SHEMP=$SELECT(NYUK="I":"I   > or = 0.55    NORMAL",NYUK="II":"II  0.45-0.54    MILD DYSFUNCTION",NYUK="III":"III  0.35-0.44  MODERATE DYSFUNCTION",NYUK="IIIa":"IIIa 0.40-0.44 MODERATE DYSFUNCTION A",1:NYUK)

 +1        if SHEMP'=NYUK

               QUIT 

           SET SHEMP=$SELECT(NYUK="IIIb":"IIIb 0.35-0.39 MODERATE DYSFUNCTION B",NYUK="IV":"IV  0.25-0.34  SEVERE DYSFUNCTION",NYUK="V":"V  <0.25  VERY SEVERE DYSFUNCTION",NYUK="NS":"NO LV STUDY",1:"")

 +2        QUIT