Routine: BAR50LA1

Information

BAR50LA1 ; IHS/SD/LSL - AR TOP LEVEL FILE STRUCTURE ;

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 CLEAR^VALM1 EN^VALM2
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
IHS Accounts Receivable	1	EN^BAR50L01
Uncategorized	1	($$VALMSG,MSG)^AMCOUT

Name	Comments	DBIA/ICR reference
RESET	;EP; -- rebuilds array after action
EN(DLFL)	;EP -- for the file type
HDR	;EP -- header code
BROWSE	; Get specifc details for SEGMENTS, DATA TYPES etc.
SP(N)	; -- SUBRTN to pad N number of spaces
GATHER	; -- SUBRTN to set data into array
EXPND	;EP -- expand code
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
INIT	;EP -- init variables and list array
EXIT	;EP -- exit code
GETITEM	;
HELP	;EP -- help code

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("1T" - [#90056.01]	HDR+2, GATHER+16, GATHER+18
^TMP($J	GATHER+9!, GATHER+22, GATHER+32, GATHER+33*, GETITEM+4, GETITEM+10, GETITEM+11

Name	Field # of Occurrence
>> COUNT	GATHER+12, GATHER+34
>> CURRENT	GATHER+17, GATHER+19, GATHER+20
D	PAD~, PAD+2
>> DI	GATHER+27, GATHER+28, GATHER+30
DLFL	EN~, EN+2
>> FD	GATHER+19, GATHER+21, GATHER+22, GETITEM+11, BROWSE+3
>> FIELD	GATHER+30*, GATHER+31
>> FILE	EN+2*, HDR+2, GATHER+16, GATHER+18
>> FLD	GATHER+8*, GATHER+19
>> FLEN	GATHER+29*, GATHER+31
>> FLN	GATHER+18*, GATHER+19, GATHER+22
>> FLST	GATHER+7*, GATHER+19
HDR	GETITEM+2!, GETITEM+10*, BROWSE+2, BROWSE+3
>> I	GATHER+19*, GATHER+21
L	PAD~, PAD+2
>> LN	GATHER+12, GATHER+32, GATHER+33, GATHER+34
>> LNC	GATHER+15, GATHER+22, GATHER+23
LVL0	GATHER+10!
LVL0(	GATHER+21*, GATHER+26, GATHER+28, GATHER+30
N	SP~, SP+1
>> RECNM	GATHER+11*
>> RECORD	GATHER+27, GATHER+31, GATHER+32
>> RN	GATHER+25, GATHER+26, GATHER+28, GATHER+30
>> SFL	GATHER+15, GATHER+16, GATHER+18, GATHER+21
U	GATHER+18, GATHER+19, GATHER+22, GETITEM+10, GETITEM+11
>> VALMBCK	RESET+2*
>> VALMCNT	INIT+2*
>> VALMHDR(1	HDR+2*
>> VALMLST	GETITEM+3, GETITEM+4
>> VALMSG	HDR+1*
>> VALMY	GETITEM+6
>> VALMY(	GETITEM+9
X	HELP+1, GETITEM+7~, GETITEM+8, GETITEM+9*, GETITEM+10, GETITEM+11
>> XQORNOD(0	GETITEM+5
Y	GETITEM+7~