Routine: BARBLOS1

Package	Total	Call Graph
IHS Accounts Receivable	2	$$SDT^BARDUTL EOP^BARUTL
VA Fileman	2	YX^%DTC $$GET1^DIQ

Package

Total

Call Graph

$$SDT^BARDUTL EOP^BARUTL

YX^%DTC $$GET1^DIQ

Package	Total	Caller Graph
IHS Accounts Receivable	2	BARBLOS BARBLOS0

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
WRTRPT	; ; Write out the reports
BARHDR	; ; Write the Report Header
BARPG	;EP ; PAGE CONTROLLER ; This utility uses variables BARPG("HDR"),BARPG("DT"),BARPG("LINE"),BARPG("PG") ; kill variables by D EBARPG
Q	;
EBARPG	;
EXIT	; Exit routine
PG	;**page controller
BARHD	;EP ; Write column header / message
PRINT	;EP ; roll through the ^XTMP("BARBLOS",$J) and report on these records

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?15,"NO RECORDS TO BE LISTED" Line Location: PRINT+6
Function Call: WRITE	Prompt: !!,?5,"TOTALS:" Line Location: PRINT+33
Function Call: WRITE	Prompt: ?27,$J("",15-$L(BARTBLF))_BARTBLF Line Location: PRINT+34
Function Call: WRITE	Prompt: ?43,$J("",15-$L(BARTCLF))_BARTCLF Line Location: PRINT+35
Function Call: WRITE	Prompt: ?56,$J("",15-$L(BARTBAF))_BARTBAF Line Location: PRINT+36
Function Call: WRITE	Prompt: !!,$E(BARACTNM,1,25) Line Location: WRTRPT+6
Function Call: WRITE	Prompt: ?29,$J("",13-$L(BARACTBF))_BARACTBF Line Location: WRTRPT+7
Function Call: WRITE	Prompt: ?45,$J("",13-$L(BARACTCF))_BARACTCF Line Location: WRTRPT+8
Function Call: WRITE	Prompt: ?59,$J("",13-$L(BARACTAF))_BARACTAF Line Location: WRTRPT+9
Function Call: WRITE	Prompt: ! Line Location: BARHDR+3
Function Call: WRITE	Prompt: ?(IOM-$L(BARPG("HDR"))/2),BARPG("HDR") Line Location: BARHDR+12
Function Call: WRITE	Prompt: !?(IOM-75),BARPG("DT"),?(IOM-15),"PAGE: ",BARPG("PG"),!,BARPG("LINE") Line Location: BARHDR+13
Function Call: WRITE	Prompt: ! Line Location: BARHD+2
Function Call: WRITE	Prompt: ?8,"Insurer",?31," Billed Amt ",?45,"Accounted For",?60," Outstanding" Line Location: BARHD+5

FileNo	Call Tags
^BARAC(2906 - [#90050.02]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BARAC(	PRINT+13
^XTMP("BARBLOS"	PRINT+6, PRINT+10, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+24 , PRINT+25

Name	Field # of Occurrence
>> %H	BARHDR+8*
>> BARACTAF	WRTRPT+4*, WRTRPT+9
>> BARACTBA	PRINT+26*, WRTRPT+4
>> BARACTBF	WRTRPT+2*, WRTRPT+7
>> BARACTBL	PRINT+11, PRINT+18, PRINT+26, WRTRPT+2
>> BARACTCF	WRTRPT+3*, WRTRPT+8
>> BARACTCL	PRINT+11, PRINT+21, PRINT+26, WRTRPT+3
>> BARACTNM	PRINT+13, PRINT+14, PRINT+16*, WRTRPT+6
>> BARAPDT	PRINT+2*, PRINT+3
>> BARDATE	PRINT+2, PRINT+8*
>> BARGRPDF	WRTRPT+5*
>> BARGRPDL	PRINT+11, PRINT+24, WRTRPT+5
>> BARHDRA	PRINT+4*, BARHD+4
>> BARINSNO	PRINT+7, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+17, PRINT+18, PRINT+19, PRINT+20 , PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+25
>> BARPG("DT"	BARHDR+7, BARHDR+10*, BARHDR+13, EBARPG+1!
>> BARPG("HDR"	PRINT+3*, BARHDR+4, BARHDR+12, BARHD+3, EBARPG+1!
>> BARPG("LINE"	BARHDR+5*, BARHDR+13, EBARPG+1!
>> BARPG("PG"	BARPG+6, BARPG+7, BARHDR+6*, BARHDR+13, EBARPG+1!
>> BARQUIT	PRINT+9, PRINT+10, BARHD+6
>> BARTBA	PRINT+28*, PRINT+31
>> BARTBAF	PRINT+31*, PRINT+36
>> BARTBILL	PRINT+9, PRINT+19, PRINT+28, PRINT+29
>> BARTBLF	PRINT+29*, PRINT+34
>> BARTCLF	PRINT+30*, PRINT+35
>> BARTCOLL	PRINT+9, PRINT+22, PRINT+28, PRINT+30
>> BARTGRP	PRINT+9, PRINT+25, PRINT+32
>> BARTGRPF	PRINT+32*
>> DFOUT	BARPG+5
>> DIROUT	PRINT+10, BARPG+8, Q+1, BARHD+6
>> DOUT	BARPG+5
>> DROUT	PRINT+10, BARPG+8, Q+1, BARHD+6
>> DTOUT	PRINT+10, BARPG+8, Q+1, BARHD+6
>> DUOUT	PRINT+10, BARPG+8, Q+1, BARHD+6
DUZ(2	PRINT+13
IO	BARHDR+11
IOF	BARHDR+2
IOM	BARHDR+5, BARHDR+12, BARHDR+13
IOSL	BARPG+5
IOST	PRINT+37, BARPG+8
>> IOT	PRINT+37, BARPG+8
>> Y	BARHDR+10

Information