Routine: BARAST

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
VA Fileman	4	^DIC ^DIE EN^DIQ1 ^DIR
IHS Accounts Receivable	3	$$CDT^BARDUTL ($$BAL,EOP)^BARUTL $$EN^BARVDF

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR PAS PAT ACCT HEADER

Entry Points

Name	Comments	DBIA/ICR reference
RPR	; EP ; re-print one statement
HDR	;STATEMENT HEADER
OFL	;set one
FLAG	;EP - flag accounts for statements
DEV	; ; ask for printer device
ONE	; ; ONE ACCOUNT
TPRT	;LIST ONE TRANSACTION
FTR	; ; STATEMENT FOOTER
KILL	; ; clean up
FDT	;file date in statement sub-file
ALTR	;EP - add the statement header text
LOOP	;EP ; loop though ac x-ref

External References

Name	Field # of Occurrence
^%ZIS	DEV+4, DEV+14
^%ZISC	KILL+3
^%ZTLOAD	DEV+9
$$CDT^BARDUTL	HDR+17
$$BAL^BARUTL	ONE+10
EOP^BARUTL	FLAG+34
$$EN^BARVDF	HDR+3, ALTR+7
^DIC	RPR+6, RPR+12, FDT+5, ALTR+4, FLAG+12, FLAG+25, OFL+6
^DIE	ALTR+14, OFL+11
EN^DIQ1	ONE+8, TPRT+5
^DIR	FLAG+5
$$FMADD^XLFDT	LOOP+2, LOOP+3, RPR+17, FLAG+15, FLAG+29
$$FMTE^XLFDT	HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BARAST+2
Function Call: WRITE	Prompt: ! Line Location: RPR+2
Function Call: WRITE	Prompt: !,$P(BART(90050.03,DA,.01),"@",1) Line Location: TPRT+8
Function Call: WRITE	Prompt: ?15,$P(BART(90050.03,DA,4),"-",1,2) Line Location: TPRT+9
Function Call: WRITE	Prompt: ?27,$E(BART(90050.03,DA,101),1,30) Line Location: TPRT+10
Function Call: WRITE	Prompt: ?65,$J($FN(BART(90050.03,DA,3.5),"P,",2),12) Line Location: TPRT+12
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: HDR+3
Function Call: WRITE	Prompt: !!,$$FMTE^XLFDT(DT),?20,"S T A T E M E N T O F A C C O U N T",?70,"Page: ",BARPG Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"FOR ACCOUNT: ",BARC(90050.02,BARAC,.01) Line Location: HDR+9
Function Call: WRITE	Prompt: !,?13 Line Location: HDR+13
Function Call: WRITE	Prompt: ", " Line Location: HDR+14
Function Call: WRITE	Prompt: " " Line Location: HDR+15
Function Call: WRITE	Prompt: !!,"Statement Covers Period From: ",$$CDT^BARDUTL(BARLDT)," To: ",$$CDT^BARDUTL(BAREDT) Line Location: HDR+17
Function Call: WRITE	Prompt: !!,?40,"BEGINNING BALANCE: ",?65,$J($FN(BARSBAL,",P",2),12) Line Location: HDR+18
Function Call: WRITE	Prompt: !!,BARDASH Line Location: HDR+19
Function Call: WRITE	Prompt: !,?26,"T R A N S A C T I O N S " Line Location: HDR+20
Function Call: WRITE	Prompt: !,"Trans Date",?15,"Bill#",?27,"Description",?70,"Amount",! Line Location: HDR+21
Function Call: WRITE	Prompt: !!,?18,"TOTAL:" Line Location: FTR+2
Function Call: WRITE	Prompt: ?65,$J($FN(BARTOT,",P",2),12) Line Location: FTR+3
Function Call: WRITE	Prompt: !,BARDASH Line Location: FTR+4
Function Call: WRITE	Prompt: !!,?46,"BALANCE DUE: ",?65,$J($FN(BAREBAL,",P",2),12) Line Location: FTR+5
Function Call: WRITE	Prompt: !! Line Location: FTR+6
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: ALTR+7
Function Call: WRITE	Prompt: !!,"You may enter text that will appear at the top of the account" Line Location: ALTR+8
Function Call: WRITE	Prompt: !,"statements. Typically this will be facility name and address," Line Location: ALTR+9
Function Call: WRITE	Prompt: !,"business office phone number, point of contact, and special" Line Location: ALTR+10
Function Call: WRITE	Prompt: !,"messages. The statements will print up to 10 lines of text.",! Line Location: ALTR+11
Function Call: WRITE	Prompt: ! Line Location: FLAG+33
Routine Call	DIE Line Location: ALTR+14 OFL+11
Routine Call	DIC Line Location: RPR+6 RPR+12 FDT+5 ALTR+4 FLAG+12 FLAG+25 OFL+6
Routine Call	DIR Line Location: FLAG+5
Routine Call	%ZIS Line Location: DEV+4 DEV+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARTBL - [#90052.02]	Classic Fileman Calls
^BAR(90052.03 - [#90052.03]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.03 - [#90052.03]	BARAST+3, HDR+6, HDR+8
^BARAC(	BARAST+4, LOOP+5, LOOP+7, ONE+9, FDT+8!, FLAG+31, OFL+1, OFL+2*
^BARTR(	ONE+15, ONE+19

Label References

Name	Line Occurrences
ALTR	BARAST+3
DEV	RPR+22
FDT	LOOP+9
FTR	ONE+25
HDR	ONE+13, ONE+18
KILL	RPR+25
OFL	FLAG+17, FLAG+31
ONE	LOOP+8, RPR+24
TPRT	ONE+23

Naked Globals

Name	Field # of Occurrence
^(0	HDR+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+2*
>> %ZIS("A"	DEV+3*
BARAC	LOOP+6, LOOP+7, KILL+2!, RPR+9, ONE+5, ONE+9, ONE+10, ONE+15, FDT+1, FDT+8 , HDR+9, HDR+12, HDR+16, FLAG+14, FLAG+30, FLAG+31, FLAG+35!, OFL+1, OFL+2, OFL+3
BARANS	FLAG+7*, FLAG+8, FLAG+19, FLAG+35!
BARBDT	LOOP+3, LOOP+5, FLAG+15, FLAG+29*, FLAG+35!, OFL+5
BARC	KILL+2!, ONE+2!
BARC(	HDR+9, HDR+12, HDR+16
BARCNT	FLAG+16, FLAG+18, FLAG+30, FLAG+32, FLAG+35!, OFL+12*
>> BARDASH	HDR+1*, HDR+19, FTR+4
>> BARDAY	ONE+20*, ONE+21, ONE+22
>> BAREBAL	ONE+11, ONE+24, FTR+5
BAREDT	LOOP+2, KILL+2!, RPR+17, ONE+9, ONE+22, HDR+17
BARFL1	DEV+15, KILL+2!, RPR+18*
BARLDT	LOOP+4, LOOP+5, LOOP+7, KILL+2!, ONE+9*, ONE+10, ONE+21, FDT+8, HDR+17
>> BARPG	ONE+12, HDR+4, HDR+5
>> BARSBAL	ONE+10*, ONE+11, ONE+24, HDR+18
>> BART(	TPRT+6*, TPRT+7, TPRT+8, TPRT+9, TPRT+10, TPRT+11, TPRT+12
>> BARTDT	ONE+19*, ONE+20
>> BARTOT	ONE+14, ONE+24, TPRT+7, FTR+3
BARTYP	FLAG+28*, FLAG+31, FLAG+35!
DA	RPR+15, ONE+5, ONE+14, ONE+15, ONE+19, FDT+7, TPRT+6, TPRT+7, TPRT+8, TPRT+9 , TPRT+10, TPRT+11, TPRT+12, HDR+2~, HDR+6, HDR+7, HDR+8, ALTR+6, OFL+8
DA(1	RPR+8, FDT+1, OFL+3*
DIC	RPR+3!, RPR+4, RPR+10, RPR+13!, ONE+4, FDT+3, TPRT+2, ALTR+1, FLAG+9!, FLAG+10* , FLAG+20, FLAG+26!, OFL+4, OFL+9
DIC("A"	FLAG+23*
DIC("B"	FLAG+24*
DIC("S"	RPR+11, FLAG+22
DIC(0	RPR+5, FDT+4, ALTR+2, FLAG+11, FLAG+21, OFL+5
>> DIE	ALTR+12, OFL+9
DIQ	ONE+3!, ONE+6, TPRT+1!, TPRT+3
DIR	FLAG+1!, FLAG+6!
DIR("A"	FLAG+2*
DIR("B"	FLAG+3*
DIR(0	FLAG+4*
>> DR	ONE+7, TPRT+4, ALTR+13, OFL+10
DT	LOOP+2, LOOP+3, FDT+2, HDR+5, FLAG+15, FLAG+29
DUZ(2	BARAST+4, LOOP+5, LOOP+7, ONE+9, ONE+15, ONE+19, FDT+8, FLAG+31, OFL+1, OFL+2
I	RPR+19~, RPR+20, HDR+7, HDR+8, HDR+10~, HDR+11*, HDR+12, HDR+13, HDR+14, HDR+15 , HDR+16
IO	DEV+6
IO("S"	DEV+12, KILL+3
IO(0	DEV+6
ION	DEV+13
>> IOP	DEV+13*
IOSL	ONE+16, FLAG+33
>> POP	DEV+5
>> X	FDT+2, ALTR+3, OFL+5*
>> Y	RPR+7, RPR+8, RPR+9, RPR+14, RPR+15, RPR+17, FDT+6, FDT+7, ALTR+5, ALTR+6 , FLAG+7, FLAG+8, FLAG+13, FLAG+14, FLAG+27, FLAG+28, OFL+7, OFL+8
>> ZTDESC	DEV+7*
>> ZTRTN	BARAST+7, RPR+16
>> ZTSAVE(	RPR+20*
ZTSK	DEV+8!, DEV+10, DEV+11, RPR+21!, RPR+23

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARAST

Information

Source Information

Call Graph

Call Graph Total: 11

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

Naked Globals

Local Variables

Legend: