Routine: IBCF2

Information

IBCF2 ;ALB/ARH - HCFA 1500 19-90 DATA (gather demographics) ;12-JUN-93

Package	Total	Call Graph
Integrated Billing	11	$$ICD9^IBACSV BSTAT^IBCDC F^IBCEF $$EXTRACT^IBCEFG $$NAME^IBCEFG1 ENFMT^IBCF ^IBCF21 ^IBCF2P SET^IBCSC4D $$FTN^IBCU3 $$NEEDMRA^IBEFUNC
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Registration	2	(ADD,DEM)^VADPT ZIPOUT^VAFADDR
VA FileMan	1	^DIE

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: 11

Package	Total	Caller Graph
Integrated Billing	11	IBCEF IBCEF11 IBCEU3 IBCF21 IBCF22 IBCF3 IBCF33 IBCFP1 IBCOMD1 ^IBA(364.5 ^IBA(364.7

Entry Points

Name	Comments	DBIA/ICR reference
DEV	; IBIFN required
Q
EN	;begin gathering data for printing of HCFA 1500
MAIL
PAT
PATADD
NEXT
PRINT
END	;set print status
ARRAY	; Added "10D" for patch 488
DATE(X,Y2K,NULL)	; returns date in form format ; X = date in FM format, Y2K = 1 if 4 digit year required ; If NULL = 1, then the delimiter should be null, not space ; Format is MM DD YY or MMDDYY or MM DD YYYY or MMDDYYYY
STATE(X)	; returns 2 letter abbreviation for state pointer
ENF	;Output the bill via formatter
NAME31(IBIFN,IBZNM)	; Returns the name of the provider ; formatted to print in Box 31 on the HCFA 1500. Max length is 21 ; IBZNM = PROVIDER NAME in last,first<space>middle^file 200 ien^cred
NAMEQ
DATE31(IBDT,IBIFN)	; Returns date to print in box 31 of HCFA 1500 ; Either first print date (IBDT) or today's date if never printed
DXIND(IBIFN)	; Returns 0 for ICD10 codes and 9 for ICD9 codes. ; This sets the diagnosis ind to a 9. If the diagnosis is ICD10 ; it is set to zero

External References

Name	Field # of Occurrence
^%ZIS	DEV+10
HOME^%ZIS	DEV+11
^%ZISC	Q
^%ZTLOAD	DEV+11
^DIE	END+2
$$ICD9^IBACSV	DXIND+9
BSTAT^IBCDC	END+3
F^IBCEF	EN+5, NAME31+6
$$EXTRACT^IBCEFG	ENF+2
$$NAME^IBCEFG1	NAME31+7
ENFMT^IBCF	DEV+4
^IBCF21	NEXT
^IBCF2P	PRINT
SET^IBCSC4D	DXIND+4
$$FTN^IBCU3	DEV+2
$$NEEDMRA^IBEFUNC	END+1
ADD^VADPT	PATADD
DEM^VADPT	PAT
ZIPOUT^VAFADDR	MAIL+3
$$FMTE^XLFDT	DATE31+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	DEV+9, EN+3, MAIL, END+2, NAME31+4, DATE31+2
^DIC(5 - [#5]	STATE+1
^DPT - [#2]	EN+4, PAT+7, PAT+8
^IBE(353 - [#353]	DEV+2, DEV+9

Label References

Name	Line Occurrences
$$DATE	PAT+3
$$STATE	MAIL+4, PATADD+3
ARRAY	EN+4
EN	DEV+12
NAMEQ	NAME31+4, NAME31+10, NAME31+13, NAME31+15
Q	DEV+10, DEV+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+8*
>> %ZIS("A"	DEV+8*
>> %ZIS("B"	DEV+9*
DA	END+2*!
DATA	DXIND+3~, DXIND+9*
DFN	EN+4*, PAT+7, PAT+8, END+5!
DIC	END+2*!
DIE	END+2*!
DR	END+2*!
DT	DATE31+3
IB	DEV+2, END+5!
IB(	MAIL*
IB("M"	MAIL+1, MAIL+2, MAIL+3, MAIL+4
IB("M1"	MAIL+2
IB(0	EN+3*, EN+4
IB1	NAME31+3~, NAME31+8*, NAME31+11, NAME31+14
IB2	NAME31+3~, NAME31+8*, NAME31+10, NAME31+11, NAME31+14, NAME31+16
IBDELIM	DATE+4~, DATE+6*, DATE+7
IBDT	DATE31~, DATE31+3*, DATE31+4
IBDXI	END+5!, DXIND+3~, DXIND+5, DXIND+8, DXIND+9*, DXIND+10
IBDXX	DXIND+3~, DXIND+4
IBF	DEV+1~, DEV+2, DEV+3, DEV+4
IBFL	END+5!
IBFLD	EN+2!, END+5!
IBFLD(	ARRAY+2, ARRAY+3, ARRAY+4*
IBFLD("1A"	PAT+1*
IBFLD("3D"	PAT+3*
IBFLD("3X"	PAT+4*
IBFLD("5S"	PATADD+3*
IBFLD("5T"	PATADD+4*
IBFLD("8E"	PAT+7*
IBFLD("8M"	PAT+5*
IBFLD(0	EN+5, MAIL+1, MAIL+2, MAIL+4, ARRAY+1*
IBFLD(2	PAT+2*
IBFLD(5	PATADD+1, PATADD+2
IBFT	DEV+2*, DEV+5!
IBI	MAIL, MAIL+2, END+5!, ARRAY+1, ARRAY+2, ARRAY+3, ARRAY+4
IBIFN	DEV+4, DEV+9, EN+3, EN+5, MAIL, END+1, END+2, END+3, ENF+2, NAME31~ , NAME31+4, NAME31+6, DATE31~, DATE31+2, DXIND~, DXIND+4
IBJ	EN+5, MAIL+1, MAIL+2, MAIL+4, END+5!, ARRAY+3
IBK	END+5!
IBMID	NAME31+3~, NAME31+8*, NAME31+11
IBMIDI	NAME31+3~, NAME31+8*, NAME31+14
IBNM	NAME31+3~, NAME31+4, NAME31+7, NAME31+8, NAME31+10, NAME31+11, NAME31+13, NAME31+14, NAME31+15, NAME31+16 , NAMEQ
>> IBPNT	EN+5*
IBPOX	DXIND+3~, DXIND+4
IBPOX(1	DXIND+6, DXIND+7
IBSPE	PAT+8*, END+5!
IBX	END+5!
IBXDATA	NAME31+3~
>> IBXERR	END+1
>> IBXIEN	EN+5*
>> IBXPARM("TEST"	END+1
IBY	END+5!
IBYY	END+2*!
IBZ	EN+2!, EN+5, NAME31+3~
IBZNM	NAME31~, NAME31+4, NAME31+5, NAME31+7
ICD	DXIND+3~, DXIND+7*, DXIND+9
IO	DEV+12
IO("Q"	DEV+11!
NULL	DATE~, DATE+6
>> POP	DEV+10
U	DEV+2, EN+4, MAIL+1, MAIL+2, MAIL+3, MAIL+4, PAT+1, PAT+4, PAT+7, PAT+8 , PATADD+2, END+2, STATE+1, NAME31+4, NAME31+7, NAME31+8, DXIND+7, DXIND+9
VA	PAT+6!
VADM	PAT+6!
VADM(1	PAT+2
VADM(10	PAT+5
VADM(2	PAT+1
VADM(3	PAT+3
VADM(5	PAT+4
VAERR	END+5!
VAPA	PATADD+5!
VAPA(1	PATADD+1
VAPA(11	PATADD+2
VAPA(2	PATADD+1
VAPA(3	PATADD+1
VAPA(4	PATADD+2
VAPA(5	PATADD+3
VAPA(8	PATADD+4
X	PAT+7*, END+5!, DATE~, DATE+7, STATE~, STATE+1
Y	MAIL+3!*, MAIL+4, MAIL+5!, END+5!
Y2K	DATE~, DATE+5*, DATE+7
Z	ENF+1~, ENF+2*
>> ZTDESC	DEV+11*
>> ZTQUEUED	Q
>> ZTRTN	DEV+11*
>> ZTSAVE("IB*"	DEV+11*

Customize PDF page

Package: Integrated Billing