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

Package: Integrated Billing

Routine: IBCRHBRV


Information

IBCRHBRV ;ALB/ARH - RATES: UPLOAD (RC) VERSION FUNCTIONS ; 14-FEB-01

Source Information

Source file <IBCRHBRV.m>

Entry Points

Name Comments DBIA/ICR reference
SELVERS() ; get version to upload from user
VERSION() ; return currently loaded version of RC files (1, 1.1, ...)
VERSDT(VERS) ; return Effective Date of a version of RC files, either version passed in or currently loaded version
VERSEDT(VERS) ; return Inactive Date of a version of RC files, either version passed in or currently loaded version
VERSALL() ; return all RC versions and corresponding effective date 'VERS;EFFDT^VERS;EFFDT^...'
VERSEND() ; return all RC versions and corresponding inactive date 'VERS;INACTIVE DT^VERS;INACTIVE DT^...'
VERSITE(SITE) ; returns the list of versions loaded for a particular site
; *** uses 99201 in the RC PHYSICIAN set to check which versions/dates are loaded
; *** so 99201 must have a pro charge in all versions, if not it must be replaced with an item that does
; *693 - 99202 for 4.215
MSGSITE(SITE) ; display a message indicating which versions are loaded for a site
MSGVERS(SITE) ; check if versions are being loaded in the correct order, should be loaded in date order
; - if loading a version that has already been loaded for the site
; - if loading a version when any future versions have already been loaded for the site
; - if loading a version when the last version has not yet been loaded for the site
; *** uses 99201 in the RC PHYSICIAN set to check which versions/dates are loaded
; *** so 99201 must have a pro charge in all versions, if not it must be replaced with an item that does
VERSTR(RVRS) ; returns string containing list of all Reasonable Charges versions with charges, separated by ","
; RVRS - if set, returns the list of versions in reverse order
FILES(IBFILES,VERS) ; returns array of source Host Files and data for version requested, pass IBFILES by reference
VLIST ; version ^ file type/version ^ effective date ^ inactive date ^ file prefix
FTYPE ; file type/versions and relevant data
; file identifier is used with XTMP subscript 'IBCR RC ' and routine label to parse file
; file identifier : file name/description ^ file identifier ^ number of columns (for v2+)
FT1 ; Reasonable Charge File Type 1 files
FT2 ; Reasonable Charges File Type 2 files

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Select the version of Reasonable Charges to upload."
  • Line Location: SELVERS+5
Function Call: WRITE
  • Prompt: !!,?5,"Select one of the following:",!
  • Line Location: SELVERS+11
Function Call: WRITE
  • Prompt: !,?10,IBX,?20,"Reasonable Charges version ",IBX
  • Line Location: SELVERS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SELVERS+14
Function Call: WRITE
  • Prompt: " Reasonable Charges version ",IBVERS
  • Line Location: SELVERS+15
Function Call: WRITE
  • Prompt: !!,?12,"There appear to be no RC charges already loaded for "_SITE_"."
  • Line Location: MSGSITE+3
Function Call: WRITE
  • Prompt: !!,?12,"RC versions "_IBVERS_" appear to be already loaded for "_SITE_"."
  • Line Location: MSGSITE+4
Function Call: WRITE
  • Prompt: !!,?5,"*** It appears version RC v",IBVERS," has already been loaded for this site ***"
  • Line Location: MSGVERS+12
Function Call: WRITE
  • Prompt: !!,?5,">>> Currently trying to load RC v"_IBVERS_" but RC v"_IBVERSO_" appears to be already",!,?9,"loaded for this site. The versions should be loaded in date order."
  • Line Location: MSGVERS+17
Function Call: WRITE
  • Prompt: !!,?5,"*** Currently trying to load RC v"_IBVERS_" but RC v"_IBVERSO_" does not appear to be",!,?9,"loaded for this site. The versions should be loaded in date order."
  • Line Location: MSGVERS+22
Function Call: WRITE
  • Prompt: !!,?5,">>> Continue only if there will never be a need to bill events before ",!,?9,$$FMTE^XLFDT(IBVDTC,2)," for this site. If RC v"_IBVERSO_" will be needed for this site then",!,?9,"load it first."
  • Line Location: MSGVERS+23
Info |  Source |  Entry Points |  Interaction Calls