MCARSRE.m

MCARSRE ;WISC/TJK,RMP-CATH SURGICAL RISK ENTER/EDIT ;5/2/96  13:04

 ;;2.3;Medicine;;09/13/1996

PRE W !!,"CARDIAC CATH SURGERY RISK PRE-OP DATA"

 S DIC="^MCAR(694.5,",DIC(0)="AEQLM",(DLAYGO,DIDEL)=694.5,DIC("A")="Enter Patient name or Date & Time of estimate: " D ^DIC G EXIT:Y<0

 S DIE=DIC,(DA,MCARGDA)=+Y I $D(MCARCODE),MCARCODE="S" S DJSC="MCARSRAPRE",DJDN=+Y D EN^MCARD S DA=MCARGDA,(DIE,DIC)="^MCAR(694.5," K MCARCODE G PRE1

 S DR="[MCARSRAPRE]" D ^DIE

 G EXIT:$D(Y),EXIT:'$D(^MCAR(694.5,DA,4)) I $D(^MCAR(694.5,DA,4)),$P(^(4),U,18)="" G EXIT

PRE1 D ^MCARSRR G EXIT

POST ;POST SURGERY INFORMATION

 W !!,"CARDIAC CATH SURGERY RISK POST-OP DATA"

 S DIC="^MCAR(694.5,",DIC(0)="AEQM",DIC("A")="Select Patient:" D ^DIC G EXIT:Y<0

 S DIE=DIC,DA=+Y I $D(MCARCODE),MCARCODE="S" S DJSC="MCARSRA04",(MCARGDA,DJDN)=+Y D EN^MCARD S DA=MCARGDA K MCARCODE G EXIT

 S DR="[MCARSRAPOST]" D ^DIE

EXIT K DIC,DIE,DA,DR,MCARNM,DLAYGO,II,JJ,KK,XX,Y,DIDEL,MCARGDA

 K %H,%Y,%X,%,C,D,D0,D1,DI,DQ,DZ,I,X,Z

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCARSRE   1003     printed  Apr 09, 2024@21:17:53                                                                                                                                                                                                     Page 2

MCARSRE   ;WISC/TJK,RMP-CATH SURGICAL RISK ENTER/EDIT ;5/2/96  13:04

 +1       ;;2.3;Medicine;;09/13/1996

PRE        WRITE !!,"CARDIAC CATH SURGERY RISK PRE-OP DATA"

 +1        SET DIC="^MCAR(694.5,"

           SET DIC(0)="AEQLM"

           SET (DLAYGO,DIDEL)=694.5

           SET DIC("A")="Enter Patient name or Date & Time of estimate: "

           DO ^DIC

           if Y<0

               GOTO EXIT

 +2        SET DIE=DIC

           SET (DA,MCARGDA)=+Y

           IF $DATA(MCARCODE)

               IF MCARCODE="S"

                   SET DJSC="MCARSRAPRE"

                   SET DJDN=+Y

                   DO EN^MCARD

                   SET DA=MCARGDA

                   SET (DIE,DIC)="^MCAR(694.5,"

                   KILL MCARCODE

                   GOTO PRE1

 +3        SET DR="[MCARSRAPRE]"

           DO ^DIE

 +4        if $DATA(Y)

               GOTO EXIT

           if '$DATA(^MCAR(694.5,DA,4))

               GOTO EXIT

           IF $DATA(^MCAR(694.5,DA,4))

               IF $PIECE(^(4),U,18)=""

                   GOTO EXIT

PRE1       DO ^MCARSRR

           GOTO EXIT

POST      ;POST SURGERY INFORMATION

 +1        WRITE !!,"CARDIAC CATH SURGERY RISK POST-OP DATA"

 +2        SET DIC="^MCAR(694.5,"

           SET DIC(0)="AEQM"

           SET DIC("A")="Select Patient:"

           DO ^DIC

           if Y<0

               GOTO EXIT

 +3        SET DIE=DIC

           SET DA=+Y

           IF $DATA(MCARCODE)

               IF MCARCODE="S"

                   SET DJSC="MCARSRA04"

                   SET (MCARGDA,DJDN)=+Y

                   DO EN^MCARD

                   SET DA=MCARGDA

                   KILL MCARCODE

                   GOTO EXIT

 +4        SET DR="[MCARSRAPOST]"

           DO ^DIE

EXIT       KILL DIC,DIE,DA,DR,MCARNM,DLAYGO,II,JJ,KK,XX,Y,DIDEL,MCARGDA

 +1        KILL %H,%Y,%X,%,C,D,D0,D1,DI,DQ,DZ,I,X,Z

 +2        QUIT