Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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) ;

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call