Routine: IBCRHBA

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

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

Customize PDF page

Package: Integrated Billing

Routine: IBCRHBA

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: