DVBASTAT ;ALB/GTS-557/THM-AMIE REQUEST STATUS INQUIRY ;21 JUL 89
 ;;2.7;AMIE;;Apr 10, 1995
 ;
TERM D HOME^%ZIS
 ;
SETUP D KILL D DICW^DVBAUTIL
 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
 I Y<0 W *7,"   ??" H 2 G SETUP
PRINT ;
 S BY="@NUMBER",FLDS="[DVBA STATUS]",L=0,FR=DA,TO=DA
 D EN1^DIP
 ;
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
 G:ANS="E"!('$T)!(ANS=U) EXIT I ANS="" D KILL G SETUP
 G CONT
 ;
EXIT I IOST?1"C-".E W @IOF
 ;
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
 Q