SROACRC.m

SROACRC ;B'HAM ISC/MAM - CARDIAC COMPLICATION DATA ; 5 MAR 1992  8:15 am

 ;;3.0; Surgery ;;24 Jun 93

 S SRA(208)=$G(^SRF(SRTN,208)),SRA(205)=$G(^SRF(SRTN,205))

 S NYUK=$P(SRA(208),"^") D YN S SRAO(1)=SHEMP_"^384",NYUK=$P($G(^DPT(DFN,.35)),"^") S:NYUK NYUK=$E(NYUK,4,5)_"/"_$E(NYUK,6,7)_"/"_$E(NYUK,2,3) S SRAO(2)=NYUK

 S NYUK=$P(SRA(208),"^",2) D YN S SRAO(3)=SHEMP_"^385",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(208),"^",4) D YN S SRAO(6)=SHEMP_"^387"

 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",NYUK=$P(SRA(208),"^",8) D YN S SRAO(12)=SHEMP_"^390",NYUK=$P(SRA(205),"^",26) D YN S SRAO(13)=SHEMP_"^411"

 W @IOF,!,SRANAME,?67,"PAGE: 1",! F I=1:1:80 W "-"

 W !!," 1. Operative Death:",?53,$P(SRAO(1),"^"),!," 2. Date of Death:",?53,$P(SRAO(2),"^"),!!," 3. Perioperative MI:",?53,$P(SRAO(3),"^"),!," 4. Endocarditis:",?53,$P(SRAO(4),"^")

 W !," 5. Renal Failure Requiring Dialysis:",?53,$P(SRAO(5),"^"),!," 6. Low Cardiac Output  > or = 6 Hours:",?53,$P(SRAO(6),"^"),!," 7. Mediastinitis:",?53,$P(SRAO(7),"^")

 W !," 8. Reoperation for Bleeding:",?53,$P(SRAO(8),"^"),!," 9. On Ventilator > or = 48 Hours:",?53,$P(SRAO(9),"^"),!,"10. Repeat Cardiopulmonary Bypass:",?53,$P(SRAO(10),"^")

 W !,"11. Coma > or = 24 Hours:",?53,$P(SRAO(11),"^"),!,"12. Stroke:",?53,$P(SRAO(12),"^"),!,"13. Cardiac Arrest Requiring CPR:",?53,$P(SRAO(13),"^"),!! F MOE=1:1:80 W "-"

 Q

YN ; store answer

 S SHEMP=$S(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")

 Q

SROACRC   ;B'HAM ISC/MAM - CARDIAC COMPLICATION DATA ; 5 MAR 1992  8:15 am

 +1       ;;3.0; Surgery ;;24 Jun 93

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

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

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

           DO YN

           SET SRAO(1)=SHEMP_"^384"

           SET NYUK=$PIECE($GET(^DPT(DFN,.35)),"^")

           IF NYUK

               SET NYUK=$EXTRACT(NYUK,4,5)_"/"_$EXTRACT(NYUK,6,7)_"/"_$EXTRACT(NYUK,2,3)

           SET SRAO(2)=NYUK

 +4        SET NYUK=$PIECE(SRA(208),"^",2)

           DO YN

           SET SRAO(3)=SHEMP_"^385"

           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(208),"^",4)

           DO YN

           SET SRAO(6)=SHEMP_"^387"

 +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"

           SET NYUK=$PIECE(SRA(208),"^",8)

           DO YN

           SET SRAO(12)=SHEMP_"^390"

           SET NYUK=$PIECE(SRA(205),"^",26)

           DO YN

           SET SRAO(13)=SHEMP_"^411"

 +7        WRITE @IOF,!,SRANAME,?67,"PAGE: 1",!

           FOR I=1:1:80

               WRITE "-"

 +8        WRITE !!," 1. Operative Death:",?53,$PIECE(SRAO(1),"^"),!," 2. Date of Death:",?53,$PIECE(SRAO(2),"^"),!!," 3. Perioperative MI:",?53,$PIECE(SRAO(3),"^"),!," 4. Endocarditis:",?53,$PIECE(SRAO(4),"^")

 +9        WRITE !," 5. Renal Failure Requiring Dialysis:",?53,$PIECE(SRAO(5),"^"),!," 6. Low Cardiac Output  > or = 6 Hours:",?53,$PIECE(SRAO(6),"^"),!," 7. Mediastinitis:",?53,$PIECE(SRAO(7),"^")

 +10       WRITE !," 8. Reoperation for Bleeding:",?53,$PIECE(SRAO(8),"^"),!," 9. On Ventilator > or = 48 Hours:",?53,$PIECE(SRAO(9),"^"),!,"10. Repeat Cardiopulmonary Bypass:",?53,$PIECE(SRAO(10),"^")

 +11       WRITE !,"11. Coma > or = 24 Hours:",?53,$PIECE(SRAO(11),"^"),!,"12. Stroke:",?53,$PIECE(SRAO(12),"^"),!,"13. Cardiac Arrest Requiring CPR:",?53,$PIECE(SRAO(13),"^"),!!

           FOR MOE=1:1:80

               WRITE "-"

 +12       QUIT 

YN        ; store answer

 +1        SET SHEMP=$SELECT(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")

 +2        QUIT