Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBFHLD9

Package: Fee Basis

Routine: FBFHLD9


Information

FBFHLD9 ;OIFO/SAB-GET DATA FOR INPATIENT INVOICE ;9/9/2003

Source Information

Source file <FBFHLD9.m>

Call Graph

Call Graph

Call Graph Total: 5

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 ; FB*3.5*122
; 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

External References

Name Field # of Occurrence
$$GET1^DIQ INVOICE+27, INVOICE+44
LOADADJ^FBCHFA LINE+21
$$RRL^FBCHFR LINE+25
$$PAYMETH^FBFHLU LINE+28
$$STANO^FBFHLU INVOICE+16
$$ADJL^FBUTL2 LINE+22

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CKLNST EN+35
INVOICE EN+37
LINE EN+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All