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: FBFHLD5

Package: Fee Basis

Routine: FBFHLD5


Information

FBFHLD5 ;OIFO/SAB-GET DATA FOR PHARMACY INVOICE ;10/9/2003

Source Information

Source file <FBFHLD5.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Fee Basis 4 ($$PAYMETH,$$STANO,POST)^FBFHLU  LOADADJ^FBRXFA  $$RRL^FBRXFR  $$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,"DT") = Invoice Date
; *FBD(0,"FPPS") = FPPS Claim ID
; *FBD(0,"INV") = Invoice #^Transaction Type^Station #
INVOICE ; determine invoice data from 1st line item
; FBD(0,"AMT") = Amount Disbursed^Amount Interest
; FBD(0,"CAN") = Cancel Date^Cancel Reason^Cancel Activity
; FBD(0,"DT") = Invoice Date
; FBD(0,"FPPS") = FPPS Claim ID
; FBD(0,"INV") = Invoice #^Transaction Type^Station #
; FBSTA = station number
; FBTTYP = transaction type (L or X)
LINE ; FBC
; FBD(#,"ADJ") = AdjReason1^AdjGrp1^AdjAmt1^AdjReason2^AdjGrp2^AdjAmt2
; FBD(#,"AMT") = Amount Claimed^Amount Paid
; FBD(#,"CK") = Check Number^Check Date^Payment Method
; FBD(#,"DT") = Date of Service
; FBD(#,"FPPS") = FPPS Line Item
; FBD(#,"RMK") = Remittance Remark1^Remittance Remark2
; FBD(#,"SVC") = Service Code^Qualifier^Mod1,Mod2,Mod3,Mod4^Units
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
RXSTA(FBAAIN,FBBATCH) ; determine station number for pharmacy
; input
; FBAAIN - invoice number in FEE BASIS PHARMACY INVOICE file
; FBBATCH - ien of entry in FEE BASIS BATCH (#161.7) file
; returns station number or NULL value

External References

Name Field # of Occurrence
$$GET1^DIQ INVOICE+25, RXSTA+16
$$PAYMETH^FBFHLU LINE+30
$$STANO^FBFHLU RXSTA+14
POST^FBFHLU LINE+11
LOADADJ^FBRXFA LINE+23
$$RRL^FBRXFR LINE+27
$$ADJL^FBUTL2 LINE+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(161.4 - [#161.4] GET1^DIQ
162.11 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.7 - [#161.7] INVOICE+35
^FBAA(162.1 - [#162.1] EN+31, EN+33, EN+35, RXSTA+10, RXSTA+11

Label References

Name Line Occurrences
$$CKLNST EN+36
$$RXSTA INVOICE+14
INVOICE EN+39
LINE EN+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN+26~, EN+33*, EN+34, EN+35, RXSTA+8~, RXSTA+10*, RXSTA+11
DA(1 EN+30*, EN+31, EN+33, EN+34, EN+35, RXSTA+9*, RXSTA+10, RXSTA+11
FBAAIN EN+30, INVOICE+14, INVOICE+17, LINE+11, RXSTA~, RXSTA+9
FBADJ LINE+9~, LINE+23, LINE+24
FBBATCH RXSTA~, RXSTA+7, RXSTA+10, RXSTA+11*, RXSTA+14, RXSTA+16
FBC EN+26~, EN+28*, EN+37*, EN+39, LINE+14, LINE+17, LINE+20, LINE+24, LINE+27, LINE+30
FBD EN+27!
FBD( LINE+14*, LINE+17*, LINE+20*, LINE+24*, LINE+27*, LINE+30*
FBD(0 INVOICE+17*, INVOICE+20*, INVOICE+25*, INVOICE+28*, INVOICE+36*, LINE+35*, LINE+36*
FBDT INVOICE+9~, INVOICE+33*, INVOICE+34*, INVOICE+35*, INVOICE+36
FBI EN+26~, EN+35*
FBIENS EN+26~, EN+34*, INVOICE+25, LINE+23, LINE+27
FBOB INVOICE+9~
FBRET CKLNST+4~, CKLNST+5*, CKLNST+8*, CKLNST+10, RXSTA+5~, RXSTA+14*, RXSTA+16*, RXSTA+18
FBRXY EN+26~
FBRXY( EN+35*
FBRXY("FBREJ" CKLNST+8
FBRXY(0 INVOICE+14, INVOICE+33, INVOICE+35, LINE+17, LINE+20
FBRXY(2 INVOICE+11, INVOICE+25, INVOICE+34, LINE+11, LINE+30, LINE+35, LINE+36
FBRXY(3 LINE+14
FBSTA EN+26~, INVOICE+14*, INVOICE+17
FBTTYP EN+26~, EN+40, INVOICE+11*, INVOICE+17, INVOICE+24, LINE+11
FBX INVOICE+9~
FBY EN+26~
FBY(0 EN+31*, INVOICE+20
U INVOICE+11, INVOICE+14, INVOICE+17, INVOICE+20, INVOICE+25, INVOICE+33, INVOICE+34, INVOICE+35, LINE+11, LINE+14
LINE+17, LINE+20, LINE+30, LINE+35, LINE+36, CKLNST+8, RXSTA+11
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All