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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBECEA32

Package: Integrated Billing

Routine: IBECEA32


Information

IBECEA32 ;ALB/CPM-Cancel/Edit/Add... Add Utilities ; Aug 09, 2023

Source Information

Source file <IBECEA32.m>

Entry Points

Name Comments DBIA/ICR reference
CLUPD ; Handle the updating of the billing clock when adding a charge.
CLOCKQ
CHMPVA ; Process the CHAMPVA inpatient subsistence charge.
CHMPEN
CHMPVAQ
ADD ; Prompt user to add a new billing clock.
FEPR ; Issue prompts for Inpatient Fee Services
HFEV ; Help for Fee Event Date
SPEC(X,Y) ; Display messages for special inpatient billing cases.
; Input: X -- has two values:
; 1 --> entering after selecting an admission
; (will need to set IBSIBC)
; 0 --> billing event record exists
; Y -- Pointer to special inpatient billing case in
; file #351.2 (quit if not positive)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry! The CHAMPVA billing module is not yet fully installed. You will need",!,"to generate a claim to bill this patient the inpatient subsistence charge."
  • Line Location: CHMPVA+1
Function Call: WRITE
  • Prompt: !!,"This patient has no admissions on file!",!,"You cannot bill the CHAMPVA inpatient subsistence charge at this time."
  • Line Location: CHMPEN+1
Function Call: WRITE
  • Prompt: !!,"You can only bill admissions which have been discharged!"
  • Line Location: CHMPEN+3
Function Call: WRITE
  • Prompt: !!,"This admission has already been billed the CHAMPVA inpatient subsistence charge."
  • Line Location: CHMPEN+4
Function Call: WRITE
  • Prompt: !!,"Since this patient has no active clock to cover this charge, I would like to",!,"set up an active clock as follows:"
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !!?5,"Clock Begin Date: ",$$DAT1^IBOUTL(IBFR),!
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: ?4,"1st 90 days copay: $",IBCHG,!
  • Condition for execution: IBXA=1!(IBXA=2)
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: ?5,"# Inpatient days: ",IBUNIT,!
  • Condition for execution: IBXA=3
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !,"A new clock will not be established. Be sure this patient's clock is correct."
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !!,"Creating a new, active billing clock... "
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: "done."
  • Line Location: ADD+9
Function Call: WRITE
  • Prompt: !!,"Please enter the Event Date for this Fee Service (which should be the"
  • Line Location: HFEV+1
Function Call: WRITE
  • Prompt: !,"admission date, and not exceed the Bill From date [",$$DAT1^IBOUTL(IBFR),"]), or '^' to quit."
  • Line Location: HFEV+2
Function Call: WRITE
  • Prompt: !,*7,"Please note that you are creating a charge for a special inpatient case!!"
  • Line Location: SPEC+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(351 - [#351] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call