Routine: DVBAUTIL

Information

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

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.

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