Routine: BARRCXL

Package	Total	Call Graph
IHS Accounts Receivable	8	^BARDBQUE $$SDT^BARDUTL CHK^BARRHD (ASKAGAIN,MSG)^BARRSEL LOC^BARRSL1 PAZ^BARRUTL INIT^BARUTL $$EN^BARVDF
VA Fileman	1	^DIR

Package

Total

Call Graph

^BARDBQUE $$SDT^BARDUTL CHK^BARRHD (ASKAGAIN,MSG)^BARRSEL LOC^BARRSL1 PAZ^BARRUTL INIT^BARUTL $$EN^BARVDF

^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR MAN RPT CXL BARRSEL

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SETHDR	; ; Set header Array
EN	; EP
PROCEED	; ; Tell user what they selected and ask proceed
RTYPE	; ; Ask Report Type
OBAL	; ; Ask bills w/open balance only
BEGDATE	; EP ; Ask date range

Name	Field # of Occurrence
^BARDBQUE	EN+19
$$SDT^BARDUTL	BEGDATE+12, BEGDATE+22, PROCEED+8
CHK^BARRHD	SETHDR+6, SETHDR+11
ASKAGAIN^BARRSEL	EN+8
MSG^BARRSEL	EN+26
LOC^BARRSL1	EN+27
PAZ^BARRUTL	EN+20
INIT^BARUTL	EN+4
$$EN^BARVDF	BEGDATE+24, BEGDATE+26, PROCEED+9
^DIR	OBAL+7, OBAL+24, BEGDATE+9, BEGDATE+18, RTYPE+6, PROCEED+16

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: OBAL+2
Function Call: WRITE	Prompt: ?51,"ONLY BILLS W/OPEN BALANCE",! Line Location: OBAL+12
Function Call: WRITE	Prompt: ?51,"ALL BILLS" Line Location: OBAL+14
Function Call: WRITE	Prompt: ! Line Location: BEGDATE+2
Function Call: WRITE	Prompt: ?45,$$SDT^BARDUTL(BARY("DT",1)) Line Location: BEGDATE+12
Function Call: WRITE	Prompt: ! Line Location: BEGDATE+14
Function Call: WRITE	Prompt: ?45,$$SDT^BARDUTL(BARY("DT",2)) Line Location: BEGDATE+22
Function Call: WRITE	Prompt: !!,*7,$$EN^BARVDF("RVN") Line Location: BEGDATE+24
Function Call: WRITE	Prompt: "INPUT ERROR:" Line Location: BEGDATE+25
Function Call: WRITE	Prompt: $$EN^BARVDF("RVF") Line Location: BEGDATE+26
Function Call: WRITE	Prompt: " Start Date is Greater than the End Date, TRY AGAIN!" Line Location: BEGDATE+27
Function Call: WRITE	Prompt: !!,$$EN^BARVDF("RVN"),"NOTE:",$$EN^BARVDF("RVF") Line Location: PROCEED+9
Function Call: WRITE	Prompt: ?7,"You have selected to produce a "_BARY("RTYP","NM")_" Cancelled Bills Report" Line Location: PROCEED+10
Function Call: WRITE	Prompt: !?7,BARHDR1 Line Location: PROCEED+11
Function Call: WRITE	Prompt: !?7,BARHDR2,! Line Location: PROCEED+12
Routine Call	DIR Line Location: OBAL+7 OBAL+24 BEGDATE+9 BEGDATE+18 RTYPE+6 PROCEED+16

Name	Field # of Occurrence
BAR	EN+1!
BAR("CONJ"	SETHDR+5*
BAR("HD"	SETHDR+2, SETHDR+9
BAR("LOC"	EN+5*
BAR("LVL"	SETHDR+4, SETHDR+8, SETHDR+9
BAR("PRIVACY"	EN+3*
BAR("TXT"	SETHDR+3, SETHDR+10
>> BARDTYP	BEGDATE+6*, BEGDATE+8, BEGDATE+17
BARHDR1	PROCEED+2!, PROCEED+3*, PROCEED+11
BARHDR2	PROCEED+2!, PROCEED+5, PROCEED+6, PROCEED+7, PROCEED+8, PROCEED+12
>> BAROK	EN+13, PROCEED+17, PROCEED+18
BARP	EN+1!
BARP("RTN"	EN+2*
>> BARQ("NS"	EN+17*
>> BARQ("RC"	EN+15*
>> BARQ("RP"	EN+16*
>> BARQ("RX"	EN+18*
>> BARTYP	OBAL+26*, BEGDATE+5, BEGDATE+6
>> BARUSR	EN+4
BARY	EN+1!
BARY("DT"	EN+32, BEGDATE+3!, BEGDATE+5, BEGDATE+11, BEGDATE+12, BEGDATE+21*, BEGDATE+22, BEGDATE+23, PROCEED+6, PROCEED+8
BARY("LOC"	EN+29, PROCEED+3
BARY("OBAL"	EN+32, OBAL+10*, OBAL+11, PROCEED+4
BARY("RTYP"	RTYPE+2!, RTYPE+9, RTYPE+10, PROCEED+10, SETHDR+3
BARY("STCR"	OBAL+13*
DIR	OBAL+3!, OBAL+8!, OBAL+20!, BEGDATE+4!, BEGDATE+15!, BEGDATE+19!, RTYPE+2!, RTYPE+7!, PROCEED+2!
DIR("A"	OBAL+4, OBAL+22, BEGDATE+8, BEGDATE+17, RTYPE+4, PROCEED+14
DIR("B"	OBAL+5, OBAL+23, RTYPE+5, PROCEED+15
DIR(0	OBAL+6, OBAL+21, BEGDATE+7, BEGDATE+16, RTYPE+3, PROCEED+13
>> DIRUT	BEGDATE+10, BEGDATE+20
>> DTOUT	EN+9, EN+28, EN+31, OBAL+9, OBAL+25, RTYPE+8
>> DUOUT	EN+9, EN+28, EN+31, OBAL+9, OBAL+25, RTYPE+8
>> I	SETHDR+7*, SETHDR+10
>> X	EN+20
>> Y	OBAL+10, OBAL+26, BEGDATE+11, BEGDATE+21, RTYPE+9, PROCEED+17
>> Y(0	RTYPE+10

Information