Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBAUTIL

Package: Automated Medical Information Exchange

Routine: DVBAUTIL


Information

DVBAUTIL ;ALB ISC/THM,SBW-AMIE UTILITIES ; 3/MAY/2011

Source Information

Source file <DVBAUTIL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^%DT  ^%DTC  YN^DICN  
Automated Medical Information Exchange 1 WR^DVBAUTL4  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 35

Package Total Caller Graph
Automated Medical Information Exchange 35 DVBAADMR  DVBAADRP  DVBAALRT  DVBAB51  DVBAB52  DVBAB53  DVBAB54  DVBAB56  
DVBAB82  DVBAB9  DVBAB98  DVBACERT  DVBACMRP  DVBACRMS  DVBACRRP  DVBACRRR  
DVBADSCK  DVBADSNT  DVBADSR1  DVBADSRP  DVBADSRT  DVBAEDIT  DVBAERMK  DVBAFINL  
DVBAPEND  DVBARAD1  DVBARADM  DVBAREG1  DVBAREG2  DVBAREQS  DVBARL21  DVBASCRP  
DVBASPD2  DVBASPDC  DVBASTAT  

Entry Points

Name Comments DBIA/ICR reference
SORT
RONUM
KILL ;kill all variables and exit selected program
KILL1
LOS ;compute length of stay for discharge report
DATE
DICW
DICW1
DICW2
FINAL ;
DUZ2
S ;
S1 ;
K ;
K1 ;
EXIT ;called from the DVBAREG1 routine, kills off variables at end.

External References

Name Field # of Occurrence
^%DT LOS+1, LOS+2, DATE+2, DATE+3
^%DTC LOS+3
^%ZISC KILL+1
YN^DICN SORT
WR^DVBAUTL4 EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sort by Regional Office number"
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: !!,*7,"Enter Y to sort by the Regional Office number you",!,"select or enter N to get ALL Regional Offices reported."
  • Line Location: SORT+1
Function Call: WRITE
  • Prompt: !,*7,"Invalid response.",!!
  • Line Location: SORT+4
Function Call: READ
  • Variable: RONUM
  • Timeout: DTIME
  • Line Location: RONUM+0
Function Call: WRITE
  • Prompt: *7
  • Line Location: RONUM+0
Function Call: WRITE
  • Prompt: *7," Must be 3 numbers plus optional 1 to 4 alphanumeric modifier",!!
  • Line Location: RONUM+1
Function Call: WRITE
  • Prompt: !,?5,"The entry of future dates is NOT allowed.",!
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,*7,"Invalid date sequence. Beginning date must be before the ending date.",!!
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: *7,!!,"You have no division code. Please contact the site manager.",!!
  • Line Location: DUZ2+1
Function Call: WRITE
  • Prompt: *7,!!,"Your division code is invalid.",!!
  • Line Location: DUZ2+3
Function Call: WRITE
  • Prompt: *7,!!,"Your division has no station number defined in the INSTITUTION file.",!,"Please consult IRM to request a unique station number for your division.",!!
  • Line Location: DUZ2+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DUZ2+2
^DVB(396.1 - [#396.1] FINAL+1*
^TMP("ADMIT" KILL1+4!
^TMP("DVBA" KILL1+5!, EXIT+5!
^TMP($J KILL1+1!
^UTILITY("DIQ1" EXIT+5!
^UTILITY($J KILL1+5!

Label References

Name Line Occurrences
DATE DATE+4
KILL1 FINAL+2
RONUM SORT+3, RONUM+1
SORT SORT+1, SORT+4, RONUMDATE+6

Naked Globals

Name Field # of Occurrence
^(99 DUZ2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SORT*, SORT+2, SORT+3, KILL1+4!, EXIT+3!
%DT KILL1!, LOS+1*, DATE+2*, DATE+3*
%DT("A" DATE+2*, DATE+3*
%DT(0 DATE+1*, DATE+6!
%IS KILL1+2!
%X KILL1+1!
%XX KILL1+1!
%Y SORT+1, KILL1+1!, EXIT+3!
%Y1 EXIT+3!
%YY KILL1+1!
%ZIS KILL1!, KILL1+2!
A KILL1!, EXIT+3!
AA KILL1+4!
ADIV KILL1+2!
ADM KILL1+3!, EXIT+3!
ADMDATE KILL1+2!
ADMDT KILL1!, KILL1+4!, LOS+1, EXIT+3!
ADMNUM KILL1!, KILL1+3!, EXIT+3!
ADTYPE KILL1+3!
ANS KILL1!, EXIT+3!
ANS1 KILL1+4!, EXIT+3!
AROWOUT EXIT+4!
BDATE KILL1!, DATE+2*, DATE+4, DATE+5*
BDATE1 KILL1+3!
BDIV KILL1+3!
BDT KILL1+2!
BDT1 KILL1+3!
BED KILL1+3!
BEDSEC KILL1!
C KILL1!
CFLC KILL1+2!, KILL1+4!
CFLOC KILL1!
CNM KILL1+2!
CNT KILL1+2!
CNUM KILL1!, EXIT+3!
CURADMDT KILL1+4!
D KILL1+2!
D0 KILL1+2!
D1 KILL1+2!
DA KILL1!, EXIT+3!
DATA KILL1+2!
DCHGDT KILL1!, LOS+2
DCHPTR KILL1+5!
DFN KILL1+3!, EXIT+3!
DHD KILL1+4!
DI KILL1+2!
DIAG KILL1!
DIC KILL1+1!, KILL1+2!, EXIT+3!
DIC("W" DICW2*
DIE KILL1+2!, EXIT+3!
DIPGM KILL1!
DIS KILL1!
DISCH KILL1+3!
DIVHD KILL1+2!
DIWF KILL1+4!
DIWL KILL1+4!
DIWR KILL1+4!
DLAYGO KILL1+2!
DO KILL1+3!
DOCTYPE KILL1+3!, EXIT+3!
DQ KILL1+2!, EXIT+3!
DR KILL1+2!, EXIT+3!
DSRP KILL1!
DT DATE+1, FINAL+1
DTA KILL1+4!
DTAR KILL1+3!, EXIT+3!
DTIME RONUM
DTOUT SORT!, KILL1+1!, EXIT+3!
>> DUZ(2 DUZ2+1, DUZ2+2
DVBA KILL1+5!
DVBACEPT KILL1+5!
DVBAD2 DUZ2+2*, DUZ2+3, DUZ2+5, EXIT+4!
DVBADD KILL1+1!
DVBADIC KILL1+3!, EXIT+3!
DVBADIC(0 DICW*
DVBADIC(1 DICW1*
DVBADIV KILL1+2!, EXIT+3!
DVBADM EXIT+4!
DVBADT KILL1+4!
DVBAEDT EXIT+3!
DVBAELIG KILL1+4!
DVBAELST KILL1+4!
DVBAENTR EXIT+3!
DVBAFIND KILL1+1!
DVBAH KILL1+4!
DVBAI KILL1+5!
DVBAIFN EXIT+4!
DVBANL EXIT+4!
DVBANS EXIT+4!
DVBAPRNT KILL1+1!
DVBAPT EXIT+4!
DVBAQ KILL1+4!
DVBAQUIT KILL1!, KILL1+4!, DUZ2!, DUZ2+1*, DUZ2+3*, DUZ2+5*, EXIT+4!
DVBASC KILL1+4!
DVBASTAT KILL1+4!, EXIT+3!
DVBAT KILL1+5!
DVBATP KILL1+1!
DVBATYPS KILL1+1!
DVBAX EXIT+4!
DVBAY EXIT+4!
DVBBDT EXIT+4!
DVBCHK EXIT+4!
DVBCNT EXIT+4!
DVBCSSNO EXIT+4!
DVBDISP EXIT+4!
DVBDOC EXIT+4!
DVBEDT EXIT+4!
DVBSPCOD EXIT+4!
DVBVAR EXIT+4!
EDATE KILL1!, DATE+3*, DATE+4, DATE+5*
EDAYS KILL1+2!
EDIV KILL1+3!
EDT KILL1+2!
EDT1 KILL1+3!
ELIG KILL1+3!
FDT(0 KILL1+2!
FINALDTE KILL1!
FNLDT KILL1+4!
HD KILL1+1!, KILL1+2!, EXIT+3!
HD1 KILL1+1!
HEAD KILL1!, KILL1+3!
HEAD1 KILL1!, KILL1+3!
HEAD2 KILL1+1!
HEADDT KILL1+5!
HIST KILL1+4!
HNAME KILL1!, EXIT+3!
HOSP KILL1+3!
HOSPDAYS KILL1+5!
I KILL1+1!, EXIT+3!
ICDAT KILL1+1!
ICDAT2 KILL1+1!
INCMP KILL1+3!
IO("C" KILL1+1!
IO("Q" KILL1+3!
IOP KILL1+3!
J KILL1!
K KILL1+1!
L KILL1!
LADM KILL1+1!
LADMDT KILL1+3!
LBEDSEC KILL1+5!
LCN KILL1+3!
LDCH KILL1+2!
LDCHGDT KILL1+5!
LDIAG KILL1+5!
LG KILL1+3!
LINE KILL1+1!
LLADM KILL1+5!
LN KILL1!
LOC KILL1+4!, KILL1+5!, EXIT+3!
LOS KILL1+1!, LOS+3*
LTDIS KILL1+5!
MA KILL1!
MB KILL1!
MC KILL1+2!
MD KILL1+2!
MSG KILL1+5!
MSG1 KILL1+5!
NAME KILL1+2!, EXIT+3!
NDCH KILL1+3!
NEWREQ KILL1+3!
NOASK KILL1+1!
NODE KILL1+3!, KILL1+4!
NODTA KILL1!
NOFINAL KILL1+4!
NONE KILL1+3!
NUMSEL KILL1+1!
OLDY KILL1+4!, EXIT+3!
ONFILE EXIT+3!
OPER KILL1+1!, EXIT+3!
OUT KILL1+3!, EXIT+3!
PDATE KILL1+4!
PG KILL1+1!
PNAM KILL1!, EXIT+3!
POP KILL1!, KILL1+1!, EXIT+3!
PROCDT KILL1+2!
Q KILL1!
QQ KILL1!
QUIT KILL1+5!
QUIT1 KILL1+5!
RADM KILL1+1!
RCVAA KILL1!
RCVPEN KILL1!
RDATE KILL1!
REOPEN EXIT+3!
REP KILL1+1!
RO SORT+2*, SORT+3*, KILL1+1!
RONUM SORT+2*, RONUM*, RONUM+1, KILL1+1!
SC KILL1+2!
SDATE KILL1+4!
SITE KILL1+1!
SSN KILL1!, EXIT+3!
STAT KILL1+3!, EXIT+3!
T KILL1+3!
TDIS KILL1+1!
TEMP KILL1+2!
TEMPDA KILL1+2!
TO KILL1+1!
TRN KILL1+3!
TYPE KILL1!
U DUZ2+2
VAIN KILL1+4!
VAINDT KILL1+4!
VAR EXIT+3!
VAR(1 EXIT+1*
VER KILL1!
VX KILL1+5!
VY KILL1+5!
WARD KILL1+1!
WWHO KILL1+4!
X KILL1+1!, KILL1+3!, LOS+1*, LOS+2*, LOS+3, DATE+2, DATE+3, FINAL+1, EXIT+3!
X1 KILL1+5!, LOS+2*
X2 KILL1+4!, LOS+1*
XADMDT KILL1+2!
XCN KILL1+3!
XDA KILL1+2!
XDA2 KILL1+3!
XDIV KILL1+2!
XDTA KILL1+2!
XLINE KILL1+5!
XLOC KILL1+2!
XY KILL1!
Y SORT*, RONUM*, KILL1+1!, KILL1+2!, KILL1+3!, LOS+1, LOS+2!, DATE+2, DATE+3, EXIT+3!
Z KILL1+2!
ZA EXIT+3!
ZDA KILL1+3!
ZDT KILL1+3!
ZDT1 KILL1+3!
ZI KILL1+2!, EXIT+3!
ZJ KILL1+5!
ZTDESC KILL1+2!
ZTDTH KILL1+4!
ZTIO KILL1+2!
ZTRTN KILL1+2!
ZTSAVE KILL1+3!
ZTSK KILL1+1!
ZTYPE KILL1+2!, KILL1+3!, EXIT+3!
ZX KILL1+2!, EXIT+3!
ZY KILL1+5!
ZZ KILL1+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All