Routine: ALPBPCLN

Information

ALPBPCLN ;OIFO-DALLAS MW,SED,KC-PRINT 3-7 DAY MAR BCMA BCBU REPORT FOR CLINICS ;3/9/13 9:13am

Name	Comments	DBIA/ICR reference
EN(RPT)	;Entry point to print either All clinics or a selected clinics
DQ(RPT)	; output entry point... ; set report date... SED 11/4/03
ALL	;All Clinic report
CLN	;Selected Clinic report
GETORDS	;Get orders per clinic
PRT	;
DONE	;
PAGE	; print page header for patient...

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,$J(ALPBX,2)," ",ALPBSEL(ALPBX) Line Location: EN+25
Function Call: WRITE	Prompt: "ALL CLINICS REPORT" Condition for execution: RPT="ALL" Line Location: EN+91
Function Call: WRITE	Prompt: "SELECTED CLINIC REPORT FOR "_$G(ALPBCL) Condition for execution: RPT="CLN" Line Location: EN+91
Function Call: WRITE	Prompt: " IS RUNNING...",! Line Location: EN+91
Function Call: WRITE	Prompt: !,ALPBFORM(ALPBX) Line Location: PRT+23
Function Call: WRITE	Prompt: ! Line Location: PRT+30
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+1
Function Call: WRITE	Prompt: !,ALPBHDR(ALPBX) Line Location: PAGE+4