Routine: BARRASM2

Package	Total	Call Graph
IHS Accounts Receivable	4	(COMPUTE,SETHDR)^BARRASM ASK^BARRASMA PRINT^BARRASMB (EOP,INIT)^BARUTL
IHS VA Utilities	2	$$FISCAL^XBDT ^XBFMK
Kernel	2	(,HOME)^%ZIS ^%ZISC
VA Fileman	2	$$GET1^DIQ ^DIR

Package

Total

Call Graph

(COMPUTE,SETHDR)^BARRASM ASK^BARRASMA PRINT^BARRASMB (EOP,INIT)^BARUTL

$$FISCAL^XBDT ^XBFMK

(,HOME)^%ZIS ^%ZISC

$$GET1^DIQ ^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR AGE UFMS SUM RPT BARRASM

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
GETFY	;FIND FISCAL YEAR FOR REPORT ;removed function ;bar1.828 IHS/SD/SDR CR8350 HEAT295594
EN	; EP
UAGE(BAR)	;EP; EXTRINSIC FUNCTION ; Enters with BAR=DA of A/R Bill fille ; BARP("UAGE")=Fiscal year string

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report is designed to be session logged or sent to a ",! Line Location: EN+15
Function Call: WRITE	Prompt: "host file server device with no pauses between reports or full",! Line Location: EN+16
Function Call: WRITE	Prompt: "screens of information so please take appropriate steps to ",! Line Location: EN+17
Function Call: WRITE	Prompt: "allow viewing of the entire report.",! Line Location: EN+18
Function Call: WRITE	Prompt: !! Line Location: GETFY+25
Routine Call	%ZIS Line Location: EN+48
Routine Call	DIR Line Location: GETFY+26
Routine Call	%ZIS Line Location: EN+23

FileNo	Call Tags
^BAR(90052.06,7819,0) - [#90052.06]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	UAGE+8

Name	Line Occurrences
GETFY	EN+5

Name	Field # of Occurrence
BAR	EN+1!, EN+22, EN+47*, UAGE~, UAGE+3, UAGE+8
BAR("LINE"	EN+40!, EN+41*, EN+42
BAR("LOC"	EN+12, EN+13, EN+36, EN+37
BAR("PRIVACY"	EN+35*
BAR0	UAGE+4~, UAGE+8*, UAGE+9, UAGE+10
BARA	EN+3~, EN+31, EN+32, GETFY+2!, GETFY+3, GETFY+4, GETFY+46
BARA(	EN+29, EN+31, GETFY+45, GETFY+46
BARBEG	GETFY+2!, UAGE+4~, UAGE+5*, UAGE+10
>> BARCFY	GETFY+41*, GETFY+42, GETFY+45, GETFY+46
>> BAREFY	GETFY+29, GETFY+30, GETFY+41
BAREND	GETFY+2!, UAGE+4~, UAGE+6*, UAGE+10
BARFY	GETFY+2!, GETFY+4, GETFY+23, GETFY+44, GETFY+45
>> BARI	EN+28, EN+29, EN+30, EN+31
>> BARP("RTN"	EN+34*
>> BARP("UAGE"	EN+32*, EN+42, UAGE+5, UAGE+6
>> BARSFY	GETFY+29, GETFY+30, GETFY+41
>> BARTBAR	EN+22*, EN+47
>> BARTBARY	EN+21*, EN+46
>> BARUSR	EN+2, EN+33
BARY	EN+1!, EN+21, EN+46*
BARZ	GETFY+2!, GETFY+42, GETFY+43, GETFY+44
>> DIR("A"	GETFY+13, GETFY+20, GETFY+21, GETFY+22
>> DIR("B"	GETFY+23*
>> DIR(0	GETFY+7*
>> DIROUT	EN+8, EN+20, EN+39
>> DIRUT	GETFY+28
>> DTOUT	EN+8, EN+20, EN+39, GETFY+28
>> DUOUT	EN+8, EN+20, EN+39, GETFY+28
DUZ(2	EN+12, EN+36, UAGE+8
IO	EN+25
>> POP	EN+24
U	EN+42, GETFY+4, GETFY+45, GETFY+46, UAGE+5, UAGE+6, UAGE+8
>> Y	EN+7, GETFY+28, GETFY+29, GETFY+30

Information