Routine: IBCEF11

Package	Total	Call Graph
Integrated Billing	11	($$FT,F)^IBCEF (HOS,ID)^IBCEF2 $$DOLLAR^IBCEFG1 (ALLIDS,PSID)^IBCEFP $$SUB1OK^IBCEP8A COMBO^IBCEU2 COBLINE^IBCEU6 $$DATE^IBCF2 RVCE^IBCF23 SET^IBCSC5A ZERO^IBRXUTL
VA FileMan	2	FILE^DICN $$GET1^DIQ
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Integrated Billing	9	IBCEF1 IBCEF31 IBCEF80 IBCEFP IBCSCH IBCSCH2 IBJTBA ^IBA(364.5 ^IBA(364.7

Entry Points

Name	Comments	DBIA/ICR reference
BOX24D(A,IB)	; Returns the lines for boxes 19-24 of the CMS-1500 display ; IB = flag is 1 if only box 24 is needed
RCBOX()	; Returns the lines for revenue code boxes of the UB-04 display
OUTPT(IBIFN,IBPRINT)	; Returns an array of service line data from ; CMS-1500 box 24. Output is in IBXDATA(n) ; IBPRINT = print flag 1: return print fields ; 0: return EDI fields ; Uses diagnosis array ^TMP("IBXSAVE",$J,"DX",IBIFN,DIAG CODE)=SEQ # ; if it already exists. If not, it builds it from N-DIAGNOSES element
ISLAB(LDATA)	; Returns 0/1 if line item data indicates the item is a lab (1) ; 'LAB' is defined here as type of service = 5
FMT(DATA,DLEN,FLEN)	; Returns a string in DATA with a max length of DLEN ; and a field length of FLEN
DATE(X,DEL)	; Returns FM date in X as MMxDDxYYYY where x=DEL
BATCH()	; Sets up record for and stores/returns the next batch number
BATCHQ
GETLDAT(IBXIEN)	; Extract data for 837 transmission LDAT record ; IBXIEN - ien in file 399 ; Sets up IBXSAVE("LDAT",n) array: ; Attachment report type ^ Attachment report transmission code ^ Attachment control number ^ ; OB Anesthesia Additional Units ^ Purchase Service Provider ID ^ Purchase Service Amount ^
LDAT	;
VC80L(IBIFN,LN)	; Extracts the data for the "LDAT" record for VALUE CODE 80 Line item. ; IBIFN = Claims internal id number ; LN =

Name	Field # of Occurrence
FILE^DICN	BATCH+23
$$GET1^DIQ	GETLDAT+25, VC80L+6
$$FT^IBCEF	GETLDAT+8
F^IBCEF	OUTPT+49
HOS^IBCEF2	GETLDAT+11
ID^IBCEF2	LDAT+3, LDAT+7
$$DOLLAR^IBCEFG1	GETLDAT+21
ALLIDS^IBCEFP	GETLDAT+12
PSID^IBCEFP	GETLDAT+16
$$SUB1OK^IBCEP8A	GETLDAT+15, GETLDAT+21
COMBO^IBCEU2	OUTPT+183
COBLINE^IBCEU6	OUTPT+168
$$DATE^IBCF2	DATE+2
RVCE^IBCF23	OUTPT+54, OUTPT+55
SET^IBCSC5A	OUTPT+67
ZERO^IBRXUTL	OUTPT+115, OUTPT+120, OUTPT+178
$$SITE^VASITE	BATCH+9

FileNo	Call Tags
^IBA(364.1 - [#364.1]	Classic Fileman Calls
^DGCR(399 - [#399]	GET1^DIQ
399.0304	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	OUTPT+52, GETLDAT+24
^IBA(362.3 - [#362.3]	OUTPT+48
^IBA(364.1 - [#364.1]	BATCH+8, BATCH+9, BATCH+24
^TMP("IBRESUBMIT"	BATCH+5
^TMP("IBXSAVE"	OUTPT+48, OUTPT+50*, OUTPT+53
^TMP($J	OUTPT+45!, OUTPT+46*, OUTPT+116, OUTPT+121, OUTPT+179, OUTPT+184!

Name	Line Occurrences
$$DATE	OUTPT+174
$$ISLAB	OUTPT+99
BATCHQ	BATCH+3, BATCH+5
OUTPT	GETLDAT+10
VC80L	LDAT+8

Name	Field # of Occurrence
^(	OUTPT+53
^("U"	OUTPT+52
^("U1"	OUTPT+52
^($J	BATCH+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	BOX24D~, LDAT+9*, LDAT+10
CPIEN	GETLDAT+5~, GETLDAT+20*, GETLDAT+23, GETLDAT+24, GETLDAT+25
DATA	FMT~, FMT+2
DD	BATCH+1~, BATCH+23!
DEL	DATE~, DATE+1*, DATE+3
DIC	BATCH+1~, BATCH+23*
DIC(0	BATCH+23*
DLAYGO	BATCH+1~, BATCH+23*
DLEN	FMT~, FMT+2
DO	BATCH+1~, BATCH+23!
FAC	BATCH+1~, BATCH+9*
FLEN	FMT~, FMT+2
FTYPE	GETLDAT+5~, GETLDAT+8*, GETLDAT+10, GETLDAT+11, GETLDAT+15, GETLDAT+21, GETLDAT+31
IB	BOX24D~, BOX24D+2, OUTPT+43~
IB("U"	OUTPT+52*
IB("U1"	OUTPT+52*
IB(0	OUTPT+52*
IBDXI	OUTPT+43~
IBDXI(	OUTPT+53*
IBFLD	OUTPT+43~
IBFLD(24	OUTPT+93, OUTPT+95, OUTPT+96, OUTPT+97, OUTPT+98, OUTPT+108, OUTPT+109, OUTPT+111, OUTPT+113, OUTPT+114 , OUTPT+115, OUTPT+116, OUTPT+117, OUTPT+127, OUTPT+128, OUTPT+129, OUTPT+130, OUTPT+131, OUTPT+133, OUTPT+137 , OUTPT+138, OUTPT+139, OUTPT+151, OUTPT+152, OUTPT+154, OUTPT+167
IBI	OUTPT+43~, OUTPT+53, OUTPT+92, OUTPT+93, OUTPT+95, OUTPT+96, OUTPT+97, OUTPT+98, OUTPT+99, OUTPT+108 , OUTPT+109, OUTPT+111, OUTPT+113, OUTPT+114, OUTPT+115, OUTPT+116, OUTPT+117, OUTPT+119, OUTPT+121, OUTPT+127 , OUTPT+128, OUTPT+129, OUTPT+130, OUTPT+131, OUTPT+133, OUTPT+137, OUTPT+138, OUTPT+139, OUTPT+144, OUTPT+147 , OUTPT+148, OUTPT+151, OUTPT+152, OUTPT+154, OUTPT+155, OUTPT+158, OUTPT+163, OUTPT+164, OUTPT+167, OUTPT+168 , OUTPT+173, OUTPT+174, OUTPT+175, OUTPT+176, OUTPT+177, OUTPT+179
IBIDS	GETLDAT+5~, GETLDAT+16
IBIDS(0	GETLDAT+17
IBIDS(1	GETLDAT+17
IBIFN	OUTPT~, OUTPT+48, OUTPT+49, OUTPT+50, OUTPT+52, OUTPT+53, OUTPT+54, OUTPT+55, OUTPT+67, OUTPT+168 , VC80L~, VC80L+6
IBJ	OUTPT+43~
>> IBNOSHOW	OUTPT+146, OUTPT+153
IBPRINT	OUTPT~, OUTPT+54, OUTPT+55, OUTPT+95, OUTPT+128, OUTPT+141, OUTPT+168, OUTPT+171, OUTPT+183
IBRX	OUTPT+43~, OUTPT+67, OUTPT+69, OUTPT+71, OUTPT+73, OUTPT+74!, OUTPT+119, OUTPT+120, OUTPT+121, OUTPT+158* , OUTPT+159, OUTPT+161, OUTPT+163, OUTPT+172*, OUTPT+174, OUTPT+175, OUTPT+178, OUTPT+179
IBRX(	OUTPT+69, OUTPT+71
IBRX0	OUTPT+43~, OUTPT+69*, OUTPT+71, OUTPT+73
IBRX1	OUTPT+43~, OUTPT+94, OUTPT+112
IBRX1(	OUTPT+73*, OUTPT+114, OUTPT+115, OUTPT+116, OUTPT+117!, OUTPT+119, OUTPT+120, OUTPT+121!, OUTPT+172, OUTPT+174 , OUTPT+175, OUTPT+178, OUTPT+179!
IBRXH	OUTPT+70~, OUTPT+71*, OUTPT+73
>> IBVNUM	BATCH+3
IBXDATA	OUTPT+49~, OUTPT+50!, OUTPT+168, OUTPT+183, GETLDAT+5~, LDAT+1!
IBXDATA(	OUTPT+50, OUTPT+95, OUTPT+96, OUTPT+97, OUTPT+98, OUTPT+99, OUTPT+108, OUTPT+109, OUTPT+116, OUTPT+119 , OUTPT+121, OUTPT+129, OUTPT+130, OUTPT+133, OUTPT+137, OUTPT+138, OUTPT+139, OUTPT+144, OUTPT+147, OUTPT+148* , OUTPT+152, OUTPT+154, OUTPT+155, OUTPT+158, OUTPT+163, OUTPT+164, OUTPT+167, OUTPT+174, OUTPT+175, OUTPT+176* , OUTPT+177, OUTPT+179, GETLDAT+19, GETLDAT+20, GETLDAT+21, LDAT+3, LDAT+10
IBXDATA(""	OUTPT+173, LDAT+6
IBXDATA(0	OUTPT+50
IBXIEN	OUTPT+43~, GETLDAT~, GETLDAT+6, GETLDAT+8, GETLDAT+10, GETLDAT+11, GETLDAT+12, GETLDAT+15, GETLDAT+16, GETLDAT+21 , GETLDAT+24, GETLDAT+25, LDAT+8
>> IBXSAVE("LDAT"	GETLDAT+7!, GETLDAT+31, LDAT+2, VC80L+5, VC80L+6*
IBXTRA	OUTPT+43~, OUTPT+168, OUTPT+183
IDS	GETLDAT+5~, GETLDAT+12, GETLDAT+16
LDATA	ISLAB~, ISLAB+2
LINE	GETLDAT+5~
LN	VC80L~, VC80L+4
NODE1	GETLDAT+5~, GETLDAT+22, GETLDAT+24, GETLDAT+31
NUM	BATCH+1~, BATCH+3, BATCH+5, BATCH+9, BATCH+10, BATCH+23*, BATCHQ
PCE1	GETLDAT+5~, GETLDAT+22, GETLDAT+25, GETLDAT+31
PSAMNT	GETLDAT+5~, GETLDAT+13, GETLDAT+21, GETLDAT+31
PSPID	GETLDAT+5~, GETLDAT+13, GETLDAT+17, GETLDAT+31
U	OUTPT+50, OUTPT+73, OUTPT+95, OUTPT+96, OUTPT+97, OUTPT+98, OUTPT+99, OUTPT+108, OUTPT+109, OUTPT+113 , OUTPT+115, OUTPT+116, OUTPT+119, OUTPT+120, OUTPT+121, OUTPT+128, OUTPT+129, OUTPT+130, OUTPT+131, OUTPT+144 , OUTPT+148, OUTPT+155, OUTPT+161, OUTPT+163, OUTPT+164, OUTPT+167, OUTPT+174, OUTPT+175, OUTPT+176, OUTPT+178 , OUTPT+179, ISLAB+2, BATCH+5, BATCH+9, GETLDAT+17, GETLDAT+21, GETLDAT+31, VC80L+5, VC80L+6
>> VC80	LDAT+5
VC80LN	VC80L+3~, VC80L+4*, VC80L+5, VC80L+6
X	DATE~, DATE+2, DATE+3, DATE+4, BATCH+1~, BATCH+23*
Y	BATCH+1~, BATCH+23
Z	OUTPT+43~, OUTPT+49~, OUTPT+50, OUTPT+160~, OUTPT+161, OUTPT+162, OUTPT+163, GETLDAT+5~, GETLDAT+19, GETLDAT+20 , GETLDAT+21, GETLDAT+31, LDAT+1~, LDAT+2, LDAT+3, LDAT+6, LDAT+7, LDAT+8, LDAT+9, LDAT+10
Z0	OUTPT+43~
Z1	OUTPT+43~

Customize PDF page

Package: Integrated Billing

Routine: IBCEF11

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: