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

Package: Integrated Billing

Routine: IBCRHBA


Information

IBCRHBA ;ALB/ARH - RATES: UPLOAD HOST FILES (AWP) ; 11-FEB-1997

Source Information

Source file <IBCRHBA.m>

Entry Points

Name Comments DBIA/ICR reference
AWP ; OPTION: upload an AVERAGE WHOLESALE PRICE file from a VMS file into ^XTMP
ENDF()
PARSE ; process a single line from a AWP file: parse out into individual fields and store the line in XTMP
STORE ;
SET ;
SETHDR ;
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
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
NDCSET(X) ; parse NDC number: raw form from VMS file is 11 numbers, parsed to 5n-4n-2n

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Upload Average Wholesale Price list from a host file: 'AWP_mmddyy.TXT'"
  • Line Location: AWP+4
Function Call: WRITE
  • Prompt: !!,"**** File not an AWP file: must be 'AWP_mmddyy.TXT'.",!
  • Line Location: AWP+12
Function Call: WRITE
  • Prompt: !!,"All NDC numbers will be added to the Charge Master with the form of: 5n-4n-2n.",!!
  • Line Location: AWP+15
Function Call: WRITE
  • Prompt: !!,"**** Unable to open ",IBPATH,IBFILE,!
  • Line Location: AWP+21
Function Call: WRITE
  • Prompt: !!,"Loading ",IBFILE," into ^XTMP "
  • Line Location: AWP+23
Function Call: READ
  • Variable: IBFLINE
  • Timeout: 5
  • Line Location: AWP+25
Function Call: WRITE
  • Prompt: "."
  • Line Location: AWP+25
Function Call: WRITE
  • Prompt: !!,"Done. ",(IBI-1)," lines processed."
  • Line Location: AWP+30
Function Call: WRITE
  • Prompt: !,"The following files were created, they will be purged in 2 days:"
  • Line Location: AWP+31
Function Call: WRITE
  • Prompt: !!,"**** Error while reading file: line not expected format (36 numeric characters):"
  • Line Location: ENDF+5
Function Call: WRITE
  • Prompt: !!,"Line Length=",$L(IBFLINE)," characters"
  • Line Location: ENDF+6
Function Call: WRITE
  • Prompt: ?40,"Line read is null"
  • Condition for execution: IBFLINE=""
  • Line Location: ENDF+6
Function Call: WRITE
  • Prompt: !,"LINE='",IBFLINE,"'",!!,"Upload Aborted!"
  • Line Location: ENDF+7
Function Call: WRITE
  • Prompt: !!,"First line of file has no data, can not continue!"
  • Line Location: ENDF+9
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: !
  • Line Location: CONT1+1
Function Call: WRITE
  • Prompt: !,"AWP Host files available for upload in ",IBPATH,":",!!
  • Line Location: FNDHOST+3
Function Call: WRITE
  • Prompt: "**** No AWP files found ",IBPATH,"AWP_mmddyy.TXT, can not continue.",!
  • Line Location: FNDHOST+5
Function Call: WRITE
  • Prompt: ?30,$P(IBX,";",1),!
  • Line Location: FNDHOST+6
Info |  Source |  Entry Points |  Interaction Calls