Routine: BARRPPS

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC ($$GET1,GETS)^DIQ ^DIR
IHS Accounts Receivable	3	PAZ^BARRUTL EOP^BARUTL $$EN^BARVDF
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR COL PT PYMT SUM

Entry Points

Name	Comments	DBIA/ICR reference
ACCTS	;EP ; Select A/R Accounts to sort by
EN	;EP
GATHER	;EP
WRTBILL	;EP
COMMENTS	;EP
SUMMARY	; ; Print report if user selected SORT CRITERIA Billing Entity or ; Allowance Category and Report Type w/o payers
CENTER(X)	;EP
CLEANUP	;CLEAN VARIABLES
QUE	;EP
HDB	; EP
PRINT	; EP
DT	;EP
SEL	;Select device
WRTCOMM	;EP
HD	; EP
CALC	;EP

External References

Name	Field # of Occurrence
NOW^%DTC	HDB+9
^%ZIS	SEL+3, SEL+5
HOME^%ZIS	SEL+4
^%ZISC	QUE+5
^%ZTLOAD	QUE+4
PAZ^BARRUTL	HD+1
EOP^BARUTL	SUMMARY+8, SUMMARY+26
$$EN^BARVDF	HDB+4
^DIC	ACCTS+10
$$GET1^DIQ	GATHER+9, GATHER+13, CALC+13, SUMMARY+25, WRTBILL+3, WRTBILL+4, HDB+16, HDB+17
GETS^DIQ	WRTCOMM+4
^DIR	SEL+4, DT+5, DT+12, COMMENTS+6
^XBFMK	ACCTS+3, DT+1, COMMENTS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"REPORT CANCELLED!" Line Location: QUE+6
Function Call: WRITE	Prompt: !!?5,"REQUEST QUEUED AS TASK # "_ZTSK_" !",! Line Location: QUE+7
Function Call: WRITE	Prompt: !!,"At least one A/R account is required. Enter '^' to exit",! Line Location: ACCTS+14
Function Call: WRITE	Prompt: !!," ============ Entry of A/R Collection Batch Range =============",! Line Location: DT+2
Function Call: WRITE	Prompt: ! Line Location: DT+9
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than the End Date, TRY AGAIN!",!! Line Location: DT+17
Function Call: WRITE	Prompt: ! Line Location: COMMENTS+2
Function Call: WRITE	Prompt: !,?47,"__________",?68,"__________" Line Location: SUMMARY+23
Function Call: WRITE	Prompt: !,?45,$J($FN(+$P($G(^TMP($J,"BAR-PPS","TOT")),U),",",2),12),?66,$J($FN(+$P($G(^TMP($J,"BAR-PPS","TOT")),U,2),",",2),12),! Line Location: SUMMARY+24
Function Call: WRITE	Prompt: !!,"REPORT COMPLETE FOR "_$$GET1^DIQ(90050.02,BARACCTI,".01","E") Line Location: SUMMARY+25
Function Call: WRITE	Prompt: ! Line Location: WRTCOMM+1
Function Call: WRITE	Prompt: ?2,"Comment: " Line Location: WRTCOMM+6
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),! Line Location: HDB+4
Function Call: WRITE	Prompt: ! Line Location: HDB+6
Function Call: WRITE	Prompt: ! Line Location: HDB+8
Function Call: WRITE	Prompt: $P(Y,":",1,2),?72,"Page ",BAR("PG") Line Location: HDB+12
Function Call: WRITE	Prompt: !,BAR("DASH"),! Line Location: HDB+14
Function Call: WRITE	Prompt: ?3,"Patient Name: ",$$GET1^DIQ(90050.02,BARACCTI,".01","E") Line Location: HDB+16
Function Call: WRITE	Prompt: ?50,"HRN: ",$P($G(^AUPNPAT($P($$GET1^DIQ(90050.02,BARACCTI,".01","I"),";"),41,DUZ(2),0)),U,2),!! Line Location: HDB+17
Function Call: WRITE	Prompt: "Total Amount Batched: ",$J($FN(+$P($G(^TMP($J,"BAR-PPS","TOT")),U),",",2),12) Line Location: HDB+18
Function Call: WRITE	Prompt: ?50,"Num of Pymts Posted: ",+$P($G(^TMP($J,"BAR-PPS","TOT")),U,4),! Line Location: HDB+19
Function Call: WRITE	Prompt: ?7,"Amount Posted: ",$J($FN(+$P($G(^TMP($J,"BAR-PPS","TOT")),U,2),",",2),12),! Line Location: HDB+20
Function Call: WRITE	Prompt: ?8,"To Be Posted: ",$J($FN(+$P($G(^TMP($J,"BAR-PPS","TOT")),U,3),",",2),12),! Line Location: HDB+21
Function Call: WRITE	Prompt: BAR("DASH"),! Line Location: HDB+22
Function Call: WRITE	Prompt: ?50,"Batched",?60,"Bill",?72,"Posted",! Line Location: HDB+23
Function Call: WRITE	Prompt: "Collection Batch",?25,"Item",?30,"Receipt#",?42,"Type",?51,"Amount",?60,"Number",?72,"Amount",! Line Location: HDB+24
Function Call: WRITE	Prompt: BAR("DASH"),! Line Location: HDB+25
Function Call: WRITE	Prompt: ?CENTER-($L(X)/2),X Line Location: CENTER+3
Routine Call	%ZIS Line Location: SEL+4
Routine Call	DIC Line Location: ACCTS+10
Routine Call	DIR Line Location: SEL+4 DT+5 DT+12 COMMENTS+6
Routine Call	%ZIS Line Location: SEL+3 SEL+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARAC(2906 - [#90050.02]	GET1^DIQ
^BARTR(2906 - [#90050.03]	GET1^DIQ
^BARPPAY(2906 - [#90050.06]	GET1^DIQ
90051.1101	GETS^DIQ
^BARTBL - [#90052.02]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HDB+17
^BARCOL(	GATHER+3, GATHER+5, GATHER+7, GATHER+8, GATHER+9, GATHER+11, GATHER+12, GATHER+13, SUMMARY+16
^BARTR(	CALC+12, WRTBILL+2, WRTBILL+3
^DD("DD"	HDB+11
^DIC(4 - [#4]	HDB+7
^TMP($J	EN+1!, PRINT+4!, GATHER+14, CALC+1, CALC+4, CALC+6, CALC+8, CALC+9, CALC+13, CALC+15 , CALC+16*, SUMMARY+6, SUMMARY+10, SUMMARY+12, SUMMARY+14, SUMMARY+18, SUMMARY+19, SUMMARY+20, SUMMARY+24, HDB+18 , HDB+19, HDB+20, HDB+21

Label References

Name	Line Occurrences
ACCTS	EN+2, ACCTS+14
CALC	PRINT+7
CENTER	HDB+5, HDB+7
CLEANUP	EN+5
COMMENTS	EN+4
DT	EN+3, DT+7, DT+15, DT+17
GATHER	PRINT+6
HD	SUMMARY+15
HDB	SUMMARY+5
PRINT	SEL+6
QUE	SEL+4
SUMMARY	PRINT+8
WRTBILL	SUMMARY+21
WRTCOMM	SUMMARY+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDB+10
>> %ZIS	SEL+1*
>> %ZIS("A"	SEL+2*
>> BAR("DASH"	HDB+13*, HDB+14, HDB+22, HDB+25
>> BAR("F1"	HD+2*
>> BAR("I"	HDB+3*
>> BAR("PG"	PRINT+5, SUMMARY+4, HDB+2*, HDB+12
>> BAR(132	HDB+13, CENTER+2
>> BARACCTI	PRINT+2, PRINT+3, GATHER+8, SUMMARY+25, HDB+16, HDB+17
>> BARCCRDT	GATHER+11*, GATHER+14
>> BARCDBT	GATHER+12*, GATHER+14
>> BARCLIEN	SUMMARY+11, SUMMARY+12, SUMMARY+14, SUMMARY+16, SUMMARY+18, SUMMARY+19, SUMMARY+20, WRTBILL+2, WRTCOMM+3
>> BARCNT	WRTCOMM+7, WRTCOMM+8, WRTCOMM+9
>> BARCOL	GATHER+4, GATHER+5, GATHER+7, GATHER+8, GATHER+9, GATHER+11, GATHER+12, GATHER+13, GATHER+14, CALC+5* , CALC+6*, CALC+8, CALC+9, CALC+12
BARCOM	WRTCOMM+2!
BARCOM(	WRTCOMM+5, WRTCOMM+8, WRTCOMM+9
>> BAREDT	GATHER+2*, GATHER+3
BAREND	EN+1!, EN+3, EN+4, EN+5, ACCTS+11, ACCTS+14, DT+6, DT+14, COMMENTS+7, CLEANUP+1!
>> BARHASTR	WRTBILL+1, WRTBILL+5, WRTCOMM+1
>> BARITEM	GATHER+6, GATHER+7, GATHER+8, GATHER+9, GATHER+11, GATHER+12, GATHER+13, GATHER+14, CALC+7, CALC+8 , CALC+9, CALC+12, SUMMARY+13, SUMMARY+14, SUMMARY+17, SUMMARY+18, SUMMARY+19, SUMMARY+20, WRTBILL+2, WRTCOMM+3
>> BARPCNT	CALC+2, CALC+14, CALC+16
>> BARPTYP	GATHER+9*, GATHER+10, GATHER+14
>> BARRCPT	GATHER+13*, GATHER+14
>> BARSDT	GATHER+1, GATHER+3, GATHER+5, GATHER+14, CALC+3, CALC+4, CALC+6, CALC+8, CALC+9, SUMMARY+9* , SUMMARY+10*, SUMMARY+12, SUMMARY+14, SUMMARY+18, SUMMARY+19, SUMMARY+20
>> BARTRANS	CALC+11, CALC+12, CALC+13, WRTBILL+1, WRTBILL+2, WRTBILL+3, WRTBILL+4
>> BARY("ACCT"	ACCTS+2!, ACCTS+9, ACCTS+13*, ACCTS+14, PRINT+3
>> BARY("COMM"	COMMENTS+8*, SUMMARY+22
>> BARY("DT"	DT+8, DT+16, DT+17, GATHER+1, GATHER+2
>> CENTER	CENTER+2*, CENTER+3
DIC	ACCTS+4*, ACCTS+14!, ACCTS+15!, CLEANUP+1!
DIC("A"	ACCTS+7, ACCTS+9
DIC("S"	ACCTS+6*
DIC(0	ACCTS+5*
DIR	SEL+4!, DT+13!, COMMENTS+9!, CLEANUP+1!
DIR("A"	DT+3, DT+10, COMMENTS+3*
DIR("B"	COMMENTS+4*
DIR(0	SEL+4, DT+4, DT+11, COMMENTS+5
>> DIROUT	ACCTS+11, DT+6, DT+14, COMMENTS+7, SUMMARY+10, SUMMARY+12, SUMMARY+14, SUMMARY+15, HD+2
>> DIRUT	DT+7, DT+15
>> DTOUT	ACCTS+11, DT+6, DT+14, COMMENTS+7, SUMMARY+10, SUMMARY+12, SUMMARY+14, SUMMARY+15, HD+2
>> DUOUT	ACCTS+11, DT+6, DT+14, COMMENTS+7, SUMMARY+10, SUMMARY+12, SUMMARY+14, SUMMARY+15, HD+2
DUZ(2	GATHER+3, GATHER+5, GATHER+7, GATHER+8, GATHER+9, GATHER+11, GATHER+12, GATHER+13, CALC+12, SUMMARY+16 , WRTBILL+2, WRTBILL+3, HDB+7, HDB+17
>> IENS	WRTCOMM+3*, WRTCOMM+4, WRTCOMM+5, WRTCOMM+8, WRTCOMM+9
IO	SEL+4
IO("Q"	QUE+1!
IO(0	SEL+4
ION	SEL+5
>> IOP	SEL+5*
IOSL	SUMMARY+15
>> POP	SEL+3
U	GATHER+8, GATHER+9, GATHER+11, GATHER+12, GATHER+13, GATHER+14, CALC+9, CALC+13, CALC+15, CALC+16 , SUMMARY+16, SUMMARY+18, SUMMARY+19, SUMMARY+20, SUMMARY+24, WRTBILL+3, HDB+7, HDB+17, HDB+18, HDB+19 , HDB+20, HDB+21
X	CENTER~, CENTER+3
>> Y	ACCTS+8, ACCTS+12, ACCTS+13, DT+8, DT+16, COMMENTS+8, HDB+10*, HDB+12
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+2*
>> ZTSAVE("BAR*"	QUE+3*
>> ZTSK	QUE+6, QUE+7

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRPPS

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

Local Variables

Legend: