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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBASTAT 731 printed Oct 16, 2024@17:43:06 Page 2
DVBASTAT ;ALB/GTS-557/THM-AMIE REQUEST STATUS INQUIRY ;21 JUL 89
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;
TERM DO HOME^%ZIS
+1 ;
SETUP DO KILL
DO DICW^DVBAUTIL
+1 WRITE @IOF
SET DIC("A")="Enter PATIENT NAME: "
SET DIC="^DVB(396,"
SET DIC(0)="AEQM"
DO ^DIC
if X=""!(X=U)
GOTO EXIT
IF Y>0
SET DA=+Y
+2 IF Y<0
WRITE *7," ??"
HANG 2
GOTO SETUP
PRINT ;
+1 SET BY="@NUMBER"
SET FLDS="[DVBA STATUS]"
SET L=0
SET FR=DA
SET TO=DA
+2 DO EN1^DIP
+3 ;
CONT SET ANS=""
IF IOST?1"C-".E
USE IO(0)
WRITE !,*7,"Enter E to end, ""^"" to EXIT or RETURN to continue "
READ ANS:DTIME
+1 if ANS="E"!('$TEST)!(ANS=U)
GOTO EXIT
IF ANS=""
DO KILL
GOTO SETUP
+2 GOTO CONT
+3 ;
EXIT IF IOST?1"C-".E
WRITE @IOF
+1 ;
KILL KILL 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
+1 QUIT
