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
Print Page as PDF
Routine: IBCRER

Package: Integrated Billing

Routine: IBCRER


Information

IBCRER ;ALB/ARH - RATES: CM RC NATIONAL ENTER/EDIT OPTION ; 13-FEB-2007

Source Information

Source file <IBCRER.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Enter/Edit Option: enter National Interim Reasonable Charges
SAVELN(LN) ; Save charge to Charge Master (#363.2), identify Charge Set based on Type (I/P) and Indicators (I/S/O/F)
; freestanding sites will recieve any fs indicated charge as a professional charge regardless of charge type
ADDCHG(CS,ITM,EFF,CHG,MOD,CHGI,LN) ; Add charge to Charge Master
ASKLN(LN) ; Ask user if charge should be saved
; Returns: 1 for save, 0 for no or invalid
DISPLN(LN) ; Print charge line
; string 'cpt ifn^eff dt^mod ifn^type (I/P)^charge^incr type (PR/ML/HR/MN)^incr charge^inpt^snf^opt^free'
DATE(X) ; returns VA date in external form

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter National Reasonable Charges:",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"This option is used to enter the National Interim Reasonable Charges. "
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"These non-site specific charges are provided when new CPT/HCPCS codes are"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"released as interim charges until the next full release of Reasonable Charges.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Procedures and their charge data are entered then they will be added to the "
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"appropriate charges sets for every division of Reasonable Charges defined "
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"on your system. Enter Professional Charges first.",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"This option should ONLY be used to add the National Interim Reasonable Charges.",!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,IBXL,!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"Missing Charge Type, Not Saved"
  • Line Location: SAVELN+4
Function Call: WRITE
  • Prompt: !,"Bad Bill Rate, Not Saved"
  • Line Location: SAVELN+5
Function Call: WRITE
  • Prompt: !,"No Reasonable Charges set found for ",IBBRTY,$S(IBINCR="ML":" Ambulance",IBINCR="MN":" Anesthesia",IBINCR="HR":" Observation",1:""),", Charge Not Added."
  • Line Location: SAVELN+27
Function Call: WRITE
  • Prompt: !,"Active charge already exists ",$P($G(^IBE(363.1,CS,0)),U,1),", Charge Not Added."
  • Line Location: ADDCHG+4
Function Call: WRITE
  • Prompt: ?45,"added "_$P($G(^IBE(363.1,CS,0)),U,1)
  • Line Location: ADDCHG+7
Function Call: WRITE
  • Prompt: ?45,"CHARGE NOT ADDED "_$P($G(^IBE(363.1,CS,0)),U,1)
  • Line Location: ADDCHG+8
Function Call: WRITE
  • Prompt: !,"No Sites Selected, Charge Not Added."
  • Line Location: ASKLN+3
Function Call: WRITE
  • Prompt: !,$P($$CPT^ICPTCOD(+LN),U,2),$S(+$P(LN,U,3):"-"_$P($$MOD^ICPTMOD(+$P(LN,U,3),"I"),U,2),1:"")
  • Line Location: DISPLN+3
Function Call: WRITE
  • Prompt: ?11,$$DATE(+$P(LN,U,2)),?21,$S($P(LN,U,4)="I":"Inst",1:"Prof"),?27,$J(+$P(LN,U,5),8,2)
  • Line Location: DISPLN+4
Function Call: WRITE
  • Prompt: $S(+$P(LN,U,7):"+"_$J(+$P(LN,U,7),0,2),1:""),$S($P(LN,U,6)="PR":"",1:$$LOW^XLFSTR($P(LN,U,6)))
  • Line Location: DISPLN+5
Function Call: WRITE
  • Prompt: ?47,$S(+$P(LN,U,8):"Inpt ",1:""),$S(+$P(LN,U,9):"SNF ",1:""),$S(+$P(LN,U,10):"Opt ",1:""),$S(+$P(LN,U,11):"FreeSt ",1:"")
  • Line Location: DISPLN+6
Info |  Source |  Entry Points |  Interaction Calls