Routine: BPSRPT3

Information

BPSRPT3 ;BHAM ISC/BEE - ECME REPORTS ;14-FEB-05

Source file <BPSRPT3.m>

Name	Comments	DBIA/ICR reference
SELPHARM()
SELPHRM1	;
SELELIG(DFLT)
SELSMDET(DFLT)
SELMWC(DFLT)
SELMWC1(DFLT)	; ; Upon completion of prompt, values will be placed into a string delimited ; by commas. e.g. C,M ; ; If user includes (A)ll as a code, "A" will be stored in BPARR ; array. e.g. Entry of C,M,A will save as BPARR("MWC")="A" ; ; User input values are temporary stored in array BPSMWC to eliminate duplicate ; entries. e.g. Entry of C,M,C will save as BPARR("MWC")="C,M" ;
BPSMWC	;
SELRTBCK(DFLT)
SELRBPS()	;
BPRBPS	; Realtime / Backbills / Pro Option / Resubmission / All
SELDRGAL(DFLT)
SELDRG()
SELDRGCL()
SELDATE(TYPE)
SELDATE1
SELOPCL(DFLT)
SELELIG1()	; ; Select multiple Eligibilities ; ; Input Variable -> none ; Return Value -> 0: All, 1: Selected Eligibilities; '^' = Exit ; ; Output Variable -> BPELIG1 = 1 - One or More Eligibilities Selected ; = 0 - User Entered 'ALL' ; = "^" - User quit ; ; If BPELIG1 = 1 then the BPELIG1 array will be defined where: ; BPELIG1("C")="CHAMPVA" ; BPELIG1("T")="TRICARE" ; BPELIG1("V")="VETERAN"
BPSELIG1	;
SELALRC()	; ; Display Most (R)ecent or (A)ll
SELNBSTS()	; ; Select the Non-Billable Status Reason ; ; Input Variable -> None ; Return Value -> 0: All, 1: Selected Non-Billable Status; '^' = Exit ; ; Output Variable -> BPNBSTS = 1 - One or More Non-Billable Statuses Selected ; = 0 - User Entered 'ALL' ; = "" - User quit ; ; If BPNBSTS = 1 then the BPNBSTS array will be defined where: ; BPNBSTS(Non-Billable Status IEN)=Non-Billable Status Reason

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,X Line Location: SELPHRM1+33
Function Call: WRITE	Prompt: Window Line Location: SELSMDET+11
Function Call: WRITE	Prompt: = Line Location: SELSMDET+16
Function Call: WRITE	Prompt: !," ",BPSSEL," is not a valid entry." Line Location: BPSMWC+39
Function Call: WRITE	Prompt: !,?10,$S(BPSSEL="C":"CMOP",BPSSEL="M":"MAIL",BPSSEL="W":"WINDOW",1:"") Line Location: BPSMWC+56
Function Call: WRITE	Prompt: !," ",BPSSEL," is not a valid entry." Line Location: BPRBPS+41
Function Call: WRITE	Prompt: !,?10,$S(BPSSEL="R":"REALTIME",BPSSEL="B":"BACKBILLS",BPSSEL="P":"PRO OPTION",BPSSEL="S":"RESUBMISSION",1:"") Line Location: BPRBPS+57
Function Call: WRITE	Prompt: ! Line Location: SELDRG+3
Function Call: WRITE	Prompt: ! Line Location: SELDATE1+1
Function Call: WRITE	Prompt: !," ",BPSSEL," is not a valid entry." Line Location: BPSELIG1+41
Function Call: WRITE	Prompt: !,?10,BPELIG1(BPSSEL) Line Location: BPSELIG1+56
Function Call: WRITE	Prompt: !,?10,X Line Location: SELNBSTS+61