Routine: IBCDP

Entry Points

Name	Comments	DBIA/ICR reference
EN	; OPTION ENTRY POINT: Auto Biller Report - get parameters then run the report
RPT	;find, save, and print Auto Biller Report - entry for tasked jobs
EXIT	;clean up and quit
SORT1	; sort by Event Date in Claims Tracking ; for each CT entry within the selected date range check/get it's auto biller entries, if they meet the criteria
SORT2	; sort by Entry Date in Auto Biller ; for each AB entry within the selected date range check/get the entry, if they meet the criteria
GETLN(IBABFN)	; check and select auto biller entries that meet the criteria, Input: all select criteria ; Output: ^TMP($J,"IBCDP",sort date,event type,patient name_event date/time, AB FN) = CT FN
CHKBILL(IBCTFN)	; return first bill found if Claims Tracking event had a bill created for it
PRINT	;print the report from the temp sort file to the appropriate device
GETHDR	; set up header lines
HDR()	;print the report header
HDRQ
PAUSE	;pause at end of screen if being displayed on a terminal
DEV	;get the device
STOP()	; determine if user has requested the queued report to stop

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Auto Biller Results Report" Line Location: EN+2
Function Call: WRITE	Prompt: !,"This report contains results of the activity from the Third Party Auto Biller." Line Location: EN+3
Function Call: WRITE	Prompt: !,"The Third Party Auto Biller processes Claims Tracking entries and may create a" Line Location: EN+4
Function Call: WRITE	Prompt: !,"bill. This report will provide detail for all processed entries, including the" Line Location: EN+5
Function Call: WRITE	Prompt: !,"bill number if a bill was created or the reason a bill could not be created." Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: EN+27
Function Call: WRITE	Prompt: !!,"Report requires 132 columns.",! Line Location: EN+35
Function Call: WRITE	Prompt: !,?20,$S(IBSDR=1:"Event Date: ",1:"Auto Bill Date: "),$$FMTE^XLFDT(IBS1),! Line Location: PRINT+7
Function Call: WRITE	Prompt: ! Line Location: PRINT+9
Function Call: WRITE	Prompt: !,$E(IBDFNN,1,20),?22,$E(IB1U4N,1,6),?30,$E(IBTYP,U,4),?37,$P(IBEVDT,":",1,2),?60,IBBILL,?70,$E(IBBSTAT,1,7),?82,$E(IBBTF,1,15),?102,IBBSF,?117,IBBST Line Location: PRINT+29
Function Call: WRITE	Prompt: !,?37,IBX Line Location: PRINT+32
Function Call: WRITE	Prompt: @IOF Line Location: HDR+6
Function Call: WRITE	Prompt: !,IBHDR1,IBPGN,!,IBHDR2,!,IBHDR3,!,IBHDR4 Line Location: HDR+8
Function Call: WRITE	Prompt: !,"*TASK STOPPED BY USER*" Line Location: STOP+1