- 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 Apr 23, 2025@17:56:41 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
