Routine: IBCEF

Package	Total	Call Graph
Integrated Billing	4	($$FT,$$INPAT,$$INSPRF)^IBCEF EXTONE^IBCEFG0 $$DT^IBCEFG1 $$DATE^IBCF2
Registration	1	(ADD,DEM,ELIG,OAD,OPD)^VADPT
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Integrated Billing	209	IB SCREEN10H IB SCREEN8 IB20P619 IBCAPP IBCAPP2 IBCAPR IBCAPR1 IBCAPR2 IBCB IBCB1 IBCB11 IBCB2 IBCBB IBCBB0 IBCBB1 IBCBB11 IBCBB12 IBCBB13 IBCBB2 IBCBB21 IBCBB3 IBCBB4 IBCBB5 IBCBB7 IBCBB8 IBCBB9 IBCC IBCCC2 IBCCCB IBCCCB0 IBCCPT IBCD3 IBCE277 IBCE837 IBCE837A IBCE837I IBCE837K IBCE837P IBCE837Q IBCE837T IBCECOB1 IBCECOB2 IBCECOB5 IBCECSA5 IBCECSA6 IBCECSA7 IBCEDC IBCEF IBCEF1 IBCEF11 IBCEF12 IBCEF2 IBCEF21 IBCEF22 IBCEF3 IBCEF31 IBCEF4 IBCEF5 IBCEF7 IBCEF71 IBCEF72 IBCEF73 IBCEF73A IBCEF74 IBCEF74A IBCEF75 IBCEF76 IBCEF77 IBCEF78 IBCEF79 IBCEF80 IBCEFP IBCEFP1 IBCEM03 IBCEM4 IBCEMCA3 IBCEMQA IBCEMQC IBCEMRAA IBCEMSR6 IBCEMSRI IBCEMU1 IBCEMU2 IBCEMU4 IBCEOB IBCEOB01 IBCEOB1 IBCEOB2 IBCEOB21 IBCEP2 IBCEP2A IBCEP2B IBCEP3 IBCEP4 IBCEP7B IBCEP8A IBCEP9B IBCEPTC0 IBCEPTC1 IBCEPTC2 IBCEPTC3 IBCEPTM IBCEPTR IBCERP2 IBCERP6 IBCEST IBCEU IBCEU0 IBCEU1 IBCEU2 IBCEU3 IBCEU4 IBCEU5 IBCEU6 IBCEU7 IBCEXTR1 IBCEXTRP IBCF2 IBCF21 IBCF22 IBCF31 IBCF33 IBCIADD1 IBCINPT IBCIUT1 IBCIUT5 IBCIUT6 IBCNADD IBCNEHLQ IBCNIUHL IBCNQ IBCNS2 IBCNS4 IBCNSU1 IBCRBC IBCRBF IBCSC10 IBCSC102 IBCSC10H IBCSC11 IBCSC3 IBCSC4 IBCSC4D IBCSC4E IBCSC5 IBCSC6 IBCSC61 IBCSC9 IBCSCE IBCSCH IBCSCU IBCU IBCU1 IBCU4 IBCU41 IBCU64 IBCU7 IBCU71 IBCU7A IBCU7B IBCVA1 IBCVC IBEFSMUT IBEFUNC IBJPS3 IBJTBA IBJTBA1 IBJTBC IBJTCA1 IBJTCA2 IBJTLA1 IBJTLB1 IBJTRX IBJTU1 IBJTU3 IBOSRX IBOTR2 IBRFIHL2 IBRFIWL1 IBRFN3 IBRFN4 IBTRH6 IBTRH8 IBTRHLO IBXS5 IBXS6 IBXS62 IBXS8 IBXSA2 IBXSA21 IBXSAH IBXSAH1 IBXSC6 IBXSC67 IBXSC824 IBXSC8H4 IBXSC8H5 IBXX1 IBXX19 IBXX20 IBY137PO IBY320PO IBY400PO IBY652P IBY727PO ^DGCR(399 ^IBA(364.5 ^IBA(364.7 PROVIDER

Entry Points

Name	Comments	DBIA/ICR reference
COB(IBIFN)	; Bill seq
COBN(IBIFN,A)	; Return seq # of selected payer ; A = 'PST' or null to get current bill payer seq #
POLICY(IBIFN,IBPC,IBCOBN)	; Return raw data from policy info on bill ; IBPC = pc # of data element in policy (optional) ; if null, 0-node is returned ; IBCOBN = bill designation 1-3 or 'PST' (optional) ; if null, default to current
POLICYQ
INSADDR(IBIFN,IBCOB)	; Return insured's address in 7 pieces: ; ALL STREET ADDRESSES^CITY^STATE ABBREVIATION^ZIP^STREET ADDRESS 1^ ; STREET ADDRESS 2^STREET ADDRESS 3 ; IBIFN = bill ien ; IBCOB = bill designation (P)rimary, (S)econdary, (T)ertiary ; or 1-2-3. If not defined or null, return current ; If insured is patient or spouse, take from patient file top level ; fields, then if top-level street addresses are blank and policy ; level fields are not, use policy level ; If insured is other than patient/spouse, use policy level fields only
INSADDQ
PI3	; build IBADDR string from patient insurance 3 node data
PTADDR(IBIFN,ELE)	;Return part of patient's permanent address
PTDEM(IBIFN,ELE,PC)	;Return part of patient's demographics
PTEMPL(IBIFN,ELE,WHOSE,VAOA)	;Return part of pt's or spouse's employer info
INSDEM(IBIFN,IBCOB)	; Return insured's demographics in 6 pieces: ; DATE OF BIRTH^SEX^PHONE^BRANCH pointer^RANK^SSN(no dashes) ; IBIFN = bill ien ; IBCOB = bill designation (P)rimary (default), (S)econdary, (T)ertiary ; or 1,2,3 ... if not defined or null, return current ; If insured is patient/spouse, take from patient file top level ; fields, then if top-level are blank and policy level aren't, ; use policy level ; If insured other than patient/spouse, use policy level fields only
INSDEM1
INSEMPL(IBIFN,IBCOB)	; Return insured's employer data in 5 pieces: ; EMPLOYER NAME^EMPLOYER CITY^EMPLOYER STATE ABBREVIATION^STATE IEN^STREET 1 ; IBCOB = bill designation (P)rimary-default, (S)econdary, (T)ertiary ; or 123 - if not defined or null, return current
INSEMPQ
WHOSINS(IBIFN,IBCOB)	; Determine who is insured for bill IBIFN and ; seq of coverage COB (123 or PST) or if not defined or null, current
EMPSTAT(IBIFN,WHOSE)	;Return employment status ; IBIFN = bill ien ; WHOSE = v for vet, s for spouse status
INPAT(IBIFN,OUT)	; Determine if bill is inpatient ; OUT = optional - if 1, return output value based on ; inpatient/outpatient from UB-04 type of bill field ; Return 1 if inpatient, 0 if not inpatient or can't be determined
INSPRF(IBIFN)	; Function to determine if bill is prof or inst ; Return 1 if institutional (UB-04) claim, 0 if professional (CMS-1500) claim
F(FLD,IBXRET,IBXERR1,IBIEN)	;Execute extract for data element FLD and bill IBIEN ; If IBXDATA array to be returned as data value(s) of fld ; D F^IBCEF("FLD NAME","IBXDATA","IBXERR") or D F^IBCEF("FLD NAME") ; Variable ref-ed by IBXERR1 will contain error message if an error ; @IBXRET always defined on return. It will be null if error
FQ
SERVDT(IBIFN,LENGTH,FORMAT)	; Return default service date for ; outpatient/UB-04 lines or X12-837 institutional lines ; LENGTH = null/8 for 8 digit date, 6 for 6 digit date ; FORMAT = 1 = X12 format (YYYYMMDD), 2 = FM internal (NNNNNNN), ; 0 = external (MMDDYY or MMDDYYYY)
SERVDTQ
NOPUNCT(X,SPACE,EXC)	; Strip punctuation from data in X ; SPACE = flag if 1 strip SPACES ; EXC = list of punctuation not to strip
FT(IBIFN)	; Internal code for bill form type
COBCT(IBIFN)	; # of payers on claim
INSTOUT(IBIFN)

Name	Field # of Occurrence
$$GET1^DIQ	POLICY+19, POLICY+20
$$FT^IBCEF	SERVDT+6
$$INPAT^IBCEF	SERVDT+6, INSTOUT+2
$$INSPRF^IBCEF	INSTOUT+2
EXTONE^IBCEFG0	F+24
$$DT^IBCEFG1	SERVDT+11
$$DATE^IBCF2	SERVDT+12
ADD^VADPT	INSADDR+18, PTADDR+7
DEM^VADPT	PTDEM+9
ELIG^VADPT	WHOSINS+6, WHOSINS+7
OAD^VADPT	PTEMPL+6
OPD^VADPT	EMPSTAT+5

FileNo	Call Tags
^IBA(355.3 - [#355.3]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	COB+2, POLICY+7, POLICY+15, INSADDR+14, INSADDR+17, INSADDQ, PTADDR+6, PTDEM+8, PTEMPL+5, INSDEM+13 , INSDEM1, INSEMPL+8, WHOSINS+5, EMPSTAT+4, INPAT+5, INSPRF+3, FT+1, COBCT+2
^DGCR(399.1 - [#399.1]	INPAT+9
^DIC(5 - [#5]	INSADDR+19, PI3+4, INSEMPL+10
^DPT - [#2]	INSADDQ+1, INSDEM1+1, EMPSTAT+6
^IBA(364.5 - [#364.5]	F+15, F+16, F+21
^UTILITY("VADM"	PTDEM+6, PTDEM+10, INSDEM+17
^UTILITY("VAPA"	PTADDR+4, PTADDR+8, INSDEM+18

Name	Line Occurrences
$$COB	COBN+2
$$COBN	POLICY+6, INSADDR+12, INSDEM+11
$$NOPUNCT	INSADDQ+3
$$POLICY	INSADDR+13, WHOSINS+3, WHOSINS+5
$$PTADDR	INSDEM+16
$$PTDEM	INSDEM+16
$$PTEMPL	INSEMPL+9
$$WHOSINS	INSDEM+12, INSEMPL+5
F	SERVDT+8
FQ	F+14, F+15, F+22
INSADDQ	INSADDR+15
INSDEM1	INSDEM+14, INSDEM+19
INSEMPQ	INSEMPL+6
PI3	INSADDQ+2, INSADDQ+3
SERVDTQ	SERVDT+6, SERVDT+9, SERVDT+11

Name	Field # of Occurrence
^("U"	INSADDR+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	COB+1~, COB+2, COB+3, COBN~, COBN+2, COBN+3, COBN+4, INSADDR+10~, INSADDQ, INSADDQ+1* , INSADDQ+3, PI3+1, PI3+2, PI3+3, PI3+4, INSDEM+9~, INSDEM+16, INSDEM+17, INSDEM1, INSDEM1+1 , INSDEM1+3, INSDEM1+4, INSDEM1+5, INSDEM1+6, INSDEM1+7, INSEMPL+4~, INSEMPL+9, INSPRF+2~, INSPRF+3, INSPRF+4* , INSPRF+5
B	INSADDR+10~, PI3+3*, INSDEM+9~
CODE	INPAT+4~, INPAT+6*, INPAT+7
CODE0	INPAT+4~, INPAT+9*, INPAT+10, INPAT+11, INPAT+12, INPAT+13, INPAT+14, INPAT+15
CT	COBCT+1~, COBCT+2*, COBCT+3
DFN	INSADDR+10~, INSADDR+14, INSADDQ+1, PTADDR+5~, PTADDR+6, PTDEM+7~, PTDEM+8, PTEMPL+4~, PTEMPL+5, INSDEM+9~ , INSDEM+13, INSDEM1+1, INSEMPL+4~, INSEMPL+8, WHOSINS+2~, WHOSINS+5, EMPSTAT+3~, EMPSTAT+4, EMPSTAT+6
ELE	PTADDR~, PTADDR+8, PTDEM~, PTDEM+10, PTEMPL~, PTEMPL+7
EXC	NOPUNCT~, NOPUNCT+7
FLD	F~, F+15, F+16, F+17, F+21, F+22
FLDN	F+12~, F+24
FLDN(1	F+24*
FORMAT	SERVDT~, SERVDT+7*, SERVDT+9, SERVDT+11
IB0	INPAT+4~, INPAT+5*, INPAT+6, INPAT+9, INPAT+10, INPAT+11, INPAT+12, INPAT+13, INPAT+14
IBADDR	INSADDR+10~, INSADDR+15, INSADDR+19, INSADDQ+2, INSADDQ+4, PI3+1, PI3+2, PI3+3, PI3+4, PI3+5*
IBCOB	INSADDR~, INSADDR+11, INSADDR+12, INSADDR+13, INSADDQ, INSDEM~, INSDEM+10, INSDEM+11, INSDEM+12, INSDEM1 , INSEMPL~, INSEMPL+5, WHOSINS~, WHOSINS+3, WHOSINS+5
IBCOBN	POLICY~, POLICY+6*, POLICY+7, POLICY+15
IBDEM	INSDEM+9~, INSDEM+14, INSDEM+19, INSDEM+20, INSDEM+21, INSDEM1+3, INSDEM1+4, INSDEM1+5, INSDEM1+6, INSDEM1+7* , INSDEM1+8
IBEMPL	INSEMPL+4~, INSEMPL+6, INSEMPL+10, INSEMPQ
IBI	POLICY+5~, POLICY+7, POLICY+16, POLICY+17, POLICY+18, POLICY+19, POLICY+20, POLICY+21, POLICYQ, INSADDR+10~ , INSADDR+13, INSADDR+15, INSADDQ+3, INSDEM+9~, INSDEM+12, INSDEM+14, INSDEM+21, INSDEM1+3, INSEMPL+4~, INSEMPL+5* , INSEMPL+6, INSEMPL+9
IBIEN	F~, F+5
IBIFN	COB~, COB+2, COBN~, COBN+2, POLICY~, POLICY+6, POLICY+7, POLICY+15, INSADDR~, INSADDR+12 , INSADDR+13, INSADDR+14, INSADDR+17, INSADDQ, PTADDR~, PTADDR+6, PTDEM~, PTDEM+8, PTEMPL~, PTEMPL+5 , INSDEM~, INSDEM+11, INSDEM+12, INSDEM+13, INSDEM+16, INSDEM1, INSEMPL~, INSEMPL+5, INSEMPL+8, INSEMPL+9 , WHOSINS~, WHOSINS+3, WHOSINS+5, EMPSTAT~, EMPSTAT+4, INPAT~, INPAT+5, INSPRF~, INSPRF+3, SERVDT~ , SERVDT+6, SERVDT+8, FT~, FT+1, COBCT~, COBCT+2, INSTOUT~, INSTOUT+2
IBPC	POLICY~, POLICY+21
>> IBXARRY	FQ*, FQ+1, FQ+4, FQ+5
IBXERR1	F~, F+6*, F+10, F+14, F+15, F+22, F+26, FQ+1
IBXERR2	F+12~, F+24, F+26
IBXHOLD	F+7~, F+8, F+9, FQ, FQ+3
IBXIEN	F+5~*, F+14, F+24
IBXRET	F~, F+9, F+24, FQ, FQ+3, FQ+4
IBXRETX	F+12~, FQ+4*
IBXRETX(1	FQ+4
IBY	POLICY+5~, POLICY+15, POLICY+16, POLICY+17, POLICY+18, POLICY+19, POLICY+20
IBZ	SERVDT+5~, SERVDT+9, SERVDT+11, SERVDT+12, SERVDTQ
INPT	INPAT+4~, INPAT+7, INPAT+10, INPAT+11, INPAT+12, INPAT+13, INPAT+14, INPAT+15*, INPAT+16
LENGTH	SERVDT~, SERVDT+7*, SERVDT+11, SERVDT+12
OFLD	F+12~, F+15*, F+17
OUT	INPAT~, INPAT+6*, INPAT+7, INPAT+8
PC	PTDEM~, PTDEM+5*, PTDEM+10
PUNCT	NOPUNCT+4~, NOPUNCT+5, NOPUNCT+6, NOPUNCT+7*, NOPUNCT+8
SPACE	NOPUNCT~, NOPUNCT+6
STAT	EMPSTAT+3~, EMPSTAT+4, EMPSTAT+5, EMPSTAT+6, EMPSTAT+7, EMPSTAT+8
STOP	F+12~, F+15, F+16, F+18
U	COB+2, POLICY+16, POLICY+17, POLICY+18, POLICY+19, POLICY+20, POLICY+21, INSADDR+14, INSADDR+17, INSADDR+19 , INSADDQ, INSADDQ+2, INSADDQ+3, PI3+1, PI3+2, PI3+3, PI3+4, PI3+5, PTADDR+6, PTADDR+8 , PTDEM+8, PTDEM+10, PTEMPL+5, PTEMPL+7, INSDEM+13, INSDEM+17, INSDEM+18, INSDEM+20, INSDEM+21, INSDEM1 , INSDEM1+3, INSDEM1+4, INSDEM1+5, INSDEM1+6, INSDEM1+7, INSEMPL+8, INSEMPL+10, WHOSINS+5, EMPSTAT+4, EMPSTAT+5 , EMPSTAT+6, INPAT+6, INPAT+9, INPAT+10, INPAT+11, INPAT+12, INPAT+13, INPAT+14, INSPRF+4, INSPRF+5 , F+21, FT+1
VADM	PTDEM+7~, INSDEM+9~
VADM(	INSDEM+17*
VADM(2	INSDEM+20
VADM(3	INSDEM+19, INSDEM+21
VADM(5	INSDEM+19, INSDEM1+2*, INSDEM1+3
VAEL	WHOSINS+2~
VAEL(4	WHOSINS+6, WHOSINS+7
VAHOW	PTADDR+5~, PTADDR+6, PTDEM+7~, PTDEM+8
VAOA	PTEMPL~, INSEMPL+4~, INSEMPL+9
VAOA(	PTEMPL+7
VAOA("A"	PTEMPL+5*
VAOA(1	INSEMPL+10
VAOA(4	INSEMPL+10
VAOA(5	INSEMPL+10
VAOA(9	INSEMPL+10
VAPA	INSADDR+10~, PTADDR+5~
VAPA("P"	PTADDR+6*
VAPA(1	INSADDR+19
VAPA(2	INSADDR+19
VAPA(3	INSADDR+19
VAPA(4	INSADDR+19
VAPA(5	INSADDR+19
VAPA(6	INSADDR+19
VAPA(8	INSDEM+18*, INSDEM+19, INSDEM+20
VAPD	EMPSTAT+3~
VAPD(7	EMPSTAT+5
VATEST	INSADDR+10~
VATEST("ADD"	INSADDR+17*
WHOSE	PTEMPL~, PTEMPL+5, EMPSTAT~, EMPSTAT+5, EMPSTAT+6
X	NOPUNCT~, NOPUNCT+8*, NOPUNCT+9
Z	WHOSINS+2~, WHOSINS+3, WHOSINS+4, WHOSINS+6, WHOSINS+7, WHOSINS+8, WHOSINS+9, F+12~, F+20, F+21 , F+22, F+24, NOPUNCT+4~, NOPUNCT+7, COBCT+1~, COBCT+2
Z0	WHOSINS+2~, WHOSINS+5*, WHOSINS+6, WHOSINS+7

Customize PDF page

Package: Integrated Billing

Routine: IBCEF

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 209

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: