Routine: IBCEPTC1

Information

IBCEPTC1 ;ALB/TMK - EDI PREV TRANSMITTED CLAIMS REPORT OUTPUT ;01/20/05

Name	Comments	DBIA/ICR reference
RPT(IBSORT,IBDT1,IBDT2)	; Output transmitted claims report ; global ^TMP("IB_PREV_CLAIM",$J,srt1,srt2,ien of entry file 364)="" ; IB2.0547 Variable IBLOC is pre-defined (in IBCEPTC)
STOP
HDR1(IBSORT,IBDATA,IBPAGE,IBSTOP)	; First level report sort headers ; IBSORT = sort type ; IBDATA = data at the 1st sort level
HDR(IBHDR,IBSORT,IBPAGE,IBSTOP)	; Report header

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STOP+1
Function Call: WRITE	Prompt: !!,Q Line Location: HDR1+7
Function Call: WRITE	Prompt: $J("",120-$L(Q)),"(Continued)" Condition for execution: $G(IBPAGE(0)) Line Location: HDR1+7
Function Call: WRITE	Prompt: !,"Date Last "_$S(IBLOC:"Printed: ",1:"Transmitted: "),$$FMTE^XLFDT(99999999-IBDATA,1) Line Location: HDR1+7
Function Call: WRITE	Prompt: !,Z Line Location: HDR1+8
Function Call: WRITE	Prompt: !,"Claim # Form Type Seq Status A/R Current Payer",$J("",13),"Payer Address",$J("",17),"Other Payer(s) Patient Name",! Line Location: HDR1+10
Function Call: WRITE	Prompt: !!,Q Line Location: HDR1+19
Function Call: WRITE	Prompt: ! Line Location: HDR1+21
Function Call: WRITE	Prompt: $J("",120-$L(Q)),"(Continued)" Line Location: HDR1+22
Function Call: WRITE	Prompt: !,Z Line Location: HDR1+23
Function Call: WRITE	Prompt: !,"Claim # Form Type Seq Status A/R Other Payer(s)",$J("",6),"Patient Name",$J("",10),"Last "_$S(IBLOC:"Printed",1:"Transmit Batch Number"),! Line Location: HDR1+25
Function Call: WRITE	Prompt: @IOF Line Location: HDR+5
Function Call: WRITE	Prompt: !,Z Line Location: HDR+7
Function Call: WRITE	Prompt: !," T indicates the claim was transmitted as a test claim prior to turning on EDI live for the payer. " Line Location: HDR+10
Function Call: WRITE	Prompt: !," R indicates that the batch was rejected. " Line Location: HDR+11