| 1 | MCARSRE ;WISC/TJK,RMP-CATH SURGICAL RISK ENTER/EDIT ;5/2/96 13:04
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | PRE W !!,"CARDIAC CATH SURGERY RISK PRE-OP DATA"
|
|---|
| 4 | 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
|
|---|
| 5 | 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
|
|---|
| 6 | S DR="[MCARSRAPRE]" D ^DIE
|
|---|
| 7 | G EXIT:$D(Y),EXIT:'$D(^MCAR(694.5,DA,4)) I $D(^MCAR(694.5,DA,4)),$P(^(4),U,18)="" G EXIT
|
|---|
| 8 | PRE1 D ^MCARSRR G EXIT
|
|---|
| 9 | POST ;POST SURGERY INFORMATION
|
|---|
| 10 | W !!,"CARDIAC CATH SURGERY RISK POST-OP DATA"
|
|---|
| 11 | S DIC="^MCAR(694.5,",DIC(0)="AEQM",DIC("A")="Select Patient:" D ^DIC G EXIT:Y<0
|
|---|
| 12 | 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
|
|---|
| 13 | S DR="[MCARSRAPOST]" D ^DIE
|
|---|
| 14 | EXIT K DIC,DIE,DA,DR,MCARNM,DLAYGO,II,JJ,KK,XX,Y,DIDEL,MCARGDA
|
|---|
| 15 | K %H,%Y,%X,%,C,D,D0,D1,DI,DQ,DZ,I,X,Z
|
|---|
| 16 | Q
|
|---|
