Routine: BARUTL0

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
IHS Accounts Receivable	1	EOP^BARUTL
IHS VA Utilities	1	($$DIC,$$VAL,EN,ENM)^XBDIQ1

Package

Total

Call Graph

VA Fileman

^DIC ^DIE ^DIR

IHS Accounts Receivable

EOP^BARUTL

IHS VA Utilities

($$DIC,$$VAL,EN,ENM)^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	6	BAR SERVICE/SECTION BARDMU BARMPAS BARPPY02 BARPPY1A BARUTL

Package

Total

Caller Graph

IHS Accounts Receivable

BAR SERVICE/SECTION BARDMU BARMPAS BARPPY02 BARPPY1A BARUTL

Entry Points

Name	Comments	DBIA/ICR reference
BARSPAR	;EP setup BARSPAR( A/R Site Parameter array
ADDREGON	;EP add a regional site (needs DUZ(2))
HOSPSRVC	;
EADD	;
BARPSAT	;EP built BARPS arrary with Parent Satellite
BARUSR	;EP setup BARUSR( user array from DUZ:200
BARSITE	;EP setup BARSITE( site array
SRVSEC	;EP switch Service Section
EFNUM	;----------
ARSPAC	;set up two special A/R accounts
FNUM	;;$T filenumber to be regionally added/deleted

External References

Name	Field # of Occurrence
EOP^BARUTL	ADDREGON+9, ADDREGON+18, HOSPSRVC+18
^DIC	BARUSR+15, ARSPAC+7, HOSPSRVC+7, HOSPSRVC+14, SRVSEC+6
^DIE	SRVSEC+13
^DIR	ADDREGON+14
$$DIC^XBDIQ1	ARSPAC+2
$$VAL^XBDIQ1	SRVSEC+11
EN^XBDIQ1	BARUSR+8, BARSPAR+8, BARSITE+7, ADDREGON+6
ENM^XBDIQ1	BARPSAT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,BARTMP(.01)," EXISTS" Line Location: ADDREGON+8
Function Call: WRITE	Prompt: !,"You can change your Default A/R Facility and return here if necessary!",! Line Location: ADDREGON+16
Function Call: WRITE	Prompt: !,"ADDED: ",?10,$P(@BARGL,U) Line Location: ADDREGON+26
Function Call: WRITE	Prompt: !!,BARTMP(.01)," Has been added",! Line Location: ADDREGON+27
Function Call: WRITE	Prompt: !,"ERROR IN SETUP OF UN-ALLOCATED" Line Location: ARSPAC+10
Function Call: WRITE	Prompt: !,"ERROR IN SETUP OF BUSINESS OFFICE",! Line Location: HOSPSRVC+10
Function Call: WRITE	Prompt: !,"ERROR IN SETUP OF FISCAL SERVICE",! Line Location: HOSPSRVC+17
Routine Call	DIE Line Location: SRVSEC+13
Routine Call	DIC Line Location: BARUSR+15 ARSPAC+7 HOSPSRVC+7 HOSPSRVC+14 SRVSEC+6
Routine Call	DIR Line Location: ADDREGON+14

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(49 - [#49]	Classic Fileman Calls
^BARTBL - [#90052.02]	Classic Fileman Calls
^AUTTSITE - [#9999999.39]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	ADDREGON+7
^DIC - [#1]	ADDREGON+23, ADDREGON+25
^DIC(49 - [#49]	HOSPSRVC+4, HOSPSRVC+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARFLNUM	ADDREGON+22*, ADDREGON+23, ADDREGON+25
BARGL	BARPSAT+1~, ADDREGON+23, ADDREGON+24, ADDREGON+25, ADDREGON+26
>> BARI	ADDREGON+22*
BARPSAT	BARPSAT+2!
>> BARQUIT	ARSPAC+9, HOSPSRVC+9, HOSPSRVC+16*, HOSPSRVC+18
BARSPAR	BARSPAR+2!
BARTMP	ADDREGON+17!
BARTMP(	ADDREGON+8, ADDREGON+13, ADDREGON+27
BARUSR	BARUSR+2!
BARUSR(29	BARUSR+9, BARUSR+10, BARUSR+17, BARUSR+18
DA	BARUSR+1~, BARUSR+7, BARSPAR+1~, BARSPAR+5, BARSITE+1~, BARSITE+5, BARPSAT+1~, BARPSAT+8, ADDREGON+5, SRVSEC+1! , SRVSEC+10
DD	BARUSR+14!, ARSPAC+6!, HOSPSRVC+6!, HOSPSRVC+13!, SRVSEC+5!
DIC	BARUSR+1~, BARUSR+5, BARUSR+11, BARSPAR+1~, BARSPAR+3, BARSITE+1~, BARSITE+2, BARPSAT+1~, BARPSAT+3, ADDREGON+2 , ARSPAC+1!, ARSPAC+2, ARSPAC+4, HOSPSRVC+1, SRVSEC+1!, SRVSEC+2*
DIC("S"	SRVSEC+4*
DIC(0	BARUSR+12, ARSPAC+3, HOSPSRVC+2, SRVSEC+3
DIDEL	SRVSEC+12*, SRVSEC+14!
DIE	SRVSEC+1!, SRVSEC+9*
DIQ	BARUSR+1~, BARUSR+3, BARSPAR+1~, BARSPAR+6, BARSITE+3, BARPSAT+4, ADDREGON+1!, ADDREGON+3*
DIQ(0	BARUSR+4, BARSPAR+7, BARSITE+4, BARPSAT+5, BARPSAT+7*
DIR	ADDREGON+10!, ADDREGON+17!
DIR("A"	ADDREGON+13*
DIR("B"	ADDREGON+12*
DIR(0	ADDREGON+11*
>> DLAYGO	HOSPSRVC+3*
DO	BARUSR+14!, ARSPAC+6!, HOSPSRVC+6!, HOSPSRVC+13!, SRVSEC+5!
DR	BARUSR+6, BARSPAR+1~, BARSPAR+4, BARSITE+1~, BARSITE+6, BARPSAT+1~, BARPSAT+6, ADDREGON+4, SRVSEC+1!, SRVSEC+11
DUZ	BARUSR+7, SRVSEC+10
DUZ(2	BARSPAR+5, ADDREGON+5, ADDREGON+7
U	BARUSR+17, ADDREGON+26
>> X	BARUSR+13, ARSPAC+5, HOSPSRVC+5, HOSPSRVC+12
XB	BARUSR+1~, BARSPAR+1~, BARSITE+1~
Y	BARUSR+16, BARUSR+17, BARUSR+18, BARPSAT+1~, ADDREGON+15, ARSPAC+8, HOSPSRVC+8, HOSPSRVC+15, SRVSEC+7, SRVSEC+8* , SRVSEC+11

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARUTL0

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend:

Marked Items