- 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 ---[H[J[2J[HMCARSRE 1003 printed Feb 18, 2025@23:40:59 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
