Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBECEA32

Package: Integrated Billing

Routine: IBECEA32


Information

IBECEA32 ;ALB/CPM-Cancel/Edit/Add... Add Utilities; 02-APR-93

Source Information

Source file <IBECEA32.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 9 ($$PREV,BILL)^IBACVA1  $$ON^IBACVA2  DSPL^IBAMTI1  CLADD^IBAUTL3  $$ADSEL^IBECEA31  CLOCK^IBECEAU  FEE^IBECEAU2  CTBB^IBECEAU3  
$$DAT1^IBOUTL  
VA FileMan 2 ^DIE  ^DIR  
Kernel 1 $$FMTH^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBECEA3  IBECEA31  

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)

External References

Name Field # of Occurrence
^DIE ADD+8
^DIR ADD+5
$$PREV^IBACVA1 CHMPEN+4
BILL^IBACVA1 CHMPEN+8
$$ON^IBACVA2 CHMPVA+1
DSPL^IBAMTI1 SPEC+12
CLADD^IBAUTL3 ADD+7
$$ADSEL^IBECEA31 CHMPEN
CLOCK^IBECEAU CLUPD+8
FEE^IBECEAU2 FEPR+3
CTBB^IBECEAU3 FEPR+3
$$DAT1^IBOUTL ADD+3, HFEV+2
$$FMTH^XLFDT CHMPEN+7

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
Routine Call
  • DIE
  • Line Location:
    • ADD+8
Routine Call
  • DIR
  • Line Location:
    • ADD+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(351 - [#351] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] CHMPEN+7
^IBE(350.1 - [#350.1] FEPR+2
^IBE(351 - [#351] CLUPD+7
^IBE(351.2 - [#351.2] SPEC+8

Label References

Name Line Occurrences
ADD CLUPD+4
CHMPEN CHMPEN+3, CHMPEN+4
CHMPVAQ CHMPVA+1, CHMPENCHMPEN+1
CLOCKQ CLUPD+1, CLUPD+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ADD+1~, ADD+8*
>> DFN CHMPENCHMPEN+4
DIE ADD+1~, ADD+8*
DIR ADD+1~, FEPR+1~
DIR("?" ADD+4*
DIR("A" ADD+4*
DIR(0 ADD+4*
DIRUT ADD+1~, ADD+5, FEPR+1~
DR ADD+1~, ADD+8*
DTOUT ADD+1~, FEPR+1~
DUOUT ADD+1~, ADD+5, FEPR+1~
DUZ ADD+8
>> IBATYP FEPR+2
>> IBBDT CHMPEN+7*
>> IBCHG CLUPD+8, ADD+3, ADD+8
>> IBCLDA CLUPD+1, CLUPD+4, CLUPD+7, ADD+8
IBCLDT ADD+7*, FEPR+1~
IBCLST CLUPD+7*, CLUPD+8, CLOCKQ!
IBCVA CHMPEN+2*, CHMPEN+4, CHMPEN+7, CHMPVAQ!
>> IBDESC FEPR+2*
>> IBDG SPEC+9
>> IBEDT CHMPEN+7*
>> IBFR ADD+3, ADD+7, HFEV+2
IBPM CHMPEN*, CHMPEN+1, CHMPEN+2, CHMPVAQ!
>> IBPMD CHMPEN+2*, CHMPEN+3, CHMPEN+7
>> IBSIBC SPEC+9*
>> IBSIBC1 SPEC+12*
IBSL CHMPEN+2*, CHMPEN+4, CHMPVAQ!
>> IBUNIT CLUPD+8, ADD+3, ADD+8
>> IBXA CLUPD+1, ADD+3, ADD+4, ADD+8, FEPR+2
>> IBY ADD+7, FEPR+3
X ADD+1~, FEPR+1~, SPEC~, SPEC+8
Y ADD+1~, ADD+5, FEPR+1~, SPEC~, SPEC+7, SPEC+8, SPEC+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All