Routine: IBCEF21

Information

IBCEF21 ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS CONTINUED ; 3/9/11 1:12pm

Package	Total	Call Graph
Integrated Billing	5	($$COBN,$$FT,$$INPAT,$$SERVDT)^IBCEF ($$CURR,$$PPOL)^IBCEF2 $$ZND^IBCNS1 $$ADDRESS^IBCNSC0 ($$PINB,SET)^IBCSC5B
Registration	1	INP^VADPT
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Integrated Billing	4	IBCEF2 IBCNSP1 ^IBA(364.5 ^IBA(364.7

Entry Points

Name	Comments	DBIA/ICR reference
COID(IBIFN)	; Claim office ID
ESGHPST(IBIFN,COB)	; return insureds employment status if the bill policy defined by COB is an Employer Sponsored Group Health Plan ; ESGHP FLAG (2.312,2.1) ^ the employment status (2.312,2.11)
ESGHPNL(IBIFN,COB)	; return employer name and location if the bill policy defined by COB is an Employer Sponsored Group Health Plan ; ESGHP FLAG (2.312,2.1) ^ employer name (2.312,2.015) ^ employer city (2.312,2.05) ; ^ employer state abbr (2.312,2.06) ^ employer state ifn (2.312,2.06)
REMARKS(IBIFN)	; Compile array of bill remarks
CREM(IBIFN)	; Compile array of bill remarks common to every bill
ADMDT(IBIFN,NOOUTCK)	; Calculate admission/start of care date/time ; IBIFN = bill ien ; NOOUTCK = flag that will: ; (1) no check for inpt episode overlap for outpt ; (0 or null) performs check for inpt episode overlap for outpt ; ; Returns IBXDATA = fileman date format
DISDT(IBIFN)	; Calculate discharge date ; IBIFN = bill ien
INSSECID(IBIFN,TYPE,SEQ)	; Extract subscriber and patient prim/sec ID's ; IBIFN required ; TYPE is either "PAT" or "SUB" to indicate we need to extract either ; patient or subscriber ID information. Default="SUB". ; SEQ is the insurance sequence# (1,2,3). Default is current ins seq#.
INSSX	;
SCRUB(DATA)	; Scrub the 8-piece string gathered above

External References

Name	Field # of Occurrence
$$GET1^DIQ	ADMDT+9
$$COBN^IBCEF	INSSECID+22
$$FT^IBCEF	COID+9, ADMDT+9, DISDT+4
$$INPAT^IBCEF	ADMDT+10, DISDT+5
$$SERVDT^IBCEF	ADMDT+19
$$CURR^IBCEF2	COID+2
$$PPOL^IBCEF2	ESGHPST+4, ESGHPNL+5
$$ZND^IBCNS1	INSSECID+28
$$ADDRESS^IBCNSC0	COID+2, COID+5, COID+6, COID+7, COID+9
$$PINB^IBCSC5B	REMARKS+9
SET^IBCSC5B	REMARKS+7
INP^VADPT	ADMDT+18, DISDT+7

FileNo	Call Tags
^DGCR(399 - [#399]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	COID+6, COID+7, ESGHPST+4, ESGHPNL+5, REMARKS+5, REMARKS+6, ADMDT+10, ADMDT+17, DISDT+5, DISDT+7 , INSSECID+24, INSSECID+25
^DGCR(399.3 - [#399.3]	REMARKS+6
^DGPM - [#405]	DISDT+7
^DGPT - [#45]	ADMDT+11, DISDT+6
^DIC(5 - [#5]	ESGHPNL+6
^DPT - [#2]	ESGHPST+5, ESGHPNL+6, INSSECID+29
^IBA(364.2 - [#364.2]	COID+5
^IBE(350.9 - [#350.9]	CREM+4

Label References

Name	Line Occurrences
$$SCRUB	INSSECID+39
INSSX	INSSECID+19, INSSECID+21, INSSECID+23, INSSECID+24, INSSECID+25, INSSECID+28

Naked Globals

Name	Field # of Occurrence
^("U"	ADMDT+10
^("U1"	REMARKS+5
^(1	CREM+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COB	ESGHPST~, ESGHPST+4, ESGHPNL~, ESGHPNL+5
DATA	INSSECID+17~, INSSECID+18, INSSECID+31, INSSECID+32, INSSECID+33, INSSECID+35, INSSECID+36, INSSECID+39, INSSX+1, SCRUB~ , SCRUB+6, SCRUB+7, SCRUB+12, SCRUB+13, SCRUB+14, SCRUB+20, SCRUB+21, SCRUB+22, SCRUB+23*, SCRUB+27
DFN	ESGHPST+3~, ESGHPST+4, ESGHPST+5, ESGHPNL+4~, ESGHPNL+5, ESGHPNL+6, ADMDT+16~, ADMDT+17, DISDT+7~, INSSECID+17~ , INSSECID+24*, INSSECID+28, INSSECID+29
IB0	INSSECID+17~, INSSECID+28*, INSSECID+30, INSSECID+32
IB5	INSSECID+17~, INSSECID+29*, INSSECID+33, INSSECID+35, INSSECID+36
IBARRAY	REMARKS+2~, REMARKS+7, REMARKS+8
IBARRAY(	REMARKS+9
IBCOID	COID+1~, COID+2*, COID+11
IBCOID1	COID+1~, COID+2, COID+5, COID+6, COID+7, COID+9*, COID+11
IBIFN	COID~, COID+2, COID+5, COID+6, COID+7, COID+9, ESGHPST~, ESGHPST+4, ESGHPNL~, ESGHPNL+5 , REMARKS~, REMARKS+5, REMARKS+6, REMARKS+7, CREM~, ADMDT~, ADMDT+9, ADMDT+10, ADMDT+17, ADMDT+19 , DISDT~, DISDT+4, DISDT+5, DISDT+7, INSSECID~, INSSECID+19*, INSSECID+22, INSSECID+24, INSSECID+25
IBIN	COID+1~, COID+2*, COID+4, COID+5, COID+6, COID+7, COID+9
IBSM	REMARKS+2~
>> IBXDATA	ADMDT+9, ADMDT+11, ADMDT+12, ADMDT+15, ADMDT+17, ADMDT+18, ADMDT+19, DISDT+4, DISDT+6, DISDT+7
>> IBXDATA(	REMARKS+5, REMARKS+9, CREM+4*
NOOUTCK	ADMDT~, ADMDT+15
PCE	SCRUB+1~, SCRUB+5, SCRUB+6, SCRUB+7, SCRUB+19, SCRUB+20, SCRUB+21, SCRUB+22, SCRUB+23
POL	INSSECID+17~, INSSECID+25*, INSSECID+28, INSSECID+29
PPOL	ESGHPST+3~, ESGHPST+4, ESGHPST+5, ESGHPNL+4~, ESGHPNL+5, ESGHPNL+6
REL	INSSECID+17~, INSSECID+30*, INSSECID+34
SEQ	INSSECID~, INSSECID+22*, INSSECID+23, INSSECID+25
TYPE	INSSECID~, INSSECID+20*, INSSECID+21, INSSECID+34
U	COID+2, COID+5, COID+6, COID+7, COID+9, ESGHPST+4, ESGHPST+5, ESGHPNL+5, ESGHPNL+6, REMARKS+5 , REMARKS+6, REMARKS+8, CREM+4, ADMDT+10, ADMDT+11, ADMDT+12, ADMDT+17, DISDT+6, DISDT+7, INSSECID+24 , INSSECID+25, INSSECID+30, INSSECID+31, INSSECID+32, INSSECID+33, INSSECID+35, INSSECID+36, SCRUB+6, SCRUB+7, SCRUB+12 , SCRUB+13, SCRUB+14, SCRUB+20, SCRUB+21, SCRUB+22, SCRUB+23
VAIN	ADMDT+16~, DISDT+7~
VAIN(1	DISDT+7
VAIN(7	ADMDT+18
VAINDT	ADMDT+16~, ADMDT+17*, DISDT+7~
X	ESGHPST+3~, ESGHPST+5, ESGHPNL+4~, ESGHPNL+6
Y	ESGHPST+3~, ESGHPST+5, ESGHPST+6, ESGHPNL+4~, ESGHPNL+6, ESGHPNL+7
Z	REMARKS+2~, REMARKS+3, REMARKS+5, REMARKS+9, CREM+2~, CREM+3, CREM+4, ADMDT+7~, ADMDT+10, ADMDT+11 , ADMDT+12, DISDT+2~, DISDT+5*, DISDT+6, DISDT+7
Z0	REMARKS+2~, REMARKS+6, REMARKS+9, ADMDT+7~, ADMDT+10, ADMDT+11, ADMDT+12, ADMDT+15, ADMDT+19, DISDT+2~ , DISDT+5, DISDT+6
Z1	REMARKS+2~, REMARKS+6, REMARKS+9, ADMDT+7~, ADMDT+10*, ADMDT+12

Customize PDF page

Package: Integrated Billing