Routine: IBCF22

Package	Total	Call Graph
Integrated Billing	3	$$STATE^IBCF2 ^IBCF23 SET^IBCSC4D
Registration	1	INP^VADPT

Package

Total

Call Graph

$$STATE^IBCF2 ^IBCF23 SET^IBCSC4D

INP^VADPT

Package	Total	Caller Graph
Integrated Billing	1	IBCF21

Package

Total

Caller Graph

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	IBCF22+5, DATES+1, LAST3
^DGPM - [#405]	DATES+5
^DIC(4 - [#4]	LAST3+1, LAST3+2
^IBE(350.9 - [#350.9]	DX+12, LAST3+1, LAST3+5
^ICD9 - [#80]	DX+6

Name	Line Occurrences
$$DATE	DATES, DATES+1, DATES+2, DATES+3, DATES+5

Name	Field # of Occurrence
>> IB(	IBCF22+5*
>> IB("U"	DATES+2, DATES+3, DX+8
>> IB("U1"	DX+14
>> IB(0	DATES, DATES+1, DATES+3, DATES+4, DX+13
>> IBDXI(	DX+6*
IBDXX	DX+5~
IBDXX(	DX+6
>> IBFLD("16A"	DATES+2*
>> IBFLD("16B"	DATES+2*
>> IBFLD("18A"	DATES+3, DATES+5
>> IBFLD("18B"	DATES+3, DATES+5
>> IBFLD(12	IBCF22+6*
>> IBFLD(13	IBCF22+7*
>> IBFLD(14	DATES*
>> IBFLD(15	DATES+1*
>> IBFLD(19	DATES+7*
>> IBFLD(20	DATES+8*
>> IBFLD(21	DX+6*
>> IBFLD(23	DX+8*
>> IBFLD(25	DX+12*
>> IBFLD(26	DX+13*
>> IBFLD(28	DX+14*
>> IBFLD(31	LAST3*
>> IBFLD(32	LAST3+2, LAST3+3, LAST3+4*
>> IBFLD(33	LAST3+6, LAST3+7, LAST3+8*
>> IBI	IBCF22+5, DX+6, LAST3+1*
>> IBIFN	IBCF22+5, DATES+1, DX+5, LAST3
IBPOX	DX+5~, DX+6
IBPOX(	DX+6
>> IBX	LAST3+2*, LAST3+4
U	DATES, DATES+1, DATES+2, DATES+3, DATES+4, DATES+5, DX+6, DX+8, DX+12, DX+13 , DX+14, LAST3+1, LAST3+2, LAST3+3, LAST3+4, LAST3+6, LAST3+7, LAST3+8
VAIN	DATES+6!
VAIN(1	DATES+4, DATES+5
VAIN(7	DATES+5
VAINDT	DATES+4*, DATES+6!
X	DX+5, DX+6, LAST3+1, LAST3+2, LAST3+5, LAST3+6, LAST3+7, LAST3+8, DATE~, DATE+1
>> Y	LAST3+1, LAST3+2, LAST3+3, LAST3+4

Name	Comments	DBIA/ICR reference
DATES
DATE(X)	; returns date in form format
END
LAST3
DX	;S X=14 F IBI="21A","21B","21C","21D" S IBFLD(IBI)=$P($G(^ICD9(+$P(IB("C"),U,X),0)),U,1),X=X+1

Information