Routine: IBECEAU5

Information

IBECEAU5 ;ALB/BGA - Cancel/Edit/Add CALC Observation COPAY ; 17-MAY-2000

Name	Comments	DBIA/ICR reference
OBS	; Called from EN^IBAMTD when adding an Inpatient Observation Copay ; ; Check to see if you have a clock
END
CHRG	; Called from OPT^IBECEA33 when adding a obs copay from CANCEL/EDIT/ADD
CLSF(DGMVP)	; ; This Subroutine evaluates an Inpatient Admission for an Observation Speciality ; where the patient has claimed exposure. The Special Inpatient Billing ; case record is evaluated to detemine the status of the disposition ; the results are than displayed on the Outpatient Events Reports
PRINT	;
FEE	; This Subroutine permits a Clerk to add a DG FEE SERVICE (OPT) ; when the value of the fee for service is less than the normal ; Outpatient Copayment.
IBOVOP(IBDATE)	; ; This Subroutine expands the functions of the Outpatient Events Report ; by adding Inpatient Observation Admissions/Discharges to the the report. ; Find Admissions or Discharges Associated with Inpatient Observation ; Specialities and Load them into ^TMP("IBOVOP",$J) to be printed ; by ^IBOVOP the Outpatient Events Report.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,IBFLD1,!?5,IBFLD2 Line Location: PRINT+1
Function Call: WRITE	Prompt: !,IBFLD1,!?5,IBFLD2 Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,?5,IBOUT Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?5,"Reason Not Billable: ",$E(IBREAS,1,55) Line Location: PRINT+6
Function Call: WRITE	Prompt: !,?10,"*** The Fee for Service can not be GREATER than $"_$S(IBCHG?1N.N1"."1N:IBCHG_0,1:IBCHG) Line Location: FEE+16
Function Call: WRITE	Prompt: !,?10,"*** AND must be GREATER than $.99==> Please try Again" Line Location: FEE+17