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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 3 $$ITCHG^IBCRCI  $$ADDCI^IBCREF  CHGLN^IBCRER1  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
Kernel 1 $$LOW^XLFSTR  
VA FileMan 1 ^DIR  

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 IBCR ENTER RC NATIONAL CHARGES  

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

External References

Name Field # of Occurrence
^DIR ASKLN+6
$$ITCHG^IBCRCI ADDCHG+3
$$ADDCI^IBCREF ADDCHG+6
CHGLN^IBCRER1 EN+13
$$CPT^ICPTCOD DISPLN+3
$$MOD^ICPTMOD DISPLN+3
$$LOW^XLFSTR DISPLN+5

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
Routine Call
  • DIR
  • Line Location:
    • ASKLN+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(363.1 - [#363.1] SAVELN+10, SAVELN+11, ADDCHG+4, ADDCHG+7, ADDCHG+8
^IBE(363.3 - [#363.3] SAVELN+14

Label References

Name Line Occurrences
$$ASKLN EN+15
$$DATE DISPLN+4
ADDCHG SAVELN+22, SAVELN+23, SAVELN+24, SAVELN+25
DISPLN EN+14, ADDCHG+7, ADDCHG+8
SAVELN EN+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHG ADDCHG~, ADDCHG+1*, ADDCHG+6
CHGI ADDCHG~, ADDCHG+1*, ADDCHG+6
CS ADDCHG~, ADDCHG+1*, ADDCHG+3, ADDCHG+4, ADDCHG+6, ADDCHG+7, ADDCHG+8
DIR ASKLN+2~
DIR("?" ASKLN+4*
DIR("A" ASKLN+6*
DIR("B" ASKLN+6*
DIR(0 ASKLN+6*
DIRUT ASKLN+2~
DTOUT ASKLN+2~, ASKLN+7
DUOUT ASKLN+2~, ASKLN+7
EFF ADDCHG~, ADDCHG+1*, ADDCHG+3, ADDCHG+6
IBBR0 SAVELN+2~, SAVELN+14*, SAVELN+15, SAVELN+16, SAVELN+17, SAVELN+18, SAVELN+19, SAVELN+20
IBBRTY SAVELN+2~, SAVELN+5*, SAVELN+15, SAVELN+27
IBCARE SAVELN+2~, SAVELN+12*, SAVELN+15, SAVELN+22, SAVELN+23, SAVELN+24, SAVELN+25
IBCHGI SAVELN+2~, SAVELN+7*, SAVELN+22, SAVELN+23, SAVELN+24, SAVELN+25
IBCHGU SAVELN+2~, SAVELN+7*, SAVELN+22, SAVELN+23, SAVELN+24, SAVELN+25
IBCI ADDCHG+1~, ADDCHG+3*, ADDCHG+4, ADDCHG+6*, ADDCHG+7, ADDCHG+8
IBCNT SAVELN+2~, SAVELN+4*, SAVELN+22*, SAVELN+23*, SAVELN+24*, SAVELN+25*, SAVELN+27
IBCS SAVELN+2~, SAVELN+10*, SAVELN+11, SAVELN+22, SAVELN+23, SAVELN+24, SAVELN+25
IBCS0 SAVELN+2~, SAVELN+11*, SAVELN+14
IBCSN SAVELN+2~, SAVELN+11*, SAVELN+12
IBEFF EN+1~, EN+13, SAVELN+2~, SAVELN+7*, SAVELN+22, SAVELN+23, SAVELN+24, SAVELN+25
IBFS SAVELN+2~, SAVELN+8*, SAVELN+22
IBI EN+1~, EN+12*
IBINCR SAVELN+2~, SAVELN+7*, SAVELN+17, SAVELN+18, SAVELN+19, SAVELN+20, SAVELN+27
IBINP SAVELN+2~, SAVELN+8*, SAVELN+23
IBITM SAVELN+2~, SAVELN+7*, SAVELN+22, SAVELN+23, SAVELN+24, SAVELN+25
IBLN EN+1~, EN+12, EN+13, EN+14, EN+15
IBMOD SAVELN+2~, SAVELN+7*, SAVELN+22, SAVELN+23, SAVELN+24, SAVELN+25
IBOPT SAVELN+2~, SAVELN+8*, SAVELN+25
IBSNF SAVELN+2~, SAVELN+8*, SAVELN+24
IBTYP SAVELN+2~, SAVELN+4*, SAVELN+5
IBTYPE EN+1~, EN+13
IBX EN+1~, ASKLN+2~*, ASKLN+6*, ASKLN+7*, ASKLN+8
IBXL EN+1~*, EN+12
ITM ADDCHG~, ADDCHG+1*, ADDCHG+3, ADDCHG+6
LN SAVELN~, SAVELN+4, SAVELN+7, SAVELN+8, SAVELN+22, SAVELN+23, SAVELN+24, SAVELN+25, ADDCHG~, ADDCHG+7
, ADDCHG+8, ASKLN~, ASKLN+3, DISPLN~, DISPLN+2, DISPLN+3, DISPLN+4, DISPLN+5, DISPLN+6
MOD ADDCHG~, ADDCHG+1*, ADDCHG+3, ADDCHG+6
U SAVELN+4, SAVELN+7, SAVELN+8, SAVELN+11, SAVELN+14, SAVELN+15, SAVELN+16, SAVELN+17, SAVELN+18, SAVELN+19
, SAVELN+20, ADDCHG+4, ADDCHG+7, ADDCHG+8, ASKLN+3, DISPLN+3, DISPLN+4, DISPLN+5, DISPLN+6
X ASKLN+2~, DATE~, DATE+1
Y ASKLN+2~, ASKLN+6, DATE+1~*, DATE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All