QAMEDT3.m

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 ---QAMEDT3   797     printed  Apr 09, 2024@20:46:59                                                                                                                                                                                                      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