Routine: BARRPRP2

Package	Total	Call Graph
IHS Accounts Receivable	3	$$SDT^BARDUTL (HD,HDB)^BARRPSRB PAZ^BARRUTL
VA Fileman	1	DD^%DT

Entry Points

Name	Comments	DBIA/ICR reference
SETHDR	; ; Build header array
LOC	; ; For each visit location do (clinic/visit type)
BATCHDET	; ; Write batch detail lines
PRTDET	; ; Print Detail Report
PRTCV	; ; Print Report sorted by Clinic/Visit Type
DETAIL	; ; Detail line
GETOTCV	; ; Get clinic/visit subtotal
GETOT	; ; Get visit location subtotal
PRINT	;
LOCTOT	;
TOTAL	;
LOCCV	; ; For each visit location do (clinic/visit type)
SORTCV	; ; For each clinic/visit type do...
PRTBATCH	; ; Print batch listing at end of report

External References

Name	Field # of Occurrence
DD^%DT	DETAIL+4
$$SDT^BARDUTL	SETHDR+17, SETHDR+19
HD^BARRPSRB	DETAIL+2
HDB^BARRPSRB	PRINT+3, PRTCV+2, PRTDET+2, PRTBATCH+9
PAZ^BARRUTL	PRTBATCH+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!!?25,"* NO DATA TO PRINT *" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"VISIT LOCATION: ",BARVIS Line Location: LOCCV+3
Function Call: WRITE	Prompt: ! Line Location: SORTCV+11
Function Call: WRITE	Prompt: ?18,$J($P(BARCVTOT,U),4) Line Location: SORTCV+15
Function Call: WRITE	Prompt: ?24,$J($FN($P(BARCVTOT,U,2),",",2),15) Line Location: SORTCV+16
Function Call: WRITE	Prompt: ?41,$J($FN($P(BARCVTOT,U,3),",",2),15) Line Location: SORTCV+17
Function Call: WRITE	Prompt: ! Line Location: SORTCV+18
Function Call: WRITE	Prompt: !?2,Y Line Location: DETAIL+5
Function Call: WRITE	Prompt: ?18,$J($P(BARHOLD,U),4) Line Location: DETAIL+6
Function Call: WRITE	Prompt: ?24,$J($FN($P(BARHOLD,U,2),",",2),15) Line Location: DETAIL+7
Function Call: WRITE	Prompt: ?41,$J($FN($P(BARHOLD,U,3),",",2),15) Line Location: DETAIL+8
Function Call: WRITE	Prompt: ! Line Location: LOCTOT+1
Function Call: WRITE	Prompt: !?2,"VISIT LOC TOTAL" Line Location: LOCTOT+3
Function Call: WRITE	Prompt: ?18,$J($P(BARLTOT,U),4) Line Location: LOCTOT+4
Function Call: WRITE	Prompt: ?24,$J($FN($P(BARLTOT,U,2),",",2),15) Line Location: LOCTOT+5
Function Call: WRITE	Prompt: ?41,$J($FN($P(BARLTOT,U,3),",",2),15) Line Location: LOCTOT+6
Function Call: WRITE	Prompt: !?5,"REPORT TOTAL" Line Location: TOTAL+2
Function Call: WRITE	Prompt: ?18,$J($P(BARTOT,U),4) Line Location: TOTAL+3
Function Call: WRITE	Prompt: ?24,$J($FN($P(BARTOT,U,2),",",2),15) Line Location: TOTAL+4
Function Call: WRITE	Prompt: ?41,$J($FN($P(BARTOT,U,3),",",2),15) Line Location: TOTAL+5
Function Call: WRITE	Prompt: !,"VISIT LOCATION: ",BARVIS,! Line Location: LOC+3
Function Call: WRITE	Prompt: !?20,"TOTALS" Line Location: PRTBATCH+13
Function Call: WRITE	Prompt: ?31,$J($FN($P(BARBTOT,U),",",2),15) Line Location: PRTBATCH+14
Function Call: WRITE	Prompt: ?47,$J($FN($P(BARBTOT,U,2),",",2),15) Line Location: PRTBATCH+15
Function Call: WRITE	Prompt: ?63,$J($FN($P(BARBTOT,U,3),",",2),15) Line Location: PRTBATCH+16
Function Call: WRITE	Prompt: !,$E(BARBNAME,1,30) Line Location: BATCHDET+3
Function Call: WRITE	Prompt: ?31,$J($FN($P(BARHOLD,U),",",2),15) Line Location: BATCHDET+4
Function Call: WRITE	Prompt: ?47,$J($FN($P(BARHOLD,U,2),",",2),15) Line Location: BATCHDET+5
Function Call: WRITE	Prompt: ?63,$J($FN($P(BARHOLD,U,3),",",2),15) Line Location: BATCHDET+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	PRINT+2, PRINT+9!, PRTCV+4, LOCCV+5, SORTCV+6, SORTCV+7, PRTDET+4, LOC+5, LOC+6

Label References

Name	Line Occurrences
BATCHDET	PRTBATCH+11
DETAIL	SORTCV+8, LOC+7
GETOT	SORTCV+10, LOC+8
GETOTCV	SORTCV+9
LOC	PRTDET+4
LOCCV	PRTCV+4
LOCTOT	LOCCV+6, LOC+9
PRTBATCH	PRINT+8
PRTCV	PRINT+5
PRTDET	PRINT+6
SETHDR	PRINT+1
SORTCV	LOCCV+5
TOTAL	PRTCV+5, PRTDET+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR("COL"	SETHDR+24, PRTBATCH+8
>> BAR("F1"	PRINT+7, PRTCV+4, LOCCV+5, SORTCV+6, DETAIL+2, PRTDET+4, LOC+5, PRTBATCH+3, PRTBATCH+11
>> BAR("HD"	SETHDR+6, SETHDR+10, SETHDR+13, SETHDR+16, SETHDR+17, SETHDR+18, SETHDR+19, SETHDR+22, PRTBATCH+6, PRTBATCH+7*
>> BAR("LVL"	SETHDR+5, SETHDR+9, SETHDR+10, SETHDR+12, SETHDR+13, SETHDR+15, SETHDR+16, SETHDR+17, SETHDR+18, SETHDR+19 , SETHDR+21*, SETHDR+22
>> BAR("OPT"	SETHDR+3*
>> BAR("PG"	SETHDR+2*
>> BARASK	PRINT+5, PRINT+6, LOCTOT+1
>> BARB(	PRTBATCH+11, BATCHDET+2
>> BARBNAME	PRTBATCH+10, PRTBATCH+11, BATCHDET+2, BATCHDET+3
>> BARBTOT	SETHDR+22, PRTBATCH+14, PRTBATCH+15, PRTBATCH+16
BARCVTOT	SORTCV+2!, SORTCV+15, SORTCV+16, SORTCV+17, GETOTCV+2, GETOTCV+3, GETOTCV+4*
>> BARDASH	SETHDR+25*, SORTCV+12, LOCTOT+2
>> BARDOS	SORTCV+5, SORTCV+6, SORTCV+7, DETAIL+3, LOC+4, LOC+5, LOC+6
>> BAREND	SETHDR+19
>> BAREQUAL	SETHDR+26, TOTAL+1, PRTBATCH+4, PRTBATCH+12
>> BARHOLD	SORTCV+7, DETAIL+6, DETAIL+7, DETAIL+8, GETOTCV+2, GETOTCV+3, GETOTCV+4, GETOT+2, GETOT+3, GETOT+4 , GETOT+6, GETOT+7, GETOT+8, LOC+6, BATCHDET+2*, BATCHDET+4, BATCHDET+5, BATCHDET+6
BARLTOT	LOCCV+2!, GETOT+2, GETOT+3, GETOT+4*, LOCTOT+4, LOCTOT+5, LOCTOT+6, LOC+2!
>> BARLVL	PRTBATCH+6*, PRTBATCH+7
>> BARS	LOCCV+4, LOCCV+5, SORTCV+3, SORTCV+4, SORTCV+6, SORTCV+7
>> BARSTART	SETHDR+17
BARTOT	SETHDR+27!, GETOT+6, GETOT+7, GETOT+8*, TOTAL+3, TOTAL+4, TOTAL+5
>> BARVIS	PRTCV+3, PRTCV+4, LOCCV+3, LOCCV+5, SORTCV+6, SORTCV+7, PRTDET+3, PRTDET+4, LOC+3, LOC+5 , LOC+6
>> BARY("COLPT"	SETHDR+11, SETHDR+13
>> BARY("DT"	SETHDR+4*
>> BARY("ITYP"	SETHDR+8, SETHDR+10
>> BARY("SORT"	SORTCV+3, SORTCV+4, SORTCV+13, SORTCV+14
>> BATHDR	PRTBATCH+5*, PRTBATCH+7
IOSL	DETAIL+2
U	SETHDR+22, SORTCV+15, SORTCV+16, SORTCV+17, DETAIL+6, DETAIL+7, DETAIL+8, GETOTCV+2, GETOTCV+3, GETOTCV+4 , GETOT+2, GETOT+3, GETOT+4, GETOT+6, GETOT+7, GETOT+8, LOCTOT+4, LOCTOT+5, LOCTOT+6, TOTAL+3 , TOTAL+4, TOTAL+5, PRTBATCH+14, PRTBATCH+15, PRTBATCH+16, BATCHDET+4, BATCHDET+5, BATCHDET+6
>> Y	DETAIL+3*, DETAIL+5

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRPRP2

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: