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

Package: Integrated Billing

Routine: IBCREE


Information

IBCREE ;ALB/ARH - RATES: CM ENTER/EDIT ;16-MAY-1996

Source Information

Source file <IBCREE.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  ^DIK  ^DIR  
Integrated Billing 2 RESETDV^IBCREE2  ($$CHKBR,$$CHKCS,$$RQCS)^IBCREU1  

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 IBCR ADJUSTMENT ENTER/EDIT  IBCRLA1  

Entry Points

Name Comments DBIA/ICR reference
EDITRT ; ACTION enter/edit rate types (399.3)
EDITRS ; ACTION enter/edit rate schedules (363)
EDITRSA ; OPTION enter/edit Rate Schedule Adjustment field (363,10) if DUZ="@"
ERSA1
ERSA1Q
EDITRG ; enter/edit billing regions (363.31)
EDITBR ; enter/edit billing rates (363.3)
EDITCS ; enter/edit Charge Sets (363.1)
REDTCS
EDITBI ; enter/edit billing items - NDC #, MISC (363.21)
EBI1
DELBI(DA) ;

External References

Name Field # of Occurrence
^DIC EDITRT+7, EDITRS+8, EDITRSA+4, EDITRG+4, EDITBR+5, EDITCS+5, EBI1+3
^DIE EDITRT+11, EDITRS+13, ERSA1+4, ERSA1+18, ERSA1+26, EDITRG+9, EDITRG+12, EDITBR+19, REDTCS
^DIK ERSA1+19, DELBI+1
^DIR ERSA1+15, EDITBI+5, EBI1+13
RESETDV^IBCREE2 EDITRG+6, EDITCS+8
$$CHKBR^IBCREU1 EDITBR+12
$$CHKCS^IBCREU1 EDITCS+11
$$RQCS^IBCREU1 REDTCS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"CAUTION: This is a standard file with entries released nationally, do not add or"
  • Line Location: EDITRT+2
Function Call: WRITE
  • Prompt: !," modify unless necessary. Changing the Name or AR Category or if it is"
  • Line Location: EDITRT+3
Function Call: WRITE
  • Prompt: !," a Third Party rate type will effect processing of claims."
  • Line Location: EDITRT+4
Function Call: WRITE
  • Prompt: !!,"Enter/Edit a Rate Type:"
  • Line Location: EDITRT+5
Function Call: WRITE
  • Prompt: !!,"The Rate Schedule Adjustment is an M code field, it therefore requires"
  • Line Location: EDITRS+2
Function Call: WRITE
  • Prompt: !,"programmer access to enter or edit (using Charge Master IRM Enter/Edit"
  • Line Location: EDITRS+3
Function Call: WRITE
  • Prompt: !,"[IBCR CHARGE MASTER IRM] option. Contact IRM if this field needs to be modified."
  • Line Location: EDITRS+4
Function Call: WRITE
  • Prompt: !!,"Enter/Edit a Rate Schedule:"
  • Line Location: EDITRS+5
Function Call: WRITE
  • Prompt: !,"This option requires programmer access (DUZ(0)=@).",!
  • Line Location: EDITRSA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ERSA1+0
Function Call: WRITE
  • Prompt: !,?7,"The base unit charges are not currently Adjusted.",!
  • Line Location: ERSA1+2
Function Call: WRITE
  • Prompt: !,?7,"If the base unit charge is $100,",!,?7,"this Adjustment will result in a charge of: $",$J(X,10,2),!!
  • Line Location: ERSA1+3
Function Call: WRITE
  • Prompt: " ... no change"
  • Line Location: ERSA1+6
Function Call: WRITE
  • Prompt: !!,?7,"The base unit charges will not be modified."
  • Line Location: ERSA1+7
Function Call: WRITE
  • Prompt: !!,?7,"If the base unit charge is $100,",!,?7,"this Adjustment will result in a charge of: $",$J(X,10,2),!
  • Line Location: ERSA1+8
Function Call: WRITE
  • Prompt: !,"Please note: using '^' to exit the option will not change the adjustment."
  • Line Location: ERSA1+14
Function Call: WRITE
  • Prompt: !,"The adjustment you entered may have included a dispensing fee or administrative"
  • Line Location: ERSA1+23
Function Call: WRITE
  • Prompt: !,"fee. If that is the case, please record the amount of the respective fee(s)"
  • Line Location: ERSA1+24
Function Call: WRITE
  • Prompt: !,"used in the adjustment calculation above."
  • Line Location: ERSA1+25
Function Call: WRITE
  • Prompt: !!,"Enter/Edit a Rate's Billing Regions:"
  • Line Location: EDITRG+2
Function Call: WRITE
  • Prompt: !!,"Enter/Edit a Billing Rate: "
  • Line Location: EDITBR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDITBR+12
Function Call: WRITE
  • Prompt: !!,"Only the Abbreviation may be edited, the Billing Rate Definition can not change:"
  • Line Location: EDITBR+13
Function Call: WRITE
  • Prompt: !," - this Billing Rate definition was exported Nationally"
  • Line Location: EDITBR+14
Function Call: WRITE
  • Prompt: !," - there are Charge Sets defined for this Billing Rate"
  • Line Location: EDITBR+15
Function Call: WRITE
  • Prompt: !," - there are Charge Items defined for a Charge Set with this Billing Rate"
  • Line Location: EDITBR+16
Function Call: WRITE
  • Prompt: !,"This Billing Rate does not have any Charge Sets assigned.",!
  • Line Location: EDITBR+17
Function Call: WRITE
  • Prompt: !!,"Enter/Edit a Charge Set:"
  • Line Location: EDITCS+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDITCS+11
Function Call: WRITE
  • Prompt: !!,"Not all elements of this Charge Set may be edited:"
  • Line Location: EDITCS+12
Function Call: WRITE
  • Prompt: !," - the Set name, Rate, and Billable Event may not be modified since this",!," Charge Set definition was exported nationally."
  • Line Location: EDITCS+14
Function Call: WRITE
  • Prompt: !," - the Billing Rate may not change since the Charge Set has Charge Items."
  • Line Location: EDITCS+16
Function Call: WRITE
  • Prompt: !
  • Line Location: REDTCS+2
Function Call: WRITE
  • Prompt: !,"The Charge Set requires a Billing Rate.",!
  • Line Location: REDTCS+3
Function Call: WRITE
  • Prompt: !,"The Charge Set requires a Billable Event.",!
  • Line Location: REDTCS+4
Function Call: WRITE
  • Prompt: !,"This Charge Set requires a default Revenue Code:"
  • Line Location: REDTCS+6
Function Call: WRITE
  • Prompt: !," - A VA Cost Charge Set requires a default Rev Code since there are no"
  • Line Location: REDTCS+7
Function Call: WRITE
  • Prompt: !," Items to assign the rev code to",!
  • Line Location: REDTCS+8
Function Call: WRITE
  • Prompt: !,"This Charge Set requires a default bedsection:"
  • Line Location: REDTCS+10
Function Call: WRITE
  • Prompt: !," - a bedsection is required before a charge can be added to a bill"
  • Line Location: REDTCS+11
Function Call: WRITE
  • Prompt: !," therefore a default bedsection is required for every Charge Set whose"
  • Line Location: REDTCS+12
Function Call: WRITE
  • Prompt: !," charge item is not bedsection",!
  • Line Location: REDTCS+13
Function Call: WRITE
  • Prompt: !!,"These are items that are billable but not found in other DHCP source files."
  • Line Location: EDITBI+2
Function Call: WRITE
  • Prompt: !,"Items entered that already exist and have no associated charge, can be deleted.",!
  • Line Location: EDITBI+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EBI1+0
Function Call: WRITE
  • Prompt: !," ... not added, invalid format (n-n-n)"
  • Line Location: EBI1+7
Function Call: WRITE
  • Prompt: " ... added"
  • Line Location: EBI1+9
Function Call: WRITE
  • Prompt: " ... already exists"
  • Line Location: EBI1+11
Function Call: WRITE
  • Prompt: " => can not delete, has Charge Items"
  • Line Location: EBI1+12
Function Call: WRITE
  • Prompt: ?50," ... no change"
  • Line Location: EBI1+13
Function Call: WRITE
  • Prompt: ?50," ... deleted"
  • Line Location: EBI1+14
Routine Call
  • DIC
  • Line Location:
    • EDITRT+7
    • EDITRS+8
    • EDITRSA+4
    • EDITRG+4
    • EDITBR+5
    • EDITCS+5
    • EBI1+3
Routine Call
  • DIE
  • Line Location:
    • EDITRT+11
    • EDITRS+13
    • ERSA1+4
    • ERSA1+18
    • ERSA1+26
    • EDITRG+9
    • EDITRG+12
    • EDITBR+19
    • REDTCS
Routine Call
  • DIR
  • Line Location:
    • ERSA1+15
    • EDITBI+5
    • EBI1+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(363 - [#363] Classic Fileman Calls
^IBE(363.1 - [#363.1] Classic Fileman Calls
^IBA(363.21 - [#363.21] Classic Fileman Calls
^IBE(363.3 - [#363.3] Classic Fileman Calls
^IBE(363.31 - [#363.31] Classic Fileman Calls
^DGCR(399.3 - [#399.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.1 - [#399.1] ERSA1+22
^IBA(363.2 - [#363.2] EBI1+12
^IBA(363.21 - [#363.21] DELBI+1
^IBE(363 - [#363] EDITRS+7, EDITRSA+5, ERSA1+1, ERSA1+5, ERSA1+22
^IBE(363.1 - [#363.1] EDITRG+11, EDITRG+12, EDITCS+4
^IBE(363.3 - [#363.3] EDITBR+4
^IBE(363.31 - [#363.31] EDITRG+9

Label References

Name Line Occurrences
$$DELBI EBI1+7, EBI1+14
EBI1 EBI1+6, EBI1+9, EBI1+11, EBI1+15
ERSA1 ERSA1+20
ERSA1Q EDITRSA+2, ERSA1+17
REDTCS REDTCS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EDITRT+1~, EDITRT+11*!, EDITRS+1~, EDITRS+13*!, EDITRSA+1~, ERSA1+4*!, ERSA1+18*!, ERSA1+19*!, ERSA1+26*, EDITRG+1~
, EDITRG+9*, EDITRG+11, EDITRG+12*!, EDITBR+1~, EDITBR+19*!, EDITCS+1~, REDTCS*, REDTCS+2, EDITBI+1~, EBI1+3!
, DELBI~, DELBI+1!
DA(1 ERSA1+19*
DIC EDITRT+1~, EDITRT+7*!, EDITRS+1~, EDITRS+8*!, EDITRSA+1~, EDITRSA+4*!, EDITRG+1~, EDITRG+4*!, EDITBR+1~, EDITBR+5*!
, EDITCS+1~, EDITCS+5*!, EDITBI+1~, EBI1+2*, EBI1+3!
DIC("A" EBI1+2*
DIC("DR" EBI1+2*
DIC("S" EBI1+3*
DIC(0 EDITRT+7*, EDITRS+8*, EDITRSA+4*, EDITRG+4*, EDITBR+5*, EDITCS+5*, EBI1+2*
DIDEL EDITRS+13*!, EDITRG+9*!, EDITBR+19*!, REDTCS*!
DIE EDITRT+1~, EDITRT+11*!, EDITRS+1~, EDITRS+13*!, EDITRSA+1~, ERSA1+4*!, ERSA1+18*!, ERSA1+26*, EDITRG+1~, EDITRG+9*!
, EDITRG+12*!, EDITBR+1~, EDITBR+19*!, EDITCS+1~, REDTCS*!, EDITBI+1~, EBI1+3!
DIE("NO^" EDITRS+12*, EDITBR+9*
DIK ERSA1+19*!, DELBI+1~*!
DINUM EDITRS+1~, EDITRS+7*, EDITRS+8!, EDITBR+1~, EDITBR+4*, EDITBR+5!, EDITCS+1~, EDITCS+4*, EDITCS+5!
DIR EDITRSA+1~, ERSA1+15!, EDITBI+1~, EDITBI+5!, EBI1+13!
DIR("?" ERSA1+9*, ERSA1+10*, ERSA1+11*, ERSA1+12*
DIR("A" ERSA1+15*, EDITBI+5*, EBI1+13*
DIR(0 ERSA1+15*, EDITBI+5*, EBI1+13*
>> DIRUT ERSA1+17
DLAYGO EDITRS+1~, EDITRS+8*!, EDITRG+1~, EDITRG+4*!, EDITBR+1~, EDITBR+5*!, EDITCS+1~, EDITCS+5*!, EDITBI+1~, EBI1+2*
, EBI1+3!
DR EDITRT+1~, EDITRT+11*!, EDITRS+1~, EDITRS+13*!, EDITRSA+1~, ERSA1+4*!, ERSA1+18*!, ERSA1+26*, EDITRG+1~, EDITRG+9*!
, EDITRG+12*!, EDITBR+1~, EDITBR+10*, EDITBR+12*, EDITBR+19!, EDITCS+1~, EDITCS+10*, EDITCS+11*, EDITCS+15*, REDTCS!
, REDTCS+2*, REDTCS+3*, REDTCS+4*, REDTCS+5*, REDTCS+9*, EDITBI+1~, EBI1+3!
DUZ(0 EDITRSA+2
IBBIN EDITBI+1~, EBI1+4*, EBI1+6, EBI1+7, EBI1+9, EBI1+11, EBI1+12, EBI1+13, EBI1+14
IBBRFN EDITBR+1~, EDITBR+7*, EDITBR+19
IBCSFN EDITCS+1~, EDITCS+7*, EDITCS+8, REDTCS, REDTCS+2
>> IBCSFNX EDITCS+7*
IBI EDITRG+1~, EDITRG+11*, EDITRG+12
IBRGFN EDITRG+1~, EDITRG+6*, EDITRG+9, EDITRG+11, EDITRG+12
IBRS10 EDITRSA+1~, ERSA1+1*, ERSA1+2, ERSA1+3, ERSA1+6
IBRS10A EDITRSA+1~, ERSA1+5*, ERSA1+6, ERSA1+7, ERSA1+8, ERSA1+22
IBRS10B EDITRSA+1~, EDITRSA+5*, ERSA1+18
IBRSFN EDITRS+1~, EDITRS+10*, EDITRS+13, EDITRSA+1~, EDITRSA+4*, EDITRSA+5, ERSA1+1, ERSA1+4, ERSA1+5, ERSA1+18
, ERSA1+19, ERSA1+22, ERSA1+26
>> IBRSFNX EDITRS+10*
IBRTFN EDITRT+1~, EDITRT+9*, EDITRT+11
>> IBRTFNX EDITRT+9*
IBTYPE EDITBI+1~, EDITBI+6*, EBI1+2, EBI1+3, EBI1+6, EBI1+13
IBX EDITBR+1~, EDITBR+12*, EDITBR+14, EDITBR+15, EDITBR+16, EDITBR+17, EDITCS+1~, EDITCS+11*, EDITCS+13, EDITCS+15
, REDTCS+2*, REDTCS+3, REDTCS+4, REDTCS+5, REDTCS+9, EDITBI+1~, EBI1+12*, DELBI+1~*, DELBI+2
U EDITRG+6, EDITRG+12, EDITBR+14, EDITBR+15, EDITBR+16, EDITBR+17, EDITCS+8, EDITCS+13, EDITCS+15, REDTCS+3
, REDTCS+4, REDTCS+5, REDTCS+9, EDITBI+6, EBI1+2, EBI1+6, EBI1+9, EBI1+11, EBI1+13
X EDITRT+1~, EDITRT+7!, EDITRT+11!, EDITRS+1~, EDITRS+8!, EDITRS+13!, EDITRSA+1~, EDITRSA+4!, ERSA1+3*, ERSA1+4!
, ERSA1+8*, ERSA1+18!, EDITRG+1~, EDITRG+4!, EDITRG+9!, EDITRG+12!, EDITBR+1~, EDITBR+5!, EDITBR+19!, EDITCS+1~
, EDITCS+5!, REDTCS!, EDITBI+1~, EBI1+3!
Y EDITRT+1~, EDITRT+7!, EDITRT+9, EDITRT+11!, EDITRS+1~, EDITRS+8!, EDITRS+10, EDITRS+13!, EDITRSA+1~, EDITRSA+4!
, ERSA1+4!, ERSA1+18!, ERSA1+20, EDITRG+1~, EDITRG+4!, EDITRG+6, EDITRG+9!, EDITRG+12!, EDITBR+1~, EDITBR+5!
, EDITBR+7, EDITBR+12, EDITBR+19!, EDITCS+1~, EDITCS+5!, EDITCS+7, EDITCS+8, EDITCS+11, REDTCS+2, EDITBI+1~
, EDITBI+5, EDITBI+6, EBI1+3!, EBI1+4, EBI1+13, EBI1+14
Y(0 EDITBI+6
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