SROAPCA3 ;BIR/MAM - CARDIAC OCCURRENCE DATA ;09/28/2011
;;3.0;Surgery;**38,71,95,101,125,160,164,166,174,175,176,182,184**;24 Jun 93;Build 35
D EN^SROCCAT K SRA S SRA(205)=$G(^SRF(SRTN,205)),SRA(208)=$G(^SRF(SRTN,208)),SRA(206)=$G(^SRF(SRTN,206)),SRA(209)=$G(^SRF(SRTN,209))
S SRA(210)=$G(^SRF(SRTN,210))
S NYUK=$P(SRA(205),"^",27) D YN S SRAO(3)=SHEMP_"^258",NYUK=$P(SRA(208),"^",3) D YN S SRAO(4)=SHEMP_"^386",NYUK=$P(SRA(205),"^",17) D YN S SRAO(5)=SHEMP_"^254",NYUK=$P(SRA(205),"^",44) D YN S SRAO(6)=SHEMP_"^422"
S NYUK=$P(SRA(208),"^",5) D YN S SRAO(7)=SHEMP_"^388",NYUK=$P(SRA(208),"^",6) D YN S SRAO(8)=SHEMP_"^389",NYUK=$P(SRA(205),"^",13) D YN S SRAO(9)=SHEMP_"^285"
S NYUK=$P(SRA(208),"^",7) D YN S SRAO(10)=SHEMP_"^391",NYUK=$P(SRA(205),"^",22) D YN S SRAO(11)=SHEMP_"^410"
S NYUK=$P(SRA(205),"^",21) D YN S SRAO(12)=SHEMP_"^256" D DUR
S NYUK=$P(SRA(205),"^",26) D YN S SRAO(13)=SHEMP_"^411"
S NYUK=$P(SRA(206),"^",39) D YN S SRAO(14)=SHEMP_"^466"
S NYUK=$P(SRA(206),"^",40) D YN S SRAO(15)=SHEMP_"^467",NYUK=$P(SRA(205),"^",6) D YN S SRAO(18)=SHEMP_"^248"
S NYUK=$P(SRA(205),"^",40) D YN S SRAO(16)=SHEMP_"^448",NYUK=$P(SRA(205),"^",8) D YN S SRAO(17)=SHEMP_"^404"
S X=$P(SRA(205),"^",3),Y=$S(X'="":X,1:$P($G(^DPT(DFN,.35)),"^")),SRDEAD=Y I Y D D^DIQ S SRDEAD=Y
S X=$P(SRA(210),"^",5) S SRAO(20)=$S(X=1:"HOME",X=2:"ACUTE CARE FACILITY",X=3:"LONG TERM CARE",X=4:"HOMELESS",X=5:"UNKNOWN",1:"")_"^670"
S X=$P(SRA(210),"^",6) D F671 S SRAO(21)=SHEMP_"^671"
S NYUK=$P(SRA(210),"^",8) D YN S SRAO(22)=SHEMP_"^673"
S NYUK=$P(SRA(210),"^",9) D YN S SRAO(23)=SHEMP_"^674"
S X=$P(SRA(210),"^",12) S SRAO(24)=$$F677(X)_"^677"
I $Y+5>IOSL D PAGE^SROAPCA I SRSOUT Q
W !!,"VII. OUTCOMES"
W !!,"Perioperative (30 day) Occurrences:"
W !,?2,"Myocardial Infarction:",?35,$P(SRAO(3),"^"),?41,"Tracheostomy:",?75,$P(SRAO(14),"^")
W !,?2,"Endocarditis:",?35,$P(SRAO(4),"^"),?41,"Out Of OR Unplanned Intubation:",?75,$P(SRAO(6),"^")
W !,?2,"Superficial Incisional SSI:",?35,$P(SRAO(18),"^"),?41,"Stroke/CVA:",?68,$J($P(SRAO(12),"^"),11)
W !,?2,"Mediastinitis:",?35,$P(SRAO(7),"^"),?41,"Coma > or = 24 Hours:",?75,$P(SRAO(11),"^")
W !,?2,"Cardiac Arrest Requiring CPR:",?35,$P(SRAO(13),"^"),?41,"New Mech Circulatory Support:",?75,$P(SRAO(15),"^")
W !,?2,"Reoperation for Bleeding:",?35,$P(SRAO(8),"^"),?41,"Postop Atrial Fibrillation:",?75,$P(SRAO(16),"^")
W !,?2,"On ventilator > or = 48 hr:",?35,$P(SRAO(9),"^"),?41,"Wound Disruption:",?75,$P(SRAO(17),"^")
W !,?2,"Repeat cardiac Surg procedure:",?35,$P(SRAO(10),"^"),?41,"Renal Failure Requiring Dialysis:",?75,$P(SRAO(5),"^")
D RES
Q
DUR ; get stroke/cva duration
N SROCC,SRDUR I $P(SRAO(12),"^")="NO" S X=1
I X'=1 S SROCC=0 F S SROCC=$O(^SRF(SRTN,16,SROCC)) Q:'SROCC I $P(^SRF(SRTN,16,SROCC,0),"^",2)=12 S X=$P(^SRF(SRTN,16,SROCC,0),"^",8)
S SRDUR=$S(X=2:"<24 HOURS",X=3:"24-72 HOURS",X=4:">72 HOURS",1:"NO SYMPTOMS")
S SRAO(12)=SRDUR_"^256"
Q
YN ; store answer
S SHEMP=$S(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")
Q
F671 ;
S SHEMP=$S(X=1:"AMB W/O ASSISTIVE DEVICE",X=2:"AMB WITH CANE OR WALKER",X=3:"USES MANUAL WHEELCHAIR INDEPENDENTLY",X=4:"DOES NOT AMB",1:"")
Q
F677(X) ;
Q $S(X=0:"NO PREVIOUS SURG",X=1:"1 PREVIOUS SURG",X=2:"2 PREVIOUS SURG",X=3:"3 PREVIOUS SURG",X=4:"4 PREVIOUS SURG",X=5:"5 PREVIOUS SURG",X=6:"6 PREVIOUS SURG",1:"")
;
RES I $Y+12>IOSL D PAGE^SROAPCA I SRSOUT Q
S SRA(208)=$G(^SRF(SRTN,208))
S SRA(.2)=$G(^SRF(SRTN,.2))
W !!,"VIII. RESOURCE DATA"
S Y=$P($G(^SRF(SRTN,208)),"^",11),C=$P(^DD(130,413,0),"^",2) D Y^DIQ S X=$S(Y'="":Y,1:"NOT ENTERED") W !,"Transfer Status: ",?25,X
S Y=$P(SRA(208),"^",14) D DT^SROAPCA1 W !,"Hospital Admission Date:",?25,X
S Y=$P(SRA(208),"^",15) D DT^SROAPCA1 W !,"Hospital Discharge Date:",?25,X
S Y=$P($G(^SRF(SRTN,210)),"^",14),C=$P(^DD(130,685,0),"^",2) D Y^DIQ S X=$S(Y'="":Y,1:"NOT ENTERED") W !,"DC/REL Destination:",?25,X
S Y=$P(SRA(.2),"^",10) D DT^SROAPCA1 W !,"Time Patient In OR: ",?25,X
S Y=$P(SRA(.2),"^",2) D DT^SROAPCA1 W ?45,"Operation Began: ",?66,X
S Y=$P(SRA(.2),"^",3) D DT^SROAPCA1 W !,"Operation Ended: ",?25,X
S Y=$P(SRA(.2),"^",12) D DT^SROAPCA1 W ?45,"Time Patient Out OR: ",X
S Y=$P(SRA(208),"^",22) I Y>1 D DT^SROAPCA1 S Y=X
S Y=$S(Y="NS":"Unable to determine",Y="RI":"Remains intubated at 30 days",1:Y) W !,"Date and Time Patient Extubated: ",?33,Y
I $P(SRA(208),"^",22)>1,$P(SRA(.2),"^",12) D
.S X=$$FMDIFF^XLFDT($P(SRA(208),"^",22),$P(SRA(.2),"^",12),2) W !,?5,"Postop Intubation Hrs: ",?33,$FN((X/3600),"+",1)
S Y=$P(SRA(208),"^",23) I Y>1 D DT^SROAPCA1 S Y=X
S Y=$S(Y="NS":"Unable to determine",Y="RI":"Remains in ICU at 30 days",1:Y) W !,"Date and Time Patient Discharged from ICU: ",?43,Y
S Y=$P(SRA(209),"^") W !,"Patient is Homeless: ",?25,$S(Y="Y":"YES",Y="N":"NO",Y="NS":"NS",1:"")
W !,"Date of Death: ",?25,SRDEAD,?45,"30-Day Death: ",?65,$S($P(SRA(205),"^",41)="Y":"YES",1:"NO")
W !,"Current Residence: ",?25,$E($P(SRAO(20),"^"),1,20),?45,"Ambulation Device: ",?65,$E($P(SRAO(21),"^"),1,15)
W !,"History of Cancer: ",?25,$E($P(SRAO(22),"^"),1,20),?45,"History of Radiation Therapy: ",?65,$E($P(SRAO(23),"^"),1,15)
W !,"Prior Surg in Same Operative: ",$E($P(SRAO(24),"^"),1,20),!
I $Y+7>IOSL D PAGE^SROAPCA I SRSOUT Q
W !,"IX. SOCIOECONOMIC, ETHNICITY, AND RACE"
N SREMP S SREMP=$P(SRA(208),"^",18) S SREMP=$S(SREMP=1:"EMPLOYED FULL TIME",SREMP=2:"EMPLOYED PART TIME",SREMP=3:"NOT EMPLOYED",SREMP=4:"SELF EMPLOYED",SREMP=5:"RETIRED",SREMP=6:"ACTIVE MILITARY DUTY",SREMP=9:"UNKNOWN",1:" ")
W !,?1,"Employment Status Preoperatively: ",?40,SREMP
K SRA,SRAO
; Race/Ethnic
D ENTH^SRORACE
I $Y+7>IOSL D PAGE^SROAPCA I SRSOUT Q
D ^SROAPCA4
W !!," *** End of report for "_SRANM_" assessment #"_SRTN_" ***"
I $E(IOST)'="P" W ! K DIR S DIR(0)="E" D ^DIR K DIR
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROAPCA3 5861 printed Apr 09, 2024@21:50:33 Page 2
SROAPCA3 ;BIR/MAM - CARDIAC OCCURRENCE DATA ;09/28/2011
+1 ;;3.0;Surgery;**38,71,95,101,125,160,164,166,174,175,176,182,184**;24 Jun 93;Build 35
+2 DO EN^SROCCAT
KILL SRA
SET SRA(205)=$GET(^SRF(SRTN,205))
SET SRA(208)=$GET(^SRF(SRTN,208))
SET SRA(206)=$GET(^SRF(SRTN,206))
SET SRA(209)=$GET(^SRF(SRTN,209))
+3 SET SRA(210)=$GET(^SRF(SRTN,210))
+4 SET NYUK=$PIECE(SRA(205),"^",27)
DO YN
SET SRAO(3)=SHEMP_"^258"
SET NYUK=$PIECE(SRA(208),"^",3)
DO YN
SET SRAO(4)=SHEMP_"^386"
SET NYUK=$PIECE(SRA(205),"^",17)
DO YN
SET SRAO(5)=SHEMP_"^254"
SET NYUK=$PIECE(SRA(205),"^",44)
DO YN
SET SRAO(6)=SHEMP_"^422"
+5 SET NYUK=$PIECE(SRA(208),"^",5)
DO YN
SET SRAO(7)=SHEMP_"^388"
SET NYUK=$PIECE(SRA(208),"^",6)
DO YN
SET SRAO(8)=SHEMP_"^389"
SET NYUK=$PIECE(SRA(205),"^",13)
DO YN
SET SRAO(9)=SHEMP_"^285"
+6 SET NYUK=$PIECE(SRA(208),"^",7)
DO YN
SET SRAO(10)=SHEMP_"^391"
SET NYUK=$PIECE(SRA(205),"^",22)
DO YN
SET SRAO(11)=SHEMP_"^410"
+7 SET NYUK=$PIECE(SRA(205),"^",21)
DO YN
SET SRAO(12)=SHEMP_"^256"
DO DUR
+8 SET NYUK=$PIECE(SRA(205),"^",26)
DO YN
SET SRAO(13)=SHEMP_"^411"
+9 SET NYUK=$PIECE(SRA(206),"^",39)
DO YN
SET SRAO(14)=SHEMP_"^466"
+10 SET NYUK=$PIECE(SRA(206),"^",40)
DO YN
SET SRAO(15)=SHEMP_"^467"
SET NYUK=$PIECE(SRA(205),"^",6)
DO YN
SET SRAO(18)=SHEMP_"^248"
+11 SET NYUK=$PIECE(SRA(205),"^",40)
DO YN
SET SRAO(16)=SHEMP_"^448"
SET NYUK=$PIECE(SRA(205),"^",8)
DO YN
SET SRAO(17)=SHEMP_"^404"
+12 SET X=$PIECE(SRA(205),"^",3)
SET Y=$SELECT(X'="":X,1:$PIECE($GET(^DPT(DFN,.35)),"^"))
SET SRDEAD=Y
IF Y
DO D^DIQ
SET SRDEAD=Y
+13 SET X=$PIECE(SRA(210),"^",5)
SET SRAO(20)=$SELECT(X=1:"HOME",X=2:"ACUTE CARE FACILITY",X=3:"LONG TERM CARE",X=4:"HOMELESS",X=5:"UNKNOWN",1:"")_"^670"
+14 SET X=$PIECE(SRA(210),"^",6)
DO F671
SET SRAO(21)=SHEMP_"^671"
+15 SET NYUK=$PIECE(SRA(210),"^",8)
DO YN
SET SRAO(22)=SHEMP_"^673"
+16 SET NYUK=$PIECE(SRA(210),"^",9)
DO YN
SET SRAO(23)=SHEMP_"^674"
+17 SET X=$PIECE(SRA(210),"^",12)
SET SRAO(24)=$$F677(X)_"^677"
+18 IF $Y+5>IOSL
DO PAGE^SROAPCA
IF SRSOUT
QUIT
+19 WRITE !!,"VII. OUTCOMES"
+20 WRITE !!,"Perioperative (30 day) Occurrences:"
+21 WRITE !,?2,"Myocardial Infarction:",?35,$PIECE(SRAO(3),"^"),?41,"Tracheostomy:",?75,$PIECE(SRAO(14),"^")
+22 WRITE !,?2,"Endocarditis:",?35,$PIECE(SRAO(4),"^"),?41,"Out Of OR Unplanned Intubation:",?75,$PIECE(SRAO(6),"^")
+23 WRITE !,?2,"Superficial Incisional SSI:",?35,$PIECE(SRAO(18),"^"),?41,"Stroke/CVA:",?68,$JUSTIFY($PIECE(SRAO(12),"^"),11)
+24 WRITE !,?2,"Mediastinitis:",?35,$PIECE(SRAO(7),"^"),?41,"Coma > or = 24 Hours:",?75,$PIECE(SRAO(11),"^")
+25 WRITE !,?2,"Cardiac Arrest Requiring CPR:",?35,$PIECE(SRAO(13),"^"),?41,"New Mech Circulatory Support:",?75,$PIECE(SRAO(15),"^")
+26 WRITE !,?2,"Reoperation for Bleeding:",?35,$PIECE(SRAO(8),"^"),?41,"Postop Atrial Fibrillation:",?75,$PIECE(SRAO(16),"^")
+27 WRITE !,?2,"On ventilator > or = 48 hr:",?35,$PIECE(SRAO(9),"^"),?41,"Wound Disruption:",?75,$PIECE(SRAO(17),"^")
+28 WRITE !,?2,"Repeat cardiac Surg procedure:",?35,$PIECE(SRAO(10),"^"),?41,"Renal Failure Requiring Dialysis:",?75,$PIECE(SRAO(5),"^")
+29 DO RES
+30 QUIT
DUR ; get stroke/cva duration
+1 NEW SROCC,SRDUR
IF $PIECE(SRAO(12),"^")="NO"
SET X=1
+2 IF X'=1
SET SROCC=0
FOR
SET SROCC=$ORDER(^SRF(SRTN,16,SROCC))
if 'SROCC
QUIT
IF $PIECE(^SRF(SRTN,16,SROCC,0),"^",2)=12
SET X=$PIECE(^SRF(SRTN,16,SROCC,0),"^",8)
+3 SET SRDUR=$SELECT(X=2:"<24 HOURS",X=3:"24-72 HOURS",X=4:">72 HOURS",1:"NO SYMPTOMS")
+4 SET SRAO(12)=SRDUR_"^256"
+5 QUIT
YN ; store answer
+1 SET SHEMP=$SELECT(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")
+2 QUIT
F671 ;
+1 SET SHEMP=$SELECT(X=1:"AMB W/O ASSISTIVE DEVICE",X=2:"AMB WITH CANE OR WALKER",X=3:"USES MANUAL WHEELCHAIR INDEPENDENTLY",X=4:"DOES NOT AMB",1:"")
+2 QUIT
F677(X) ;
+1 QUIT $SELECT(X=0:"NO PREVIOUS SURG",X=1:"1 PREVIOUS SURG",X=2:"2 PREVIOUS SURG",X=3:"3 PREVIOUS SURG",X=4:"4 PREVIOUS SURG",X=5:"5 PREVIOUS SURG",X=6:"6 PREVIOUS SURG",1:"")
+2 ;
RES IF $Y+12>IOSL
DO PAGE^SROAPCA
IF SRSOUT
QUIT
+1 SET SRA(208)=$GET(^SRF(SRTN,208))
+2 SET SRA(.2)=$GET(^SRF(SRTN,.2))
+3 WRITE !!,"VIII. RESOURCE DATA"
+4 SET Y=$PIECE($GET(^SRF(SRTN,208)),"^",11)
SET C=$PIECE(^DD(130,413,0),"^",2)
DO Y^DIQ
SET X=$SELECT(Y'="":Y,1:"NOT ENTERED")
WRITE !,"Transfer Status: ",?25,X
+5 SET Y=$PIECE(SRA(208),"^",14)
DO DT^SROAPCA1
WRITE !,"Hospital Admission Date:",?25,X
+6 SET Y=$PIECE(SRA(208),"^",15)
DO DT^SROAPCA1
WRITE !,"Hospital Discharge Date:",?25,X
+7 SET Y=$PIECE($GET(^SRF(SRTN,210)),"^",14)
SET C=$PIECE(^DD(130,685,0),"^",2)
DO Y^DIQ
SET X=$SELECT(Y'="":Y,1:"NOT ENTERED")
WRITE !,"DC/REL Destination:",?25,X
+8 SET Y=$PIECE(SRA(.2),"^",10)
DO DT^SROAPCA1
WRITE !,"Time Patient In OR: ",?25,X
+9 SET Y=$PIECE(SRA(.2),"^",2)
DO DT^SROAPCA1
WRITE ?45,"Operation Began: ",?66,X
+10 SET Y=$PIECE(SRA(.2),"^",3)
DO DT^SROAPCA1
WRITE !,"Operation Ended: ",?25,X
+11 SET Y=$PIECE(SRA(.2),"^",12)
DO DT^SROAPCA1
WRITE ?45,"Time Patient Out OR: ",X
+12 SET Y=$PIECE(SRA(208),"^",22)
IF Y>1
DO DT^SROAPCA1
SET Y=X
+13 SET Y=$SELECT(Y="NS":"Unable to determine",Y="RI":"Remains intubated at 30 days",1:Y)
WRITE !,"Date and Time Patient Extubated: ",?33,Y
+14 IF $PIECE(SRA(208),"^",22)>1
IF $PIECE(SRA(.2),"^",12)
Begin DoDot:1
+15 SET X=$$FMDIFF^XLFDT($PIECE(SRA(208),"^",22),$PIECE(SRA(.2),"^",12),2)
WRITE !,?5,"Postop Intubation Hrs: ",?33,$FNUMBER((X/3600),"+",1)
End DoDot:1
+16 SET Y=$PIECE(SRA(208),"^",23)
IF Y>1
DO DT^SROAPCA1
SET Y=X
+17 SET Y=$SELECT(Y="NS":"Unable to determine",Y="RI":"Remains in ICU at 30 days",1:Y)
WRITE !,"Date and Time Patient Discharged from ICU: ",?43,Y
+18 SET Y=$PIECE(SRA(209),"^")
WRITE !,"Patient is Homeless: ",?25,$SELECT(Y="Y":"YES",Y="N":"NO",Y="NS":"NS",1:"")
+19 WRITE !,"Date of Death: ",?25,SRDEAD,?45,"30-Day Death: ",?65,$SELECT($PIECE(SRA(205),"^",41)="Y":"YES",1:"NO")
+20 WRITE !,"Current Residence: ",?25,$EXTRACT($PIECE(SRAO(20),"^"),1,20),?45,"Ambulation Device: ",?65,$EXTRACT($PIECE(SRAO(21),"^"),1,15)
+21 WRITE !,"History of Cancer: ",?25,$EXTRACT($PIECE(SRAO(22),"^"),1,20),?45,"History of Radiation Therapy: ",?65,$EXTRACT($PIECE(SRAO(23),"^"),1,15)
+22 WRITE !,"Prior Surg in Same Operative: ",$EXTRACT($PIECE(SRAO(24),"^"),1,20),!
+23 IF $Y+7>IOSL
DO PAGE^SROAPCA
IF SRSOUT
QUIT
+24 WRITE !,"IX. SOCIOECONOMIC, ETHNICITY, AND RACE"
+25 NEW SREMP
SET SREMP=$PIECE(SRA(208),"^",18)
SET SREMP=$SELECT(SREMP=1:"EMPLOYED FULL TIME",SREMP=2:"EMPLOYED PART TIME",SREMP=3:"NOT EMPLOYED",SREMP=4:"SELF EMPLOYED",SREMP=5:"RETIRED",SREMP=6:"ACTIVE MILITARY DUTY",SREMP=9:"UNKNOWN",1:" ")
+26 WRITE !,?1,"Employment Status Preoperatively: ",?40,SREMP
+27 KILL SRA,SRAO
+28 ; Race/Ethnic
+29 DO ENTH^SRORACE
+30 IF $Y+7>IOSL
DO PAGE^SROAPCA
IF SRSOUT
QUIT
+31 DO ^SROAPCA4
+32 WRITE !!," *** End of report for "_SRANM_" assessment #"_SRTN_" ***"
+33 IF $EXTRACT(IOST)'="P"
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
+34 QUIT
