Routine: DVBARADM

Information

DVBARADM ;ALB/GTS-557/THM-READMISSION REPORT ; 1/23/91 8:01 AM

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"VARO RE-ADMISSION REPORT" Line Location: SETUP+0
Function Call: WRITE	Prompt: !,HEAD1 Line Location: SETUP+2
Function Call: WRITE	Prompt: !!,"Please enter admission dates for search, oldest date first,",!,"most recent date last.",!!,"Last report was run on " Line Location: EN1+0
Function Call: WRITE	Prompt: Y,!! Line Location: EN1+0
Function Call: READ	Variable: DVBAH Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: DVBAH Line Location: ASK+1
Function Call: WRITE	Prompt: *7,!!,"Must be H for HOSPITAL or D for HOSPITAL-DOM",!! Line Location: ASK+4
Function Call: WRITE	Prompt: $P("om^ospital",U,Z),!! Line Location: ASK+6
Function Call: WRITE	Prompt: !!,"Looking for Pension and A&A cases ...",!! Line Location: GO+0
Function Call: WRITE	Prompt: !!,"Examining cases found for re-admissions within 185 days ...",!! Line Location: GO+2
Function Call: WRITE	Prompt: *7,!!,"No data found for parameters entered.",!! Line Location: GO+5