Routine: FBFHLD9

Package	Total	Call Graph
Fee Basis	4	LOADADJ^FBCHFA $$RRL^FBCHFR ($$PAYMETH,$$STANO)^FBFHLU $$ADJL^FBUTL2
VA FileMan	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
EN	; ; input ; FBAAIN - invoice number ; output ; If transaction type = "X" then only * items are output ; Claim Level Data ; FBD(0,"AMT") = Amount Disbursed^Amount Interest ; FBD(0,"CAN") = Cancel Date^Cancel Reason^Cancel Activity ; FBD(0,"DAYS) = Covered Days ; FBD(0,"DRG") = DRG^DRG Weight ; FBD(0,"DT") = Invoice Date ; FBD(0,"FPPS") = FPPS Claim ID ; *FBD(0,"INV") = Invoice #^Transaction Type^Station #
INVOICE	; determine invoice data ; FBD(0,"AMT") = Amount Disbursed^Amount Interest ; FBD(0,"CAN") = Cancel Date^Cancel Reason^Cancel Activity ; FBD(0,"DAYS") ; FBD(0,"DRG") ; FBD(0,"DT") = Invoice Date ; FBD(0,"FPPS") = FPPS Claim ID ; FBD(0,"INV") = Invoice #^Transaction Type^Station # ; FBSTA = station number ; FBTTYP = transaction type (C or X)
LINE	; FBC ; FBD(#,"ADJ") = AdjReason1^AdjGrp1^AdjAmt1 ; FBD(#,"AMT") = Amount Claimed^Amount Paid ; FBD(#,"CK") = Check Number^Check Date^Payment Method ; FBD(#,"835") = Routing Number^Financial Institution^^Account Number ; FB3.5122 ; FBD(#,"DT") = Start Date^End Date ; FBD(#,"FPPS") = FPPS Line Item ; FBD(#,"RMK") = Remittance Remark1^Remittance Remark2
CKLNST()	; check line status extrinsic function ; result (0 or 1) ; 0 when line should not be sent to FPPS ; 1 when line should be sent to FPPS

FileNo	Call Tags
^FBAAI - [#162.5]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^FBAA(161.7 - [#161.7]	INVOICE+37
^FBAAI - [#162.5]	EN+34

Name	Field # of Occurrence
DA	EN+29~, EN+32*, EN+33, EN+34
>> FBAAIN	EN+32, INVOICE+19
FBADJ	LINE+9~, LINE+21, LINE+22
FBC	EN+29~, EN+36*, LINE+12, LINE+15, LINE+18, LINE+22, LINE+25, LINE+28, LINE+31
FBD	EN+30!
FBD(	LINE+12, LINE+15, LINE+18, LINE+22, LINE+25, LINE+28, LINE+31*
FBD(0	INVOICE+19, INVOICE+22, INVOICE+27, INVOICE+30, INVOICE+38, INVOICE+41, INVOICE+46, LINE+36, LINE+37*
FBDT	INVOICE+11~, INVOICE+35, INVOICE+36, INVOICE+37*, INVOICE+38
FBI	EN+29~, EN+34*
FBIENS	EN+29~, EN+33*, INVOICE+27, INVOICE+44, LINE+21, LINE+25
FBOB	INVOICE+11~
FBRET	CKLNST+4~, CKLNST+5, CKLNST+8, CKLNST+10
FBSTA	EN+29~, INVOICE+16*, INVOICE+19
FBTTYP	EN+29~, EN+38, INVOICE+13*, INVOICE+19, INVOICE+26
FBX	INVOICE+11~, INVOICE+44, INVOICE+45, INVOICE+46
FBY	EN+29~
FBY(	EN+34*
FBY("FBREJ"	CKLNST+8
FBY(0	INVOICE+16, INVOICE+35, INVOICE+37, LINE+15, LINE+18
FBY(2	INVOICE+13, INVOICE+27, INVOICE+36, INVOICE+41, INVOICE+46, LINE+28, LINE+31, LINE+36, LINE+37
FBY(3	INVOICE+22, LINE+12
U	INVOICE+13, INVOICE+16, INVOICE+19, INVOICE+22, INVOICE+27, INVOICE+35, INVOICE+36, INVOICE+37, INVOICE+41, INVOICE+46 , LINE+12, LINE+15, LINE+18, LINE+28, LINE+31, LINE+36, LINE+37, CKLNST+8