Routine: BAR50P11

Package	Total	Call Graph
IHS Accounts Receivable	3	WHD^BARRHD PAZ^BARRUTL $$EN^BARVDF
IHS VA Utilities	1	ENP^XBDIQ1
Kernel	1	$$CJ^XLFSTR
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
INDEX	; EP
COMPUTE	;EP ; Compute line tag required by BARDBQUE but all processing ; is done under PRINT so just quit here
SUMPRINT	;
SUMDATA	;
CLAIM	; EP ; WORK THE CLAIM
ADJ2	; ;
DETAIL	; ; Print report in brief and detail format
SUMMARY	;
SUMDATA3	;
CLEANUP	;
PAD	; ; Standard Adj Description must be 47 characters
HDB	; EP
PRINT	; EP ; PRINT the report (Browse or Print)
SUMDATA2	;
ADJ	; ; Loop adjustment data on claim
HD	; EP
SUMDATA4	;

Name	Field # of Occurrence
WHD^BARRHD	HDB+3
PAZ^BARRUTL	PRINT+7, HD+1, SUMMARY+5
$$EN^BARVDF	DETAIL+6, DETAIL+7, INDEX+2, INDEX+3
$$GET1^DIQ	CLAIM+9, CLAIM+37, CLAIM+38, CLAIM+41, SUMPRINT+27, SUMPRINT+35
ENP^XBDIQ1	CLAIM+5, ADJ2+3, SUMDATA3+4
$$CJ^XLFSTR	PRINT+6, DETAIL+6, DETAIL+12, INDEX+2, INDEX+10, SUMMARY+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("* * E N D O F R E P O R T * *",IOM) Line Location: PRINT+6
Function Call: WRITE	Prompt: !,BARDASH,! Line Location: HDB+6
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("* * * NO DATA TO PRINT * * *",IOM),! Line Location: DETAIL+12
Function Call: WRITE	Prompt: !!,$$EN^BARVDF("RVN"),$$CJ^XLFSTR(BARZ(IND,"HDR"),IOM),! Line Location: INDEX+2
Function Call: WRITE	Prompt: $$EN^BARVDF("RVF") Line Location: INDEX+3
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("* * * NO DATA TO PRINT * * *",IOM),! Line Location: INDEX+10
Function Call: WRITE	Prompt: !,BARSTAR Line Location: INDEX+12
Function Call: WRITE	Prompt: !,"TOTALS FOR ",BARZ(IND) Line Location: INDEX+13
Function Call: WRITE	Prompt: !?2,"AMOUNT BILLED.........." Line Location: INDEX+14
Function Call: WRITE	Prompt: $J($FN(BARXBLC,","),6)," BILLS(S)" Line Location: INDEX+15
Function Call: WRITE	Prompt: " $",$J($FN(BARXBLT,",",2),15) Line Location: INDEX+16
Function Call: WRITE	Prompt: !?2,"PAYMENTS..............." Line Location: INDEX+17
Function Call: WRITE	Prompt: $J($FN(BARXPYC,","),6)," BILLS(S)" Line Location: INDEX+18
Function Call: WRITE	Prompt: " $",$J($FN(BARXPYT,",",2),15) Line Location: INDEX+19
Function Call: WRITE	Prompt: !?2,"ADJUSTMENTS............" Line Location: INDEX+20
Function Call: WRITE	Prompt: $J($FN(BARXADJC,","),6)," BILLS(S)" Line Location: INDEX+21
Function Call: WRITE	Prompt: ?58,"$",$J($FN(BARXADJT,",",2),15) Line Location: INDEX+22
Function Call: WRITE	Prompt: ! Line Location: INDEX+23
Function Call: WRITE	Prompt: !,BARDASH Line Location: CLAIM+20
Function Call: WRITE	Prompt: !,$E(CLM(.01),1,18) Line Location: CLAIM+23
Function Call: WRITE	Prompt: ?19,$E(CLM(.06),1,29) Line Location: CLAIM+24
Function Call: WRITE	Prompt: ?49,CLM(.08) Line Location: CLAIM+25
Function Call: WRITE	Prompt: ?62,"- ",$E($P(CLM(.07)," ",3,999),1,15) Line Location: CLAIM+26
Function Call: WRITE	Prompt: !,"- Matched: "_$$GET1^DIQ(90056.0205,BARMIEN,"1.01","E") Line Location: CLAIM+41
Function Call: WRITE	Prompt: !!,"AMOUNT BILLED.............................................$",$J($FN(CLM(.05),",",2),15) Line Location: CLAIM+44
Function Call: WRITE	Prompt: !,"PAYMENT...................................................$",$J($FN(CLM(.04),",",2),15) Line Location: CLAIM+46
Function Call: WRITE	Prompt: !,"ADJUSTMENTS" Line Location: ADJ+7
Function Call: WRITE	Prompt: !?2,$J($P(ADJ(.01)," "),2) Line Location: ADJ2+8
Function Call: WRITE	Prompt: ?6,ADJ(.03) Line Location: ADJ2+10
Function Call: WRITE	Prompt: ?53,"$",$J($FN(ADJ(.02),",",2),10) Line Location: ADJ2+11
Function Call: WRITE	Prompt: !?6,$J($P(BARADJ(0),U,4),3) Line Location: ADJ2+13
Function Call: WRITE	Prompt: ?10,$E(ADJ(.04),1,19) Line Location: ADJ2+14
Function Call: WRITE	Prompt: ?30,"/" Line Location: ADJ2+15
Function Call: WRITE	Prompt: ?32,$J($P(BARADJ(0),U,5),3) Line Location: ADJ2+16
Function Call: WRITE	Prompt: ?36,$E(ADJ(.05),1,30) Line Location: ADJ2+17
Function Call: WRITE	Prompt: !!!,$$CJ^XLFSTR("* * * NO DATA TO PRINT * * *",IOM) Line Location: SUMMARY+4
Function Call: WRITE	Prompt: !,BARZ(IND) Line Location: SUMPRINT+6
Function Call: WRITE	Prompt: ?26,$J($P(BARX(IND),U),6) Line Location: SUMPRINT+7
Function Call: WRITE	Prompt: ?35,$J($FN($P(BARX(IND),U,2),",",2),12) Line Location: SUMPRINT+8
Function Call: WRITE	Prompt: ?50,$J($FN($P(BARX(IND),U,3),",",2),12) Line Location: SUMPRINT+9
Function Call: WRITE	Prompt: ?65,$J($FN($P(BARX(IND),U,4),",",2),12) Line Location: SUMPRINT+10
Function Call: WRITE	Prompt: !?26,"------",?35,"------------",?50,"------------",?65,"------------" Line Location: SUMPRINT+12
Function Call: WRITE	Prompt: !?3,"GRAND TOTALS" Line Location: SUMPRINT+14
Function Call: WRITE	Prompt: ?26,$J($P(BARX,U),6) Line Location: SUMPRINT+15
Function Call: WRITE	Prompt: ?35,$J($FN($P(BARX,U,2),",",2),12) Line Location: SUMPRINT+16
Function Call: WRITE	Prompt: ?50,$J($FN($P(BARX,U,3),",",2),12) Line Location: SUMPRINT+17
Function Call: WRITE	Prompt: ?65,$J($FN($P(BARX,U,4),",",2),12) Line Location: SUMPRINT+18
Function Call: WRITE	Prompt: !! Line Location: SUMPRINT+19
Function Call: WRITE	Prompt: !!?10,"ADJUSTMENT Totals:",! Line Location: SUMPRINT+22
Function Call: WRITE	Prompt: ! Line Location: SUMPRINT+23
Function Call: WRITE	Prompt: ?15,$$GET1^DIQ(90052.01,I,.01) Line Location: SUMPRINT+27
Function Call: WRITE	Prompt: ?50,$J($FN(BARA(I),",",2),12) Line Location: SUMPRINT+28
Function Call: WRITE	Prompt: ! Line Location: SUMPRINT+29
Function Call: WRITE	Prompt: ?15,$$GET1^DIQ(90052.01,I,.01) Line Location: SUMPRINT+35
Function Call: WRITE	Prompt: ?50,$J($FN(BARA(I),",",2),12) Line Location: SUMPRINT+36
Function Call: WRITE	Prompt: ! Line Location: SUMPRINT+37
Function Call: WRITE	Prompt: ?50,"============",! Line Location: SUMPRINT+39
Function Call: WRITE	Prompt: ?50,$J($FN(BARA,",",2),12),! Line Location: SUMPRINT+41

FileNo	Call Tags
^BAR(90052.01 - [#90052.01]	GET1^DIQ
90056.0205	GET1^DIQ
90056.0205401	GET1^DIQ
^BARERR - [#90056.21]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("I"	INDEX+8, CLAIM+3, CLAIM+4, CLAIM+7, CLAIM+32, CLAIM+35, ADJ+3, ADJ+9, ADJ2+2, ADJ2+4 , SUMDATA2+3, SUMDATA3+2, SUMDATA3+3, SUMDATA3+10, SUMDATA4+2, SUMDATA4+3
^XTMP("BAR-ERARPT"	DETAIL+5, DETAIL+9, DETAIL+11!, CLAIM+4*

Name	Line Occurrences
ADJ	CLAIM+47
ADJ2	ADJ+9
CLAIM	DETAIL+9, INDEX+8
CLEANUP	PRINT+8
DETAIL	PRINT+3
HD	DETAIL+13, INDEX+1, INDEX+11, CLAIM+19, CLAIM+22, CLAIM+27, CLAIM+43, CLAIM+45, ADJ+6, ADJ2+7 , ADJ2+12, SUMPRINT+5, SUMPRINT+11, SUMPRINT+13, SUMPRINT+21, SUMPRINT+23, SUMPRINT+31, SUMPRINT+38, SUMPRINT+40
HDB	DETAIL+2, SUMMARY+3, SUMPRINT+2
INDEX	DETAIL+4
PAD	ADJ2+9
SUMDATA	SUMMARY+1
SUMDATA2	SUMDATA+6
SUMDATA3	SUMDATA2+3
SUMDATA4	SUMDATA3+10
SUMMARY	PRINT+4
SUMPRINT	SUMMARY+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADJ	ADJ+2!, CLEANUP+1!
ADJ(	ADJ2+5, ADJ2+8, ADJ2+10, ADJ2+11, ADJ2+14, ADJ2+17, PAD+3, PAD+8*
ADJDA	ADJ+8, ADJ+9, ADJ2+2, ADJ2+4, SUMDATA3+9, SUMDATA3+10, SUMDATA4+2, SUMDATA4+3, CLEANUP+1!
>> BAR("COL"	HDB+5, SUMDATA+2*
>> BAR("F1"	PRINT+5, HD+2*, DETAIL+4, DETAIL+9, DETAIL+10, DETAIL+13, INDEX+1, INDEX+8, INDEX+9, INDEX+11 , CLAIM+19, CLAIM+22, CLAIM+27, CLAIM+42, CLAIM+43, CLAIM+45, ADJ+5, ADJ+6, ADJ+9, ADJ+10 , ADJ2+6, ADJ2+7, ADJ2+12, SUMPRINT+4, SUMPRINT+5, SUMPRINT+11, SUMPRINT+13, SUMPRINT+21, SUMPRINT+23, SUMPRINT+25 , SUMPRINT+26, SUMPRINT+31, SUMPRINT+38, SUMPRINT+40
>> BAR("LVL"	HDB+2*
>> BAR("PG"	PRINT+2, HDB+1, HDB+2
BARA	SUMDATA+3!, SUMDATA4+12*, SUMPRINT+19, SUMPRINT+41
BARA(	SUMDATA4+11*, SUMPRINT+26, SUMPRINT+28, SUMPRINT+30!, SUMPRINT+34, SUMPRINT+36
>> BARADJ(0	ADJ2+4*, ADJ2+13, ADJ2+16
>> BARADJ0	SUMDATA4+3*, SUMDATA4+4, SUMDATA4+5, SUMDATA4+6, SUMDATA4+8, SUMDATA4+9, SUMDATA4+11, SUMDATA4+12
>> BARCHK	CLAIM+3, SUMDATA3+3
>> BARDASH	HDB+6, CLAIM+20
>> BARERRC	CLAIM+7*, CLAIM+9, CLAIM+28, CLAIM+32, CLAIM+41
>> BARERRCD	CLAIM+8, CLAIM+9
>> BARFIRST	INDEX+6, CLAIM+20, CLAIM+21
BARFLG	DETAIL+3!, DETAIL+8*, CLAIM+4
>> BARINDX	DETAIL+4, SUMDATA+4, SUMDATA+6
>> BARMIEN	CLAIM+41*
>> BARSTAR	DETAIL+14, INDEX+12
>> BARTYP	PRINT+3, PRINT+4, HDB+4, CLAIM+20, CLAIM+42, ADJ+5, ADJ2+6
>> BARX	SUMMARY+2, SUMDATA+5, SUMDATA3+7, SUMDATA3+8, SUMDATA4+6, SUMDATA4+9*, SUMPRINT+15, SUMPRINT+16, SUMPRINT+17, SUMPRINT+18
>> BARX(	SUMDATA+4, SUMDATA3+5, SUMDATA3+6, SUMDATA4+5, SUMDATA4+8*, SUMPRINT+4, SUMPRINT+7, SUMPRINT+8, SUMPRINT+9, SUMPRINT+10
>> BARXADJC	DETAIL+23, INDEX+5, INDEX+21, ADJ+4
>> BARXADJT	DETAIL+8, DETAIL+24, INDEX+4, INDEX+22, ADJ2+5*
>> BARXBLC	DETAIL+8, DETAIL+12, DETAIL+17, INDEX+5, INDEX+10, INDEX+15, CLAIM+12*
>> BARXBLT	DETAIL+8, DETAIL+18, INDEX+4, INDEX+16, CLAIM+13*
>> BARXPYC	DETAIL+20, INDEX+5, INDEX+18, CLAIM+16
>> BARXPYT	DETAIL+8, DETAIL+21, INDEX+4, INDEX+19, CLAIM+17*
>> BARZ(	INDEX+2, INDEX+13, SUMPRINT+6
>> BARZ("W"	DETAIL+6, DETAIL+15
CLM	CLAIM+2!, SUMDATA3+1!, CLEANUP+1!
CLM(	CLAIM+11, CLAIM+13, CLAIM+15, CLAIM+17, CLAIM+23, CLAIM+24, CLAIM+25, CLAIM+26, CLAIM+44, CLAIM+46 , SUMDATA3+6, SUMDATA3+8
CLMDA	DETAIL+8, DETAIL+9, INDEX+7, INDEX+8, CLAIM+3, CLAIM+4, CLAIM+7, CLAIM+32, CLAIM+35, CLAIM+36 , CLAIM+41, ADJ+3, ADJ+9, ADJ2+2, ADJ2+4, SUMDATA2+2, SUMDATA2+3, SUMDATA3+2, SUMDATA3+3, SUMDATA3+10 , SUMDATA4+2, SUMDATA4+3, CLEANUP+1!
DA	CLEANUP+1!
DIC	CLEANUP+1!
DIE	CLEANUP+1!
>> DIROUT	HD+2
DR	CLEANUP+1!
>> DTOUT	HD+2
>> DUOUT	HD+2
DUZ(2	DETAIL+5, DETAIL+9, INDEX+8, CLAIM+3, CLAIM+4, CLAIM+7, CLAIM+32, CLAIM+35, ADJ+3, ADJ+9 , ADJ2+2, ADJ2+4, SUMDATA2+3, SUMDATA3+2, SUMDATA3+3, SUMDATA3+10, SUMDATA4+2, SUMDATA4+3
I	PAD+2!, PAD+7, PAD+9!, SUMPRINT+25, SUMPRINT+26, SUMPRINT+27, SUMPRINT+28, SUMPRINT+30, SUMPRINT+33, SUMPRINT+34 , SUMPRINT+35, SUMPRINT+36, CLEANUP+1!
IMPDA	INDEX+8, CLAIM+3, CLAIM+4, CLAIM+7, CLAIM+32, CLAIM+35, CLAIM+36, CLAIM+41, ADJ+3, ADJ+9 , ADJ2+2, ADJ2+4, SUMDATA2+3, SUMDATA3+2, SUMDATA3+3, SUMDATA3+10, SUMDATA4+2, SUMDATA4+3, CLEANUP+1!
>> IND	DETAIL+4, INDEX+2, INDEX+8, INDEX+13, INDEX+24, CLAIM+4, SUMDATA+6, SUMDATA2+3, SUMDATA3+5, SUMDATA3+6 , SUMDATA4+5, SUMDATA4+8, SUMPRINT+3, SUMPRINT+4*, SUMPRINT+6, SUMPRINT+7, SUMPRINT+8, SUMPRINT+9, SUMPRINT+10
INDSAVE	INDEX+24!
IOM	PRINT+6, DETAIL+6, DETAIL+12, INDEX+2, INDEX+10, SUMMARY+4
IOSL	DETAIL+13, INDEX+1, INDEX+11, CLAIM+19, CLAIM+22, CLAIM+27, CLAIM+43, CLAIM+45, ADJ+6, ADJ2+7 , ADJ2+12, SUMPRINT+5, SUMPRINT+11, SUMPRINT+13, SUMPRINT+21, SUMPRINT+23, SUMPRINT+31, SUMPRINT+38, SUMPRINT+40
J	CLEANUP+1!
K	PAD+2!, PAD+3, PAD+4, PAD+5, PAD+7*, PAD+8, PAD+9!, CLEANUP+1!
L	PAD+2!, PAD+4*, PAD+5, PAD+6, PAD+7, PAD+9!
REASDA	CLAIM+30~, CLAIM+34, CLAIM+35, CLAIM+36, CLAIM+40!
REASIENS	CLAIM+30~, CLAIM+36*, CLAIM+37, CLAIM+40!
REASON	CLAIM+30~, CLAIM+37, CLAIM+38, CLAIM+39, CLAIM+40!
TRDA	CLEANUP+1!
U	CLAIM+3, CLAIM+7, ADJ2+13, ADJ2+16, SUMDATA3+3, SUMDATA3+5, SUMDATA3+6, SUMDATA3+7, SUMDATA3+8, SUMDATA4+4 , SUMDATA4+5, SUMDATA4+6, SUMDATA4+8, SUMDATA4+9, SUMDATA4+11, SUMDATA4+12, SUMPRINT+7, SUMPRINT+8, SUMPRINT+9, SUMPRINT+10 , SUMPRINT+15, SUMPRINT+16, SUMPRINT+17, SUMPRINT+18
>> XI	DETAIL+4, SUMDATA+4, SUMDATA+6*

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50P11

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: