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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Caller Graph Total: 54

Package Total Caller Graph
Integrated Billing 54 IBCRER1  IBCRHBR  IBCRHBR1  IBCRHBR3  IBCRHBR4  IBCRHBR5  IBCRHBR6  IBCRHBRA  
IBCRHBS1  IBCRHBS3  IBCRHBS4  IBCRHBS5  IBCRHBS6  IBCRHBSZ  IBCRHRS  IBCRHU2  
IBCROE  IBCRU8  IBYP412  IBYP427  IBYP439  IBYP445  IBYP462  IBYP468  
IBYP484  IBYP491  IBYP508  IBYP513  IBYP520  IBYP536  IBYP542  IBYP556  
IBYP559  IBYP573  IBYP584  IBYP600  IBYP612  IBYP628  IBYP634  IBYPSA  
IBYPSA1  IBYPSA2  IBYPSB  IBYPSD  IBYPSE  IBYPSF  IBYPSG  IBYPSH  
IBYPSI  IBYPSJ  IBYPSL  IBYPSM  IBYPSN  IBYPSO  

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

External References

Name Field # of Occurrence
^DIR SELVERS+14
$$FMTE^XLFDT MSGVERS+23

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(363.2 - [#363.2] VERSITE+9
^IBE(363.1 - [#363.1] VERSITE+6, VERSITE+8
^XTMP("IBCR RC SITE" VERSION+1

Label References

Name Line Occurrences
$$VERSALL VERSITE+4
$$VERSDT MSGVERS+8
$$VERSION VERSDT+1, VERSEDT+1, MSGVERS+8
$$VERSITE MSGSITE+2, MSGVERS+8
$$VERSTR SELVERS+3, MSGVERS+15, MSGVERS+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR SELVERS+1~
DIR("?" SELVERS+6*, SELVERS+7*, SELVERS+8*
DIR("A" SELVERS+14*
DIR(0 SELVERS+14*
DIRUT SELVERS+1~, SELVERS+14
DTOUT SELVERS+1~
DUOUT SELVERS+1~
IBC VERSALL+1~*, VERSALL+2*, VERSEND+1~*, VERSEND+2*, VERSITE+3~, VERSITE+11*, VERSTR+2~*, VERSTR+3*
IBCS VERSITE+3~, VERSITE+6*, VERSITE+7, VERSITE+8
IBCSFN VERSITE+3~, VERSITE+8*
IBDESC FILES+1~, FILES+8*, FILES+9
IBFILE FILES+1~, FILES+4*, FILES+8
IBFILES FILES~
IBFILES( FILES+9*
IBI SELVERS+1~, SELVERS+10*, VERSDT+1~, VERSDT+2*, VERSEDT+1~, VERSEDT+2*, VERSALL+1~, VERSALL+2*, VERSEND+1~, VERSEND+2*
, VERSITE+3~, VERSITE+9*, VERSITE+11*, MSGVERS+6~, MSGVERS+16*, VERSTR+2~, VERSTR+3*, FILES+1~, FILES+4*, FILES+7*
IBITM VERSITE+3~, VERSITE+4*, VERSITE+9
IBJ SELVERS+1~, SELVERS+12*
IBNAME FILES+1~, FILES+8*, FILES+9
IBQUIT SELVERS+1~, SELVERS+3*, SELVERS+10, SELVERS+14*, SELVERS+15*
IBR VERSTR+2~*, VERSTR+3*, VERSTR+4
IBS VERSTR+2~*, VERSTR+3*, VERSTR+4
IBTYPE FILES+1~, FILES+4*, FILES+7
IBV VERSITE+3~, VERSITE+7*, VERSITE+9*, VERSITE+11*
IBVDTC MSGVERS+6~, MSGVERS+8*, MSGVERS+23
IBVERS SELVERS+1~, SELVERS+3*, SELVERS+15*, SELVERS+17, VERSITE+3~, VERSITE+4*, VERSITE+9, VERSITE+11, MSGSITE+1~, MSGSITE+2*
, MSGSITE+3, MSGSITE+4, MSGVERS+6~, MSGVERS+8*, MSGVERS+12, MSGVERS+17, MSGVERS+22
IBVERSC MSGVERS+6~, MSGVERS+8*, MSGVERS+11, MSGVERS+15, MSGVERS+20
IBVERSIN MSGVERS+6~, MSGVERS+8*, MSGVERS+11, MSGVERS+16, MSGVERS+21
IBVERSO MSGVERS+6~, MSGVERS+16*, MSGVERS+17, MSGVERS+21*, MSGVERS+22, MSGVERS+23
IBVLIST SELVERS+1~, SELVERS+3*, SELVERS+8, SELVERS+12, SELVERS+15
IBX SELVERS+1~, SELVERS+12*, VERSION+1~*, VERSION+2, VERSDT+1~*, VERSDT+2*, VERSDT+3, VERSEDT+1~*, VERSEDT+2*, VERSEDT+3
, VERSALL+1~*, VERSALL+2*, VERSALL+3, VERSEND+1~*, VERSEND+2*, VERSEND+3, VERSITE+3~, VERSITE+11*, VERSITE+13, VERSTR+2~*
, VERSTR+4*, VERSTR+5
IBXRF VERSITE+3~, VERSITE+8*, VERSITE+9
IBY VERSITE+3~
IBY( VERSITE+9*, VERSITE+11
LINE VERSDT+1~, VERSDT+2*, VERSEDT+1~, VERSEDT+2*, VERSALL+1~, VERSALL+2*, VERSEND+1~, VERSEND+2*, VERSTR+2~, VERSTR+3*
, FILES+1~, FILES+4*, FILES+7*, FILES+8
RVRS VERSTR~, VERSTR+4
SITE VERSITE~, VERSITE+6, VERSITE+7, MSGSITE~, MSGSITE+1, MSGSITE+2, MSGSITE+3, MSGSITE+4, MSGVERS~, MSGVERS+6
, MSGVERS+8
U VERSDT+2, VERSEDT+2, VERSALL+2, VERSEND+2, VERSITE+9, VERSITE+11, FILES+4
VERS VERSDT~, VERSDT+1*, VERSDT+2, VERSEDT~, VERSEDT+1*, VERSEDT+2, FILES~, FILES+1*, FILES+4, FILES+8
VERSTR MSGVERS+6~, MSGVERS+15*, MSGVERS+16, MSGVERS+20*, MSGVERS+21
X SELVERS+1~
Y SELVERS+1~, SELVERS+15

Marked Items

Name Field # of Occurrence
$T(@(3)+IBI FILES+7
$T(VLIST+IBI VERSDT+2, VERSEDT+2, VERSALL+2, VERSEND+2, VERSTR+3, FILES+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All