Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBECEAU

Package: Integrated Billing

Routine: IBECEAU


Information

IBECEAU ;ALB/CPM - Cancel/Edit/Add... Utilities ;11-MAR-93

Source Information

Source file <IBECEAU.m>

Entry Points

Name Comments DBIA/ICR reference
CHECK(TALK) ; Retrieve the institution and MAS Service pointer.
; Input: TALK -- 1 : do i/o (writes)
; 0 : no i/o
PAUSE ; Go to end of page to pause.
INPT(DAYS) ; Return a description for Billing Clock days.
; Input: DAYS -- Number of days in a billing clock
; Output: "1st", "2nd", "3rd", "4th"
LAST(PAR) ; Find last action filed for any parent action.
; Input: PAR -- Parent IB Action
; Output: Last action filed for parent (or parent if none)
BFO(DFN,DATE) ; Patient Billed For OPT Copay on a specified date?
; Input: DFN -- Pointer to the patient in file #2
; DATE -- Date of the Outpatient Visit
; Output: 0 -- Not billed the OPT copay on the visit date
; >0 -- Pointer to charge in file #350 that was billed
BFOQ
CNP(DFN,DATE) ; Did the patient have a C&P Exam on a specified date?
; Input: DFN -- Pointer to the patient in file #2
; DATE -- Date of the Outpatient Visit
; Output: 0 -- Patient did not have a C&P Exam on the visit date
; 1 -- Patient had a C&P Exam on the visit date
CNPQ
HDR(OPT) ; Display the header for an action
; Input: OPT -- Action Header
LINE() ; Write a line.
CLOCK(IBDOL,IBDAYPR,IBDAY) ; Display and update clock data.
; Input: IBDOL -- Dollar amount to add or subtract
; IBDAYPR -- Existing number of inpatient days
; IBDAY -- Inpatient days to add or subtract
; Also assumes that IBCLST,IBNAM, IBCLDA, and IBXA are defined.
BFCHK(DFN,DATE,EDATE) ;
; Input: DFN -- Pointer to the patient in file #2
; SDATE -- Start Date of the Patient Visit (inpatient or outpatient)
; EDATE -- (Optional) End Date of the Patient Visit (inpatient only)
BFCHKQ
CHKSTAT(IBSTAT) ; Check to see if the status on the copay allows for the copay to be checked for a duplicate

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: "ACTIVE BILLING CLOCK **"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?44,"Clock Begin Date: ",$$DAT1^IBOUTL(IBCLDT)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$$LINE,!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"** Please note that an active billing clock was not selected for updating **"
  • Line Location: CLOCK+5
Info |  Source |  Entry Points |  Interaction Calls