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

Package Total Call Graph
Integrated Billing 11 $$ICN^IBARXMU  TYPE^IBAUTL2  (CLDATA,DED)^IBAUTL3  MED^IBECEA34  ($$CNP,$$INPT)^IBECEAU  CLSTR^IBECEAU1  (CTBB,NODED)^IBECEAU3  CHRG^IBECEAU5  
CCBILL^IBECECQ1  WRAP^IBECECX1  $$DAT1^IBOUTL  
VA FileMan 3 IX^DIC  $$GET1^DIQ  ^DIR  
Kernel 1 $$FMADD^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+5, NOCL+8, NOCL+16, NOCL+17
^DIR NOCL+13, NOCL+29, NOCL+33, OPT+6, CHTYP+29
$$ICN^IBARXMU NOCL+2, NOCL+6, NOCL+7, NOCL+8
TYPE^IBAUTL2 OPT+10
CLDATA^IBAUTL3 NOCL+18, NOCL+43
DED^IBAUTL3 NOCL+43, CLMSG+1
MED^IBECEA34 NOCL+45
$$CNP^IBECEAU OPT+1
$$INPT^IBECEAU NOCL+21, NOCL+49
CLSTR^IBECEAU1 NOCL+39
CTBB^IBECEAU3 OPT+11
NODED^IBECEAU3 NOCL+43, CLMSG+1
CHRG^IBECEAU5 OPT+10
CCBILL^IBECECQ1 NOCL+6, NOCL+7
WRAP^IBECECX1 NOCL+25
$$DAT1^IBOUTL NOCL+20, NOCL+21, NOCL+48, NOCL+49
$$FMADD^XLFDT NOCL+46

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+6
Function Call: WRITE
  • Prompt: !!,"Billing Clock query required for local clock.",!,"Running Billing Clock Query, please wait."
  • Line Location: NOCL+7
Function Call: WRITE
  • Prompt: !!,"Billing clock query successful and clock has been updated if applicable.",!!
  • Line Location: NOCL+15
Function Call: WRITE
  • Prompt: !,IBTEXT(IBX)
  • Line Location: NOCL+25
Function Call: WRITE
  • Prompt: !,IBVRNST
  • Line Location: NOCL+27
Function Call: WRITE
  • Prompt: !!,"Billing Clock Query was not returned from VDIF and clock could not be synced",!,"with other potential clocks.",!
  • Line Location: NOCL+31
Function Call: WRITE
  • Prompt: !!,"***",IBERRMSG,"***",!!
  • Line Location: NOCL+36
Function Call: WRITE
  • Prompt: !!,"The Bill From date is prior to the start of the active clock..."
  • Line Location: NOCL+38
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+41
Function Call: WRITE
  • Prompt: !!?5,"This charge will be billed under the following closed clock:"
  • Line Location: NOCL+47
Function Call: WRITE
  • Prompt: !!?6,"Begin Date: ",$$DAT1^IBOUTL(IBCLDT)," # Inpt Days: ",IBCLDAY
  • Line Location: NOCL+48
Function Call: WRITE
  • Prompt: !?5,"Closed Date: ",$$DAT1^IBOUTL($P(IBCLST,"^",10))," ",$$INPT^IBECEAU(IBCLDAY)," 90 Days: $",+IBCLDOL
  • Line Location: NOCL+49
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+50
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:
    • NOCL+13
    • NOCL+29
    • NOCL+33
    • 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+44
^IBE(351 - [#351] NOCL+4, NOCL+5

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+40, NOCL+43, NOCL+45
OPTQ OPT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D CHTYP+2*
>> DFN NOCL+2, NOCL+4, NOCL+6, NOCL+7, NOCL+8, NOCL+39, OPT+1
DIC CHTYP+2*, CHTYP+5!
DIC("A" CHTYP+2*
DIC("B" NOCL+12*, CHTYP+4*
DIC("S" CHTYP+2*
DIC(0 CHTYP+2*
DIR NOCL+29!, NOCL+33!, OPT+2~, CHTYP+25~
DIR("?" NOCL+12*, OPT+5*, CHTYP+28*
DIR("A" NOCL+11*, NOCL+29*, NOCL+33*, OPT+4*, CHTYP+27*
DIR("B" NOCL+29*, NOCL+33*, CHTYP+27*
DIR(0 NOCL+11*, NOCL+29*, NOCL+33*, OPT+4*, CHTYP+27*
DIROUT CHTYP+25~
DIRUT OPT+2~, CHTYP+25~, CHTYP+29
DT NOCL+5, NOCL+16, NOCL+18
DTOUT OPT+2~, CHTYP+25~
DUOUT OPT+2~, CHTYP+25~, CHTYP+29
>> IBADJMED NOCL+45
IBALR NOCL+37~*, NOCL+38*, NOCL+41
>> IBATYP NOCL+44, OPT+10, CHTYP+5*, CHTYP+23
IBBS OPT+8~, CHTYP+23*
>> IBCATC CHTYP+19
>> IBCLDA NOCL+2, NOCL+15*, NOCL+16, NOCL+17, NOCL+38, NOCL+40, CLMSG+2
>> IBCLDAY NOCL+20, NOCL+21, NOCL+44, NOCL+45, NOCL+48, NOCL+49
>> IBCLDOL NOCL+21, NOCL+49, NOCL+50, CLMSG+2
>> IBCLDT NOCL+2, NOCL+20, NOCL+46, NOCL+48, CLMSG+1*, CLMSG+2
IBCLQRY NOCL+1~, NOCL+6*, NOCL+7*, NOCL+15, NOCL+31
IBCLST NOCL+37~, NOCL+46, NOCL+49
>> IBCVAEL CHTYP+18
IBDT OPT+8~, OPT+9*
>> IBECARY( NOCL+27
IBECCLDT NOCL+1~, NOCL+16*, NOCL+21
>> IBECDA NOCL+15
IBECDT NOCL+1~, NOCL+4*
IBECDT1 NOCL+1~
IBECENDT NOCL+1~, NOCL+5*, NOCL+16*, NOCL+18
IBECIEN NOCL+1~, NOCL+4*, NOCL+5, NOCL+15
IBECLDT NOCL+1~
IBECSTDT NOCL+1~, NOCL+17*, NOCL+18
IBERRMSG NOCL+1~, NOCL+15, NOCL+24, NOCL+25, NOCL+36
>> IBEVDA OPT+9*
>> IBEXSTAT CHTYP+20
IBFLAG NOCL+1~, NOCL+4*, NOCL+5*, NOCL+6, NOCL+7*, NOCL+8*
IBFLAG1 NOCL+1~, NOCL+15, NOCL+24, NOCL+31, NOCL+36
>> IBFR NOCL+2, NOCL+4, NOCL+5, NOCL+6, NOCL+7, NOCL+18, NOCL+39, OPT+1, OPT+9, CLMSG+1
, CLMSG+2
>> IBLIM NOCL+46*
>> IBLTCST CHTYP+21, CHTYP+22
>> IBMED NOCL+44*, NOCL+45*, NOCL+50, CLMSG+1, CLMSG+2, CLMSG+3
>> IBNH CHTYP+8*, CHTYP+30*, CHTYP+31*
IBOVERLAP NOCL+1~, NOCL+36
IBQRY NOCL+1~, NOCL+5*, NOCL+7, NOCL+8
IBQUIT NOCL+1~, NOCL+22*, NOCL+23, NOCL+29*, NOCL+30, NOCL+33*, NOCL+34
>> IBREBILL("CHRGTYPE" CHTYP+4
>> IBSEQNO CHTYP+8*, CHTYP+16
>> IBTEXT NOCL+25*
>> IBTEXT( NOCL+25
>> IBTO OPT+9*
IBTYPE OPT+8~, OPT+9*
>> IBUC CHTYP+13*
>> IBUNIT OPT+9*
>> IBVRNST NOCL+27*
IBX NOCL+25*, OPT+8~, OPT+9*
>> IBXA NOCL+6, NOCL+7, NOCL+8, NOCL+44, NOCL+45, NOCL+50, CHTYP+8*, CHTYP+17, CHTYP+18, CHTYP+19
, CHTYP+20, CHTYP+21, CHTYP+22, CHTYP+23, CHTYP+24, CHTYP+31, CLMSG+2
>> IBY NOCL+13*, NOCL+14, NOCL+15*, NOCL+30*, NOCL+33*, NOCL+35*, NOCL+41*, NOCL+43, NOCL+45, NOCL+50*
, 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+5, CHTYP+13
Y NOCL+13, NOCL+29, NOCL+33, 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