DVBASTAT.m

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 ---DVBASTAT   731     printed  Apr 09, 2024@20:58:19                                                                                                                                                                                                     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