Routine: IBCAPR2

Information

IBCAPR2 ;ALB/BI - PRINT EOB/MRA ;20-SEP-2010

Source file <IBCAPR2.m>

Name	Comments	DBIA/ICR reference
EN(IBIFN)	; -- main entry point for IBCAPR2
EOBPRINT(IBI,IBSHEOB)	; PRINT THE REQUESTED EOB
EOBQUIT	;
MRAPRINT(IBI)	; PRINT THE REQUESTED MRA
MRAQUIT	;
GETIBIFN()	; Get Internal Claim Pointer
WRITE(IBSTR)	;
PAUSE()	;
REGION0(IBI,IBSHEOB)	; Print one or several EOBS depending what is passed in. ; Input: IEN to EOB file 361.1 if only one to be printed ; Input: IBSHEOB (optional) array of EOBs to be printed
REGION1(IBI)	; EOB Claim Header Information
REGION2	; EOB MEDICARE RA Information
REGION3	; EOB CLAIM and LINE level Information
REGION4	; EOB Display information about any 361.1 message storage or filing errors
SETLN(S,V,X,L)	; -- insert text(S) into variable(V) ; S := string to insert ; V := destination string ; X := insert @ col X ; L := clear # of chars (length)
EOBALL(IBIFN)	;
OKTOPRT()	; This procedure is called when the user is printing bills ; and we know that one or more EOBs exist for this bill. We ask the ; user if the EOB(s) should be printed at this time too.
GETEOBS(IBALL,IBSHEOB)	; Get all the EOBS ; INPUT - IBALL array of claim numbers (IEN to 399) ; OUTPUT - IBSHEOB array of EOBs (IEN to 361.1)
SEL(IBSHEOB)	; Function to display and allow user selection ; of an EOB/MRA on file in 361.1 for a sequence of bills.
SELX	;
PRINTOPT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"There is no electronic EOB for this claim." Line Location: EN+17
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.") Line Location: EOBPRINT+10
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.") Line Location: MRAPRINT+11
Function Call: WRITE	Prompt: IBSTR,! Line Location: WRITE+1
Function Call: WRITE	Prompt: @IOF,*13 Line Location: PAUSE+2
Function Call: WRITE	Prompt: @IOF Line Location: REGION0+4
Function Call: WRITE	Prompt: IBSTR,! Line Location: REGION2+4
Function Call: WRITE	Prompt: !! Line Location: OKTOPRT+10
Function Call: WRITE	Prompt: !!,"The selected bill has multiple ",J," on file. Please choose one." Line Location: SEL+29
Function Call: WRITE	Prompt: !!?7,"#",?11,"Seq",?17,"Insurance Company",?40,"EOB Date" Line Location: SEL+30
Function Call: WRITE	Prompt: ?51,"Type",?57,"Claim Status" Line Location: SEL+31
Function Call: WRITE	Prompt: !?5,$J(J,3),?11,"(",$P(A,U,2),")",?17,$E($P(A,U,3),1,20) Line Location: SEL+33
Function Call: WRITE	Prompt: ?40,$P(A,U,4),?51,$P(A,U,5),?57,$P(A,U,6) Line Location: SEL+34
Function Call: WRITE	Prompt: ! Line Location: SEL+38

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(36 - [#36]	GET1^DIQ
^IBM(361.1 - [#361.1]	Classic Fileman Calls, EXTERNAL^DILFD
^DGCR(399 - [#399]	GET1^DIQ