| 1 | QAMEDT3 ;HISC/DAD-MISC SMALL EDITS ;7/12/93 13:55
|
|---|
| 2 | ;;1.0;Clinical Monitoring System;;09/13/1993
|
|---|
| 3 | EN2 ; *** PROGRAMMER EDIT CONDITIONS FILE
|
|---|
| 4 | 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
|
|---|
| 5 | G EN2
|
|---|
| 6 | EN4 ; *** EDIT RATIONALE FILE
|
|---|
| 7 | 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
|
|---|
| 8 | G EN4
|
|---|
| 9 | EN5 ; *** PROGRAMMER EDIT TIME FRAME FILE
|
|---|
| 10 | 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
|
|---|
| 11 | G EN5
|
|---|
| 12 | EXIT ; *** COMMON EXIT POINT
|
|---|
| 13 | K %Y,D0,D1,DA,DI,DIC,DIE,DIDEL,DLAYGO,DQ,DR,J
|
|---|
| 14 | Q
|
|---|
