SROUTC ;BIR/SJA - OUTCOMES DATA ;03/13/06
;;3.0; Surgery ;**125,135,153**;24 Jun 93;Build 11
D UPDT490,EN^SROCCAT
F I=205,206,208,209 S SRA(I)=$G(^SRF(SRTN,I))
S NYUK=$P(SRA(208),"^",2) D YN S SRAO(1)=SHEMP_"^385",NYUK=$P(SRA(208),"^",7) D YN S SRAO(8)=SHEMP_"^391"
S NYUK=$P(SRA(208),"^",3) D YN S SRAO(2)=SHEMP_"^386",NYUK=$P(SRA(206),"^",39) D YN S SRAO(9)=SHEMP_"^466"
S NYUK=$P(SRA(205),"^",17) D YN S SRAO(3)=SHEMP_"^254",NYUK=$P(SRA(209),"^",12) D YN S SRAO(10)=SHEMP_"^490"
S NYUK=$P(SRA(208),"^",5) D YN S SRAO(4)=SHEMP_"^388",NYUK=$P(SRA(205),"^",21) D YN S SRAO(11)=SHEMP_"^256"
S NYUK=$P(SRA(205),"^",26) D YN S SRAO(5)=SHEMP_"^411",NYUK=$P(SRA(205),"^",22) D YN S SRAO(12)=SHEMP_"^410"
S NYUK=$P(SRA(208),"^",6) D YN S SRAO(6)=SHEMP_"^389",NYUK=$P(SRA(206),"^",40) D YN S SRAO(13)=SHEMP_"^467"
S NYUK=$P(SRA(205),"^",13) D YN S SRAO(7)=SHEMP_"^285",NYUK=$P(SRA(208),"^") D YN S SRAO(0)=SHEMP_"^384"
;
DISP S SRPAGE="PAGE: 1",SRHDR(.5)="OUTCOMES INFORMATION" D HDR^SROAUTL
W !,"0. Operative Death: ",?35,$P(SRAO(0),"^")
W !!,"Perioperative (30 day) Occurrences:",!,"-----------------------------------"
W !,"1. Perioperative MI: ",?35,$P(SRAO(1),"^"),?40," 8. Repeat cardiac surg procedure: ",?76,$P(SRAO(8),"^")
W !,"2. Endocarditis: ",?35,$P(SRAO(2),"^"),?40," 9. Tracheostomy: ",?76,$P(SRAO(9),"^")
W !,"3. Renal failure require dialysis: ",$P(SRAO(3),"^"),?40,"10. Repeat ventilator w/in 30 days: ",?76,$P(SRAO(10),"^")
W !,"4. Mediastinitis: ",?35,$P(SRAO(4),"^"),?40,"11. Stroke: ",?76,$P(SRAO(11),"^")
W !,"5. Cardiac arrest requiring CPR: ",?35,$P(SRAO(5),"^"),?40,"12. Coma >= 24 hr: ",?76,$P(SRAO(12),"^")
W !,"6. Reoperation for bleeding: ",?35,$P(SRAO(6),"^"),?40,"13. New Mech Circ Support: ",?76,$P(SRAO(13),"^")
W !,"7. On ventilator >= 48 hr: ",?35,$P(SRAO(7),"^")
W !! F MOE=1:1:80 W "-"
Q
YN ; store answer
S SHEMP=$S(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")
Q
UPDT490 ; update field 490
N SRX S SRX=$P($G(^SRF(SRTN,209)),"^",12) S:SRX="" SRX="N"
K DA,DIE,DR S DIE=130,DA=SRTN,DR="490////"_SRX D ^DIE K DA,DIE,DR
Q
UPDATE N SRCMP,SROC,SRI,SRIF,SRQ,SRY D MAP
I EMILY=5!(EMILY=13) D IP Q
S X=$P(^SRO(136.5,SROC,0),"^"),DIC(0)="L",DLAYGO="130.22",DA(1)=SRTN,DIC="^SRF("_SRTN_",16," D FILE^DICN
S $P(^SRF(SRTN,16,+Y,0),"^",2)=SROC,SRY=+Y
EM8 I EMILY=8 K DIR S DIR(0)="130.22,8",DIR("A")="Cardiopulmonary Bypass Status" D ^DIR G:X="" EM8 D K DR,DA,DIE
.K DA,DR,DIE,DIR I X["^"!(X="@")!(Y=0) D DEL S DA=SRTN,DIE=130,DR="391////N" D ^DIE Q
.S DA=SRY,DR="8///"_Y,DA(1)=SRTN,DIE="^SRF(SRTN,16," D ^DIE
Q
IP K DIR S DIR("A")="Is this an Intraoperative occurrence? ",DIR("B")="YES",DIR(0)="YA" D ^DIR K DIR Q:$D(DTOUT)!$D(DUOUT)
S SRIF=Y
I SRIF=1 S X=$P(^SRO(136.5,SROC,0),"^"),DIC(0)="L",DLAYGO="130.14",DA(1)=SRTN,DIC="^SRF("_SRTN_",10," D FILE^DICN S $P(^SRF(SRTN,10,+Y,0),"^",2)=SROC Q
;
I SRIF=0 S X=$P(^SRO(136.5,SROC,0),"^"),DIC(0)="L",DLAYGO="130.22",DA(1)=SRTN,DIC="^SRF("_SRTN_",16," D FILE^DICN S $P(^SRF(SRTN,16,+Y,0),"^",2)=SROC
Q
DEL ; delete existing Post/Intraoperative occurrences.
N II,SRII,SROC D MAP
S II=0 F S II=$O(^SRF(SRTN,16,II)) Q:'II S SRII=$G(^(II,0)) I $P(SRII,"^",2)=SROC D Q
.S DA(1)=SRTN,DA=II,DIK="^SRF("_SRTN_",16," D ^DIK I '$O(^SRF(SRTN,16,0)) K ^SRF(SRTN,16,0)
;
S II=0 F S II=$O(^SRF(SRTN,10,II)) Q:'II S SRII=$G(^(II,0)) I $P(SRII,"^",2)=SROC D Q
.S DA(1)=SRTN,DA=II,DIK="^SRF("_SRTN_",10," D ^DIK I '$O(^SRF(SRTN,10,0)) K ^SRF(SRTN,10,0)
Q
MAP S SROC=$S(EMILY=1:17,EMILY=2:23,EMILY=3:9,EMILY=4:25,EMILY=5:16,EMILY=6:26,EMILY=7:6,EMILY=8:27,EMILY=9:33,EMILY=10:37,EMILY=11:12,EMILY=12:13,1:34)
Q
SROUTC ;BIR/SJA - OUTCOMES DATA ;03/13/06
+1 ;;3.0; Surgery ;**125,135,153**;24 Jun 93;Build 11
+2 DO UPDT490
DO EN^SROCCAT
+3 FOR I=205,206,208,209
SET SRA(I)=$GET(^SRF(SRTN,I))
+4 SET NYUK=$PIECE(SRA(208),"^",2)
DO YN
SET SRAO(1)=SHEMP_"^385"
SET NYUK=$PIECE(SRA(208),"^",7)
DO YN
SET SRAO(8)=SHEMP_"^391"
+5 SET NYUK=$PIECE(SRA(208),"^",3)
DO YN
SET SRAO(2)=SHEMP_"^386"
SET NYUK=$PIECE(SRA(206),"^",39)
DO YN
SET SRAO(9)=SHEMP_"^466"
+6 SET NYUK=$PIECE(SRA(205),"^",17)
DO YN
SET SRAO(3)=SHEMP_"^254"
SET NYUK=$PIECE(SRA(209),"^",12)
DO YN
SET SRAO(10)=SHEMP_"^490"
+7 SET NYUK=$PIECE(SRA(208),"^",5)
DO YN
SET SRAO(4)=SHEMP_"^388"
SET NYUK=$PIECE(SRA(205),"^",21)
DO YN
SET SRAO(11)=SHEMP_"^256"
+8 SET NYUK=$PIECE(SRA(205),"^",26)
DO YN
SET SRAO(5)=SHEMP_"^411"
SET NYUK=$PIECE(SRA(205),"^",22)
DO YN
SET SRAO(12)=SHEMP_"^410"
+9 SET NYUK=$PIECE(SRA(208),"^",6)
DO YN
SET SRAO(6)=SHEMP_"^389"
SET NYUK=$PIECE(SRA(206),"^",40)
DO YN
SET SRAO(13)=SHEMP_"^467"
+10 SET NYUK=$PIECE(SRA(205),"^",13)
DO YN
SET SRAO(7)=SHEMP_"^285"
SET NYUK=$PIECE(SRA(208),"^")
DO YN
SET SRAO(0)=SHEMP_"^384"
+11 ;
DISP SET SRPAGE="PAGE: 1"
SET SRHDR(.5)="OUTCOMES INFORMATION"
DO HDR^SROAUTL
+1 WRITE !,"0. Operative Death: ",?35,$PIECE(SRAO(0),"^")
+2 WRITE !!,"Perioperative (30 day) Occurrences:",!,"-----------------------------------"
+3 WRITE !,"1. Perioperative MI: ",?35,$PIECE(SRAO(1),"^"),?40," 8. Repeat cardiac surg procedure: ",?76,$PIECE(SRAO(8),"^")
+4 WRITE !,"2. Endocarditis: ",?35,$PIECE(SRAO(2),"^"),?40," 9. Tracheostomy: ",?76,$PIECE(SRAO(9),"^")
+5 WRITE !,"3. Renal failure require dialysis: ",$PIECE(SRAO(3),"^"),?40,"10. Repeat ventilator w/in 30 days: ",?76,$PIECE(SRAO(10),"^")
+6 WRITE !,"4. Mediastinitis: ",?35,$PIECE(SRAO(4),"^"),?40,"11. Stroke: ",?76,$PIECE(SRAO(11),"^")
+7 WRITE !,"5. Cardiac arrest requiring CPR: ",?35,$PIECE(SRAO(5),"^"),?40,"12. Coma >= 24 hr: ",?76,$PIECE(SRAO(12),"^")
+8 WRITE !,"6. Reoperation for bleeding: ",?35,$PIECE(SRAO(6),"^"),?40,"13. New Mech Circ Support: ",?76,$PIECE(SRAO(13),"^")
+9 WRITE !,"7. On ventilator >= 48 hr: ",?35,$PIECE(SRAO(7),"^")
+10 WRITE !!
FOR MOE=1:1:80
WRITE "-"
+11 QUIT
YN ; store answer
+1 SET SHEMP=$SELECT(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")
+2 QUIT
UPDT490 ; update field 490
+1 NEW SRX
SET SRX=$PIECE($GET(^SRF(SRTN,209)),"^",12)
IF SRX=""
SET SRX="N"
+2 KILL DA,DIE,DR
SET DIE=130
SET DA=SRTN
SET DR="490////"_SRX
DO ^DIE
KILL DA,DIE,DR
+3 QUIT
UPDATE NEW SRCMP,SROC,SRI,SRIF,SRQ,SRY
DO MAP
+1 IF EMILY=5!(EMILY=13)
DO IP
QUIT
+2 SET X=$PIECE(^SRO(136.5,SROC,0),"^")
SET DIC(0)="L"
SET DLAYGO="130.22"
SET DA(1)=SRTN
SET DIC="^SRF("_SRTN_",16,"
DO FILE^DICN
+3 SET $PIECE(^SRF(SRTN,16,+Y,0),"^",2)=SROC
SET SRY=+Y
EM8 IF EMILY=8
KILL DIR
SET DIR(0)="130.22,8"
SET DIR("A")="Cardiopulmonary Bypass Status"
DO ^DIR
IF X=""
GOTO EM8
Begin DoDot:1
+1 KILL DA,DR,DIE,DIR
IF X["^"!(X="@")!(Y=0)
DO DEL
SET DA=SRTN
SET DIE=130
SET DR="391////N"
DO ^DIE
QUIT
+2 SET DA=SRY
SET DR="8///"_Y
SET DA(1)=SRTN
SET DIE="^SRF(SRTN,16,"
DO ^DIE
End DoDot:1
KILL DR,DA,DIE
+3 QUIT
IP KILL DIR
SET DIR("A")="Is this an Intraoperative occurrence? "
SET DIR("B")="YES"
SET DIR(0)="YA"
DO ^DIR
KILL DIR
IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+1 SET SRIF=Y
+2 IF SRIF=1
SET X=$PIECE(^SRO(136.5,SROC,0),"^")
SET DIC(0)="L"
SET DLAYGO="130.14"
SET DA(1)=SRTN
SET DIC="^SRF("_SRTN_",10,"
DO FILE^DICN
SET $PIECE(^SRF(SRTN,10,+Y,0),"^",2)=SROC
QUIT
+3 ;
+4 IF SRIF=0
SET X=$PIECE(^SRO(136.5,SROC,0),"^")
SET DIC(0)="L"
SET DLAYGO="130.22"
SET DA(1)=SRTN
SET DIC="^SRF("_SRTN_",16,"
DO FILE^DICN
SET $PIECE(^SRF(SRTN,16,+Y,0),"^",2)=SROC
+5 QUIT
DEL ; delete existing Post/Intraoperative occurrences.
+1 NEW II,SRII,SROC
DO MAP
+2 SET II=0
FOR
SET II=$ORDER(^SRF(SRTN,16,II))
IF 'II
QUIT
SET SRII=$GET(^(II,0))
IF $PIECE(SRII,"^",2)=SROC
Begin DoDot:1
+3 SET DA(1)=SRTN
SET DA=II
SET DIK="^SRF("_SRTN_",16,"
DO ^DIK
IF '$ORDER(^SRF(SRTN,16,0))
KILL ^SRF(SRTN,16,0)
End DoDot:1
QUIT
+4 ;
+5 SET II=0
FOR
SET II=$ORDER(^SRF(SRTN,10,II))
IF 'II
QUIT
SET SRII=$GET(^(II,0))
IF $PIECE(SRII,"^",2)=SROC
Begin DoDot:1
+6 SET DA(1)=SRTN
SET DA=II
SET DIK="^SRF("_SRTN_",10,"
DO ^DIK
IF '$ORDER(^SRF(SRTN,10,0))
KILL ^SRF(SRTN,10,0)
End DoDot:1
QUIT
+7 QUIT
MAP SET SROC=$SELECT(EMILY=1:17,EMILY=2:23,EMILY=3:9,EMILY=4:25,EMILY=5:16,EMILY=6:26,EMILY=7:6,EMILY=8:27,EMILY=9:33,EMILY=10:37,EMILY=11:12,EMILY=12:13,1:34)
+1 QUIT
