Routine: BARMEISS

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ^%ZISC ($$DEL,$$LIST)^%ZISH $$VERSION^%ZOSV
IHS VA %Utilities	2	UUCPQ^ZIBGSVEM UUCPQ^ZIBGSVEP
IHS Accounts Receivable	1	PAZ^BARRUTL
VA Fileman	1	^DIR

Package

Total

Call Graph

HOME^%ZIS ^%ZISC ($$DEL,$$LIST)^%ZISH $$VERSION^%ZOSV

UUCPQ^ZIBGSVEM UUCPQ^ZIBGSVEP

PAZ^BARRUTL

^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR MAN EISS RESEND

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
RUSURE	;
RESEND	; ; Resend selected file
EP	;EP
DISPFILE	;
FINDFILE	; ; Find files in EISS directory. List returned in BARFILES array ; BARFILES(#)=filename

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No files in ",BARDIR," directory" Line Location: FINDFILE+7
Function Call: WRITE	Prompt: !! Line Location: DISPFILE+1
Function Call: WRITE	Prompt: !,$J(BARCNT,2),?5,BARFILES(BARA) Line Location: DISPFILE+5
Function Call: WRITE	Prompt: ! Line Location: DISPFILE+8
Function Call: WRITE	Prompt: ! Line Location: RUSURE+1
Function Call: WRITE	Prompt: !! Line Location: RESEND+13
Routine Call	%ZIS Line Location: RESEND+16
Routine Call	DIR Line Location: DISPFILE+13 RUSURE+7

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	FINDFILE+3, RESEND+2

Name	Field # of Occurrence
>> BARA	DISPFILE+2, DISPFILE+3, DISPFILE+5, DISPFILE+6
>> BARANS	EP+4, EP+7, DISPFILE+7, DISPFILE+14, DISPFILE+15, DISPFILE+16, RUSURE+2, RUSURE+8
>> BARCNT	DISPFILE+2, DISPFILE+4, DISPFILE+5, DISPFILE+6, DISPFILE+10, DISPFILE+12
>> BARDEL	RESEND+20*
>> BARDIR	FINDFILE+3*, FINDFILE+4, FINDFILE+5, FINDFILE+7, RESEND+4, RESEND+20
>> BAREISS	RESEND+2*, RESEND+5, RESEND+6, RESEND+7
>> BARFILES	EP+2, FINDFILE+5, FINDFILE+6
>> BARFILES(	DISPFILE+3, DISPFILE+5, DISPFILE+16
>> BARFN	DISPFILE+16*, RUSURE+5, RESEND+3, RESEND+20
>> BARLIST	FINDFILE+5*
>> BARTMP(	DISPFILE+6*, DISPFILE+16
>> BARUNAM	RESEND+5*, RESEND+11, RESEND+12
>> BARUPASS	RESEND+6*, RESEND+11, RESEND+12
DIR	DISPFILE+9!, RUSURE+3!, RUSURE+9!
DIR("?"	DISPFILE+12*
DIR("A"	DISPFILE+11, RUSURE+5
DIR("B"	RUSURE+6*
DIR(0	DISPFILE+10, RUSURE+4
DUZ(2	FINDFILE+3, RESEND+2
IO	RESEND+13
IO(0	RESEND+13
U	FINDFILE+3, RESEND+5, RESEND+6, RESEND+7
>> XBFLG	RESEND+17*, RESEND+18
>> XBFN	RESEND+3*
>> XBQTO	RESEND+7, RESEND+11, RESEND+12
>> XBUF	RESEND+4*, RESEND+12
>> Y	DISPFILE+14, RUSURE+8

Information