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 |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCEF77

Package: Integrated Billing

Routine: IBCEF77


Information

IBCEF77 ;WOIFO/SS - FORMATTER/EXTRACT BILL FUNCTIONS ;31-JUL-03

Source Information

Source file <IBCEF77.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 6 ($$FT,$$POLICY,F)^IBCEF  $$ALLPTYP^IBCEF3  ALLIDS^IBCEF75  $$NETID^IBCEP  $$CAREST^IBCEP2A  FSTRNG^IBJU1  
Kernel 1 $$TRIM^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Integrated Billing 5 IBCEF3  IBCEF74  IBCEFP  IBCEU3  IBCSC102  

Entry Points

Name Comments DBIA/ICR reference
SORT(IBPRNUM,IBPRTYP,IB399,IBSRC,IBDST,IBN,IBEXC,IBSEQ,IBLIMIT) ;
CFIDS(IBIFN,PRVTYP,ALLOWIDS) ; Claim Form IDs for human providers
; Function returns a 3 piece string: [1] default secondary ID qual
; [2] default secondary ID
; [3] NPI
; Input: IBIFN - internal claim#
; PRVTYP - internal provider type ID number
; - 1:REFER;2:OPER;3:REND;4:ATT;5:SUPER;9:OTHER
; - if blank, then default Att/Rend based on form type
; ALLOWIDS - List of allowable Secondary IDS ^ delimited.
; ex "^1A^1B^1C^1H^G2^LU^N5^"
; UB-04 only wants IDs provided by the payer, not the providers own IDS
; Also, they want the qualifier to be G2 (Commercial)
; if it is a payer provided ID
CFIDSX ;
DOL(AMT,LEN,DEC) ; format dollar amounts for printed claim forms
; AMT = amount to be formatted
; LEN = length of field - right justified to this length
; DEC = flag to include the decimal point or not
; DEFAULT value is to not include the decimal point
; if DEC is not defined or 0, assume no decimal point
; so 15 will be returned as 1500, 6.77 will be returned as 677
; if DEC is 1, then the decimal point will be included
PRTLID(IBIFN,NPI) ; YMG; Print Legacy IDs on the CMS-1500 or UB-04 form
; Function fetches form type associated with given claim number
; (values: 2 - CMS-1500 form, 3 - UB-04 form), then looks at
; "Print Legacy ID" site parameter for this particular form type.
;
; Possible site parameter values are:
; "Y" - always print Legacy ID
; "N" - never print Legacy ID
; "C" - only print Legacy ID if NPI is not available.
;
; This information is used to determine if Legacy ID should be printed
; for claim number in question.
;
; Note: Situation when "Print Legacy ID" site parameter is not set is treated
; as if this parameter was set to "Y" - always print Legacy ID.
;
; Input:
; IBIFN - internal claim number
; NPI - NPI number (or "" if no NPI is available)
;
; Returns:
; 0 - Legacy ID should not be printed
; 1 - Legacy ID should be printed
REMARK(IBIFN,IBXDATA,OFLG) ; procedure to return array of UB-04 remark text
; for claim IBIFN. Data pulled from field# 402 of file 399 and
; formatted into an array IBXDATA(n) where each line is not greater
; than 24 characters long. This will fit into UB-04 FL-80.
B43(NDCDATA) ; This is passed a string and properly formats if there is NDC drug information.
; The drug information is in pieces 21-23 of that string.
; It was part of the output formatter entry 364.7[1406] used for FL43 but that got too big for a FileMan Mumps data element
; It returns a string with N4 - the NDC Drug qualifier
; NDC Code without the hyphens
; a space
; Units qualifier
; Units
; Ex "N412345678901 ML1.5"

External References

Name Field # of Occurrence
$$FT^IBCEF SORT+30, CFIDS+16, PRTLID+26
$$POLICY^IBCEF SORT+36
F^IBCEF SORT+3, CFIDS+28
$$ALLPTYP^IBCEF3 SORT+4
ALLIDS^IBCEF75 CFIDS+18
$$NETID^IBCEP SORT+6
$$CAREST^IBCEP2A SORT+18
FSTRNG^IBJU1 REMARK+44, REMARK+50
$$TRIM^XLFSTR REMARK+45, REMARK+47, REMARK+54

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] SORT+35, REMARK+15
^IBE(350.9 - [#350.9] PRTLID+29
^IBE(355.97 - [#355.97] SORT+36

Label References

Name Line Occurrences
$$PRTLID CFIDS+38
CFIDSX CFIDS+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALLOWIDS CFIDS~, CFIDS+19, CFIDS+25
AMT DOL~, DOL+10*, DOL+11*, DOL+12*, DOL+13
CHS REMARK+8~, REMARK+35*, REMARK+36
DEC DOL~, DOL+9*, DOL+11
FT SORT+30~*, SORT+31, CFIDS+13~, CFIDS+16*, CFIDS+17, CFIDS+35, PRTLID+26~*, PRTLID+28, PRTLID+29
I CFIDS+13~, CFIDS+20*, CFIDS+21, CFIDS+22
IB1 SORT+1~, SORT+2*, SORT+9*, SORT+12, SORT+13, SORT+15, SORT+17, SORT+18, SORT+20, SORT+22
, SORT+24, SORT+25, SORT+26
IB2 SORT+1~, SORT+2*, SORT+12*, SORT+13, SORT+15, SORT+17, SORT+18, SORT+20, SORT+22, SORT+24
, SORT+25, SORT+26
IB399 SORT~, SORT+3, SORT+4, SORT+18, SORT+30, SORT+35, SORT+36
IBCP1 REMARK+8~
IBDST SORT~
IBDST( SORT+8, SORT+26*, SORT+27*, SORT+36*
IBEXC SORT~, SORT+15
IBID SORT+1~
IBID( SORT+8*, SORT+24, SORT+25*, SORT+31
IBIFN CFIDS~, CFIDS+15, CFIDS+16, CFIDS+18, CFIDS+21, CFIDS+22, CFIDS+28, CFIDS+32, CFIDS+35, CFIDS+38
, PRTLID~, PRTLID+26, REMARK~, REMARK+15
IBK REMARK+8~, REMARK+45*, REMARK+46, REMARK+51
IBLIMIT SORT~, SORT+9, SORT+12, SORT+27
IBN SORT~, SORT+7, SORT+9, SORT+12, SORT+25*, SORT+26, SORT+27*, SORT+36*
IBNET SORT+1~, SORT+6*, SORT+31, SORT+36
IBNPI CFIDS+13~, CFIDS+27*, CFIDS+29*, CFIDS+38, CFIDS+40
IBPRNUM SORT~, SORT+8, SORT+26, SORT+27, SORT+36
IBPRTYP SORT~, SORT+8, SORT+26, SORT+27, SORT+32, SORT+35, SORT+36
IBQ CFIDS+13~, CFIDS+21*, CFIDS+23, CFIDS+25*, CFIDS+26*, CFIDS+32*, CFIDS+35*, CFIDS+38*, CFIDS+40
IBSEQ SORT~, SORT+31, SORT+36
IBSID CFIDS+13~, CFIDS+22*, CFIDS+23, CFIDS+26*, CFIDS+32*, CFIDS+35*, CFIDS+38*, CFIDS+40
IBSRC SORT~
IBSRC( SORT+9, SORT+12, SORT+13, SORT+15, SORT+17, SORT+18, SORT+20, SORT+22, SORT+24, SORT+25
, SORT+26
IBSTLIC SORT+10~, SORT+11*, SORT+18*, SORT+27
IBSTLIC(0 SORT+19, SORT+20*, SORT+27
IBSVP SORT+1~, SORT+13*
IBTRI SORT+1~, SORT+2*, SORT+5*, SORT+31
IBXDATA SORT+1~, REMARK~, REMARK+9!
IBXDATA( REMARK+55*
IBXDATA(1 REMARK+51*
IBXIEN SORT+1~
IBZ SORT+1~, SORT+2*, SORT+32, SORT+36, CFIDS+13~, CFIDS+18, REMARK+8~, REMARK+44, REMARK+50
IBZ( REMARK+52, REMARK+54
IBZ("PROVINF" CFIDS+21, CFIDS+22, CFIDS+32, CFIDS+35
IBZ(1 REMARK+45
IBZ1 SORT+1~, SORT+2*, SORT+4*, SORT+5*, SORT+31
ID CFIDS+13~, CFIDS+14*, CFIDS+40*, CFIDSX+1
J REMARK+8~, REMARK+52*, REMARK+53, REMARK+54, REMARK+55
LEN DOL~, DOL+9*, DOL+12, REMARK+8~, REMARK+34*, REMARK+35, REMARK+36, REMARK+43*, REMARK+44, REMARK+49*
, REMARK+50
NDCDATA B43~, B43+9, B43+10*, B43+11, B43+12
NEWCHS REMARK+8~, REMARK+36*, REMARK+37
NPI PRTLID~, PRTLID+29
OFLG REMARK~, REMARK+53
OK SORT+10~, SORT+17*, SORT+19*, SORT+20*, CFIDS+13~, CFIDS+19*, CFIDS+20, CFIDS+23*, CFIDS+24, CFIDS+25*
PCE REMARK+8~, REMARK+35*, REMARK+37
PRVTYP CFIDS~, CFIDS+17*, CFIDS+21, CFIDS+22, CFIDS+29, CFIDS+32, CFIDS+35
TEXT REMARK+8~, REMARK+15*, REMARK+30, REMARK+35, REMARK+37*, REMARK+44, REMARK+46*, REMARK+47*, REMARK+50
TX REMARK+8~, REMARK+54*, REMARK+55
U SORT+5, SORT+8, SORT+13, SORT+15, SORT+17, SORT+18, SORT+22, SORT+24, SORT+25, SORT+31
, SORT+32, SORT+35, SORT+36, CFIDS+21, CFIDS+22, CFIDS+25, CFIDS+29, CFIDS+40, PRTLID+29, REMARK+15
, B43+10, B43+11, B43+12
Z SORT+1~, SORT+5*, SORT+8*, SORT+34~, SORT+35*, SORT+36
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All