Routine: IBECEA31

Information

IBECEA31 ;ALB/CPM - Cancel/Edit/Add... Handle Events ; 02-APR-93

Source file <IBECEA31.m>

Package	Total	Call Graph
Integrated Billing	3	EVADD^IBAUTL3 SPEC^IBECEA32 ($$DAT1,$$DAT2)^IBOUTL
Kernel	1	$$FMADD^XLFDT
VA Fileman	1	^DIE

Package	Total	Caller Graph
Integrated Billing	2	IBECEA3 IBECEA32

Name	Comments	DBIA/ICR reference
ADEV	; Add a new event entry in file #350.
ASKADQ
EVF(DFN,IBFR,IBTO,IBNH)	; Find the matching event for a copay or per diem.
NOEV	; No event in Integrated Billing - ask user to select an admission
DIS(X)	; Find the discharge date for an admission.
ADSELQ
UNAB
ASKAD	; Prompt the user to select an admission.
EVFQ
ADSEL(DFN)	; Select an admission to use to build an event.
DISEL	; Display admission data.
EVS	; Set the output variable Y for the most recent (applicable) event.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"End of list.",! Line Location: ADSEL+9
Function Call: WRITE	Prompt: ?52,"(Discharged: ",$$DAT2^IBOUTL(+$G(^DGPM(+$P(DGPM,"^",17),0))\1),")" Line Location: DISEL+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASKAD+1
Function Call: WRITE	Prompt: !!?3,*7,"Enter a NUMBER from 1-",J,".",! Line Location: ASKAD+2
Function Call: WRITE	Prompt: "done." Line Location: ADEV+3
Function Call: WRITE	Prompt: "done." Line Location: ADEV+6
Function Call: WRITE	Prompt: !,"Since the patient has been discharged, let me 'close' the IB event... " Line Location: ADEV+7
Function Call: WRITE	Prompt: "done." Line Location: ADEV+7
Function Call: WRITE	Prompt: !,"Tried to link the charge to an admission on ",$$DAT1^IBOUTL($P(IBEVDA,"^",2)),", but the Bill To date",!,"(",$$DAT1^IBOUTL(IBTO),") exceeds the discharge date of ",$$DAT1^IBOUTL($P(IBEVDA,"^",3)),"." Line Location: NOEV+1
Function Call: WRITE	Prompt: !!,"This patient has no admissions -- this charge cannot be added." Line Location: NOEV+5
Function Call: WRITE	Prompt: !!,"No admission selected -- transaction cannot be completed." Line Location: NOEV+6
Routine Call	DIE Line Location: ADEV+6 ADEV+7

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	DIS+4, ADSEL+7, DISEL+1, DISEL+3, ASKAD+3
^DGPM("ATID1"	ADSEL+5, ADSEL+7
^DIC(42 - [#42]	DISEL+2
^IB - [#350]	EVF+11
^IB("AFDT"	EVF+11
^IBE(351.2 - [#351.2]	NOEV+10

Name	Field # of Occurrence
ARR	ADSEL+6~, ADSEL+8, ADSELQ
ARR(	ADSEL+7*, ASKAD+2, ASKAD+3, ASKAD+4
DA	ADEV+2~, ADEV+6, ADEV+7
DFN	EVF~, EVF+8, EVF+11, ADSEL~, ADSEL+5, ADSEL+7, NOEV+4
DG	ADSEL+6~, ADSEL+7*, DISEL+1
DGPM	DISEL+1~*, DISEL+2, DISEL+3
DIE	ADEV+2~, ADEV+6, ADEV+7
DIS	EVF+10~, EVS+1, EVS+2, DIS+3~, DIS+4, DIS+5
DR	ADEV+2~, ADEV+6, ADEV+7
DT	ASKAD+3
DTIME	ASKAD+1
EVD	EVF+10~, EVF+11, EVS+2
IBD	ADSEL+6~, ADSEL+7
>> IBDG	ADEV+7, NOEV+4*, NOEV+5, NOEV+6, NOEV+10, NOEV+13
IBDIS	ASKAD+3*, ASKAD+4, ASKADQ!
>> IBEVDA	ADEV+6, ADEV+7, NOEV+1, NOEV+2
IBEVDT	ADEV+3!, NOEV+13*
IBFR	EVF~, EVF+8, EVF+11, ASKAD+4, ADEV+4
IBLAST	ADEV+2~, ADEV+4*, ADEV+5, ADEV+6
IBN	EVF+10~, EVF+11, EVS+2, ADEV+3!
>> IBND	EVF+11*, EVS+1
IBNH	EVF~, EVF+9*, EVF+11
IBQ	ADSEL+6~, ADSEL+7, ADSELQ, ASKAD+1
>> IBSL	NOEV+13*
IBTO	EVF~, EVF+8, EVS+2, ASKAD+4, ADEV+4, NOEV+1
>> IBXA	EVS+2, ADEV+4
>> IBY	ADEV+3, NOEV+5, NOEV+6
J	ADSEL+6~, ADSEL+7, ADSEL+9, ADSEL+10, ASKAD+1, ASKAD+2
SEL	ADSEL+6~, ADSEL+7, ADSELQ, ASKAD+4*
X	DIS~, DIS+4, ADSEL+6~, ASKAD+1*, ASKAD+2, ASKAD+3, ASKAD+4
Y	EVF+10~, EVFQ, EVS+2