Routine: BARCLRG

Package	Total	Call Graph
IHS Accounts Receivable	5	^BARBAN EN^BARCBTR $$MDT2^BARDUTL EOP^BARUTL $$EN^BARVDF
VA Fileman	5	^DIC ^DIE EN1^DIP $$GET1^DIQ ^DIR
Kernel	2	HOME^%ZIS ^%ZISC
IHS VA Utilities	1	$$VAL^XBDIQ1

Package

Total

Call Graph

IHS Accounts Receivable

^BARBAN EN^BARCBTR $$MDT2^BARDUTL EOP^BARUTL $$EN^BARVDF

VA Fileman

^DIC ^DIE EN1^DIP $$GET1^DIQ ^DIR

Kernel

HOME^%ZIS ^%ZISC

IHS VA Utilities

$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	5	BAR COL RPT FINAL REPRINT BAR COLLECTION RPT DETAIL BAR COLLECTION RPT EXCEPTIONS BAR COLLECTION RPT FINAL BARCLU

Package

Total

Caller Graph

IHS Accounts Receivable

BAR COL RPT FINAL REPRINT BAR COLLECTION RPT DETAIL BAR COLLECTION RPT EXCEPTIONS BAR COLLECTION RPT FINAL BARCLU

Entry Points

Name	Comments	DBIA/ICR reference
STATUS	;
END
D	;**Detail
F	;**Final
D2	;EP ;IHS/SD/SDR bar1.84 DD item 4.1.5.1 added line tag
REP	;EP - REPRINT FINAL REPORT
START	;**EP-Collections report using FM print
FLEND	;**End of Final Report -- Summary Page and Postable Batch Status
R	;**Reprint Final
LOOKUP	; ; **Collection Register name lookup
EX	;EP - EXCEPTIONS
PRINT	;EP **Print
E	;**Exceptions
DT	;EP - DETAIL REPORT
FL	;EP - FINAL REPORT
DTEND	;

External References

Name	Field # of Occurrence
HOME^%ZIS	PRINT+10
^%ZISC	PRINT+10
^BARBAN	DT+2
EN^BARCBTR	FLEND+25
$$MDT2^BARDUTL	FLEND+7
EOP^BARUTL	DT+8, EX+5, FL+6, REP+6, FLEND+1
$$EN^BARVDF	DT+1, FLEND+2
^DIC	LOOKUP+5
^DIE	FLEND+23, STATUS+12
EN1^DIP	PRINT+9
$$GET1^DIQ	FLEND+10
^DIR	F+18, F+25, STATUS+5
$$VAL^XBDIQ1	FLEND+9, FLEND+13, DTEND+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: DT+1
Function Call: WRITE	Prompt: !! Line Location: DT+3
Function Call: WRITE	Prompt: !!,"The batch total and the items total balance at $",$FN(BARITTOT,",",2)," for TDN ",$P($G(^BARCOL(DUZ(2),BARBATCH,0)),U,28),".",! Line Location: F+19
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: FLEND+2
Function Call: WRITE	Prompt: !!,"DATE:" Line Location: FLEND+3
Function Call: WRITE	Prompt: ?25,"COLLECTIONS REPORT -- FINAL (REPRINT)" Line Location: FLEND+4
Function Call: WRITE	Prompt: ?25,"COLLECTIONS REPORT -- FINAL" Line Location: FLEND+5
Function Call: WRITE	Prompt: ?70,"SUMMARY" Line Location: FLEND+6
Function Call: WRITE	Prompt: !,$$MDT2^BARDUTL(DT) Line Location: FLEND+7
Function Call: WRITE	Prompt: !!!,"Collections listed above for Batch: " Line Location: FLEND+8
Function Call: WRITE	Prompt: $$VAL^XBDIQ1(90051.01,BARBATCH,.01),!,"totaling: " Line Location: FLEND+9
Function Call: WRITE	Prompt: $J($FN($$GET1^DIQ(90051.01,BARBATCH,15),",",2),10) Line Location: FLEND+10
Function Call: WRITE	Prompt: " are transmitted herewith for appropriate action." Line Location: FLEND+11
Function Call: WRITE	Prompt: !!,?50,$P(^VA(200,DUZ,0),U) Line Location: FLEND+12
Function Call: WRITE	Prompt: !,?50,$$VAL^XBDIQ1(200,DUZ,29) Line Location: FLEND+13
Function Call: WRITE	Prompt: !,?50,$P(^DIC(4,DUZ(2),0),U) Line Location: FLEND+14
Function Call: WRITE	Prompt: !!!,"RECEIPT FOR $ ________________ IS HEREBY ACKNOWLEDGED." Line Location: FLEND+15
Function Call: WRITE	Prompt: !!!,?55,"___________________",!,?55,"FINANCIAL MANAGEMENT" Line Location: FLEND+16
Function Call: WRITE	Prompt: !,"This Batch already in Postable Status!" Line Location: DTEND+3
Function Call: WRITE	Prompt: !,"This Batch already in Review Status!" Line Location: DTEND+4
Routine Call	%ZIS Line Location: PRINT+10
Routine Call	DIE Line Location: FLEND+23 STATUS+12
Routine Call	DIC Line Location: LOOKUP+5
Routine Call	DIR Line Location: F+18 F+25 STATUS+5

FileNo	Call Tags
^BARCOL(2906 - [#90051.01]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90051.02	F+12
^BARCOL(	F+7, F+9, F+10, F+11, F+12, F+13, F+14, F+19
^DIC(4 - [#4]	FLEND+14
^VA(200 - [#200]	FLEND+12

Name	Line Occurrences
D	DT+5
DTEND	D2+1
E	EX+2
END	DT+6, EX+3, FL+4, REP+4
F	FL+3
LOOKUP	D+2, F+2, R+2, E+1
PRINT	DT+7, EX+4, FL+5, REP+5
R	REP+3
STATUS	DTEND+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARATDN	F+12*, F+13, F+19
>> BARBATCH	LOOKUP+12*, F+7, F+9, F+10, F+11, F+12, F+13, F+14, F+19, FLEND+9 , FLEND+10, FLEND+19, FLEND+25, DTEND+2, STATUS+9
>> BARBEX	LOOKUP+13*, PRINT+4, PRINT+5, PRINT+6
BAREFLG	DT+6, EX+3, FL+4, REP+4, LOOKUP+2!, LOOKUP+7, LOOKUP+8, LOOKUP+9, LOOKUP+10, D+3 , F+3, F+17, F+27*, F+28, R+3, E+2
>> BARFINS	EX+1*
>> BARITDA	F+6, F+7, F+9, F+10, F+11
>> BARITTOT	F+6, F+11, F+13, F+14, F+19
>> BARREPRT	FL+1, REP+2, F+1, F+21, F+30, FLEND+4, FLEND+17, FLEND+25
>> BARSEL	DT+4, FL+2, REP+1*
>> BARSTAT	DTEND+2*, DTEND+3, DTEND+4, DTEND+5
>> BY	D2+4, F+31, R+5, E+4
>> DA	FLEND+19, STATUS+9
>> DHD	D2+2, F+29, F+30, R+4, E+3*
DIC	LOOKUP+3, LOOKUP+6!, PRINT+2
DIC("S"	D+1, F+1, R+1*
DIC(0	LOOKUP+4*
DIDEL	FLEND+22, FLEND+24!, STATUS+11, STATUS+13!
>> DIE	FLEND+18, STATUS+8
>> DIOEND	D2+5, F+33, R+7*
DIR	F+18!, F+22!, F+26!, STATUS+1!, STATUS+6!
DIR("A"	F+18, F+23, STATUS+3*
DIR("B"	F+24, STATUS+4
DIR(0	F+18, F+22, STATUS+2*
>> DR	FLEND+21, STATUS+10
DT	FLEND+7
DTOUT	LOOKUP+2!, LOOKUP+9
DUOUT	LOOKUP+2!, LOOKUP+8
DUZ	FLEND+12, FLEND+13
DUZ(2	F+7, F+9, F+10, F+11, F+12, F+13, F+14, F+19, FLEND+14
>> FLDS	D2+3, F+32, R+6, E+5
>> FR	PRINT+5, PRINT+7
IOSL	FLEND+2
>> L	PRINT+3*
>> TO	PRINT+6, PRINT+8
U	LOOKUP+13, F+9, F+10, F+11, F+12, F+13, F+14, F+19, FLEND+12, FLEND+14
>> Y	LOOKUP+7, LOOKUP+11, LOOKUP+12, F+27, STATUS+7
>> Y(0	LOOKUP+13

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARCLRG

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: