Routine: BARLNK

Package	Total	Call Graph
IHS Accounts Receivable	4	EN^BARLN0 (HITS,JOIN,SORTS)^BARLNK ^BARLNKW LIST^BARLNRPT
VA Fileman	3	^DIC ^DIE ^DIR
IHS VA Utilities	1	($$DIC,$$VAL,ENP,ENPM)^XBDIQ1
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARLNK

Entry Points

Name	Comments	DBIA/ICR reference
DDPULL(BARFN)	; ; build array of pointers from DD using truth test in BART
TOP	;
QDELL	;EP - DELL ENTRIES ; for back pointers ;I BARTYP="B" D DELL^BARLNKB Q
WALK	;Given BARFN add the fields and then walk the join multiples
DSPITM	; EP
PULLDD	; EP ; PULL DD
LDDDSP	; ; display fields already tagged in with BARTYP in the link file
SORTS	;;S X=$P(^(BARFD,0),U,2) I (BARFD=.01)!((X'["A")&(X'["K")&(X'["M")&(X'["W")&(X'=+X)&(X'["F")&($P(^(0),U)'["*"))
L	; EP
SELECT	; ; Select links, hits, sorts, prints ; Select a file
GDDSP	; ; display BARDD general 3 columns
EN	; EP
E	; EP ; Edit Items
H	;HITS (pointers and sets of codes) for selection
J	;JOINS
DELL	;del entries from link file
PICKQ	;
P	;PRINTS (almost all fields .. not multiples at this time)
ADD	; ; add pointer to link file entry ; for back pointers
HSPLM	;sequence to generate hits,sorts,prints list
W	;Walk from this file and build item entries
PICK	; EP ; SELECT
HITS	;;S X=$P(^(BARFD,0),U,3) I X]"",($P(^(0),U)'["*")
JOIN	;;S X=$P(^(BARFD,0),U,3) I ($P(^(0),U)'["*"),X]"",X'[":" S X="^"_X_"0)" I $D(@X)
ADDQ	;
S	;SORTS (almost all fields , not multiples)
JDDSP	; ; display BARDD for joins field and file pointer
JLM	;sequence to generate Join list
B	;EP - Back pointers
LMFUN	;

External References

Name	Field # of Occurrence
HOME^%ZIS	SELECT+3
EN^BARLN0	B+3, JOIN+5, HITS+4, SORTS+4, P+4
HITS^BARLNK	HITS+2
JOIN^BARLNK	JOIN+3
SORTS^BARLNK	SORTS+2
^BARLNKW	WALK+1
LIST^BARLNRPT	L+2
^DIC	SELECT+7, E+6, ADD+16, ADD+34, ADD+45
^DIE	E+14, ADD+49, QDELL+16
^DIR	PICK+7, ADD+10, ADD+24, QDELL+5
$$DIC^XBDIQ1	SELECT+5, E+4, LDDDSP+8, ADD+28, ADD+42, ADD+46, DELL+6, QDELL+9
$$VAL^XBDIQ1	ADD+37, QDELL+12
ENP^XBDIQ1	DSPITM+1
ENPM^XBDIQ1	LDDDSP+11, DELL+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NOT BUILT YET !",! Line Location: L+1
Function Call: WRITE	Prompt: !,"Field \|File",?15,ITM(.01) Line Location: DSPITM+2
Function Call: WRITE	Prompt: !,"Attribute",?15,ITM(.04) Line Location: DSPITM+3
Function Call: WRITE	Prompt: !,"FM Path",?15,ITM(.05) Line Location: DSPITM+4
Function Call: WRITE	Prompt: !,"Data Path",?15,ITM(1.04) Line Location: DSPITM+5
Function Call: WRITE	Prompt: ! Line Location: DSPITM+6
Function Call: WRITE	Prompt: @IOF Line Location: JDDSP+3
Function Call: WRITE	Prompt: !,?10,X Line Location: JDDSP+5
Function Call: WRITE	Prompt: !,$J(I,3),?5,$E($P(^DD(BARDD,BARFD,0),U),1,16) Line Location: JDDSP+11
Function Call: WRITE	Prompt: ?23,$E($P(^DIC(BARFN0,0),U),1,16) Line Location: JDDSP+12
Function Call: WRITE	Prompt: ?40,$J(J,3),?45,$E($P(^DD(BARDD,BARFD,0),U),1,16) Line Location: JDDSP+17
Function Call: WRITE	Prompt: ?63,$E($P(^DIC(BARFN0,0),U),1,16) Line Location: JDDSP+18
Function Call: WRITE	Prompt: @IOF Line Location: GDDSP+3
Function Call: WRITE	Prompt: !,?10,X Line Location: GDDSP+5
Function Call: WRITE	Prompt: !,$J(I,3),?5,$E($P(^DD(BARDD,BARFD,0),U),1,16) Line Location: GDDSP+11
Function Call: WRITE	Prompt: ?26,$J(J,3),?31,$E($P(^DD(BARDD,BARFD,0),U),1,16) Line Location: GDDSP+15
Function Call: WRITE	Prompt: ?55,$J(J,3),?60,$E($P(^DD(BARDD,BARFD,0),U),1,16) Line Location: GDDSP+19
Function Call: WRITE	Prompt: ?10,X,! Line Location: LDDDSP+15
Function Call: WRITE	Prompt: !,$J(^TMP("BARDD",$J,"B",BARFD),3),?5,$E($P(^DD(BARLDD,BARFD,0),U),1,16) Line Location: LDDDSP+21
Function Call: WRITE	Prompt: ?26,$J(^TMP("BARDD",$J,"B",BARFD),3),?31,$E($P(^DD(BARLDD,BARFD,0),U),1,16) Line Location: LDDDSP+26
Function Call: WRITE	Prompt: ?55,$J(^TMP("BARDD",$J,"B",BARFD),3),?60,$E($P(^DD(BARLDD,BARFD,0),U),1,16) Line Location: LDDDSP+31
Function Call: WRITE	Prompt: ! Line Location: LDDDSP+32
Function Call: WRITE	Prompt: !,"file not in join file" Line Location: ADD+5
Function Call: WRITE	Prompt: !,"FILE NOT AVAILABLE",! Line Location: ADD+17
Function Call: WRITE	Prompt: ! Line Location: ADD+20
Function Call: WRITE	Prompt: !!,?10,X,! Line Location: DELL+12
Function Call: WRITE	Prompt: !,$J(J,3),?5,$E($P(^DD(BARLDD,BARFD,0),U),1,16) Line Location: DELL+20
Function Call: WRITE	Prompt: ?26,$J(J,3),?31,$E($P(^DD(BARLDD,BARFD,0),U),1,16) Line Location: DELL+25
Function Call: WRITE	Prompt: ?55,$J(J,3),?60,$E($P(^DD(BARLDD,BARFD,0),U),1,16) Line Location: DELL+30
Routine Call	%ZIS Line Location: SELECT+3
Routine Call	DIE Line Location: E+14 ADD+49 QDELL+16
Routine Call	DIC Line Location: SELECT+7 E+6 ADD+16 ADD+34 ADD+45
Routine Call	DIR Line Location: PICK+7 ADD+10 ADD+24 QDELL+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARDD(90055.5 - [#90055.5]	SELECT+10, LDDDSP+6, ADD+4, ADD+17, ADD+18, DELL+4
^BARRGIT(	L+1
^DD(	PULLDD+5, JDDSP+11, JDDSP+17, GDDSP+11, GDDSP+15, GDDSP+19, LDDDSP+21, LDDDSP+26, LDDDSP+31, DELL+20 , DELL+25, DELL+30
^DD(90055.5	ADD+29
^DIC - [#1]	JDDSP+4, JDDSP+12, JDDSP+18, GDDSP+4, LDDDSP+14, ADD+14, DELL+11
^TMP("BARDD"	PULLDD+2!, PULLDD+8, PULLDD+9, JDDSP+6, JDDSP+9, JDDSP+10, JDDSP+14, JDDSP+15, JDDSP+16, GDDSP+6 , GDDSP+10, GDDSP+13, GDDSP+14, GDDSP+17, GDDSP+18, LDDDSP+21, LDDDSP+26, LDDDSP+31, ADD+19, ADD+33 , ADD+40, QDELL+11
^TMP("BARLN"	LDDDSP+10!, LDDDSP+13
^TMP("BARLNK"	DELL+10

Label References

Name	Line Occurrences
@(	PICK+9
DDPULL	JDDSP+2, GDDSP+2, LDDDSP+2
DSPITM	E+10, E+15
E	E+16
GDDSP	HSPLM+1
JDDSP	JLM+1
LDDDSP	JLM+1, HSPLM+1
PICK	PICK+10
PULLDD	DDPULL+4
SELECT	PICK+8
WALK	TOP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAR	LDDDSP+3!, DELL+2!
BARDD	DDPULL+2!, DDPULL+3, JDDSP+4, JDDSP+11, JDDSP+17, GDDSP+4, GDDSP+11, GDDSP+15, GDDSP+19, LDDDSP+4 , LDDDSP+5, LDDDSP+14, ADD+4, ADD+14, ADD+17, ADD+18, ADD+30, ADD+36, DELL+3, DELL+11
>> BARE	QDELL+12, QDELL+13, QDELL+14*
>> BARFC	JDDSP+6, JDDSP+7, GDDSP+6, GDDSP+7, GDDSP+8, LDDDSP+16, LDDDSP+17, LDDDSP+18, ADD+19, ADD+22 , DELL+13, DELL+14, DELL+15, DELL+31, QDELL+3
>> BARFCH	JDDSP+7, JDDSP+8, JDDSP+13, GDDSP+7, GDDSP+8, GDDSP+9, GDDSP+12, GDDSP+16, LDDDSP+17, LDDDSP+18* , LDDDSP+19, LDDDSP+22, LDDDSP+27, DELL+14, DELL+15, DELL+16, DELL+21, DELL+26
>> BARFD	PULLDD+3, PULLDD+5, PULLDD+8, PULLDD+9, JDDSP+9, JDDSP+11, JDDSP+15, JDDSP+17, GDDSP+10, GDDSP+11 , GDDSP+14, GDDSP+15, GDDSP+18, GDDSP+19, LDDDSP+12, LDDDSP+13, LDDDSP+20, LDDDSP+21, LDDDSP+24, LDDDSP+26 , LDDDSP+29, LDDDSP+31, DELL+9, DELL+10, DELL+18, DELL+20, DELL+23, DELL+25, DELL+28, DELL+30 , QDELL+11
>> BARFDC	PULLDD+4, PULLDD+7, PULLDD+8, PULLDD+9, LDDDSP+13, ADD+32, ADD+33, ADD+40, DELL+10*
>> BARFLPTH	TOP+3*
BARFN	SELECT+9*, SELECT+10, L+1, L+2, DDPULL~, DDPULL+3, PULLDD+5, E+2, JDDSP+2, GDDSP+2 , LDDDSP+2, LDDDSP+4, TOP+1, TOP+2
>> BARFN0	JDDSP+10, JDDSP+12, JDDSP+16, JDDSP+18, LDDDSP+20, LDDDSP+25, LDDDSP+30, DELL+19, DELL+24, DELL+29
>> BARFP	ADD+40*, ADD+41
>> BARI	ADD+32, QDELL+11
BARLDD	LDDDSP+3!, LDDDSP+5, LDDDSP+6, LDDDSP+21, LDDDSP+26, LDDDSP+31, DELL+2!, DELL+3, DELL+4, DELL+20 , DELL+25, DELL+30, QDELL+10
BARLDD(	LDDDSP+13, LDDDSP+20, LDDDSP+23, LDDDSP+24, LDDDSP+25, LDDDSP+28, LDDDSP+29, LDDDSP+30, DELL+10, DELL+18 , DELL+19, DELL+22, DELL+23, DELL+24, DELL+27, DELL+28, DELL+29
BARLDD("A"	LDDDSP+16, DELL+13, DELL+31
BARLDD("B"	LDDDSP+13*, QDELL+11
>> BARLEV	TOP+1*
BARLNK	LDDDSP+3!, DELL+2!
>> BARPATH	TOP+3*
>> BART	PULLDD+5, JOIN+3, HITS+2, SORTS+2, P+2
>> BARTGDA1	TOP+1*
>> BARTYP	PULLDD+6, LDDDSP+14, ADD+23, ADD+38, ADD+40, ADD+47, ADD+48, DELL+11, QDELL+4, QDELL+13 , B+1, JOIN+2, HITS+1, SORTS+1, P+1*
>> BARTYP(	LDDDSP+14, ADD+23, DELL+11, QDELL+4
>> BARTYP("H"	PICK+4*
>> BARTYP("J"	PICK+3*
>> BARTYP("P"	PICK+6*
>> BARTYP("S"	PICK+5*
>> BARX	ADD+37, ADD+38, ADD+47, QDELL+11
>> BARY	ADD+26, ADD+32, QDELL+8, QDELL+11
DA	E+3!, E+12, ADD+35, ADD+37, QDELL+11*, QDELL+12
DA(1	ADD+30, ADD+36, QDELL+10*
DIC	SELECT+4!, SELECT+5, E+3!, E+4, E+11, LDDDSP+7!, LDDDSP+8, LDDDSP+11, ADD+3!, ADD+13 , ADD+28, ADD+42, DELL+5!, DELL+6*, DELL+8
DIC("P"	ADD+29*
DIC("S"	LDDDSP+9, DELL+7
DIC(0	SELECT+6, E+5, ADD+15, ADD+31, ADD+43*
>> DIE	E+11, ADD+46, QDELL+9*, QDELL+12
DIR	SELECT+11!, ADD+6!, ADD+11!, ADD+21!, ADD+25!, QDELL+2!, QDELL+6!
DIR("A"	ADD+9, ADD+23, QDELL+4*
DIR("B"	ADD+8*
DIR(0	PICK+2, ADD+7, ADD+22, QDELL+3
DR	E+3!, E+13, ADD+39!, ADD+44~, ADD+47, ADD+48, QDELL+15
>> I	JDDSP+8, JDDSP+9, JDDSP+10, JDDSP+11, JDDSP+13, GDDSP+9, GDDSP+10, GDDSP+11, GDDSP+12, GDDSP+16 , LDDDSP+19, LDDDSP+20, LDDDSP+22, LDDDSP+27, DELL+16, DELL+17, DELL+18, DELL+19, DELL+21, DELL+26
IOF	JDDSP+3, GDDSP+3
ITM	E+8!
ITM(	DSPITM+2, DSPITM+3, DSPITM+4, DSPITM+5
>> ITMDA	E+9*, E+12, DSPITM+1
>> J	JDDSP+13, JDDSP+14, JDDSP+15, JDDSP+16, JDDSP+17, GDDSP+12, GDDSP+13, GDDSP+14, GDDSP+15, GDDSP+16* , GDDSP+17, GDDSP+18, GDDSP+19, LDDDSP+22, LDDDSP+23, LDDDSP+24, LDDDSP+25, LDDDSP+27, LDDDSP+28, LDDDSP+29 , LDDDSP+30, DELL+17, DELL+20, DELL+21, DELL+22, DELL+23, DELL+24, DELL+25, DELL+26*, DELL+27 , DELL+28, DELL+29, DELL+30
U	SELECT+10, PULLDD+6, JDDSP+4, JDDSP+9, JDDSP+10, JDDSP+11, JDDSP+12, JDDSP+15, JDDSP+16, JDDSP+17 , JDDSP+18, GDDSP+4, GDDSP+10, GDDSP+11, GDDSP+14, GDDSP+15, GDDSP+18, GDDSP+19, LDDDSP+14, LDDDSP+20 , LDDDSP+21, LDDDSP+24, LDDDSP+25, LDDDSP+26, LDDDSP+29, LDDDSP+30, LDDDSP+31, ADD+14, ADD+18, ADD+33 , ADD+40, DELL+11, DELL+18, DELL+19, DELL+20, DELL+23, DELL+24, DELL+25, DELL+28, DELL+29 , DELL+30
>> X	PULLDD+6, PULLDD+8, JDDSP+4, JDDSP+5, GDDSP+4, GDDSP+5, LDDDSP+14, LDDDSP+15, ADD+14, ADD+33 , ADD+41, DELL+11, DELL+12
>> XBROU	B+2, JOIN+4, HITS+3, SORTS+3, P+3*
>> XBSRCFL	E+2, TOP+2
>> Y	SELECT+8, SELECT+9, PICK+8, PICK+9, E+7, E+9, ADD+12, ADD+26, ADD+27, ADD+35 , QDELL+7, QDELL+8

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARLNK

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(HITS^BARLNK	HITS+2
$T(JOIN^BARLNK	JOIN+3
$T(SORTS^BARLNK	SORTS+2