Routine: IBECEA51

Information

IBECEA51 ;ALB/CPM - Cancel/Edit/Add... Update Event Actions ; 05-MAY-93

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	4	^%DT HELP^%DTC ^DIE ^DIR
List Manager	2	($$SETSTR,PAUSE)^VALM1 EN^VALM2
Integrated Billing	1	($$DAT1,$$DAT2)^IBOUTL
Kernel	1	$$FMADD^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Integrated Billing	2	IBACME CHANGE STATUS IBACME LAST CALC
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
CS	; 'Change Status' Entry Action
CSQ
HCS	; Help for 'Change Status'
LC	; 'Last Date Calc' Entry Action
LCQ
LCO	; Update Last Calc Date for a Single Event.
LCP
LCOQ
HLC	; Help for 'Last Calc Date'
FEE(IBN)	; If the Event Record is for Fee, it is uneditable. ; Input: IBN -- Pointer to an event record in file #350 ; Output: IBFEE -- 1 = record is uneditable ; 0 = record is editable
FEEQ

External References

Name	Field # of Occurrence
^%DT	LCP+4
HELP^%DTC	LCP+4
^DIE	CS+12, LCP+7
^DIR	CS+10
$$DAT1^IBOUTL	LCP+8, LCP+9, HLC+4
$$DAT2^IBOUTL	LCP, LCP+2
$$SETSTR^VALM1	CS+14, LCP+9
PAUSE^VALM1	CS+16, LC+4
EN^VALM2	CS+2, LC+2
$$FMADD^XLFDT	LCP+5, HLC+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This event will remain "_IBSTAT_"." Line Location: CS+10
Function Call: WRITE	Prompt: !,"An error occured while changing the status - event is still ",IBSTAT,"." Line Location: CS+12
Function Call: WRITE	Prompt: !,"The status has been changed to ",IBDEST,"." Line Location: CS+13
Function Call: WRITE	Prompt: !!,"Please enter 'Y' or 'YES' to change the status of this event from ",IBSTAT Line Location: HCS+1
Function Call: WRITE	Prompt: !,"to ",IBDEST,", or 'N', 'NO', or '^' to quit." Line Location: HCS+2
Function Call: WRITE	Prompt: !!,"If the status of this event is changed to open, and the patient is still an" Line Location: HCS+3
Function Call: WRITE	Prompt: !,"inpatient in this ward (on the specified admission date), charges will be" Line Location: HCS+4
Function Call: WRITE	Prompt: !,"billed starting the day after the Date Last Calculated. If the status is" Line Location: HCS+5
Function Call: WRITE	Prompt: !,"changed to closed, no further charges will be associated with this event." Line Location: HCS+6
Function Call: WRITE	Prompt: !!,"Processing Event #",IBNBR,":" Line Location: LCO+4
Function Call: WRITE	Prompt: !,"Date Last Calculated: " Line Location: LCP+0
Function Call: WRITE	Prompt: $$DAT2^IBOUTL(IBLCAL),"// " Condition for execution: IBLCAL Line Location: LCP+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: LCP+1
Function Call: WRITE	Prompt: " (",$$DAT2^IBOUTL(IBLCAL),")",!,"No change!" Line Location: LCP+2
Function Call: WRITE	Prompt: !,"An error occured while changing the Last Calc Date - no change made!" Line Location: LCP+7
Function Call: WRITE	Prompt: !,"The Date Last Calculated has been changed to ",$$DAT1^IBOUTL(IBNEWV),"." Line Location: LCP+8
Function Call: WRITE	Prompt: !!,"The Date Last Calculated is used to record the last date for which Means Test" Line Location: HLC+1
Function Call: WRITE	Prompt: !,"charges were billed for an admission." Line Location: HLC+2
Function Call: WRITE	Prompt: !!,"This date cannot be deleted. Please enter a date not less than the Event" Line Location: HLC+3
Function Call: WRITE	Prompt: !,"Date (",$$DAT1^IBOUTL(IBEVDT),") and not greater than yesterday (",$$DAT1^IBOUTL($$FMADD^XLFDT(DT,-1)),").",! Line Location: HLC+4
Function Call: WRITE	Prompt: !,*7,"Fee Admissions cannot be edited!" Line Location: FEE+5
Routine Call	DIE Line Location: CS+12 LCP+7
Routine Call	DIR Line Location: CS+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IB - [#350]	FEE+5
^TMP("IBACME"	CS+4, CS+15, LCO+2, LCP+10
^TMP("IBACMEI"	CS+4, CS+15, LCO+2, LCP+10

Label References

Name	Line Occurrences
$$FEE	CS+8, LCO+5
CSQ	CS+2
HLC	LCP+3, LCP+5
LCO	LC+3
LCOQ	LCO+5, LCP+1, LCP+2, LCP+7
LCP	LCP+3, LCP+4, LCP+5
LCQ	LC+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	LCO+1~, LCP+4*
DA	CS+1~, CS+11, LCO+1~, LCP+6
DIE	CS+1~, CS+11, LCO+1~, LCP+6
DIR	CS+10!
DIR("?"	CS+9*
DIR("A"	CS+9*
DIR(0	CS+9*
>> DIRUT	CS+10
DR	CS+1~, CS+11, LCO+1~, LCP+6
DT	LCP+5, HLC+4
DTIME	LCP+1
>> DUOUT	CS+10
IBCOMMIT	CS+1~, CS+2, CS+13, CSQ, LC+1~, LC+2, LCQ, LCP+8
IBDEST	CS+1~, CS+6*, CS+9, CS+11, CS+13, CS+14, CS+15, HCS+2
IBEVDT	LCO+1~, LCO+3*, LCP+5, HLC+4
IBFEE	FEE+4~, FEE+5, FEEQ
IBLCAL	LCO+1~, LCO+3*, LCP, LCP+1, LCP+2
IBLINE	CS+1~, CS+4, CS+14, CS+15, LCO+1~, LCO+2, LCP+9, LCP+10
IBN	CS+1~, CS+5, CS+8, CS+11, LCO+1~, LCO+3, LCO+5, LCP+6, FEE~, FEE+5
IBNBR	CS+1~, CS+3, CS+4, CS+7, CS+15, LC+1~, LC+3, LCO+2, LCO+4, LCP+10
IBNDX	CS+1~, CS+4, CS+5, LCO+1~, LCO+2, LCO+3
IBNEWV	LCO+1~, LCP+6*, LCP+8, LCP+9, LCP+10
IBSTAT	CS+1~, CS+5*, CS+6, CS+9, CS+10, CS+12, HCS+1
>> VALMBCK	CSQ, LCQ
>> VALMDDF("LCALC"	LCP+9
>> VALMDDF("STATUS"	CS+14
>> VALMY(	CS+3, LC+3
>> VALMY(0	CS+2, LC+2
>> X	LCP+1*, LCP+2, LCP+3
>> XQORNOD(0	CS+2, LC+2
>> Y	CS+10, CS+12, LCP+4, LCP+5, LCP+6, LCP+7

Customize PDF page

Package: Integrated Billing