Routine: IBECEA4

Information

IBECEA4 ;ALB/CPM - Cancel/Edit/Add... Cancel a Charge ; 11-MAR-93

Source file <IBECEA4.m>

Package	Total	Call Graph
Integrated Billing	5	(CLOCK,HDR,PAUSE)^IBECEAU CLSTR^IBECEAU1 REAS^IBECEAU2 (CANC,CED,ERR,PROC,UPSTAT)^IBECEAU4 ^IBR
VA Fileman	1	^DIE

Package	Total	Caller Graph
Registration	1	DGVPTIB2

Name	Comments	DBIA/ICR reference
ONEQ
PASS	; Pass the action to Accounts Receivable.
REAS	; - ask for the cancellation reason
ONE	; Cancel a single charge.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There is no bill number associated with this charge.",!,"The charge cannot be cancelled." Line Location: REAS+9
Function Call: WRITE	Prompt: !!,"Please note that there is no billing clock which would cover this charge.",!,"Be sure that this patient's billing clock is correct." Line Location: REAS+18
Routine Call	DIE Line Location: REAS+10

FileNo	Call Tags
^IB - [#350]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^IB - [#350]	REAS+9

Name	Line Occurrences
ONEQ	ONE+4, ONE+5, ONE+6, REAS+1, REAS+4, REAS+7, REAS+13, REAS+16, REAS+17, REAS+18
PASS	REAS+10
REAS	ONE+5

Name	Field # of Occurrence
DA	REAS+10*!
>> DFN	REAS+18
DIE	REAS+10*!
DR	REAS+10*!
IBATYP	ONEQ+1!
IBCANC	ONEQ+2!
IBCANTR	ONE+5, REAS+7, ONEQ+2!
IBCHG	REAS+17, REAS+19, ONEQ+1!
>> IBCLDA	REAS+18
>> IBCLST	REAS+19
IBCRES	REAS+1, REAS+10, REAS+13, ONEQ+1!
IBDESC	ONEQ+1!
IBEVDA	ONEQ+2!
IBFR	REAS+18, ONEQ+2!
IBH	ONE+5, ONE+6, ONEQ+2!
IBIDX	ONEQ+1!
IBIL	ONE+6, REAS+9*, REAS+10, ONEQ+1!
IBN	ONE+4, REAS+8, REAS+10, REAS+13, ONEQ+2!, PASS+3
IBND	ONE+5, ONEQ+1!
IBNOS	ONEQ+2!, PASS+3*
IBPARNT	REAS+8, REAS+9, ONEQ+2!
IBREB	ONEQ+2!
IBSEQNO	ONEQ+1!
IBSERV	PASS+1~
IBSL	ONEQ+2!
IBTO	ONEQ+2!
IBTOTL	ONEQ+1!
IBUNIT	REAS+19, ONEQ+1!
IBXA	REAS+16, ONEQ+2!
IBY	ONE+4, ONE+6, REAS+4, REAS+13, ONEQ, ONEQ+2!, PASS+3
>> Y	PASS+3