Routine: IBAMTD2

Information

IBAMTD2 ;ALB/CPM - MOVEMENT BULLETIN PROCESSING ; 03-MAY-93

Source file <IBAMTD2.m>

Package	Total	Call Graph
Integrated Billing	2	$$SECT^IBAUTL5 $$LAST^IBECEAU

Package	Total	Caller Graph
Integrated Billing	1	IBAMTBU

Name	Comments	DBIA/ICR reference
APM()	; Analyze patient movement to see if Means Test charges were effected.
APMQ
CHK	; Check for changes in the movement date or treating specialty.
SET	; Set Before/Afters for the mvmt date and treating specialty
CHG(DFN)	; Were any Means Test Charges Billed for this Admission?

Name	Field # of Occurrence
$$SECT^IBAUTL5	SET+4
$$LAST^IBECEAU	CHG+8

Name	Line Occurrences (* Changed, ! Killed)
^IB - [#350]	CHG+7, CHG+8
^IB("AF"	CHG+8
^IB("AFDT"	CHG+7
^IBE(350.1 - [#350.1]	CHG+8
^UTILITY("DGPM"	SET+3

Name	Field # of Occurrence
^(	SET+3
^("A"	SET+3

Name	Field # of Occurrence
DFN	APM+10, CHG~, CHG+7
>> DGPMA	APM+8, APM+13, APM+17, APM+20, APM+21, APM+22, CHG+6, SET+1, SET+2
>> DGPMP	APM+8, APM+21, APM+22, CHG+6, SET+1, SET+2
IBADM	APM+7~
IBCHG	APM+7~, CHG+5~, CHG+8*, CHG+9
IBD	CHG+5~, CHG+7*, CHG+8
>> IBFTSA	SET+2, SET+3, SET+4, CHK+1, CHK+2
>> IBFTSABS	SET+4*, CHK+1, CHK+2
>> IBFTSP	SET+2, SET+3, SET+4, CHK+1, CHK+2
>> IBFTSPBS	SET+4*, CHK+1, CHK+2
>> IBJOB	APM+17
IBLAST	CHG+5~, CHG+8*
IBMTYP	APM+7~, APM+8*, APM+9, APM+13, APM+16, APM+20, SET+2, SET+3
IBMVTA	APM+7~, SET+1*, CHK+1, CHK+3
IBMVTP	APM+7~, SET+1*, CHK+1, CHK+3
IBN	CHG+5~, CHG+8*
IBND	CHG+5~, CHG+7*
IBNL	CHG+5~, CHG+8*
IBPM	APM+7~
IBQ	CHG+5~, CHG+6, CHG+7
>> IBVAL(1	CHK+2*
>> IBVAL(2	APM+22, CHK+3
IBX	CHG+5~, CHG+6, CHG+7
IBY	APM+7~, APM+9, APM+10, APM+21, APMQ, CHK+1
PM	CHG+5~, CHG+6*, CHG+7
X	SET+1~, SET+3*