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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCRER1

Package: Integrated Billing

Routine: IBCRER1


Information

IBCRER1 ;ALB/ARH - RATES: CM RC NATIONAL ENTER/EDIT OPTION (CONT) ; 13-FEB-2007

Source Information

Source file <IBCRER1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 ^DIC  ^DIR  
Integrated Billing 1 $$VERSALL^IBCRHBRV  

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 IBCRER  

Entry Points

Name Comments DBIA/ICR reference
CHGLN(IBEFF,IBTYP,IBLINE) ; get all user data for charge
; Input: pass by reference to get/retain defaults: Effective Date, Inst/Prof
; Output: IBLINE if passed by reference
; IBLINE = 'cpt ifn^eff dt^mod ifn^type (I/P)^charge^incr type (PR/ML/HR/MN)^incr charge^inpt^snf^opt^free'
; or null if no CPT, or -1 if invalid (exit)
GETCPT(EFFDT) ; Get CPT/HCPCS procedure associated with charge
; Returns: IFN of CPT/HCPCS selected, -1 if invalid
GETEFF(DEFAULT) ; Get Effective Date for charge, must be within date range of current version
; returns valid effective date, -1 if invalid
GETMOD() ; Get Modifier associated with the procedure charge
; Modifier not limited to valid CPTs since that list is often out of date
; Returns: IFN of selected modifier, null if no modifier selected, -1 if invalid
GETTYP(DEFAULT) ; Get Charge Type: Institutional or Professional
; Returns: I for Institutional, P for Professional, -1 if invalid
GETCHGU() ; get procedures unit charge
; Returns: dollar amount (non-zero), -1 if invalid
GETINCR() ; get the type of charge, identifies Charge Method and incremental calculations
; Returns: PR for standard, HR for observation, MN for anesthesia, ML for ambulance, -1 if invalid
GETCHGI(TYPE) ; if a special charge then get the incremental charge amount, anesthesia and observation only
; Returns: dollar amount if applicable (non-zero), null if not applicable, -1 if invalid
GETIINP() ; Get Inpatient Indicator, is this charge billable for Inpatient care
; Returns: 1 for Yes Billable for Inpatient care, 0 for not billable, -1 if invalid
GETISNF() ; Get SNF Indicator, is this charge billable for Skilled Nursing care
; Returns: 1 for Yes Billable for SNF care, 0 for not billable, -1 if invalid
GETIOPT() ; Get Outpatient Indicator, is this charge billable for Outpatient care
; Returns: 1 for Yes Billable for outpatient care, 0 for not billable, -1 if invalid
GETIFS() ; Get Freestanding Indicator, is this charge billable at Freestanding Sites
; Returns: 1 for Yes Billable at Non-Provider Based/Freestanding sites, 0 for not billable, -1 if invalid
DATE(X) ; returns VA date in external form

External References

Name Field # of Occurrence
^DIC GETCPT+5
^DIR GETEFF+9, GETMOD+9, GETTYP+7, GETCHGU+8, GETINCR+9, GETCHGI+10, GETIINP+5, GETISNF+5, GETIOPT+5, GETIFS+6
$$VERSALL^IBCRHBRV GETEFF+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGLN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGLN+14
Routine Call
  • DIC
  • Line Location:
    • GETCPT+5
Routine Call
  • DIR
  • Line Location:
    • GETEFF+9
    • GETMOD+9
    • GETTYP+7
    • GETCHGU+8
    • GETINCR+9
    • GETCHGI+10
    • GETIINP+5
    • GETISNF+5
    • GETIOPT+5
    • GETIFS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICPT - [#81] Classic Fileman Calls

Label References

Name Line Occurrences
$$DATE GETEFF+5, GETEFF+8
$$GETCHGI CHGLN+14
$$GETCHGU CHGLN+11
$$GETCPT CHGLN+7
$$GETEFF CHGLN+8
$$GETIFS CHGLN+19
$$GETIINP CHGLN+16
$$GETINCR CHGLN+13
$$GETIOPT CHGLN+18
$$GETISNF CHGLN+17
$$GETMOD CHGLN+9
$$GETTYP CHGLN+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA GETCPT+2~
DEFAULT GETEFF~, GETEFF+8, GETTYP~, GETTYP+3*, GETTYP+6
DIC GETCPT+2~, GETCPT+5*!
DIC("A" GETCPT+4*
DIC("S" GETCPT+4*
DIC(0 GETCPT+5*
DIE GETCPT+2~
DIR GETEFF+2~, GETEFF+9!, GETMOD+3~, GETMOD+9!, GETTYP+2~, GETCHGU+2~, GETCHGU+8!, GETINCR+2~, GETCHGI+2~, GETCHGI+10!
, GETIINP+2~, GETISNF+2~, GETIOPT+2~, GETIFS+2~
DIR("?" GETEFF+4*, GETEFF+5*, GETEFF+6*, GETMOD+4*, GETMOD+5*, GETMOD+6*, GETTYP+4*, GETCHGU+3*, GETCHGU+4*, GETCHGU+5*
, GETINCR+3*, GETINCR+4*, GETINCR+5*, GETINCR+6*, GETCHGI+4*, GETCHGI+5*, GETCHGI+6*, GETCHGI+7*, GETIINP+3*, GETISNF+3*
, GETIOPT+3*, GETIFS+3*, GETIFS+4*
DIR("A" GETEFF+8*, GETMOD+8*, GETTYP+6*, GETCHGU+7*, GETINCR+8*, GETCHGI+9*, GETIINP+5*, GETISNF+5*, GETIOPT+5*, GETIFS+6*
DIR("B" GETEFF+8*, GETTYP+6*, GETINCR+8*, GETIINP+5*, GETISNF+5*, GETIOPT+5*, GETIFS+6*
DIR(0 GETEFF+9*, GETMOD+9*, GETTYP+7*, GETCHGU+8*, GETINCR+9*, GETCHGI+10*, GETIINP+5*, GETISNF+5*, GETIOPT+5*, GETIFS+6*
DIRUT GETEFF+2~, GETMOD+3~, GETTYP+2~, GETCHGU+2~, GETINCR+2~, GETCHGI+2~, GETIINP+2~, GETISNF+2~, GETIOPT+2~, GETIFS+2~
DR GETCPT+2~
DT GETEFF+9
DTOUT GETCPT+2~, GETCPT+6, GETEFF+2~, GETEFF+10, GETMOD+3~, GETMOD+10, GETTYP+2~, GETTYP+8, GETCHGU+2~, GETCHGU+9
, GETINCR+2~, GETINCR+10, GETCHGI+2~, GETCHGI+11, GETIINP+2~, GETIINP+6, GETISNF+2~, GETISNF+6, GETIOPT+2~, GETIOPT+6
, GETIFS+2~, GETIFS+7
DUOUT GETCPT+2~, GETCPT+6, GETEFF+2~, GETEFF+10, GETMOD+3~, GETMOD+10, GETTYP+2~, GETTYP+8, GETCHGU+2~, GETCHGU+9
, GETINCR+2~, GETINCR+10, GETCHGI+2~, GETCHGI+11, GETIINP+2~, GETIINP+6, GETISNF+2~, GETISNF+6, GETIOPT+2~, GETIOPT+6
, GETIFS+2~, GETIFS+7
EFFDT GETCPT~, GETCPT+4
I GETCPT+2~
IBA GETEFF+2~*, GETEFF+8*, GETEFF+9
IBCHGI CHGLN+5~, CHGLN+14*, CHGLN+21
IBCHGU CHGLN+5~, CHGLN+11*, CHGLN+21
IBCPT CHGLN+5~, CHGLN+7*, CHGLN+21
IBEFF CHGLN~, CHGLN+5*, CHGLN+7, CHGLN+8*, CHGLN+21
IBFS CHGLN+5~, CHGLN+19*, CHGLN+21
IBI GETEFF+2~, GETEFF+3*
IBINCR CHGLN+5~, CHGLN+13*, CHGLN+14, CHGLN+21
IBINP CHGLN+5~, CHGLN+16*, CHGLN+21
IBLINE CHGLN~, CHGLN+5*, CHGLN+7*, CHGLN+21*
IBMIN GETEFF+2~*, GETEFF+3*, GETEFF+5, GETEFF+9
IBMOD CHGLN+5~, CHGLN+9*, CHGLN+21
IBOPT CHGLN+5~, CHGLN+18*, CHGLN+21
IBSNF CHGLN+5~, CHGLN+17*, CHGLN+21
IBTYP CHGLN~, CHGLN+5*, CHGLN+10*, CHGLN+21, GETCHGI+2~, GETCHGI+3*, GETCHGI+7, GETCHGI+9, GETCHGI+10
IBX GETCPT+2~*, GETCPT+5*, GETCPT+6*, GETCPT+7, GETEFF+2~*, GETEFF+9*, GETEFF+10*, GETEFF+11, GETMOD+3~*, GETMOD+9*
, GETMOD+10*, GETMOD+11, GETTYP+2~*, GETTYP+7*, GETTYP+8*, GETTYP+9, GETCHGU+2~*, GETCHGU+8*, GETCHGU+9*, GETCHGU+10
, GETINCR+2~*, GETINCR+9*, GETINCR+10*, GETINCR+12, GETCHGI+2~*, GETCHGI+3*, GETCHGI+10*, GETCHGI+11*, GETCHGI+12, GETIINP+2~*
, GETIINP+5*, GETIINP+6*, GETIINP+7, GETISNF+2~*, GETISNF+5*, GETISNF+6*, GETISNF+7, GETIOPT+2~*, GETIOPT+5*, GETIOPT+6*
, GETIOPT+7, GETIFS+2~*, GETIFS+6*, GETIFS+7*, GETIFS+8
IBY GETEFF+2~, GETEFF+3*
IBZ GETEFF+2~, GETEFF+3*
TYPE GETCHGI~, GETCHGI+2*, GETCHGI+3
U CHGLN+21, GETEFF+3
X GETCPT+2~, GETEFF+2~, GETMOD+3~, GETTYP+2~, GETCHGU+2~, GETINCR+2~, GETCHGI+2~, GETIINP+2~, GETISNF+2~, GETIOPT+2~
, GETIFS+2~, DATE~, DATE+1
Y GETCPT+2~, GETCPT+5, GETEFF+2~, GETEFF+9, GETMOD+3~, GETMOD+9, GETTYP+2~, GETTYP+7, GETCHGU+2~, GETCHGU+8
, GETINCR+2~, GETINCR+9, GETCHGI+2~, GETCHGI+10, GETIINP+2~, GETIINP+5, GETISNF+2~, GETISNF+5, GETIOPT+2~, GETIOPT+5
, GETIFS+2~, GETIFS+6, DATE+1~*, DATE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All