Routine: BARTRANS

Package	Total	Call Graph
IHS Accounts Receivable	10	^BARDBQUE $$DATE^BARDUTL (ALLOW,CHK,DT,ITYP)^BARRHD MSG^BARRSEL (ALL,ITYP,LOC)^BARRSL1 ARACCT^BARRSL2 ADJTYPE^BARRSL3 PAZ^BARRUTL INIT^BARUTL ^BARVKL0
VA Fileman	1	^DIR

Package

Total

Call Graph

^BARDBQUE $$DATE^BARDUTL (ALLOW,CHK,DT,ITYP)^BARRHD MSG^BARRSEL (ALL,ITYP,LOC)^BARRSL1 ARACCT^BARRSL2 ADJTYPE^BARRSL3 PAZ^BARRUTL
INIT^BARUTL ^BARVKL0

^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR RPT ADJ REF

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SORT	;
SETHDR	; ; Build header array
DATES	; ; Ask beginning and ending Transaction Dates.
EN	; EP
RTYP	; ; Ask report type
EN1
XIT	;
ASK	; EP

Name	Field # of Occurrence
^BARDBQUE	EN1+5
$$DATE^BARDUTL	DATES+5, DATES+8
ALLOW^BARRHD	SETHDR+8
CHK^BARRHD	SETHDR+8, SETHDR+9, SETHDR+15, SETHDR+21, SETHDR+33
DT^BARRHD	SETHDR+22
ITYP^BARRHD	SETHDR+9
MSG^BARRSEL	ASK+3
ALL^BARRSL1	ASK+14
ITYP^BARRSL1	ASK+19
LOC^BARRSL1	ASK+4
ARACCT^BARRSL2	ASK+11
ADJTYPE^BARRSL3	EN+9
PAZ^BARRUTL	EN1+6
INIT^BARUTL	EN+3
^BARVKL0	XIT+1
^DIR	EN+21, SORT+7, RTYP+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Note: Some bills may contain more than one adjustment transaction on the report." Line Location: EN+17
Function Call: WRITE	Prompt: ! Line Location: ASK+10
Function Call: WRITE	Prompt: ! Line Location: ASK+13
Function Call: WRITE	Prompt: ! Line Location: ASK+18
Function Call: WRITE	Prompt: !!," ============ Entry of 3P APPROVAL DATE Range =============",! Line Location: DATES+3
Function Call: WRITE	Prompt: ! Line Location: DATES+10
Routine Call	DIR Line Location: EN+21 SORT+7 RTYP+8

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SETHDR+26, SETHDR+29

Name	Field # of Occurrence
%DT	DATES+4!, DATES+6!, DATES+9!
BAR	EN+1!
BAR("CONJ"	SETHDR+14, SETHDR+20, SETHDR+32*
BAR("HD"	SETHDR+6, SETHDR+7, SETHDR+12, SETHDR+18, SETHDR+24*
BAR("LOC"	EN+6*, SETHDR+27
BAR("LVL"	SETHDR+5, SETHDR+11, SETHDR+12, SETHDR+17, SETHDR+18, SETHDR+23, SETHDR+24
BAR("OPT"	EN+2, SETHDR+2
BAR("PRIVACY"	EN+5*
BAR("TXT"	SETHDR+13, SETHDR+19, SETHDR+25, SETHDR+26, SETHDR+28, SETHDR+29, SETHDR+30, SETHDR+31
>> BARA("LOC"	ASK+1*
>> BARA("SORT"	ASK+2, ASK+7, SORT+9, SORT+11*
>> BARDET	EN+23*
>> BAREND	DATES+8*, DATES+10, DATES+11, DATES+15
>> BARP("RTN"	EN+4*
>> BARQ("NS"	EN1+3*
>> BARQ("RC"	EN1+1*
>> BARQ("RP"	EN1+2*
>> BARQ("RX"	EN1+4*
>> BARSTART	EN+11, DATES+5*, DATES+7, DATES+11, DATES+14
>> BARUSR	EN+3
BARY	EN+1!
BARY("ALL"	ASK+16
BARY("DT"	DATES+14, DATES+15, SETHDR+4*
BARY("ITYP"	ASK+21
BARY("LOC"	ASK+6, SETHDR+26
BARY("RTYP"	EN+16, RTYP+11, RTYP+12, SETHDR+10, SETHDR+16
BARY("STCR"	ASK+8, ASK+9, ASK+12, ASK+17, SORT+1!, SORT+12, SORT+13, SETHDR+7, SETHDR+8, SETHDR+9
DIR	EN+22!, SORT+1!, SORT+8!, RTYP+9!
DIR("?"	SORT+6, RTYP+6, RTYP+7*
DIR("A"	EN+18, SORT+5, RTYP+4*
DIR("B"	EN+19, RTYP+5
DIR(0	EN+20, SORT+2, SORT+3, SORT+4, RTYP+2, RTYP+3
>> DIROUT	EN+8
>> DTOUT	EN+8, ASK+5, ASK+15, ASK+20, SORT+9
>> DUOUT	EN+8, ASK+5, ASK+15, ASK+20, SORT+9
DUZ(2	SETHDR+29
U	SETHDR+26, SETHDR+29
>> Y	EN+14, EN+23, SORT+10, SORT+12, RTYP+10, RTYP+11
>> Y(0	SORT+13, RTYP+12

Information