Routine: IBAMTS1

Information

IBAMTS1 ;ALB/CPM - PROCESS NEW OUTPATIENT ENCOUNTERS ; 22-JUL-93

Source file <IBAMTS1.m>

Package	Total	Call Graph
Integrated Billing	7	^IBAERR1 ^IBAFIL BULL^IBAMTS TYPE^IBAUTL2 CLADD^IBAUTL3 ADD^IBECEAU3 ($$IGN,$$NBCL,$$NBCSC,$$NBDIS)^IBEFUNC
Registration	2	$$BIL^DGMTUB ADM^VADPT2
Scheduling	2	CL^SDCO21 $$EX^SDCOU2
VA Fileman	2	NOW^%DTC ^DIE
Kernel	1	$$FMDIFF^XLFDT

Package	Total	Caller Graph
Integrated Billing	3	IBAMTS IBAMTS2 IBEMTO

Name	Comments	DBIA/ICR reference
CLSF(IBUPD,Y)	; Examine classification questions.
CLOCK
OLDRATE(IBRTED,IBFR)	; See if the copay rate effective date is too old.
CLPT(DFN,VDATE)	; Should the patient be asked the classification questions?
CHKS()	; Perform a batch of edits to determine whether to bill.
CHKSQ
IBFLR	; Drop the charge into the IB Background filer.
BLD	; - build the charge. May also enter from IBAMTS2 (requires IBSL)
NEW	; Appointment fully processed - prepare a new charge.
INPT(DFN,VAINDT)	; Was the patient an inpatient at VAINDT?
NEWQ

Name	Line Occurrences (* Changed, ! Killed)
^IBE(350.1 - [#350.1]	IBFLR+3
^IBE(351 - [#351]	CLOCK
^SC - [#44]	CHKS+10
^TMP("SDEVT"	NEW+6, NEW+8, CLSF+8

Name	Field # of Occurrence
^(	CLSF+8
^("AFTER"	CLSF+8

Name	Field # of Occurrence
>> %	IBFLR+2
DA	BLD+10*!
DFN	NEW+11, BLD+6, CLOCK, CHKS+21, CLPT~, CLPT+3, INPT~
DIE	BLD+10*!
DR	BLD+10*!
DT	CHKS+21
IBAFY	IBFLR+1~
>> IBAPTY	CHKS+13
IBARTYP	IBFLR+1~
IBATYP	NEWQ+2!, IBFLR+3
>> IBBILLED	NEW+2
IBBS	NEWQ+1!
IBCHG	NEWQ+2!
IBCLDA	NEWQ+1!
IBCLDT	CLOCK*, NEWQ+1!
IBCLSF	NEW+17, NEW+18, NEWQ+1!
>> IBDAT	NEW+9*, BLD+2, BLD+6, CLOCK, CHKS+13, CHKS+21
IBDESC	NEWQ+2!
IBDISP	NEW+5, NEW+6*, NEW+7, NEWQ+1!, CHKS+18
>> IBDT	NEW+9*, NEW+11, CHKS+16, CHKS+17, CHKS+18
IBEVDA	BLD+2*, NEWQ+2!
>> IBEVT	BLD+6, CHKS+10, CHKS+16, CHKS+17
IBFAC	IBFLR+1~
IBFR	BLD+2*, BLD+9, NEWQ+2!, OLDRATE~, OLDRATE+6
IBIL	IBFLR+1~
IBMED	NEWQ+1!
IBN	BLD+10, NEWQ+1!, IBFLR+2
IBNOS	IBFLR+1~, IBFLR+2*
IBNOW	IBFLR+1~, IBFLR+2*
IBNUM	OLDRATE+5~, OLDRATE+6*, OLDRATE+7
>> IBOE	NEW+20, CLSF+8
>> IBORG	NEW+5, NEW+6, NEW+8, BLD+6, CHKS+16, CHKS+17, CHKS+18, CLSF+8
IBRTED	BLD+9, OLDRATE~, OLDRATE+6
IBSEQNO	IBFLR+1~, IBFLR+3*
IBSERV	IBFLR+1~
IBSITE	IBFLR+1~
IBSL	NEW+20*, NEWQ+2!
IBTEMP	NEW+8*, NEW+9, NEWQ+1!
IBTO	BLD+2*, NEWQ+2!
IBTOTL	IBFLR+1~
IBTRAN	IBFLR+1~
IBUNIT	BLD+2*, NEWQ+2!
IBUPD	CLSF~, CLSF+7, CLSF+9
IBWHER	IBFLR+1~
IBX	BLD+1*, NEWQ+2!
>> IBY	BLD+1, BLD+3, BLD+13, NEWQ, IBFLR+3*, IBFLR+4
IBYR	OLDRATE+5~, OLDRATE+6*, OLDRATE+7
>> SDHDL	NEW+6, NEW+8, CLSF+8
VADMVT	INPT+4~, INPT+5
VAINDT	INPT~
VDATE	CLPT~, CLPT+3
X	CLPT+3~, CLPT+4, CLSF+7~, CLSF+8*
Y	CHKS+7~, CHKS+23, CHKSQ, CLSF~, CLSF+7, CLSF+9
Y("AFTER"	CLSF+7, CLSF+10
Y("BEFORE"	CLSF+7, CLSF+10
ZA	CLSF+7~, CLSF+8*, CLSF+9, CLSF+10
ZB	CLSF+7~, CLSF+8*, CLSF+10