Routine: BARRTAR2

Package	Total	Call Graph
IHS Accounts Receivable	3	WHD^BARRHD PAZ^BARRUTL EOP^BARUTL

Package	Total	Caller Graph
IHS Accounts Receivable	2	BARRTAR BARRTAR3

Entry Points

Name	Comments	DBIA/ICR reference
SUB4	; ; Totals by Sort type
SUB5	; ; totals by A/R Account
SUB2	; ; Totals by Collection Batch
SUB	; ; Totals by Visit location.
DETAIL	; EP ; Print Detail
TOT	; ; Report (a/r clerk) totals
SUBHD	; ; If A/R clerk specified
HDB	; EP ; Page and column header
HD	; EP
SUB3	; ; Totals by Collection Batch Item

External References

Name	Field # of Occurrence
WHD^BARRHD	HDB+4
PAZ^BARRUTL	HD+1
EOP^BARUTL	DETAIL+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!!?25,"* NO DATA TO PRINT *" Line Location: DETAIL+24
Function Call: WRITE	Prompt: !,BARDASH Line Location: DETAIL+49
Function Call: WRITE	Prompt: ! Line Location: DETAIL+51
Function Call: WRITE	Prompt: !?10,"Visit Location.......: ",$P(BAR("TXT"),U,2) Line Location: DETAIL+52
Function Call: WRITE	Prompt: !,BARDASH Line Location: DETAIL+59
Function Call: WRITE	Prompt: ! Line Location: DETAIL+61
Function Call: WRITE	Prompt: !?10,"Collection Batch.....: " Line Location: DETAIL+62
Function Call: WRITE	Prompt: $P(^BARCOL($P(BAR("TXT"),U,8),$P(BAR("TXT"),U,3),0),U) Line Location: DETAIL+63
Function Call: WRITE	Prompt: $P($G(^BARCOL($P(BAR("TXT"),U,8),$P(BAR("TXT"),U,3),0)),U) Line Location: DETAIL+65
Function Call: WRITE	Prompt: $P(BAR("TXT"),U,3) Line Location: DETAIL+66
Function Call: WRITE	Prompt: !,BARDASH Line Location: DETAIL+73
Function Call: WRITE	Prompt: ! Line Location: DETAIL+75
Function Call: WRITE	Prompt: !?10,"Collection Batch Item: " Line Location: DETAIL+76
Function Call: WRITE	Prompt: $P(^BARCOL($P(BAR("TXT"),U,8),BAR("B"),1,$P(BAR("TXT"),U,4),0),U) Line Location: DETAIL+77
Function Call: WRITE	Prompt: $P(^BARCOL($P(BAR("TXT"),U,8),BAR("B"),1,$P(BAR("TXT"),U,4),0),U) Line Location: DETAIL+79
Function Call: WRITE	Prompt: $P(BAR("TXT"),U,4) Line Location: DETAIL+80
Function Call: WRITE	Prompt: !,BARDASH Line Location: DETAIL+87
Function Call: WRITE	Prompt: ! Line Location: DETAIL+89
Function Call: WRITE	Prompt: !?10,"Clinic Type..........: " Line Location: DETAIL+91
Function Call: WRITE	Prompt: "NO CLINIC" Line Location: DETAIL+92
Function Call: WRITE	Prompt: $P(^DIC(40.7,$P(BAR("TXT"),U,5),0),U) Line Location: DETAIL+93
Function Call: WRITE	Prompt: !?10,"Visit Type...........: " Line Location: DETAIL+95
Function Call: WRITE	Prompt: "NO VISIT TYPE" Line Location: DETAIL+96
Function Call: WRITE	Prompt: $P($G(^ABMDVTYP($P(BAR("TXT"),U,5),0)),U) Line Location: DETAIL+97
Function Call: WRITE	Prompt: !,BARDASH Line Location: DETAIL+104
Function Call: WRITE	Prompt: ! Line Location: DETAIL+106
Function Call: WRITE	Prompt: !?10,"A/R Account..........: ",$P(BAR("TXT"),U,6),! Line Location: DETAIL+107
Function Call: WRITE	Prompt: !,$E(BAR(1),1,14) Line Location: DETAIL+109
Function Call: WRITE	Prompt: ?15,$J($FN(BAR(2),",",2),10) Line Location: DETAIL+110
Function Call: WRITE	Prompt: ?26,$J($FN(BAR(3),",",2),10) Line Location: DETAIL+111
Function Call: WRITE	Prompt: ?37,$J($FN(BAR(4),",",2),10) Line Location: DETAIL+112
Function Call: WRITE	Prompt: ?48,$J($FN(BAR(5),",",2),10) Line Location: DETAIL+113
Function Call: WRITE	Prompt: ?59,$J($FN(BAR(6),",",2),10) Line Location: DETAIL+114
Function Call: WRITE	Prompt: ?70,$J($FN(BAR(7),",",2),10) Line Location: DETAIL+115
Function Call: WRITE	Prompt: !,BARDASH Line Location: DETAIL+124
Function Call: WRITE	Prompt: !,BAR("DASH") Line Location: HDB+7
Function Call: WRITE	Prompt: !!,"A/R Entry Clerk: ",$P(^VA(200,$P(BAR("TXT"),U),0),U) Line Location: SUBHD+4
Function Call: WRITE	Prompt: !,"Location Tot:" Line Location: SUB+3
Function Call: WRITE	Prompt: ?15,$J($FN(BAR("PATOT1"),",",2),10) Line Location: SUB+4
Function Call: WRITE	Prompt: ?26,$J($FN(BAR("PCTOT1"),",",2),10) Line Location: SUB+5
Function Call: WRITE	Prompt: ?37,$J($FN(BAR("RTOT1"),",",2),10) Line Location: SUB+6
Function Call: WRITE	Prompt: ?48,$J($FN(BAR("PTOT1"),",",2),10) Line Location: SUB+7
Function Call: WRITE	Prompt: ?59,$J($FN(BAR("BTOT1"),",",2),10) Line Location: SUB+8
Function Call: WRITE	Prompt: ?70,$J($FN(BAR("ATOT1"),",",2),10) Line Location: SUB+9
Function Call: WRITE	Prompt: !," Batch Tot:" Line Location: SUB2+3
Function Call: WRITE	Prompt: ?15,$J($FN(BAR("PATOT2"),",",2),10) Line Location: SUB2+4
Function Call: WRITE	Prompt: ?26,$J($FN(BAR("PCTOT2"),",",2),10) Line Location: SUB2+5
Function Call: WRITE	Prompt: ?37,$J($FN(BAR("RTOT2"),",",2),10) Line Location: SUB2+6
Function Call: WRITE	Prompt: ?48,$J($FN(BAR("PTOT2"),",",2),10) Line Location: SUB2+7
Function Call: WRITE	Prompt: ?59,$J($FN(BAR("BTOT2"),",",2),10) Line Location: SUB2+8
Function Call: WRITE	Prompt: ?70,$J($FN(BAR("ATOT2"),",",2),10) Line Location: SUB2+9
Function Call: WRITE	Prompt: !," Item Tot:" Line Location: SUB3+3
Function Call: WRITE	Prompt: ?15,$J($FN(BAR("PATOT3"),",",2),10) Line Location: SUB3+4
Function Call: WRITE	Prompt: ?26,$J($FN(BAR("PCTOT3"),",",2),10) Line Location: SUB3+5
Function Call: WRITE	Prompt: ?37,$J($FN(BAR("RTOT3"),",",2),10) Line Location: SUB3+6
Function Call: WRITE	Prompt: ?48,$J($FN(BAR("PTOT3"),",",2),10) Line Location: SUB3+7
Function Call: WRITE	Prompt: ?59,$J($FN(BAR("BTOT3"),",",2),10) Line Location: SUB3+8
Function Call: WRITE	Prompt: ?70,$J($FN(BAR("ATOT3"),",",2),10) Line Location: SUB3+9
Function Call: WRITE	Prompt: !," Clinic Tot:" Line Location: SUB4+3
Function Call: WRITE	Prompt: !," Visit Tot" Line Location: SUB4+4
Function Call: WRITE	Prompt: ?15,$J($FN(BAR("PATOT4"),",",2),10) Line Location: SUB4+5
Function Call: WRITE	Prompt: ?26,$J($FN(BAR("PCTOT4"),",",2),10) Line Location: SUB4+6
Function Call: WRITE	Prompt: ?37,$J($FN(BAR("RTOT4"),",",2),10) Line Location: SUB4+7
Function Call: WRITE	Prompt: ?48,$J($FN(BAR("PTOT4"),",",2),10) Line Location: SUB4+8
Function Call: WRITE	Prompt: ?59,$J($FN(BAR("BTOT4"),",",2),10) Line Location: SUB4+9
Function Call: WRITE	Prompt: ?70,$J($FN(BAR("ATOT4"),",",2),10) Line Location: SUB4+10
Function Call: WRITE	Prompt: !,"A/R Acct Tot:" Line Location: SUB5+3
Function Call: WRITE	Prompt: ?15,$J($FN(BAR("PATOT5"),",",2),10) Line Location: SUB5+4
Function Call: WRITE	Prompt: ?26,$J($FN(BAR("PCTOT5"),",",2),10) Line Location: SUB5+5
Function Call: WRITE	Prompt: ?37,$J($FN(BAR("RTOT5"),",",2),10) Line Location: SUB5+6
Function Call: WRITE	Prompt: ?48,$J($FN(BAR("PTOT5"),",",2),10) Line Location: SUB5+7
Function Call: WRITE	Prompt: ?59,$J($FN(BAR("BTOT5"),",",2),10) Line Location: SUB5+8
Function Call: WRITE	Prompt: ?70,$J($FN(BAR("ATOT5"),",",2),10) Line Location: SUB5+9
Function Call: WRITE	Prompt: !,BAREQUAL Line Location: TOT+3
Function Call: WRITE	Prompt: !,"REPORT TOTAL" Line Location: TOT+4
Function Call: WRITE	Prompt: ?15,$J($FN(BAR("PATOT0"),",",2),10) Line Location: TOT+5
Function Call: WRITE	Prompt: ?26,$J($FN(BAR("PCTOT0"),",",2),10) Line Location: TOT+6
Function Call: WRITE	Prompt: ?37,$J($FN(BAR("RTOT0"),",",2),10) Line Location: TOT+7
Function Call: WRITE	Prompt: ?48,$J($FN(BAR("PTOT0"),",",2),10) Line Location: TOT+8
Function Call: WRITE	Prompt: ?59,$J($FN(BAR("BTOT0"),",",2),10) Line Location: TOT+9
Function Call: WRITE	Prompt: ?70,$J($FN(BAR("ATOT0"),",",2),10) Line Location: TOT+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDVTYP - [#9002274.8]	DETAIL+97
^BARCOL(	DETAIL+64, DETAIL+65, DETAIL+78, DETAIL+79
^DIC(40.7 - [#40.7]	DETAIL+93
^VA(200 - [#200]	SUBHD+4

Label References

Name	Line Occurrences
HD	DETAIL+28
HDB	DETAIL+4
SUB	DETAIL+50, DETAIL+125
SUB2	DETAIL+50, DETAIL+60, DETAIL+125
SUB3	DETAIL+50, DETAIL+60, DETAIL+74, DETAIL+125
SUB4	DETAIL+50, DETAIL+60, DETAIL+74, DETAIL+88, DETAIL+125
SUB5	DETAIL+50, DETAIL+60, DETAIL+74, DETAIL+88, DETAIL+105, DETAIL+125
SUBHD	DETAIL+28, DETAIL+43
TOT	DETAIL+125

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR	DETAIL+22, DETAIL+23, DETAIL+27, DETAIL+29, DETAIL+30, DETAIL+33
>> BAR(	DETAIL+122
>> BAR("ACCT"	DETAIL+20, DETAIL+53, DETAIL+67, DETAIL+81, DETAIL+98, DETAIL+101, DETAIL+102, DETAIL+108
>> BAR("AR"	DETAIL+15, DETAIL+41, DETAIL+44
>> BAR("ATOT0"	TOT+10, TOT+11*
>> BAR("ATOT1"	SUB+9, SUB+10*
>> BAR("ATOT2"	SUB2+9, SUB2+10*
>> BAR("ATOT3"	SUB3+9, SUB3+10*
>> BAR("ATOT4"	SUB4+10, SUB4+11*
>> BAR("ATOT5"	SUB5+9, SUB5+10*
>> BAR("B"	DETAIL+17, DETAIL+53, DETAIL+56, DETAIL+57, DETAIL+68*, DETAIL+78, DETAIL+79
>> BAR("BTOT0"	TOT+2, TOT+9, TOT+11*
>> BAR("BTOT1"	SUB+2, SUB+8, SUB+10*
>> BAR("BTOT2"	SUB2+2, SUB2+8, SUB2+10*
>> BAR("BTOT3"	SUB3+2, SUB3+8, SUB3+10*
>> BAR("BTOT4"	SUB4+2, SUB4+9, SUB4+11*
>> BAR("BTOT5"	SUB5+2, SUB5+8, SUB5+10*
>> BAR("COL"	DETAIL+2*, HDB+5
>> BAR("DASH"	HDB+6*, HDB+7
>> BAR("F1"	DETAIL+27, DETAIL+28, DETAIL+48, DETAIL+58, DETAIL+72, DETAIL+86, DETAIL+103, DETAIL+123, HD+2*
>> BAR("HD"	DETAIL+3*
>> BAR("I"	HDB+3*
>> BAR("IT"	DETAIL+18, DETAIL+53, DETAIL+67, DETAIL+70, DETAIL+71, DETAIL+82
>> BAR("L"	DETAIL+16, DETAIL+42, DETAIL+46, DETAIL+47, DETAIL+54*
>> BAR("NODE"	DETAIL+33*, DETAIL+34, DETAIL+35, DETAIL+36, DETAIL+37, DETAIL+38, DETAIL+39, DETAIL+40
>> BAR("PATOT0"	TOT+5, TOT+11*
>> BAR("PATOT1"	SUB+4, SUB+10*
>> BAR("PATOT2"	SUB2+4, SUB2+10*
>> BAR("PATOT3"	SUB3+4, SUB3+10*
>> BAR("PATOT4"	SUB4+5, SUB4+11*
>> BAR("PATOT5"	SUB5+4, SUB5+10*
>> BAR("PCTOT0"	TOT+6, TOT+11*
>> BAR("PCTOT1"	SUB+5, SUB+10*
>> BAR("PCTOT2"	SUB2+5, SUB2+10*
>> BAR("PCTOT3"	SUB3+5, SUB3+10*
>> BAR("PCTOT4"	SUB4+6, SUB4+11*
>> BAR("PCTOT5"	SUB5+5, SUB5+10*
>> BAR("PG"	HDB+2*
>> BAR("PTOT0"	TOT+8, TOT+11*
>> BAR("PTOT1"	SUB+7, SUB+10*
>> BAR("PTOT2"	SUB2+7, SUB2+10*
>> BAR("PTOT3"	SUB3+7, SUB3+10*
>> BAR("PTOT4"	SUB4+8, SUB4+11*
>> BAR("PTOT5"	SUB5+7, SUB5+10*
>> BAR("RTOT0"	TOT+7, TOT+11*
>> BAR("RTOT1"	SUB+6, SUB+10*
>> BAR("RTOT2"	SUB2+6, SUB2+10*
>> BAR("RTOT3"	SUB3+6, SUB3+10*
>> BAR("RTOT4"	SUB4+7, SUB4+11*
>> BAR("RTOT5"	SUB5+6, SUB5+10*
>> BAR("SORT"	DETAIL+19, DETAIL+53, DETAIL+67, DETAIL+81, DETAIL+84, DETAIL+85, DETAIL+99*
>> BAR("TXT"	DETAIL+29, DETAIL+30, DETAIL+31, DETAIL+32*, DETAIL+41, DETAIL+44, DETAIL+46, DETAIL+52, DETAIL+54, DETAIL+56 , DETAIL+64, DETAIL+65, DETAIL+66, DETAIL+68, DETAIL+70, DETAIL+78, DETAIL+79, DETAIL+80, DETAIL+82, DETAIL+84 , DETAIL+92, DETAIL+93, DETAIL+96, DETAIL+97, DETAIL+99, DETAIL+101, DETAIL+107, DETAIL+108, SUBHD+3, SUBHD+4
>> BAR("TXTO"	DETAIL+31*, DETAIL+32
>> BAR("Z"	DETAIL+21*, DETAIL+22, DETAIL+27
>> BAR(1	DETAIL+34*, DETAIL+109
>> BAR(132	HDB+6
>> BAR(2	DETAIL+35*, DETAIL+110
>> BAR(3	DETAIL+36*, DETAIL+111
>> BAR(4	DETAIL+37*, DETAIL+112
>> BAR(5	DETAIL+38*, DETAIL+113
>> BAR(6	DETAIL+39*, DETAIL+114
>> BAR(7	DETAIL+40*, DETAIL+115
>> BARDASH	DETAIL+13*, DETAIL+49, DETAIL+59, DETAIL+73, DETAIL+87, DETAIL+104, DETAIL+124
>> BAREQUAL	DETAIL+14*, TOT+3
>> BARV	DETAIL+9, DETAIL+10, DETAIL+120, DETAIL+121
>> BARV2	DETAIL+10, DETAIL+11, DETAIL+121, DETAIL+122
>> BARY("AR"	DETAIL+41, SUBHD+2
>> BARY("SORT"	DETAIL+90, SUB4+3
>> DIROUT	HD+2
>> DTOUT	HD+2
>> DUOUT	HD+2
I	DETAIL+5, DETAIL+9, DETAIL+12!, DETAIL+116, DETAIL+120
IOSL	DETAIL+28
U	DETAIL+30, DETAIL+32, DETAIL+34, DETAIL+35, DETAIL+36, DETAIL+37, DETAIL+38, DETAIL+39, DETAIL+40, DETAIL+41 , DETAIL+44, DETAIL+46, DETAIL+52, DETAIL+54, DETAIL+56, DETAIL+64, DETAIL+65, DETAIL+66, DETAIL+68, DETAIL+70 , DETAIL+78, DETAIL+79, DETAIL+80, DETAIL+82, DETAIL+84, DETAIL+92, DETAIL+93, DETAIL+96, DETAIL+97, DETAIL+99 , DETAIL+101, DETAIL+107, DETAIL+108, SUBHD+3, SUBHD+4
X	DETAIL+7, DETAIL+9, DETAIL+12!, DETAIL+118, DETAIL+120
Y	DETAIL+6, DETAIL+8, DETAIL+12!, DETAIL+117, DETAIL+119, DETAIL+122

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRTAR2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: