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

Package: Integrated Billing

Routine: IBCRHBR6


Information

IBCRHBR6 ;ALB/ARH - RATES: UPLOAD (RC) SITE CALCULATIONS ; 10-OCT-1998

Source Information

Source file <IBCRHBR6.m>

Entry Points

Name Comments DBIA/ICR reference
INPT(SITE) ; use Inpatient Facility National Rates to calculate Site Specific Rates
SNF(SITE) ; Skilled Nursing
OPT(SITE) ; use Outpatient Facility National Rates to calculate Site Specific Rates
PCE(SITE) ; use Physician (General) National Rates to calculate Site Specific Rates
PCF(SITE) ; use Physician (Path & Anesthesia) National Rates to calculate Site Specific Rates
PCG(SITE) ; use Physician (Total RVU) National Rates to calculate Site Specific Rates
SITE(IBSXIFN,IBXTMP,IBCHGTYP) ; return site data: XTMP file IFN ^ div num ^ name ^ 3-digit zip
SETHDR(IBXRF1) ; set up header for XTMP file
SET(IBXRF1,IBXRF2,ITEM,EFFDT,INACTDT,CHRG,MOD,CS,ITYPE) ; set calculated charges into XTMP
CGP(CG,TXT) ; if Code Group is defined return benefit category number in list
DATE(X) ; return yyyymmdd in FM format
ENDDT(X) ; return yyyymmdd date in FM format, check version inactive date
RND() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Inpatient Facility Charges"
  • Line Location: INPT+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: INPT+16
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Inpatient Skilled Nursing Charges"
  • Line Location: SNF+6
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Outpatient Facility Charges"
  • Line Location: OPT+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: OPT+15
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Physician Charges E"
  • Line Location: PCE+5
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Physician Charges F"
  • Line Location: PCF+5
Function Call: WRITE
  • Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Physician Charges G"
  • Line Location: PCG+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: PCG+12
Function Call: WRITE
  • Prompt: !,"There are no ",$G(IBCHGTYP)," charges for ",$P(IBSITEN,U,1)," ",$P(IBSITEN,U,2),"!",!
  • Line Location: SITE+4
Function Call: WRITE
  • Prompt: !," *** Fatal Error: ",$G(TXT),!,?21,"could not find Code Group: ",CG
  • Line Location: CGP+3
Info |  Source |  Entry Points |  Interaction Calls