Routine: IBCEU3

Package	Total	Call Graph
Integrated Billing	8	($$COBCT,$$FT,F)^IBCEF B24^IBCEF3 ($$CFIDS,$$DOL)^IBCEF77 ($$SPEC,GETPRV)^IBCEU $$MCRSPEC^IBCEU4 $$DATE^IBCF2 $$FO^IBCNEUT1 ($$MCRONBIL,$$MODLST)^IBEFUNC
VA FileMan	2	$$GET1^DIQ ^DIR
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Integrated Billing	12	IBCBB2 IBCBB9 IBCEF74 IBCEF80 IBCEFP IBCIADD1 IBCINPT IBCIUT1 IBXSAH IBXSC8H3 ^IBA(364.5 ^IBA(364.7

Entry Points

Name	Comments	DBIA/ICR reference
BOX19(IBIFN)	; New Box 19 added for patch 488. This is for workman's comp? ; This returns the Paperwork Attachment ; Information in the following format: ; PWKNNFX12348907CHEY<3 Spaces>Next set if more than one on claim ; PWK is the qualifier for data, followed by the appropriate Report Type
FORMAT(DATA)	; format data for ouput
OBOX19(IBIFN)	; THIS IS NOLONGER USED. IT WAS REPLACE WITH ABOVE. ; Returns the text that should print in box 19 of the CMS-1500 ; for bill ien IBIFN ; Data is derived from a combo of data throughout ; the system and is limited to 80 characters. The hierarchy for ; including data is as follows (until 80 characters have been used): ; DATE LAST SEEN and REFERRING PHYSICIAN ID# (physical therapy) ; specialty codes = 025,065,073,067,048 ; LAST X-RAY DATE (chiropractic) specialty code = 35 ; HOMEBOUND INDICATOR (independent lab renders an EKG or obtains ; a specimen from a homebound patient) ; NO ASSIGNMENT OF BENEFITS (if no assignment of benefits indicated) ; Hearing aid testing (if applicable) ; ATTENDING PHYSICIAN NOT HOSPICE EMPLOYEE (if applicable) ; SPECIAL PROGRAM indicator if Medicare demonstration project for ; lung volume reduction surgery study is set ; COMMENTS FOUND IN BOX 19 DATA FIELD FOR THE CLAIM ; REMARKS FOUND IN BILL COMMENT FOR THE CLAIM, INCLUDING PROSTHETICS ; DETAIL
NPRT
BOX19Q
LENOK(IBDATA,IB19)	; Add text IBDATA to box 19 string (IB19 passed by ref) ; Check length of box 19 data - truncate at 71 (max length) ; Returns 0 if max length reached or exceeded, otherwise, 1 ; Changed 96 to 71 for new 1500 form
LENOKQ
ASK19(IBIFN)	; Ask to display CMS-1500 box 19 data for current IBIFN ; changed to 71 length.
ONLAB(IBIFN)	; Functions returns 1 if the bill IBIFN is outside non-lab
TEXT24(FLD,IBXSAVE,IBXDATA,IBSUB)	; Format the text line of box 24 by fld ; INPUT: ; FLD = the letter of the field in box 24 (A-J) ; IBXSAVE = passed by reference = extracted data for the box 24 lines ; IBSUB = the subscript of the IBXSAVE array to use. ; If null, use "BOX24" ; OUTPUT: ; IBXDATA = passed by reference, set to the correct part of the ; text that will print in the field's positions
LINSPEC(IBIFN)	; Checks the specialities of line and claim level providers ; called from IBCBB2 to check for Chiro codes & IBCBB9 to check for 99's on Medicare ; Default = 99 if no valid SPEC code found for line and claim level provider ; Get rendering for professional, attending for institutional ; If multiple lines w/ rendering or attending, returns a string of spec codes
BILLSPEC(IBIFN,IBPRV)	; Returns the specialty of the provider on bill IBIFN ; If IBPRV is supplied, returns the data for that provider, otherwise, ; returns the specialty of the 'main/required' provider on the bill. ; Default = 99 if no valid code found ; IBPRV = vp of provider (file 200 or 355.93)
SPECQ
CHAMPVA(IBIFN)	; Returns 1 if the bill IBIFN has a CHAMPVA rate type
FAC(IBIFN)	; Obsolete function. Used by old output formatter field and data element N-RENDERING INSTITUTION
MCR24K(IBIFN,IBPRV)	;Function returns MEDICARE id# for professional (CMS-1500) box 24k for bill IBIFN if appropriate

Name	Field # of Occurrence
$$GET1^DIQ	BOX19+14, OBOX19+63
^DIR	ASK19+4, ASK19+8
$$COBCT^IBCEF	OBOX19+53
$$FT^IBCEF	BOX19+14, LINSPEC+8, LINSPEC+22, BILLSPEC+13, MCR24K+4
F^IBCEF	OBOX19+33, OBOX19+36, OBOX19+39, OBOX19+42, OBOX19+59, NPRT, NPRT+3
B24^IBCEF3	OBOX19+45
$$CFIDS^IBCEF77	TEXT24+18
$$DOL^IBCEF77	TEXT24+66
$$SPEC^IBCEU	LINSPEC+13, BILLSPEC+10, BILLSPEC+17
GETPRV^IBCEU	LINSPEC+9, BILLSPEC+14
$$MCRSPEC^IBCEU4	MCR24K+4
$$DATE^IBCF2	OBOX19+29, OBOX19+34
$$FO^IBCNEUT1	TEXT24+46, TEXT24+47, TEXT24+48, TEXT24+49, TEXT24+50
$$MCRONBIL^IBEFUNC	MCR24K+4
$$MODLST^IBEFUNC	TEXT24+45
$$SITE^VASITE	MCR24K+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"19",?45,$E(Z,1,23) Line Location: ASK19+7
Function Call: WRITE	Prompt: !,?4,$E(Z,24,71),! Condition for execution: $L(Z)>23 Line Location: ASK19+7
Function Call: WRITE	Prompt: ! Line Location: ASK19+8
Routine Call	DIR Line Location: ASK19+4 ASK19+8

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

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	BOX19+17, BOX19+19, BOX19+22, BOX19+23, BOX19+27, OBOX19+29, ONLAB+3, LINSPEC+7, LINSPEC+14, LINSPEC+15 , LINSPEC+17, LINSPEC+18, LINSPEC+19, BILLSPEC+7, BILLSPEC+18, BILLSPEC+19, CHAMPVA+1
^DGCR(399.3 - [#399.3]	CHAMPVA+1
^IBE(353.3 - [#353.3]	FORMAT+3
^TMP("IBTX"	OBOX19+22

Name	Line Occurrences
$$BILLSPEC	OBOX19+26
$$BOX19	ASK19+7
$$FORMAT	BOX19+24, BOX19+28
$$LENOK	OBOX19+29, OBOX19+34, OBOX19+40, OBOX19+43, OBOX19+50, OBOX19+54, OBOX19+57, OBOX19+60, OBOX19+64, NPRT+2 , NPRT+4
BOX19Q	OBOX19+30, OBOX19+38, OBOX19+40, OBOX19+43, OBOX19+49, OBOX19+58, OBOX19+60, OBOX19+66, NPRT+2, NPRT+4
LENOKQ	LENOK+7
NPRT	OBOX19+27
SPECQ	BILLSPEC+9

Name	Field # of Occurrence
^(0	BILLSPEC+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ART	FORMAT+1~, FORMAT+2, FORMAT+3, FORMAT+4
DATA	BOX19+11~, BOX19+23, BOX19+24, BOX19+26, BOX19+27, BOX19+28, BOX19+31, BOX19+32, FORMAT~, FORMAT+2 , FORMAT+4
DEL	BOX19+11~, BOX19+15*, BOX19+24, BOX19+28, BOX19+31, BOX19+32
DIC	ASK19+2~
DIE	ASK19+2~
DIR	ASK19+2~, ASK19+8!
DIR("A"	ASK19+3, ASK19+8
DIR("B"	ASK19+3*, ASK19+5!
DIR(0	ASK19+3, ASK19+8
DR	ASK19+2~
FLD	TEXT24~, TEXT24+16, TEXT24+34, TEXT24+38, TEXT24+42, TEXT24+43, TEXT24+44, TEXT24+53, TEXT24+64, TEXT24+70 , TEXT24+77, TEXT24+81, TEXT24+85
I	BOX19+11~, BOX19+31, TEXT24+58, TEXT24+59, TEXT24+60, TEXT24+61, TEXT24+62
IB19	BOX19+11~, BOX19+15, BOX19+24, BOX19+28, BOX19+30, BOX19+32, BOX19+33, BOX19+35, OBOX19+20~, OBOX19+21 , OBOX19+29, OBOX19+34, OBOX19+40, OBOX19+43, OBOX19+50, OBOX19+54, OBOX19+57, OBOX19+60, OBOX19+64, NPRT+2 , NPRT+4, BOX19Q, LENOK~, LENOK+6, LENOK+7
>> IBAC	TEXT24+32
IBAUX	TEXT24+12~, TEXT24+26*, TEXT24+28, TEXT24+78
IBBX19	BOX19+11~, BOX19+19*, BOX19+30, BOX19+31, BOX19+33
IBCP	LINSPEC+5~, LINSPEC+17*, LINSPEC+18, LINSPEC+19
IBDAT	TEXT24+12~, TEXT24+25*, TEXT24+34, TEXT24+38, TEXT24+42, TEXT24+43, TEXT24+44, TEXT24+45, TEXT24+57, TEXT24+64 , TEXT24+70
IBDATA	LENOK~, LENOK+6
IBDT	LINSPEC+5~, LINSPEC+7, LINSPEC+13, BILLSPEC+5~, BILLSPEC+7, BILLSPEC+10, BILLSPEC+17
IBE	TEXT24+12~, TEXT24+34, TEXT24+38, TEXT24+42, TEXT24+43, TEXT24+44, TEXT24+63, TEXT24+64, TEXT24+70, TEXT24+78* , TEXT24+82, TEXT24+86, TEXT24+91
IBGO	OBOX19+20~, OBOX19+21, OBOX19+29, OBOX19+30, OBOX19+34, OBOX19+38, OBOX19+49, OBOX19+50, OBOX19+52, OBOX19+54* , OBOX19+56, OBOX19+57, OBOX19+58, OBOX19+64, OBOX19+66
IBHAID	OBOX19+20~, OBOX19+47, OBOX19+53, OBOX19+54
IBHOSP	OBOX19+20~, OBOX19+47, OBOX19+57
IBID	OBOX19+20~, OBOX19+34, OBOX19+36
IBIFN	BOX19~, BOX19+14, BOX19+17, BOX19+19, BOX19+22, BOX19+23, BOX19+27, OBOX19~, OBOX19+22, OBOX19+26 , OBOX19+29, OBOX19+33, OBOX19+36, OBOX19+39, OBOX19+42, OBOX19+45, OBOX19+53, OBOX19+59, OBOX19+63, NPRT , NPRT+3, ASK19~, ASK19+7, ONLAB~, ONLAB+3, LINSPEC~, LINSPEC+7, LINSPEC+8, LINSPEC+9, LINSPEC+14 , LINSPEC+15, LINSPEC+17, LINSPEC+18, LINSPEC+19, LINSPEC+22, BILLSPEC~, BILLSPEC+7, BILLSPEC+13, BILLSPEC+14, BILLSPEC+18 , BILLSPEC+19, CHAMPVA~, CHAMPVA+1, FAC~, MCR24K~, MCR24K+4
IBINS	LINSPEC+5~, LINSPEC+8, LINSPEC+10, BILLSPEC+5~, BILLSPEC+13, BILLSPEC+15
IBLINE	TEXT24+12~, TEXT24+14, TEXT24+90, TEXT24+91, TEXT24+92*, TEXT24+93
IBLSDT	OBOX19+20~, OBOX19+34*
>> IBNOSHOW	OBOX19+45, TEXT24+32
IBP	ONLAB+1~, ONLAB+2, ONLAB+4, ONLAB+5
IBPRT	OBOX19+20~, OBOX19+24*, OBOX19+27
IBPRV	LINSPEC+9, BILLSPEC~, BILLSPEC+6*, BILLSPEC+9, BILLSPEC+10, BILLSPEC+14, MCR24K~, MCR24K+4
IBPRV(	LINSPEC+12, LINSPEC+13, BILLSPEC+16, BILLSPEC+17
IBPUR	ONLAB+1~, ONLAB+3*, ONLAB+4
IBREM	OBOX19+20~, NPRT+1, NPRT+2, NPRT+4
IBREN	TEXT24+12~, TEXT24+18*, TEXT24+19, TEXT24+20, TEXT24+21
IBRENNPI	TEXT24+12~, TEXT24+21*, TEXT24+87
IBRENQ	TEXT24+12~, TEXT24+19*, TEXT24+83
IBRENSID	TEXT24+12~, TEXT24+20*, TEXT24+86
IBRTP	BOX19+11~, BOX19+17*, BOX19+21
IBS	TEXT24+12~, TEXT24+34, TEXT24+38, TEXT24+42, TEXT24+43, TEXT24+44, TEXT24+63, TEXT24+64, TEXT24+70, TEXT24+78* , TEXT24+82, TEXT24+86, TEXT24+91
IBSPC	LINSPEC+5~, LINSPEC+6, LINSPEC+13, LINSPEC+15, LINSPEC+19, LINSPEC+22*, LINSPEC+23
IBSPEC	OBOX19+20~, OBOX19+26, OBOX19+32, LINSPEC+5~, LINSPEC+13, LINSPEC+15, LINSPEC+19, BILLSPEC+5~, BILLSPEC+6, BILLSPEC+10 , BILLSPEC+17, BILLSPEC+19, SPECQ*, SPECQ+1
IBSPI	OBOX19+20~, OBOX19+63*, OBOX19+64
IBSUB	OBOX19+20~, OBOX19+22, OBOX19+23, OBOX19+24, OBOX19+45, OBOX19+49, OBOX19+50, OBOX19+53, OBOX19+57, TEXT24~ , TEXT24+14, TEXT24+24, TEXT24+25, TEXT24+26, TEXT24+27, TEXT24+32
IBTEXT	TEXT24+12~, TEXT24+27, TEXT24+30, TEXT24+32, TEXT24+78, TEXT24+83, TEXT24+86, TEXT24+91
IBVAL	TEXT24+12~, TEXT24+34, TEXT24+35, TEXT24+38, TEXT24+39, TEXT24+42, TEXT24+43, TEXT24+44, TEXT24+46, TEXT24+47* , TEXT24+48, TEXT24+49, TEXT24+50, TEXT24+57, TEXT24+58, TEXT24+63, TEXT24+64, TEXT24+66, TEXT24+67, TEXT24+70* , TEXT24+72, TEXT24+78, TEXT24+79, TEXT24+82, TEXT24+87*, TEXT24+93
IBXDATA	OBOX19+20~, OBOX19+33!, OBOX19+34, OBOX19+36, OBOX19+39!, OBOX19+40, OBOX19+42!, OBOX19+43, OBOX19+59!, OBOX19+60 , NPRT!, NPRT+2, NPRT+3!, NPRT+4, TEXT24~, TEXT24+13!
IBXDATA(	TEXT24+91, TEXT24+93
>> IBXIEN	TEXT24+17, TEXT24+18
IBXRAY	OBOX19+20~, OBOX19+47*
IBXSAVE	OBOX19+23~, OBOX19+45, TEXT24~
IBXSAVE(	OBOX19+23, OBOX19+45, OBOX19+49, OBOX19+50, OBOX19+53, OBOX19+57, TEXT24+24, TEXT24+25, TEXT24+26, TEXT24+27 , TEXT24+32
IBZ	TEXT24+12~, TEXT24+28, TEXT24+29, TEXT24+30
IN	TEXT24+54~, TEXT24+55*, TEXT24+59
LET	TEXT24+54~, TEXT24+59, TEXT24+60, TEXT24+61, TEXT24+62, TEXT24+63
LN	BOX19+11~, BOX19+15, BOX19+22, BOX19+23
M	TEXT24+45~*, TEXT24+47, TEXT24+48, TEXT24+49, TEXT24+50
NUM	TEXT24+54~, TEXT24+58*, TEXT24+59, TEXT24+60, TEXT24+61, TEXT24+62
OK	LENOK+4~, LENOK+5, LENOK+7, LENOKQ
OUT	FORMAT+1~, FORMAT+4, FORMAT+5, TEXT24+54~, TEXT24+56, TEXT24+59
U	BOX19+17, BOX19+19, BOX19+24, FORMAT+2, FORMAT+3, FORMAT+4, OBOX19+29, OBOX19+32, OBOX19+50, OBOX19+53 , OBOX19+57, ONLAB+3, TEXT24+19, TEXT24+20, TEXT24+21, TEXT24+28, TEXT24+34, TEXT24+38, TEXT24+42, TEXT24+43 , TEXT24+44, TEXT24+45, TEXT24+57, TEXT24+64, TEXT24+70, TEXT24+78, LINSPEC+7, LINSPEC+13, LINSPEC+15, LINSPEC+19 , BILLSPEC+7, BILLSPEC+17, BILLSPEC+19, CHAMPVA+1, MCR24K+4
U8	BOX19+11~
X	ASK19+2~
Y	ASK19+2~, ASK19+6
Z	OBOX19+20~, OBOX19+49, OBOX19+50, OBOX19+53, OBOX19+57, ASK19+2~, ASK19+7, TEXT24+12~, TEXT24+14, TEXT24+24 , TEXT24+25, TEXT24+26, TEXT24+27, TEXT24+32, LINSPEC+5~, LINSPEC+10, LINSPEC+12, LINSPEC+13, LINSPEC+14, LINSPEC+18 , BILLSPEC+5~, BILLSPEC+15, BILLSPEC+16, BILLSPEC+17, BILLSPEC+18
Z0	OBOX19+20~, LINSPEC+14, LINSPEC+15, LINSPEC+18, LINSPEC+19, BILLSPEC+18*, BILLSPEC+19

Customize PDF page

Package: Integrated Billing

Routine: IBCEU3

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: