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 |  Marked Items |  All
Print Page as PDF
Routine: BARLNK

Package: IHS Accounts Receivable

Routine: BARLNK


Information

BARLNK ; IHS/SD/LSL - LINK FILES ;

Source Information

Source file <BARLNK.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 1

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

Marked Items

Name Field # of Occurrence
$T(HITS^BARLNK HITS+2
$T(JOIN^BARLNK JOIN+3
$T(SORTS^BARLNK SORTS+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All