Routine: BARRATS

Package	Total	Call Graph
IHS Accounts Receivable	7	^BARDBQUE ($$CDT,$$SDT)^BARDUTL (CHK,WHD)^BARRHD MSG^BARRSEL LOC^BARRSL1 PAZ^BARRUTL (EOP,INIT)^BARUTL
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR RPT BILL/TRAN SYNC

Entry Points

Name	Comments	DBIA/ICR reference
SETHDR	; ; Build header array
EN	; EP
COMPUTE	; ; Build temporary data global
BILLDATA	; ; Gather data from A/R Bill file.
RTYP	; ; Ask report type (detail or summary)
HIST	; ; Detail report...print transaction history
PRINT	; ; Print report
HD	; EP
TRDATA	; ; Gather data for A/R Bill from A/R Transaction File via "AC" x-ref ; Find PSR transactions and do math to find balance
PRNTLINE	; ; PRINT DATA LINES
DATA	;
LOOP	;
HDB	; EP ; Page and column header

External References

Name	Field # of Occurrence
^BARDBQUE	EN+19
$$CDT^BARDUTL	PRNTLINE+16
$$SDT^BARDUTL	PRNTLINE+10
CHK^BARRHD	SETHDR+14
WHD^BARRHD	HDB+4
MSG^BARRSEL	EN+8
LOC^BARRSL1	EN+9
PAZ^BARRUTL	EN+20, HD+1
EOP^BARUTL	PRINT+10
INIT^BARUTL	EN+3
$$GET1^DIQ	EN+6, BILLDATA+4, BILLDATA+9, PRNTLINE+8, PRNTLINE+18, HIST+22, HIST+23
^DIR	RTYP+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"* NO DATA TO PRINT *" Line Location: PRINT+9
Function Call: WRITE	Prompt: !!?5,"Visit Location: ",BARVIS,! Line Location: PRINT+15
Function Call: WRITE	Prompt: !," ** Visit Location Total (Bill cnt:" Line Location: PRINT+42
Function Call: WRITE	Prompt: ?37,$J(BARVCNT,4),")" Line Location: PRINT+43
Function Call: WRITE	Prompt: ?43,$J($FN(BARV1,",",2),10) Line Location: PRINT+44
Function Call: WRITE	Prompt: ?56,$J($FN(BARV2,",",2),10) Line Location: PRINT+45
Function Call: WRITE	Prompt: ?69,$J($FN(BARV3,",",2),10) Line Location: PRINT+46
Function Call: WRITE	Prompt: !,"*** REPORT TOTAL (Bill cnt:" Line Location: PRINT+48
Function Call: WRITE	Prompt: ?37,$J(BARRCNT,4),")" Line Location: PRINT+49
Function Call: WRITE	Prompt: ?43,$J($FN(BARR1,",",2),10) Line Location: PRINT+50
Function Call: WRITE	Prompt: ?56,$J($FN(BARR2,",",2),10) Line Location: PRINT+51
Function Call: WRITE	Prompt: ?69,$J($FN(BARR3,",",2),10) Line Location: PRINT+52
Function Call: WRITE	Prompt: !?48,"BILL",?56,"TRANSACTION" Line Location: HDB+5
Function Call: WRITE	Prompt: !,"A/R BILL",?15,"DOS",?27,"A/R ACCOUNT",?46,"BALANCE" Line Location: HDB+6
Function Call: WRITE	Prompt: ?56,"HISTORY BAL",?69,"DIFFERENCE" Line Location: HDB+7
Function Call: WRITE	Prompt: !,BAR("DASH"),! Line Location: HDB+9
Function Call: WRITE	Prompt: !,$E($$GET1^DIQ(90050.01,BARBILL,.01),1,12) Line Location: PRNTLINE+8
Function Call: WRITE	Prompt: ?14,"NO DOS" Line Location: PRNTLINE+9
Function Call: WRITE	Prompt: ?14,$$SDT^BARDUTL(BARDOS) Line Location: PRNTLINE+10
Function Call: WRITE	Prompt: ?26,$E(BARAC,1,15) Line Location: PRNTLINE+11
Function Call: WRITE	Prompt: ?43,$J($FN(BARBAMT,",",2),10) Line Location: PRNTLINE+12
Function Call: WRITE	Prompt: ?56,$J($FN(BARTAMT,",",2),10) Line Location: PRNTLINE+13
Function Call: WRITE	Prompt: ?69,$J($FN(BARDIFF,",",2),10) Line Location: PRNTLINE+14
Function Call: WRITE	Prompt: !,?3,"Appr Dt: "_$$CDT^BARDUTL(BARBAPP)_" ("_(BARBAPP)_")" Line Location: PRNTLINE+16
Function Call: WRITE	Prompt: ?47,"HRN: "_BARHRN Line Location: PRNTLINE+17
Function Call: WRITE	Prompt: ?64,$J($FN(($$GET1^DIQ(90050.01,BARBILL,13)),",",2),10) Line Location: PRNTLINE+18
Function Call: WRITE	Prompt: ?75,"[ ]" Line Location: PRNTLINE+19
Function Call: WRITE	Prompt: !!?6,"TR DATE",?17,"TR TYPE",?33,"A/R ACCOUNT",?50,"TR AMOUNT",?65,"TR BALANCE" Line Location: HIST+3
Function Call: WRITE	Prompt: !?6,"----------",?17,"--------------",?33,"--------------",?50,"----------",?65,"----------" Line Location: HIST+4
Function Call: WRITE	Prompt: !?2,BARTR Line Location: HIST+19
Function Call: WRITE	Prompt: !?6,$$SDT^BARDUTL(BARTR) Line Location: HIST+20
Function Call: WRITE	Prompt: !?2,BARTR Line Location: HIST+21
Function Call: WRITE	Prompt: ?17,$E($$GET1^DIQ(90050.03,BARTR,101),1,14) Line Location: HIST+22
Function Call: WRITE	Prompt: ?33,$E($$GET1^DIQ(90050.03,BARTR,6),1,14) Line Location: HIST+23
Function Call: WRITE	Prompt: ?50,$J($FN(BARTAMT,",",2),10) Line Location: HIST+24
Function Call: WRITE	Prompt: ?65,$J($FN(BARTBAL,",",2),10) Line Location: HIST+25
Function Call: WRITE	Prompt: ! Line Location: HIST+26
Function Call: WRITE	Prompt: "-" Line Location: HIST+26
Function Call: WRITE	Prompt: ! Line Location: HIST+27
Routine Call	DIR Line Location: RTYP+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARTR(2906 - [#90050.03]	GET1^DIQ
^BAR(90052.06,7819,0) - [#90052.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	LOOP+3, DATA+2, DATA+3, BILLDATA+2
^BARTR(	TRDATA+4, TRDATA+5, TRDATA+6, HIST+5, HIST+6, HIST+7
^DIC(4 - [#4]	SETHDR+7, SETHDR+10
^TMP($J	COMPUTE+2!, DATA+10*, PRINT+8, PRINT+12, PRINT+17, PRINT+19, PRINT+21, PRINT+24, PRINT+26, PRINT+27

Label References

Name	Line Occurrences
BILLDATA	DATA+4
DATA	COMPUTE+3, LOOP+3
HD	PRNTLINE+7, HIST+18
HDB	PRINT+7
HIST	PRINT+31
LOOP	COMPUTE+4
PRNTLINE	PRINT+30
RTYP	EN+12
SETHDR	EN+14
TRDATA	DATA+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	HIST+26*
BAR	EN+2!
BAR("CONJ"	SETHDR+13*
BAR("DASH"	HDB+8*, HDB+9
BAR("F1"	PRINT+12, PRINT+17, PRINT+19, PRINT+21, PRINT+24, PRINT+26, HD+2*, PRNTLINE+7, HIST+5, HIST+18
BAR("HD"	SETHDR+3, SETHDR+4, SETHDR+5*
BAR("I"	HDB+3*
BAR("LOC"	EN+6, EN+7, SETHDR+8, COMPUTE+3
BAR("LVL"	SETHDR+2*
BAR("PG"	PRINT+4, HDB+2
BAR("PRIVACY"	EN+5*
BAR("TXT"	SETHDR+6, SETHDR+7, SETHDR+9, SETHDR+10, SETHDR+11, SETHDR+12
BAR(132	HDB+8
>> BARAC	DATA+10, BILLDATA+4, BILLDATA+5, PRINT+16, PRINT+17, PRINT+19, PRINT+21, PRINT+24, PRINT+26, PRINT+27 , PRNTLINE+11
>> BARADCAT	TRDATA+8, TRDATA+14, HIST+9, HIST+14
>> BARBAMT	DATA+7, DATA+8, DATA+10, BILLDATA+3, PRNTLINE+2, PRNTLINE+4, PRNTLINE+12, PRNTLINE+24, PRNTLINE+27
>> BARBAPP	DATA+10, BILLDATA+11, PRINT+23, PRINT+24*, PRINT+26, PRINT+27, PRNTLINE+16
>> BARBILL	DATA+1, DATA+2, DATA+3, DATA+10, BILLDATA+2, BILLDATA+4, TRDATA+4, PRINT+20, PRINT+21, PRINT+24 , PRINT+26, PRINT+27, PRNTLINE+8, PRNTLINE+18, HIST+5
>> BARBL(	BILLDATA+2*
>> BARBL(0	BILLDATA+3, BILLDATA+11
>> BARBL(1	BILLDATA+6, BILLDATA+8, BILLDATA+12
>> BARCDT	TRDATA+9, TRDATA+15, HIST+10, HIST+16
>> BARDASH	PRINT+5*, PRINT+41
>> BARDBT	TRDATA+10, TRDATA+15, HIST+11, HIST+16
>> BARDIF	DATA+8*
>> BARDIFF	PRNTLINE+4*, PRNTLINE+14, PRNTLINE+26, PRNTLINE+29
>> BARDOS	DATA+10, BILLDATA+6, BILLDATA+7, PRINT+18, PRINT+19, PRINT+21, PRINT+24, PRINT+26, PRINT+27, PRNTLINE+9 , PRNTLINE+10
>> BARDUZ	LOOP+1*, LOOP+4
>> BAREQUAL	PRINT+6*, PRINT+47
>> BARHLD	PRINT+28*, PRINT+32
>> BARHRN	DATA+10, BILLDATA+12, BILLDATA+13, PRINT+25, PRINT+26, PRINT+27, PRNTLINE+17
>> BARP("RTN"	EN+4*
>> BARQ("NS"	EN+17*
>> BARQ("RC"	EN+15*
>> BARQ("RP"	EN+16*
>> BARQ("RX"	EN+18*
BARR1	PRINT+2!, PRINT+3, PRINT+50, PRNTLINE+27
BARR2	PRINT+2!, PRINT+3, PRINT+51, PRNTLINE+28
BARR3	PRINT+2!, PRINT+3, PRINT+52, PRNTLINE+29
BARRCNT	PRINT+2!, PRINT+3, PRINT+49, PRNTLINE+23
>> BARTAMT	DATA+7, DATA+8, DATA+10, TRDATA+3, TRDATA+15, PRNTLINE+3, PRNTLINE+4, PRNTLINE+13, PRNTLINE+25, PRNTLINE+28 , HIST+2, HIST+16*, HIST+17, HIST+24
>> BARTBAL	HIST+2, HIST+17, HIST+25
>> BARTMP	PRINT+27*, PRINT+29, PRNTLINE+2, PRNTLINE+3
>> BARTR	TRDATA+3, TRDATA+4, TRDATA+5, TRDATA+6, HIST+2, HIST+5, HIST+6, HIST+7, HIST+21, HIST+22 , HIST+23
>> BARTR(	TRDATA+6, HIST+7
>> BARTR(0	TRDATA+9, TRDATA+10, HIST+10, HIST+11
>> BARTR(1	TRDATA+7, TRDATA+8, HIST+8, HIST+9
>> BARTRTYP	TRDATA+7, TRDATA+14, HIST+8, HIST+14
>> BARUSR	EN+3
BARV1	PRINT+13!, PRINT+14, PRINT+44, PRNTLINE+24
BARV2	PRINT+13!, PRINT+14, PRINT+45, PRNTLINE+25
BARV3	PRINT+13!, PRINT+14, PRINT+46, PRNTLINE+26
BARVCNT	PRINT+13!, PRINT+14, PRINT+43, PRNTLINE+22
>> BARVIS	DATA+5, BILLDATA+8, BILLDATA+9, PRINT+11, PRINT+12*, PRINT+15, PRINT+17, PRINT+19, PRINT+21, PRINT+24 , PRINT+26, PRINT+27
>> BARVISOU	DATA+10, BILLDATA+9, BILLDATA+10
BARY	EN+2!
BARY("LOC"	EN+11, SETHDR+7, DATA+5
BARY("RTYP"	RTYP+2!, RTYP+10, RTYP+11, SETHDR+3, PRINT+31
DIR	RTYP+2!, RTYP+8!
DIR("?"	RTYP+6*
DIR("A"	RTYP+4*
DIR("B"	RTYP+5*
DIR(0	RTYP+3*
>> DIROUT	HD+2
>> DTOUT	EN+10, EN+13, RTYP+9, HD+2
>> DUOUT	EN+10, EN+13, RTYP+9, HD+2
DUZ(2	EN+6, SETHDR+10, LOOP+1, LOOP+2, LOOP+3, LOOP+4, DATA+2, DATA+3, DATA+10, BILLDATA+2 , TRDATA+4, TRDATA+5, TRDATA+6, PRINT+28, PRINT+29, PRINT+32*, HIST+5, HIST+6, HIST+7
>> I	BILLDATA+2, TRDATA+6, HIST+7*
IOSL	PRNTLINE+7, HIST+18
U	SETHDR+7, SETHDR+10, DATA+10, BILLDATA+3, BILLDATA+6, BILLDATA+8, BILLDATA+11, BILLDATA+12, TRDATA+7, TRDATA+8 , TRDATA+9, TRDATA+10, PRINT+29, PRNTLINE+2, PRNTLINE+3, HIST+8, HIST+9, HIST+10, HIST+11
>> Y	RTYP+10
>> Y(0	RTYP+11

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRATS

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: