source: WorldVistAEHR/trunk/r/CLINICAL_MONITORING_SYSTEM-QAM/QAMEDT3.m@ 1608

Last change on this file since 1608 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 783 bytes
Line 
1QAMEDT3 ;HISC/DAD-MISC SMALL EDITS ;7/12/93 13:55
2 ;;1.0;Clinical Monitoring System;;09/13/1993
3EN2 ; *** 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
6EN4 ; *** 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
9EN5 ; *** 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
12EXIT ; *** COMMON EXIT POINT
13 K %Y,D0,D1,DA,DI,DIC,DIE,DIDEL,DLAYGO,DQ,DR,J
14 Q
Note: See TracBrowser for help on using the repository browser.