Routine: BARRAMR

Call Graph

Package	Total	Call Graph
IHS Accounts Receivable	8	^BARDBQUE DETAIL^BARRAMR2 SUMM^BARRAMR3 BILL^BARRCHK ^BARRHD ^BARRSEL (LOOP,PAZ)^BARRUTL INIT^BARUTL
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR DETAIL REPORT BAR RPT BILLS LISTING RPT

Name	Comments	DBIA/ICR reference
PRINT	; EP ; Print
DATA	; EP ; Called by BARRUTL if no parameters
EN	; EP
COMPUTE	;
FOOTER	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!?16,"*** R E P O R T C O M P L E T E ***" Line Location: FOOTER+3

FileNo	Call Tags
^BAR(90052.06,7819,0) - [#90052.06]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	COMPUTE+8
^TMP($J	COMPUTE+3!, DATA+16*

Name	Line Occurrences
FOOTER	PRINT+3, PRINT+4, PRINT+11

Name	Field # of Occurrence
BAR	EN+1!, DATA+16, PRINT+8
BAR("ACCT"	DATA+10, DATA+11, DATA+16, DATA+18, DATA+19, DATA+20
BAR("BAL"	DATA+5*, DATA+7, DATA+20
BAR("C"	DATA+9
BAR("F1"	PRINT+7, FOOTER+1
BAR("HD"	EN+9, EN+10
BAR("I"	DATA+10
BAR("L"	DATA+13, DATA+14, DATA+16, DATA+18, DATA+19, DATA+20
BAR("LOC"	EN+5, EN+6, COMPUTE+5
BAR("OPT"	DATA+7
BAR("P"	DATA+8
BAR("PAT"	DATA+8*, DATA+16
BAR("PG"	PRINT+2*
BAR("PRIVACY"	EN+3*
BAR("SORT"	DATA+9*, DATA+16, DATA+18, DATA+19, DATA+20
BAR("ST"	DATA+18, DATA+19, DATA+20*, FOOTER+2
BAR("SUBR"	COMPUTE+2*
BAR("V"	DATA+9
BAR(0	DATA+5, DATA+19
>> BARDUZ2	COMPUTE+6*, COMPUTE+9
>> BARMENU	EN+9, EN+10
>> BARP("HIT"	DATA+2*, DATA+4
>> BARP("RTN"	EN+2, COMPUTE+4
>> BARQ("NS"	EN+14*
>> BARQ("RC"	EN+12*
>> BARQ("RP"	EN+13*
>> BARQ("RX"	EN+15*
>> BARUSR	EN+4
BARY	EN+1!
BARY("RTYP"	EN+9, PRINT+3, PRINT+4, PRINT+5
BARY("SORT"	DATA+9
>> DIROUT	EN+8
>> DTOUT	EN+8
>> DUOUT	EN+8
DUZ(2	EN+5, COMPUTE+6, COMPUTE+7, COMPUTE+8, COMPUTE+9*
U	DATA+5, DATA+16, DATA+18, DATA+19, DATA+20