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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAMEDT3 797 printed Jan 18, 2025@02:43:34 Page 2
QAMEDT3 ;HISC/DAD-MISC SMALL EDITS ;7/12/93 13:55
+1 ;;1.0;Clinical Monitoring System;;09/13/1993
EN2 ; *** PROGRAMMER EDIT CONDITIONS FILE
+1 SET DIC="^QA(743.3,"
SET DIC(0)="AELMNQ"
SET DIC("A")="Select CONDITION: "
SET DLAYGO=743.3
WRITE !
DO ^DIC
KILL DIC
if Y'>0
GOTO EXIT
SET DA=+Y
SET DIE="^QA(743.3,"
SET DR=".01;.02;3;4;1;2"
DO ^DIE
+2 GOTO EN2
EN4 ; *** EDIT RATIONALE FILE
+1 SET DIC="^QA(743.91,"
SET DIC(0)="AELMNQ"
SET DIC("A")="Select RATIONALE: "
SET DLAYGO=743.91
WRITE !
DO ^DIC
KILL DIC
if Y'>0
GOTO EXIT
SET DA=+Y
SET DIE="^QA(743.91,"
SET DR=".01;1"
DO ^DIE
+2 GOTO EN4
EN5 ; *** PROGRAMMER EDIT TIME FRAME FILE
+1 SET DIC="^QA(743.92,"
SET DIC(0)="AELMNQ"
SET DIC("A")="Select TIME FRAME: "
SET DLAYGO=743.92
WRITE !
DO ^DIC
KILL DIC
if Y'>0
GOTO EXIT
SET DA=+Y
SET DIE="^QA(743.92,"
SET DR=".01;100"
DO ^DIE
+2 GOTO EN5
EXIT ; *** COMMON EXIT POINT
+1 KILL %Y,D0,D1,DA,DI,DIC,DIE,DIDEL,DLAYGO,DQ,DR,J
+2 QUIT
