15 lines
783 B
Mathematica
15 lines
783 B
Mathematica
QAMEDT3 ;HISC/DAD-MISC SMALL EDITS ;7/12/93 13:55
|
|
;;1.0;Clinical Monitoring System;;09/13/1993
|
|
EN2 ; *** PROGRAMMER EDIT CONDITIONS FILE
|
|
S DIC="^QA(743.3,",DIC(0)="AELMNQ",DIC("A")="Select CONDITION: ",DLAYGO=743.3 W ! D ^DIC K DIC G:Y'>0 EXIT S DA=+Y,DIE="^QA(743.3,",DR=".01;.02;3;4;1;2" D ^DIE
|
|
G EN2
|
|
EN4 ; *** EDIT RATIONALE FILE
|
|
S DIC="^QA(743.91,",DIC(0)="AELMNQ",DIC("A")="Select RATIONALE: ",DLAYGO=743.91 W ! D ^DIC K DIC G:Y'>0 EXIT S DA=+Y,DIE="^QA(743.91,",DR=".01;1" D ^DIE
|
|
G EN4
|
|
EN5 ; *** PROGRAMMER EDIT TIME FRAME FILE
|
|
S DIC="^QA(743.92,",DIC(0)="AELMNQ",DIC("A")="Select TIME FRAME: ",DLAYGO=743.92 W ! D ^DIC K DIC G:Y'>0 EXIT S DA=+Y,DIE="^QA(743.92,",DR=".01;100" D ^DIE
|
|
G EN5
|
|
EXIT ; *** COMMON EXIT POINT
|
|
K %Y,D0,D1,DA,DI,DIC,DIE,DIDEL,DLAYGO,DQ,DR,J
|
|
Q
|