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

Package: Integrated Billing

Routine: IBCRHBT


Information

IBCRHBT ;LL/ELZ - RATES: UPLOAD HOST FILES (TP) ; 19-MAR-1999

Source Information

Source file <IBCRHBT.m>

Entry Points

Name Comments DBIA/ICR reference
TP ; OPTION: upload an IBAT file from a VMS file into ^XTMP
ENDF()
PARSE ; process a single line from an IBAT file: parse out into individual fields and store the line in XTMP
STORE ;
DATE(X) ; reformats dates
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
CS(X) ; find charge set ien from X (name)
CHECK(IBFILE) ; returns if file name is not in correct format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Upload the IBAT from a host file: 'IBATaxxxx.TXT' w/a = C for CPT or D for DRG",!,?49," & xxxx = year effective",!
  • Line Location: TP+4
Function Call: WRITE
  • Prompt: !!,"**** Unable to open ",IBPATH,IBFILE,!
  • Line Location: TP+20
Function Call: WRITE
  • Prompt: !!,"Loading ",IBFILE," into ^XTMP "
  • Line Location: TP+22
Function Call: READ
  • Variable: IBFLINE
  • Timeout: 5
  • Line Location: TP+24
Function Call: WRITE
  • Prompt: "."
  • Line Location: TP+24
Function Call: WRITE
  • Prompt: !!,"Done. ",(IBI-1)," lines processed."
  • Line Location: TP+29
Function Call: WRITE
  • Prompt: !,"The following files were created, they will be purged in 2 days:"
  • Line Location: TP+30
Function Call: WRITE
  • Prompt: !!,"**** Error while reading file: line not expected format"
  • Line Location: ENDF+4
Function Call: WRITE
  • Prompt: !,"(3 upper case letters & 29 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: !,"IBAT Host files available for upload in: ",IBPATH,!!
  • Line Location: FNDHOST+3
Function Call: WRITE
  • Prompt: ?30,$P(IBX,";",1),!
  • Line Location: FNDHOST+5
Function Call: WRITE
  • Prompt: "**** No IBAT files found ",IBPATH,"IBATaxxxx.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 an IBAT file: must be 'IBATaxxxx.TXT'.",!
  • Line Location: CHECK+4
Info |  Source |  Entry Points |  Interaction Calls