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

Package: Integrated Billing

Routine: IBCRHBC3


Information

IBCRHBC3 ;ALB/ARH - RATES: UPLOAD HOST FILES (CMAC 2005+) ; 10-MAY-2005

Source Information

Source file <IBCRHBC3.m>

Entry Points

Name Comments DBIA/ICR reference
CMAC(IBPATH,IBFILE,IBNAME,IBMODP,IBMODT) ; upload CMAC file from a VMS file into ^XTMP
CMACQ
ENDF()
LNFORM(LINE) ; check an individual line of the file for proper format (length=98 characters)
PARSE ; process a single line from a CMAC file: parse out into individual fields and store the line in XTMP
STORE ;
CGF(AMT) ; return charge string from file line in dollar format
SET ;
SETHDR ;
DATE(DATE) ; return yymmdd in FM format
LNDT(LINE) ; return the date of an individual line, in FM format
SETUP(IBFILE,IBNAME) ; set up Charge Sets, Billing Regions, Rate Schedule links for new charges
; if new region entered, asks user for divisions

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"**** Unable to open ",IBPATH,IBFILE,!
  • Line Location: CMAC+8
Function Call: WRITE
  • Prompt: !!,"Loading ",IBFILE," into ^XTMP "
  • Line Location: CMAC+10
Function Call: READ
  • Variable: IBFLINE
  • Timeout: 5
  • Line Location: CMAC+12
Function Call: WRITE
  • Prompt: "."
  • Line Location: CMAC+12
Function Call: WRITE
  • Prompt: !!,"**** Error while reading file: line not expected format (98 numeric characters):"
  • Line Location: ENDF+4
Function Call: WRITE
  • Prompt: !!,"Line Length=",$L(IBFLINE)," characters"
  • Line Location: ENDF+5
Function Call: WRITE
  • Prompt: ?40,"Line read is null"
  • Condition for execution: IBFLINE=""
  • Line Location: ENDF+5
Function Call: WRITE
  • Prompt: !,"LINE='",IBFLINE,"'",!!,"Upload Aborted!"
  • Line Location: ENDF+6
Function Call: WRITE
  • Prompt: !!,"First line of file has no data, can not continue!"
  • Line Location: ENDF+8
Info |  Source |  Entry Points |  Interaction Calls