Routine: IBCNHPR2

Information

IBCNHPR2 ;ALB/CJS - HPID ADDED TO BILLING CLAIM REPORT (PRINT) ;15-DEC-14

Name	Comments	DBIA/ICR reference
EN(IBOUT)
END
HDR	; Print header
LINE	; Print claim information.
PAUSE	; Pause for screen output.
PHDL	; - Print the header line for the Excel spreadsheet

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"* No claim-level HPIDs added within date range *" Line Location: EN+2
Function Call: WRITE	Prompt: !,IBLN Line Location: EN+19
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,"MANUALLY ADDED HPIDs TO BILLING CLAIM REPORT" Line Location: HDR+3
Function Call: WRITE	Prompt: ?IOM-34,IBHDT,?IOM-10,"Page: ",IBPAG Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"PT NAME",?21,"SSN",?27,"PAYER",?47,"HPID",?59,"CLAIM #",?72,"USER NAME",?93,"DATE HPID ADDED" Line Location: HDR+7
Function Call: WRITE	Prompt: ?110,"PROF ID",?121,"INST ID" Line Location: HDR+8
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HDR+9
Function Call: WRITE	Prompt: !,$E($P(IBLN,U),1,18),?21,$P(IBLN,U,2),?27,$E($P(IBLN,U,3),1,18),?47,$P(IBLN,U,4),?59,$E($P(IBLN,U,5),1,11) Line Location: LINE+1
Function Call: WRITE	Prompt: ?72,$E($P(IBLN,U,6),1,18),?94,$E($P(IBLN,U,7),1,10),?110,$E($P(IBLN,U,8),1,10),?121,$E($P(IBLN,U,9),1,10) Line Location: LINE+2
Function Call: WRITE	Prompt: ! Line Location: PAUSE+3
Function Call: WRITE	Prompt: !,X Line Location: PHDL+4