Routine: BARBL

Information

BARBL ; IHS/SD/LSL - AGE DAY LETTER AND LIST ; 07/30/2008

Source Information

Source file <BARBL.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
IHS Accounts Receivable	3	($$MDT2,$$SDT)^BARDUTL EOP^BARUTL $$EN^BARVDF
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	1	($$DIC,ENP)^XBDIQ1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR AGE DAY LETTER & LIST

Entry Points

Name	Comments	DBIA/ICR reference
CNT
BARPG	;EP PAGE CONTROLLER ; this utility uses variables BARPG("HDR"),BARPG("DT"),BARPG("LINE"),BARPG("PG") ; kill variables by D EBARPG
BARHDR	;EP ; write page header
BARHD	;EP ; Write column header / message
ONEAC	;ONE A/R ACCOUNT
AGE	; * ; * dequeing compute point
LIST	;** list bills
SELACC	; ; ** select accounts to print
SUMMARY	;
EBARPG	;
EOP	;end of page
QUE	;QUE
PG	;
LETTER	; ; ** print letter
PRINT	;
EXIT	;clean up and quit
FMDT(X)	; ; cvt fmdt to mm/dd/yyyy

External References

Name	Field # of Occurrence
^%ZIS	BARBL+34, BARBL+39
HOME^%ZIS	BARBL+36
^%ZISC	AGE+11
^%ZTLOAD	QUE+6
$$MDT2^BARDUTL	LETTER+8
$$SDT^BARDUTL	FMDT+2, BARHDR+9
EOP^BARUTL	EOP+3
$$EN^BARVDF	LETTER+2, BARHDR+2, EXIT+3
^DIC	SELACC+7
$$GET1^DIQ	AGE+3, LETTER+16, LIST+10, SUMMARY+5
^DIR	BARBL+12, BARBL+21, BARBL+29, SELACC+17
$$DIC^XBDIQ1	SELACC+4
ENP^XBDIQ1	ONEAC+5, PRINT+8, LETTER+3, LETTER+19, LIST+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the minimum age (in days) of bills to be itemized." Line Location: BARBL+9
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: LETTER+2
Function Call: WRITE	Prompt: !,BARLT(100,BARL) Line Location: LETTER+6
Function Call: WRITE	Prompt: !,"DATE:",?10,$$MDT2^BARDUTL(DT) Line Location: LETTER+8
Function Call: WRITE	Prompt: !!,"TO:",?10,$G(BARA(.01)) Line Location: LETTER+10
Function Call: WRITE	Prompt: !,?10,$G(BARA(1.01)) Line Location: LETTER+13
Function Call: WRITE	Prompt: !,?10,BARA(DR) Line Location: LETTER+14
Function Call: WRITE	Prompt: !!,"FROM: ",$G(BARUSR(29))," address for payments" Line Location: LETTER+20
Function Call: WRITE	Prompt: !,?5,BARF(.14) Line Location: LETTER+21
Function Call: WRITE	Prompt: !,?5,BARF(.15) Line Location: LETTER+22
Function Call: WRITE	Prompt: !,?5,BARF(.16) Line Location: LETTER+23
Function Call: WRITE	Prompt: !,?5,BARF(.17) Line Location: LETTER+24
Function Call: WRITE	Prompt: !,BARLT(100,BARL) Line Location: CNT+0
Function Call: WRITE	Prompt: !,"Regarding Past due bills over ",BARAGE," days totaling $ ",$FN(BARTOT,",",2) Line Location: CNT+2
Function Call: WRITE	Prompt: !,BARLT(100,BARL) Line Location: CNT+4
Function Call: WRITE	Prompt: !,BARLT(100,BARL) Line Location: CNT+5
Function Call: WRITE	Prompt: ?39,BARTMP2 Line Location: LIST+20
Function Call: WRITE	Prompt: "_" Line Location: LIST+25
Function Call: WRITE	Prompt: !!,"TOTAL: ",?67,$J("$"_$FN(BARTOT,",",2),12) Line Location: LIST+31
Function Call: WRITE	Prompt: !!,"TOTAL ALL ACCOUNTS:",?50,$J($FN(BARTOT,",",2),12),!! Line Location: SUMMARY+10
Function Call: WRITE	Prompt: !!,?15,"E N D O F R E P O R T",!! Line Location: SUMMARY+11
Function Call: WRITE	Prompt: !,"Select individual A/R accounts or hit RETURN for ALL accounts." Line Location: SELACC+3
Function Call: WRITE	Prompt: ! Line Location: SELACC+10
Function Call: WRITE	Prompt: !,BARSAC(DA) Line Location: SELACC+11
Function Call: WRITE	Prompt: ! Line Location: SELACC+12
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: BARHDR+2
Function Call: WRITE	Prompt: ! Line Location: BARHDR+3
Function Call: WRITE	Prompt: ?(IOM-40-$L(BARPG("HDR"))/2),BARPG("HDR") Line Location: BARHDR+8
Function Call: WRITE	Prompt: ?(IOM-24),$$SDT^BARDUTL(DT) Line Location: BARHDR+9
Function Call: WRITE	Prompt: ?(IOM-10),"PAGE: ",BARPG("PG") Line Location: BARHDR+10
Function Call: WRITE	Prompt: !,BARPG("LINE") Line Location: BARHDR+11
Function Call: WRITE	Prompt: ! Line Location: BARHD+2
Function Call: WRITE	Prompt: "Policy Holder",?25,"Policy #",?39,"Claim #",?49,"DOS",?58,$J("Amt Bld",10),?69,$J("Balance",10) Line Location: BARHD+4
Function Call: WRITE	Prompt: !,"PT. SS #",?49,"DOB" Line Location: BARHD+5
Function Call: WRITE	Prompt: !,BARDASH,! Line Location: BARHD+6
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: EXIT+3
Function Call: WRITE	Prompt: ! Line Location: EOP+2
Routine Call	%ZIS Line Location: BARBL+36
Routine Call	DIC Line Location: SELACC+7
Routine Call	DIR Line Location: BARBL+12 BARBL+21 BARBL+29 SELACC+17
Routine Call	%ZIS Line Location: BARBL+34 BARBL+39

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^ABMDPARM(1 - [#9002274.5]	GET1^DIQ
^BARAC(2906 - [#90050.02]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	AGE+6, ONEAC+2, ONEAC+3, ONEAC+8, ONEAC+10, ONEAC+11, LIST+9
^DPT - [#2]	LIST+11
^TMP("BAR"	AGE+2!, ONEAC+14, ONEAC+15, PRINT+6, LIST+5, LIST+6, SUMMARY+4

Label References

Name	Line Occurrences
$$FMDT	LIST+16
BARHDR	LIST+4, SUMMARY+2
CNT	LETTER+17
EOP	CNT+6, LIST+29, LIST+32, SUMMARY+7, SUMMARY+12
EXIT	BARBL+36, AGE+12
LETTER	PRINT+9
LIST	PRINT+11
ONEAC	AGE+6, AGE+9
PG	LIST+30, SUMMARY+8
PRINT	AGE+10
QUE	BARBL+36
SELACC	BARBL+16, SELACC+20
SUMMARY	PRINT+2

Name	Field # of Occurrence
^(	PRINT+6, SUMMARY+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	BARBL+32*
>> %ZIS("A"	BARBL+33*
BARA	PRINT+7!, EXIT+1!
BARA(	LETTER+10, LETTER+13, LETTER+14, LIST+3
BARAC	SUMMARY+3, SUMMARY+4, SUMMARY+5, EXIT+1!
BARACDA	AGE+5, AGE+6, AGE+8, AGE+9, ONEAC+2, ONEAC+14, ONEAC+15, PRINT+5, PRINT+6, PRINT+8 , LIST+5, LIST+6, EXIT+1!
BARAGE	BARBL+15*, ONEAC+6, CNT+2, LIST+3, SUMMARY+1, EXIT+1!
BARB	LIST+7!, EXIT+1!
BARB(	LIST+14
BARB(101	LIST+19
BARB(102	LIST+16
BARB(13	LIST+17
BARB(15	LIST+18
BARB(701	LIST+12
BARB(702	LIST+13
>> BARBLDA	LIST+2, LIST+6, LIST+8, LIST+9
BARBLDS	EXIT+1!
BARCNT	SUMMARY+3*, EXIT+2!
>> BARDASH	BARHDR+6*, BARHD+6
>> BARDOB	LIST+10*, LIST+21
BARF	LETTER+18!, LETTER+25!
BARF(	LETTER+21, LETTER+22, LETTER+23, LETTER+24
BARFDA	LETTER+16*, LETTER+17, LETTER+19, EXIT+2!
BARJOB	EXIT+2!
BARL	LETTER+4, LETTER+6, CNT, CNT+4, CNT+5*, EXIT+2!
BARLT	EXIT+2!
BARLT(100	LETTER+6, CNT, CNT+4, CNT+5
BARPG	EXIT+1!
BARPG("DT"	EBARPG+1!
BARPG("HDR"	LIST+3, SUMMARY+1, BARHDR+4, BARHDR+8, BARHD+3, EBARPG+1!
BARPG("LINE"	BARHDR+5*, BARHDR+11, EBARPG+1!
BARPG("PG"	BARPG+4, BARHDR+7, BARHDR+10, EBARPG+1!
>> BARPIEN	LIST+9*, LIST+10, LIST+11
BARQUIT	BARBL+17, PRINT+3, PRINT+6, PRINT+10, LIST+6, SUMMARY+4, SUMMARY+9, EXIT+2!, EOP+4*
BARSAC	AGE+4, AGE+7, SELACC+2!, SELACC+8, SELACC+19!, EXIT+1!
BARSAC(	AGE+9, SELACC+7*, SELACC+11
BARSBY	BARBL+24, BARBL+31, ONEAC+12, EXIT+1!
BARSSN	LIST+1~, LIST+11*, LIST+22
>> BARSUM	BARBL+23*, BARBL+25, PRINT+4
BARSVAL	ONEAC+8, ONEAC+9, ONEAC+10, ONEAC+11, ONEAC+12, ONEAC+13, ONEAC+14, LIST+2, LIST+5*, LIST+6 , EXIT+2!
BARSVC	AGE+3*, ONEAC+7, EXIT+2!
BART	ONEAC+4!, EXIT+2!
BART(	ONEAC+6
BART(10	ONEAC+7
BART(15	ONEAC+14, ONEAC+15
BARTMP1	LIST+1~, LIST+14*, LIST+15
BARTMP2	LIST+1~, LIST+14*, LIST+20
BARTOT	PRINT+6, CNT+2, LIST+31, SUMMARY+3, SUMMARY+4*, SUMMARY+10, EXIT+2!
>> BARUSR(29	LETTER+20
>> DA	ONEAC+1, ONEAC+2, ONEAC+3, ONEAC+5, ONEAC+8, ONEAC+10, ONEAC+11, ONEAC+14, SELACC+9, SELACC+11
DIC	SELACC+4*, EXIT+1!
DIC("S"	SELACC+6*
DIC(0	SELACC+5*
DIR	BARBL+10!, BARBL+13!, BARBL+22!, BARBL+30!, SELACC+13!
DIR("A"	BARBL+18, BARBL+27, SELACC+16*
DIR("B"	BARBL+19, BARBL+28, SELACC+15*
DIR(0	BARBL+11, BARBL+20, BARBL+26, SELACC+14
>> DIROUT	LIST+6
>> DR	LETTER+11, LETTER+14
>> DROUT	LIST+6
DT	LETTER+8, BARHDR+9
>> DTOUT	LIST+6
>> DUOUT	LIST+6
DUZ	AGE+3
DUZ(2	AGE+6, ONEAC+2, ONEAC+3, ONEAC+8, ONEAC+10, ONEAC+11, LIST+9
I	QUE+1~, QUE+2*
IO	BARBL+36, EOP+1
IO("S"	BARBL+37, AGE+11, EOP+1
IO(0	BARBL+36, EOP+1
IOM	LIST+25, BARHDR+5, BARHDR+6, BARHDR+8, BARHDR+9, BARHDR+10
ION	BARBL+38
>> IOP	BARBL+38*
IOSL	LIST+28, SUMMARY+6, EOP+2
>> POP	BARBL+35
U	LIST+9, LIST+11
X	SUMMARY+4, SUMMARY+5, FMDT~, FMDT+2, FMDT+3
>> Y	BARBL+14, BARBL+15, BARBL+23, BARBL+31, SELACC+7, SELACC+18, EOP+4
>> Y(0	SELACC+7
>> ZTDESC	QUE+4*
>> ZTQUEUED	EOP+1
>> ZTRTN	QUE+3*
>> ZTSAVE(	QUE+2*
ZTSK	QUE+5!, QUE+7

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARBL

Information

Source Information

Call Graph

Call Graph Total: 10

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: