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

Package: Integrated Billing

Routine: IBCRHBA


Information

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

Source Information

Source file <IBCRHBA.m>

Call Graph

Call Graph

Call Graph Total: 5

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

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

External References

Name Field # of Occurrence
$$LIST^%ZISH FNDHOST+4
$$PWD^%ZISH PATH+3, PATH+4
$$STATUS^%ZISH ENDF+1
CLOSE^%ZISH AWP+27
OPEN^%ZISH AWP+21
^DIR AWP+10, CONT+9, CONT1+2, PATH+4
DISP1^IBCRHU1 AWP+31, CONT+5
$$GETDT^IBCRU1 AWP+14
$$FMADD^XLFDT SETHDR+2
$$HTE^XLFDT SETHDR+1

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CONT AWP+17
$$CONT1 AWP+18
$$ENDF AWP+25
$$FNDHOST AWP+7
$$NDCSET STORE+4
$$PATH AWP+6
PARSE AWP+25
SET STORE+8
SETHDR SET+1
STORE AWP+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR CONT+3~*, CONT+5, CONT+7
ARR( CONT+11
DIR AWP+2~, AWP+10!, CONT+3~, CONT+9!, CONT1+1~, CONT1+2!, PATH+1~, PATH+4!
DIR("?" AWP+9*, CONT+8*, PATH+2*, PATH+3*
DIR("A" AWP+10*, CONT+9*, CONT1+2*, PATH+4*
DIR("B" PATH+4*
DIR(0 AWP+10*, CONT+9*, CONT1+2*, PATH+4*
DIRUT AWP+2~, AWP+10, CONT+3~, CONT1+1~, PATH+1~
DT SETHDR+2
>> DTOUT PATH+5
DUOUT AWP+2~, CONT+3~, CONT1+1~, PATH+1~, PATH+5
DUZ SETHDR+1
IBCHG AWP+3~, STORE+5*, STORE+6*, SET+4
IBCHGC AWP+3~, PARSE+5*, STORE+5
IBCHGD AWP+3~, PARSE+4*, STORE+5
IBEFDT AWP+3~, AWP+14*, SET+4
IBFILE AWP+2~, AWP+10*, AWP+12, AWP+17, AWP+21, AWP+23, SETHDR+1
IBFLINE AWP+2~, AWP+25*, ENDF, ENDF+2, ENDF+3, ENDF+6, ENDF+7, ENDF+9, PARSE+2, PARSE+3
, PARSE+4, PARSE+5
IBI AWP+2~, AWP+25*, AWP+30, ENDF+9, SET+4
IBNDC AWP+3~, STORE+3*, STORE+4*, SET+4
IBNDCN AWP+3~, PARSE+3*, STORE+3
IBNDCO AWP+3~, PARSE+2*, STORE+3
IBPATH AWP+2~, AWP+6*, AWP+7, AWP+21, PATH+1~*, PATH+5*, PATH+6, FNDHOST~, FNDHOST+3, FNDHOST+4
, FNDHOST+5
IBX AWP+2~, ENDF~*, ENDF+1*, ENDF+2*, ENDF+3, ENDF+8*, ENDF+9*, ENDF+10, SET+1~*, SET+2
, SETHDR+1~*, SETHDR+2, CONT+3~, CONT+11*, FNDHOST+1~, FNDHOST+6*
IBX("AWP*" FNDHOST+4*
IBXRF AWP+2~, AWP+17*, AWP+31, STORE+1
IBXRF1 AWP+2~, STORE+1*, SET+1, SET+2, SET+3, SET+4, SETHDR+2
IBXRF2 AWP+2~, STORE+2*, SET+3, SET+4
IBY AWP+2~, CONT+3~, FNDHOST+1~
IBY( FNDHOST+6
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
IO AWP+25, ENDF+8, ENDF+9
IO(0 AWP+23, AWP+25, ENDF+4, ENDF+9
>> POP AWP+21
U SET+2, SET+3, SET+4, SETHDR+1, SETHDR+2
X AWP+2~, CONT+3~, CONT1+1~, PATH+1~, NDCSET~, NDCSET+1
XREF CONT~, CONT+5
Y AWP+2~, AWP+10, CONT+3~, CONT+11, CONT1+1~, CONT1+2, PATH+1~, PATH+5, NDCSET+1~*, NDCSET+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All