Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ($$LIST,$$PWD,$$STATUS,CLOSE,OPEN)^%ZISH  ($$FMADD,$$HTE)^XLFDT  
VA FileMan 2 ^%DT  ^DIR  
Integrated Billing 1 DISP1^IBCRHU1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCRHD  

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

External References

Name Field # of Occurrence
^%DT DATE+2
$$LIST^%ZISH FNDHOST+4, FNDHOST+6
$$PWD^%ZISH PATH+3, PATH+4
$$STATUS^%ZISH ENDF+1
CLOSE^%ZISH TP+26
OPEN^%ZISH TP+20
^DIR TP+11, CONT+9, CONT1+2, PATH+4
DISP1^IBCRHU1 TP+30, CONT+5
$$FMADD^XLFDT SETHDR+2
$$HTE^XLFDT SETHDR+1

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
Routine Call
  • DIR
  • Line Location:
    • TP+11
    • CONT+9
    • CONT1+2
    • PATH+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(363.1 - [#363.1] CS+2
^VA(200 - [#200] SETHDR+1
^XTMP( SET+1, SET+2*, SET+3*, SET+4*, SETHDR+2*, CONT+11!

Label References

Name Line Occurrences
$$CHECK TP+13
$$CONT TP+16
$$CONT1 TP+17
$$CS PARSE+10
$$DATE STORE+3
$$ENDF TP+24
$$FNDHOST TP+7
$$PATH TP+6
PARSE TP+24
SET STORE+5
SETHDR SET+1
STORE TP+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1~, DATE+2*
ARR CONT+3~*, CONT+5, CONT+7
ARR( CONT+11
DIR TP+2~, TP+11!, CONT+3~, CONT+9!, CONT1+1~, CONT1+2!, PATH+1~, PATH+4!
DIR("?" TP+10*, CONT+8*, PATH+2*, PATH+3*
DIR("A" TP+11*, CONT+9*, CONT1+2*, PATH+4*
DIR("B" PATH+4*
DIR(0 TP+11*, CONT+9*, CONT1+2*, PATH+4*
DIRUT TP+2~, TP+11, CONT+3~, CONT1+1~, PATH+1~
DT SETHDR+2
DTOUT DATE+1~, PATH+5
DUOUT TP+2~, CONT+3~, CONT1+1~, PATH+1~, PATH+5
DUZ SETHDR+1
IBCHG TP+3~, STORE+5*, SET+4
IBCHRG TP+2~, PARSE+7*, STORE+5
IBCODE TP+2~, PARSE+5*, PARSE+6*, SET+4
IBCPT TP+3~
>> IBCS PARSE+10*, SET+3
IBEFDT TP+3~, PARSE+8*, STORE+3*, SET+4
IBFILE TP+2~, TP+11*, TP+13, TP+16, TP+20, TP+22, SETHDR+1, CHECK~, CHECK+2, CHECK+3
IBFLINE TP+2~, TP+24*, ENDF, ENDF+2, ENDF+6, ENDF+7, ENDF+9, PARSE+4, PARSE+5, PARSE+7
, PARSE+8, PARSE+9
IBI TP+2~, TP+24*, TP+29, ENDF+9, SET+4
IBINACT TP+3~, STORE+3*, SET+4
IBLOC TP+2~, TP+16*, STORE+1
IBMOD TP+3~, STORE+3*
IBPATH TP+2~, TP+3~, TP+6*, TP+7, TP+20, PATH+1~*, PATH+5*, PATH+6, FNDHOST~, FNDHOST+3
, FNDHOST+4, FNDHOST+6, FNDHOST+7
IBQ FNDHOST+1~*, FNDHOST+5*, FNDHOST+7, FNDHOST+9
IBTRDT TP+3~, PARSE+9*, STORE+3
IBTYPE TP+2~, PARSE+4*, PARSE+6, PARSE+10, STORE+5, SET+3
IBX TP+2~, ENDF~*, ENDF+1*, ENDF+2, ENDF+8*, ENDF+9*, ENDF+10, SET+1~*, SET+2, SETHDR+1~*
, SETHDR+2, CONT+3~, CONT+11*, FNDHOST+1~, FNDHOST+5*, FNDHOST+6!, FNDHOST+8*, CS+1~*, CS+2*, CS+3
IBX("IBAT*.TXT" FNDHOST+4*
IBX("TP*.TXT" FNDHOST+6*
IBXRF TP+2~, TP+16*, TP+30, STORE+1
IBXRF1 TP+2~, STORE+1*, SET+1, SET+2, SET+3, SET+4, SETHDR+2
IBXRF2 TP+2~, STORE+5*, SET+3, SET+4
IBY TP+2~, CONT+3~, FNDHOST+1~, FNDHOST+6!
IBY( FNDHOST+5, FNDHOST+8
IBZ CONT+3~*, CONT+7*, CONT+11*, CONT+13, CONT1+1~*, CONT1+2*, CONT1+3, FNDHOST+1~*, FNDHOST+4*, FNDHOST+5
, FNDHOST+6*, FNDHOST+7, FNDHOST+8, FNDHOST+9, CHECK+1~*, CHECK+2*, CHECK+3*, CHECK+4, CHECK+5
IO TP+24, ENDF+8, ENDF+9
IO(0 TP+22, TP+24, ENDF+3, ENDF+9
POP TP+2~, TP+20
U SET+2, SET+3, SET+4, SETHDR+1, SETHDR+2
X TP+2~, DATE~, DATE+2, DATE+3, CONT+3~, CONT1+1~, PATH+1~, CS~, CS+1*, CS+2
XREF CONT~, CONT+5
Y TP+2~, TP+11, DATE+1~, DATE+3, CONT+3~, CONT+11, CONT1+1~, CONT1+2, PATH+1~, PATH+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All