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

Package: Integrated Billing

Routine: IBECEAU2


Information

IBECEAU2 ;ALB/CPM - Cancel/Edit/Add... User Prompts ; 19-APR-93

Source Information

Source file <IBECEAU2.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 4 $$LTCST^IBAECU  COST^IBAUTL  $$INPT^IBECEAU  ($$DAT1,$$DAT2)^IBOUTL  
Registration 2 $$BIL^DGMTUB  DEM^VADPT  
VA FileMan 2 ^DIC  ^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: 6

Package Total Caller Graph
Integrated Billing 6 IBAMTV32  IBECEA21  IBECEA3  IBECEA32  IBECEA35  IBECEA4  

Entry Points

Name Comments DBIA/ICR reference
REAS(IBX) ; Ask for the cancellation reason.
; Input: IBX -- "C" (Cancel a charge), "E" (Edit a Charge)
UNIT(DEF) ; Ask for units for Rx copay charges
; Input: DEF -- Default value if previous charge is to be displayed
FR(DEF) ; Ask Bill From Date
; Input: DEF -- Default value if previous charge is to be displayed
FRA
FRQ
TO(DEF) ; Ask Bill To Date
; Input: DEF -- Default value if previous charge is to be displayed
TOA
TOQ
FEE(DEF) ; Ask for Fee Amount
; Input: DEF -- Default value if previous charge is to be displayed
AMT ; Ask for Charge Amount
CATC ; Display that patient is not Means Test billable.
HUN ; Help for units
HFR ; Help for Bill From date
HTO ; Help for Bill To date
HFEE ; Help for Fee Amount
HAMT ; Help for Charge Amount
TIER(IBATYP,IBEFDT,TIER) ; Prompt if needed for copay tier
; IBATYP - 350.1 IB Action Type
; IBEFDT - Date for possible tier choice or not if only one tier available
; TIER - {optional) default tier, if none specified, then 2 used
GETDOD(DFN) ; get patient's date of death IB*2.0*772

External References

Name Field # of Occurrence
$$BIL^DGMTUB FRA+14, TOA+3
^DIC REAS+17
^DIR UNIT+6, FRA+10, TOA+2, FEE+5, AMT+3, TIER+19
$$LTCST^IBAECU FRA+15
COST^IBAUTL UNIT+3
$$INPT^IBECEAU HFEE+3
$$DAT1^IBOUTL HTO+2
$$DAT2^IBOUTL FRATOA
DEM^VADPT GETDOD+8
$$FMADD^XLFDT TOA+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Units not entered - transaction cannot be completed."
  • Line Location: UNIT+7
Function Call: WRITE
  • Prompt: !!,$S(IBXA=4!(IBXA=7):"Visit",IBXA=5:"Rx",1:"Bill From")," Date not entered - transaction cannot be completed."
  • Line Location: FRA+10
Function Call: WRITE
  • Prompt: !!,"This date is after patient's recorded date of death."
  • Line Location: FRA+12
Function Call: WRITE
  • Prompt: !,"This patient is not LTC billable on this date.",!
  • Line Location: FRA+15
Function Call: WRITE
  • Prompt: !!,"This patient has already been billed the outpatient copay charge for ",$$DAT1^IBOUTL(IBFR),".",!
  • Line Location: FRA+17
Function Call: WRITE
  • Prompt: !!,"Bill To date not entered - transaction cannot be completed."
  • Line Location: TOA+2
Function Call: WRITE
  • Prompt: !!,"Charge not entered - transaction cannot be completed."
  • Line Location: FEE+5
Function Call: WRITE
  • Prompt: !!,"Charge not entered - transaction cannot be completed."
  • Line Location: AMT+3
Function Call: WRITE
  • Prompt: !!,"The patient ",$S(IBFR<DT:"was",1:"is")," not Means Test billable on this date.",!
  • Line Location: CATC+1
Function Call: WRITE
  • Prompt: !!,"Please enter 1, 2, 3, ...,12 to denote a 30, 60, 90, ...,360 days supply of"
  • Line Location: HUN+1
Function Call: WRITE
  • Prompt: !,"medication, or '^' to quit."
  • Line Location: HUN+2
Function Call: WRITE
  • Prompt: !!,"Please enter the ",STR
  • Line Location: HFR+8
Function Call: WRITE
  • Prompt: !,$S(IBXA=5:"today or prior to today",1:"10/1/90"_$S(IBXA=4!(IBXA=7):"",1:" (and be prior to today)")),", or '^' to quit."
  • Line Location: HFR+11
Function Call: WRITE
  • Prompt: !!,"Please enter the 'Bill To' date for this charge, which may not precede"
  • Line Location: HTO+1
Function Call: WRITE
  • Prompt: !,$$DAT1^IBOUTL(IBFR),", or '^' to quit."
  • Line Location: HTO+2
Function Call: WRITE
  • Prompt: !!,"Please enter the charge for this Fee Service, which may not be greater than"
  • Line Location: HFEE+1
Function Call: WRITE
  • Prompt: !,"the difference between the Medicare Deductible amount and the "
  • Line Location: HFEE+2
Function Call: WRITE
  • Prompt: $$INPT^IBECEAU(IBCLDAY)," 90 days",!,"copay billed ($",IBMED-IBCLDOL,"), or '^' to quit."
  • Line Location: HFEE+3
Function Call: WRITE
  • Prompt: !!,"Please enter the charge for this copayment."
  • Line Location: HAMT+1
Function Call: WRITE
  • Prompt: !!,"Rx Date entered is invalid for the charge type. Please confirm",!
  • Line Location: TIER+7
Function Call: WRITE
  • Prompt: "the date and re-enter."
  • Line Location: TIER+8
Routine Call
  • DIC
  • Line Location:
    • REAS+17
Routine Call
  • DIR
  • Line Location:
    • UNIT+6
    • FRA+10
    • TOA+2
    • FEE+5
    • AMT+3
    • TIER+19

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(350.2 - [#350.2] TIER+5, TIER+10, TIER+11

Label References

Name Line Occurrences
$$GETDOD FRA+12
CATC FRA+14, TOA+3
FRA FRA+12, FRA+14, FRA+15
FRQ FRA+10, FRA+13
TOA TOA+3
TOQ TOA+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA UNIT+2~, UNIT+3*, FR+2~, TO+2~
DEF UNIT~, UNIT+6, FR~, FRA, TO~, TOATOA+3, FEE~, FEE+3
DFN FRA+12, FRA+14, FRA+15, TOA+3, GETDOD~, GETDOD+7
DIC REAS+10*, REAS+17!
DIC("A" REAS+10*
DIC("S" REAS+13*, REAS+14*
DIC(0 REAS+10*
DIR UNIT+2~, FR+2~, FRA+10!, TO+2~, TOA+2!, FEE+2~, AMT+1~, TIER+4~
DIR("?" UNIT+5*, FRA+8*, TOA+1*, FEE+4*, AMT+2*, TIER+18*
DIR("A" UNIT+5*, FRA+4*, FRA+5*, FRA+6*, FRA+7*, TOA+1*, FEE+4*, AMT+2*, TIER+16*
DIR("B" UNIT+6*, FRA*, TOA*, FEE+3*, TIER+17*
DIR(0 UNIT+5*, FRA+1*, TOA+1*, FEE+4*, AMT+2*, TIER+15*
DIROUT TIER+4~
DIRUT UNIT+2~, FR+2~, TO+2~, FEE+2~, AMT+1~, TIER+4~, TIER+20
DT CATC+1, TIER+5
DTOUT UNIT+2~, FR+2~, TO+2~, FEE+2~, AMT+1~, TIER+4~
DUOUT UNIT+2~, FR+2~, TO+2~, FEE+2~, AMT+1~, TIER+4~
IB TIER+4~, TIER+11*
IBATYP UNIT+3, TIER~, TIER+5, TIER+10, TIER+11
>> IBATYPN FRA+7, HFR+7
>> IBCHG UNIT+3*, UNIT+6*, FEE+5*, AMT+3*
>> IBCLDAY HFEE+3
>> IBCLDOL HFEE+3
>> IBCRES REAS+18*
IBD TIER+4~, TIER+5*, TIER+6, TIER+10, TIER+11
>> IBDESC UNIT+3*
IBDOD FR+3~, FRA+12*
IBEFDT TIER~, TIER+5, TIER+11
IBEND TIER+4~, TIER+5*, TIER+10*
>> IBFR FRA+10*, FRA+12, FRA+14, FRA+15, TOA+1, TOA+3, CATC+1, HTO+2
IBFTIER TIER+4~, TIER+13*, TIER+15
>> IBLIM FRA+1, TOA+1
IBLTIER TIER+4~, TIER+14*, TIER+15
>> IBMED HFEE+3
IBN TIER+4~, TIER+11*
>> IBND REAS+7
IBTIER TIER+4~
IBTIER( TIER+11*, TIER+13
IBTIER(0 TIER+13
IBTIER(1000 TIER+14
>> IBTO TOA+2*, TOA+3
IBUC REAS+2~, REAS+6*, REAS+7*, REAS+13, REAS+14, FRA+14
>> IBUNIT UNIT+6*
IBX REAS~, REAS+10
>> IBXA REAS+13, FRA+5, FRA+6, FRA+7, FRA+10, FRA+13, FRA+14, FRA+15, TOA+3, HFR+5
HFR+6, HFR+7, HFR+9, HFR+11
>> IBY UNIT+7*, FRA+10*, TOA+2*, FEE+5*, AMT+3*, TIER+9*, TIER+20*
STR HFR+1~, HFR+4*, HFR+5*, HFR+6*, HFR+7*, HFR+8
TIER TIER~, TIER+17
U REAS+7, GETDOD+9
VADM GETDOD+6~
VADM(6 GETDOD+9
X UNIT+2~, FR+2~, TO+2~, FEE+2~, AMT+1~, TIER+4~
X1 UNIT+2~, UNIT+3, FR+2~, TO+2~
Y REAS+18, UNIT+2~, UNIT+6, UNIT+7, FR+2~, FRA+10, TO+2~, TOA+2, FEE+2~, FEE+5
AMT+1~, AMT+3, TIER+4~, TIER+21
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