Routine: FBPAID3B

Information

FBPAID3B ;DSS/SCR - Utilities to support FEE BASIS PAID TO IB Process ;3/28/1012

Name	Comments	DBIA/ICR reference
EPFBPRV()
DISPLAY(FBPROG,FBNPISRT,FBFROM,FBTO)
GTPRVTYP(FBIEN)	;RETURNS EXTERNAL VALUE FOR A CODE IN A SET
GTIBNAM(FBIBPNTR)	;RETURNS EXTERNAL VALUE FOR NAME OF IB NON/OTHER VA BILLING PROVIDER ; INPUT : FBIBPNTR - pointer to the IB NON/OTHER VA BILLING PROVIDER FILE - 355,93
GTTXYVAL(FBIEN)
GTNPIVAL(FBNPI1)
GTPYMNT(FBICNTRL)
CLEAR()

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Processed Entries in Date Range" Line Location: EPFBPRV+42
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+27
Function Call: WRITE	Prompt: ?10,"** FEE BASIS PROVIDER TO IB REPORT **" Line Location: DISPLAY+28
Function Call: WRITE	Prompt: !,?20,FBNOW Line Location: DISPLAY+29
Function Call: WRITE	Prompt: !,?8,"PROCESS DATES: "_FBDAT1_" - "_FBDAT2 Line Location: DISPLAY+30
Function Call: WRITE	Prompt: !,?8,"PROGRAM: "_$S(FBPROG=0:"BOTH",FBPROG=3:"OUTPATIENT",FBPROG=9:"CIVIL HOSPITAL",1:"")_" NPI SORT: "_$S(FBNPISRT=99:"ALL",1:$$GTNPIVAL(FBNPISRT)) Line Location: DISPLAY+31
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+32
Function Call: WRITE	Prompt: ! Line Location: CLEAR+2