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

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGLN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGLN+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICPT - [#81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call