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

Package: Integrated Billing

Routine: IBCRHBC


Information

IBCRHBC ;ALB/ARH - RATES: UPLOAD HOST FILES (CMAC DRIVER) ; 22-MAY-1996

Source Information

Source file <IBCRHBC.m>

Entry Points

Name Comments DBIA/ICR reference
CMAC ; OPTION: upload a CMAC file from a VMS file into ^XTMP
CHKF(LINE,FILE) ; check that first line of file fits one of the three formats, if it does return the format type, otherwise 0
CHKFQ
CONT(XREF) ; check for existing files stored in XREF with same host file name
; returns true if user wants to continue and these files are deleted
MOD(DEFAULT,NAME) ; get the modifiers to use with the professional and technical component charges
CONT1() ; get final OK to start upload
PATH() ; return directory or -1
FNDHOST(IBPATH) ; find and display any host files available for upload: 1 if some, 0 none found
FILE() ; get name of file to be loaded, returns null or file name in 'CMACxxx.TXT' or 'yyyyCMACxxx.TXT' format
DATE(FORM,LINE) ; return file formated date in FM format, returns null or file date in FM format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Upload CMAC Host File: 'CMACxxx.TXT' or 'yyyyCMACxxx.TXT' w/xxx = locality",!
  • Line Location: CMAC+5
Function Call: WRITE
  • Prompt: !!,"**** Unable to open ",IBPATH,IBFILE,!
  • Line Location: CMAC+15
Function Call: WRITE
  • Prompt: !!,?14,"File: ",IBFILE,?40,"Effective: ",$$DATE(IBFORM,IBFLINE)
  • Line Location: CMAC+23
Function Call: WRITE
  • Prompt: !!,"Done. ",$P(IBDONE,U,1)," lines processed."
  • Line Location: CMAC+30
Function Call: WRITE
  • Prompt: !,"The following files were created, they will be purged in 2 days:"
  • Line Location: CMAC+31
Function Call: WRITE
  • Prompt: !!,IBY,!!,"Bad file name, can not continue!"
  • Line Location: CHKF+4
Function Call: WRITE
  • Prompt: !!,IBY,!!,"First line of file is null, can not continue!"
  • Line Location: CHKF+5
Function Call: WRITE
  • Prompt: !!,IBY,!,"Line Length=",$L(LINE)," characters",!!,"LINE='",LINE,"'",!!,"Can not Continue!"
  • Line Location: CHKF+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+7
Function Call: WRITE
  • Prompt: !!,"The above files already exist in XTMP."
  • Line Location: CONT+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: CONT+11
Function Call: WRITE
  • Prompt: !!,?7,NAME," Component charges will not be uploaded.",!
  • Line Location: MOD+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT1+1
Function Call: WRITE
  • Prompt: !,"CMAC Host files available for upload in: ",IBPATH,!!
  • Line Location: FNDHOST+5
Function Call: WRITE
  • Prompt: "**** No CMAC files found ",IBPATH,"CMACxxx.TXT or yyyyCMACxxx.TXT, can not continue.",!
  • Line Location: FNDHOST+7
Function Call: WRITE
  • Prompt: ?30,$P(IBX,";",1),!
  • Line Location: FNDHOST+8
Function Call: WRITE
  • Prompt: !!,"**** File not a CMAC file: must be 'CMACxxx.TXT' or 'yyyyCMACxxx.TXT'.",!
  • Line Location: FILE+8
Info |  Source |  Entry Points |  Interaction Calls