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

Package: Integrated Billing

Routine: IBCRHBR1


Information

IBCRHBR1 ;ALB/ARH - RATES: UPLOAD HOST FILES (RC) SETUP ; 10-OCT-1998

Source Information

Source file <IBCRHBR1.m>

Entry Points

Name Comments DBIA/ICR reference
HOSTLOAD(VERS) ; upload national REASONABLE CHARGES files from Host files into ^XTMP
HLEND
CONT(FILES) ; check for existing files stored in XTMP with same subscript
; returns true if user wants to continue, any existing files are deleted
CONT1() ; get final OK to start upload, return true if want to continue with upload
PATH() ; return directory or -1
FNDXTMP(FILES) ; find if any existing files in XTMP, return true if any found
DSPXTMP(FILES,ARR) ; display any existing files in XTMP, ARR passed by ref can be used to get list of existing file subscripts
FNDHOST(FILES,IBPATH) ; find and display any Host files available for upload, return true if all required files found
RELOAD() ; check for existing files stored in XTMP with same subscript (these may be reloaded or re-used)
; returns 0 if host files already loaded/defined, 1 if not defined and need to be loaded, -1 if ^
TMESS ; display message for test accounts (IB*2*138: loading test version of files not needed after release of v1)
PROD() ; return true if production version of the files should be loaded

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Upload National Reasonable Charges v"_VERS_" Host Files to Temporary Vista files"
  • Line Location: HOSTLOAD+3
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------",!
  • Line Location: HOSTLOAD+4
Function Call: WRITE
  • Prompt: @IOF,!,"Loading National Reasonable Charges v"_VERS_" Host Files into temporary local file"
  • Line Location: HOSTLOAD+14
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: HOSTLOAD+15
Function Call: WRITE
  • Prompt: !!," Error while processing host file, can not continue!",!!
  • Line Location: HOSTLOAD+20
Function Call: WRITE
  • Prompt: !!,"Upload of Reasonable Charges v"_VERS_" Host Files Complete.",!
  • Line Location: HOSTLOAD+22
Function Call: WRITE
  • Prompt: !!,"The following files were created in XTMP, they will be purged in 2 days:"
  • Line Location: HOSTLOAD+24
Function Call: WRITE
  • Prompt: !,"------------------------------------------------------------------------"
  • Line Location: HOSTLOAD+25
Function Call: WRITE
  • Prompt: !!,"These files already exist in XTMP:",!,"----------------------------------"
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: CONT+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT1+1
Function Call: WRITE
  • Prompt: !,?4,$E(IBY,1,67),?74,$P(IBNODE,U,5)
  • Line Location: DSPXTMP+6
Function Call: WRITE
  • Prompt: !!,"Reasonable Charges Host Files found: ",?44,IBPATH,!,"------------------------------------"
  • Line Location: FNDHOST+2
Function Call: WRITE
  • Prompt: ?57,"*** not found ***"
  • Line Location: FNDHOST+8
Function Call: WRITE
  • Prompt: !!,"Can not find all required host files, can not continue!",!!
  • Line Location: FNDHOST+10
Function Call: WRITE
  • Prompt: !!,"All required host files found.",!
  • Line Location: FNDHOST+11
Function Call: WRITE
  • Prompt: !!,"These files already exist in XTMP:",!,"----------------------------------"
  • Line Location: RELOAD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RELOAD+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: RELOAD+14
Function Call: WRITE
  • Prompt: *7,*7,*7
  • Line Location: TMESS+1
Function Call: WRITE
  • Prompt: !,?10,"**** Will Load Test Version of Reasonable Charge Files ****"
  • Line Location: TMESS+2
Function Call: WRITE
  • Prompt: !!,"This appears to be a test account, the test version of the files will be loaded."
  • Line Location: TMESS+3
Function Call: WRITE
  • Prompt: !,"The test version of the charges should only be loaded into test accounts."
  • Line Location: TMESS+4
Function Call: WRITE
  • Prompt: !,"If this is not a test account but a live production account then do not load",!,"the charges! Contact support."
  • Line Location: TMESS+5
Function Call: WRITE
  • Prompt: !!,?3,"**** If this is a production account do not continue, Contact Support ****",!!
  • Line Location: TMESS+6
Info |  Source |  Entry Points |  Interaction Calls