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 ---[H[J[2J[HSROACTH 1873 printed Dec 13, 2024@02:40:21 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
