Routine: BARRPRP2

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

BARRPRP2 ; IHS/SD/LSL - Payment Summary Report by Collection Batch ;08/20/2008

Source Information

Source file <BARRPRP2.m>

Call Graph

Call Graph Total: 4

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

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

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

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

Call Graph Total: 4