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: IBECEA33

Package: Integrated Billing

Routine: IBECEA33


Information

IBECEA33 ;ALB/CPM-Cancel/Edit/Add... More Add Utilities ; 23-APR-93

Source Information

Source file <IBECEA33.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 10 $$ICN^IBARXMU  TYPE^IBAUTL2  (CLDATA,DED)^IBAUTL3  MED^IBECEA34  ($$CNP,$$INPT)^IBECEAU  CLSTR^IBECEAU1  (CTBB,NODED)^IBECEAU3  CHRG^IBECEAU5  
CCBILL^IBECECQ1  $$DAT1^IBOUTL  
VA FileMan 3 IX^DIC  $$GET1^DIQ  ^DIR  
Kernel 1 ($$FMADD,$$NOW)^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: 1

Package Total Caller Graph
Integrated Billing 1 IBECEA3  

Entry Points

Name Comments DBIA/ICR reference
NOCL ; Find the correct clock from the 'bill from' date.
NOCLQ
OPT ; Check for a C&P exam and determine the outpatient copay rate.
OPTQ
CHTYP ; Ask for the Charge Type
CHTYPQ
CLMSG ; Check the Medicare Deductible and Billing Clock
CLMSGQ
CHKLTCCC() ; Check to see if the selected Charge Type is an LTC Inpatient CC

External References

Name Field # of Occurrence
IX^DIC CHTYP+5
$$GET1^DIQ NOCL+4, NOCL+9, NOCL+10, NOCL+11
^DIR OPT+6, CHTYP+29
$$ICN^IBARXMU NOCL+5, NOCL+6, NOCL+7
TYPE^IBAUTL2 OPT+10
CLDATA^IBAUTL3 NOCL+12, NOCL+20
DED^IBAUTL3 NOCL+20, CLMSG+1
MED^IBECEA34 NOCL+22
$$CNP^IBECEAU OPT+1
$$INPT^IBECEAU NOCL+13, NOCL+26
CLSTR^IBECEAU1 NOCL+16
CTBB^IBECEAU3 OPT+11
NODED^IBECEAU3 NOCL+20, CLMSG+1
CHRG^IBECEAU5 OPT+10
CCBILL^IBECECQ1 NOCL+5, NOCL+6
$$DAT1^IBOUTL NOCL+25, NOCL+26
$$FMADD^XLFDT NOCL+7, NOCL+10, NOCL+23
$$NOW^XLFDT NOCL+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No local clock found for service date.",!,"Running Billing Clock Query, please wait."
  • Line Location: NOCL+5
Function Call: WRITE
  • Prompt: !!,"Billing Clock query required for local clock.",!,"Running Billing Clock Query, please wait."
  • Line Location: NOCL+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: NOCL+8
Function Call: WRITE
  • Prompt: !!,"The Bill From date is prior to the start of the active clock..."
  • Line Location: NOCL+15
Function Call: WRITE
  • Prompt: !!,"This patient has no clock which would cover this date. You should use the",!,"Clock Maintenance option to adjust this patient's clocks before proceeding."
  • Line Location: NOCL+18
Function Call: WRITE
  • Prompt: !!?5,"This charge will be billed under the following closed clock:"
  • Line Location: NOCL+24
Function Call: WRITE
  • Prompt: !!?6,"Begin Date: ",$$DAT1^IBOUTL(IBCLDT)," # Inpt Days: ",IBCLDAY
  • Line Location: NOCL+25
Function Call: WRITE
  • Prompt: !?5,"Closed Date: ",$$DAT1^IBOUTL($P(IBCLST,"^",10))," ",$$INPT^IBECEAU(IBCLDAY)," 90 Days: $",+IBCLDOL
  • Line Location: NOCL+26
Function Call: WRITE
  • Prompt: !!?5,"This patient has been billed the full copayment under this billing clock!",!?5,"You cannot add another copay charge starting on this date."
  • Line Location: NOCL+27
Function Call: WRITE
  • Prompt: !!,"No CHARGE TYPE entered - transaction cannot be completed."
  • Line Location: CHTYP+5
Function Call: WRITE
  • Prompt: !!,"This patient does not have a Primary Eligibility of CHAMPVA.",!
  • Line Location: CHTYP+18
Function Call: WRITE
  • Prompt: !!,"This patient has never been Means Test billable...",!,"You may only select a Pharmacy copay charge type.",!
  • Line Location: CHTYP+19
Function Call: WRITE
  • Prompt: !!,"Patient is Exempt from Medication Copayment",!,$P(IBEXSTAT,"^",4),!
  • Line Location: CHTYP+20
Function Call: WRITE
  • Prompt: !!,"This patient has no LTC (1010EC) information on file.",!,"You cannot select a LTC charge type.",!
  • Line Location: CHTYP+21
Function Call: WRITE
  • Prompt: !!,"This patient is Exempt from LTC Charges.",!
  • Line Location: CHTYP+22
Routine Call
  • DIC
  • Line Location:
    • CHTYP+5
Routine Call
  • DIR
  • Line Location:
    • OPT+6
    • CHTYP+29

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.1 - [#399.1] CHTYP+23
^IBE(350.1 - [#350.1] NOCL+21
^IBE(351 - [#351] NOCL+3, NOCL+4, NOCL+8, NOCL+11

Label References

Name Line Occurrences
$$CHKLTCCC CHTYP+8
CHTYP CHTYP+18, CHTYP+19, CHTYP+20, CHTYP+21, CHTYP+22
CHTYPQ CHTYP+5, CHTYP+13, CHTYP+16, CHTYP+17, CHTYP+18
CLMSGQ CLMSG+1
NOCLQ NOCL+17, NOCL+20, NOCL+22
OPTQ OPT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D CHTYP+2*
>> DFN NOCL+3, NOCL+5, NOCL+6, NOCL+7, NOCL+8, NOCL+16, OPT+1
DIC CHTYP+2*, CHTYP+5!
DIC("A" CHTYP+2*
DIC("B" CHTYP+4*
DIC("S" CHTYP+2*
DIC(0 CHTYP+2*
DIR OPT+2~, CHTYP+25~
DIR("?" OPT+5*, CHTYP+28*
DIR("A" OPT+4*, CHTYP+27*
DIR("B" CHTYP+27*
DIR(0 OPT+4*, CHTYP+27*
DIROUT CHTYP+25~
DIRUT OPT+2~, CHTYP+25~, CHTYP+29
DT NOCL+4, NOCL+10, NOCL+11, NOCL+12
DTOUT OPT+2~, CHTYP+25~
DUOUT OPT+2~, CHTYP+25~, CHTYP+29
>> IBADJMED NOCL+22
IBALR NOCL+14~*, NOCL+15*, NOCL+18
>> IBATYP NOCL+21, OPT+10, CHTYP+5*, CHTYP+23
IBBS OPT+8~, CHTYP+23*
>> IBCATC CHTYP+19
>> IBCLDA NOCL+12*, NOCL+15, NOCL+17, CLMSG+2
>> IBCLDAY NOCL+13, NOCL+21, NOCL+22, NOCL+25, NOCL+26
>> IBCLDOL NOCL+13, NOCL+26, NOCL+27, CLMSG+2
>> IBCLDT NOCL+23, NOCL+25, CLMSG+1*, CLMSG+2
IBCLQRY NOCL+1~, NOCL+6*, NOCL+12
IBCLST NOCL+14~, NOCL+23, NOCL+26
>> IBCVAEL CHTYP+18
IBDT OPT+8~, OPT+9*
IBECDT NOCL+1~, NOCL+3*, NOCL+8*
>> IBECDT1 NOCL+7*, NOCL+8
IBECENDT NOCL+1~, NOCL+4*, NOCL+10*, NOCL+11, NOCL+12
IBECIEN NOCL+1~, NOCL+3*, NOCL+4, NOCL+8*, NOCL+9, NOCL+10, NOCL+11, NOCL+12
IBECLDT NOCL+1~, NOCL+9*, NOCL+10
>> IBECSTDT NOCL+10*
>> IBEVDA OPT+9*
>> IBEXSTAT CHTYP+20
IBFLAG NOCL+1~, NOCL+3*, NOCL+4*, NOCL+5, NOCL+6*, NOCL+7
IBFLAG1 NOCL+1~, NOCL+7*, NOCL+11*, NOCL+12
>> IBFR NOCL+3, NOCL+4, NOCL+5, NOCL+6, NOCL+7, NOCL+11, NOCL+16, OPT+1, OPT+9, CLMSG+1
, CLMSG+2
>> IBLIM NOCL+23*
>> IBLTCST CHTYP+21, CHTYP+22
>> IBMED NOCL+21*, NOCL+22*, NOCL+27, CLMSG+1, CLMSG+2, CLMSG+3
>> IBNH CHTYP+8*, CHTYP+30*, CHTYP+31*
IBQRY NOCL+1~, NOCL+4*, NOCL+6
>> IBREBILL("CHRGTYPE" CHTYP+4
>> IBSEQNO CHTYP+8*, CHTYP+16
>> IBTO OPT+9*
>> IBTRYTIL NOCL+7*
IBTYPE OPT+8~, OPT+9*
>> IBUC CHTYP+13*
>> IBUNIT OPT+9*
IBX OPT+8~, OPT+9*
>> IBXA NOCL+5, NOCL+6, NOCL+7, NOCL+21, NOCL+22, NOCL+27, CHTYP+8*, CHTYP+17, CHTYP+18, CHTYP+19
, CHTYP+20, CHTYP+21, CHTYP+22, CHTYP+23, CHTYP+24, CHTYP+31, CLMSG+2
>> IBY NOCL+12*, NOCL+18*, NOCL+20, NOCL+22, NOCL+27*, OPT+1, OPT+6*, OPT+11, CHTYP+5*, CHTYP+16*
, CHTYP+29*, CLMSG+1, CLMSG+2*
TYPE CHTYP+25~, CHTYP+26*, CHTYP+27, CHTYP+28
U NOCL+4, NOCL+11, CHTYP+13
Y OPT+2~, OPT+6, CHTYP+5, CHTYP+30
Y(0 CHTYP+8, CHTYP+13, CHTYP+26, CHKLTCCC+5, CHKLTCCC+6, CHKLTCCC+7, CHKLTCCC+8
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