source:
WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBASTAT.m@
1726
Last change on this file since 1726 was 613, checked in by , 15 years ago | |
---|---|
File size: 711 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | DVBASTAT ;ALB/GTS-557/THM-AMIE REQUEST STATUS INQUIRY ;21 JUL 89 |
2 | ;;2.7;AMIE;;Apr 10, 1995 | |
3 | ; | |
4 | TERM D HOME^%ZIS | |
5 | ; | |
6 | SETUP D KILL D DICW^DVBAUTIL | |
7 | W @IOF S DIC("A")="Enter PATIENT NAME: ",DIC="^DVB(396,",DIC(0)="AEQM" D ^DIC G:X=""!(X=U) EXIT I Y>0 S DA=+Y | |
8 | I Y<0 W *7," ??" H 2 G SETUP | |
9 | PRINT ; | |
10 | S BY="@NUMBER",FLDS="[DVBA STATUS]",L=0,FR=DA,TO=DA | |
11 | D EN1^DIP | |
12 | ; | |
13 | CONT S ANS="" I IOST?1"C-".E U IO(0) W !,*7,"Enter E to end, ""^"" to EXIT or RETURN to continue " R ANS:DTIME | |
14 | G:ANS="E"!('$T)!(ANS=U) EXIT I ANS="" D KILL G SETUP | |
15 | G CONT | |
16 | ; | |
17 | EXIT I IOST?1"C-".E W @IOF | |
18 | ; | |
19 | KILL K ANS,BY,CNUM,DA,DIC,DIC(0),FLDS,FR,L,PNAM,SSN,TO,X,Y,%XX,%YY,DP,FINALDTE,P,ZDAT,DATE,NAME,ZDAT1,ZTYPE,ZX,DIJ,IOY,DVBADIC,FDT(0),DIYS | |
20 | Q |
Note:
See TracBrowser
for help on using the repository browser.