Routine: DVBASCRP

Information

DVBASCRP ;ALB/GTS-557/THM-SC 7131 ADMISSION RPT ;12/3/90 14:58

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!! Line Location: PRINTB+2
Function Call: WRITE	Prompt: ?10,"Patient Name:",?26,PNAM,!!,?14,"Claim No:",?26,CNUM,!,?6,"Claim Folder Loc:",?26,CFLOC,!,?9,"Social Sec No:",?26,SSN,!,?8,"Admission Date:",?26,ADMDT,!,?3,"Admitting Diagnosis:",?26,DIAG,! Line Location: PRINTB+4
Function Call: WRITE	Prompt: ?8,"Discharge Date:",?26,DCHGDT,!,?11,"Bed Service:",?26,BEDSEC,!,?13,"Recv A&A?:",?26,$S(RCVAA=0:"NO",RCVAA=1:"YES",1:"Not specified"),! Line Location: PRINTB+5
Function Call: WRITE	Prompt: ?14,"Pension?:",?26,$S(RCVPEN=0:"NO",RCVPEN=1:"YES",1:"Not specified"),! Line Location: PRINTB+6
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: PRINTB+7
Function Call: WRITE	Prompt: *7,!,"Press RETURN to continue or ""^"" to stop " Line Location: PRINTB+7
Function Call: WRITE	Prompt: @IOF,!,"VARO SERVICE-CONNECTED ADMISSION REPORT" Line Location: TERM+2
Function Call: WRITE	Prompt: !,HEAD1 Line Location: TERM+4
Function Call: WRITE	Prompt: !!,"Please enter dates for search, oldest date first, most recent date last.",!!,"Last report was run on " Line Location: TERM+5
Function Call: WRITE	Prompt: Y,!! Line Location: TERM+5
Function Call: WRITE	Prompt: !!,*7,"No data found for parameters entered.",!! Line Location: GO+1