Routine: XBLFD

Package	Total	Call Graph
IHS VA Utilities	5	$$DIR^XBDIR ^XBDSET ($$FGLOB,$$FNAME)^XBFUNC EN^XBRPTL EN^XBVK
Kernel	5	HOME^%ZIS ^%ZISC ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR EN^XUTMDEVQ
VA Fileman	3	DT^DICRW ^DIWP ^DIWW

Name	Comments	DBIA/ICR reference
EN	;PEP - List 0th node of pre-selected list of FileMan files. ; IOF,IOSL must be set and U IO if appropriate.
HEADER	; PRINT HEADER
DESC(F)	; Print file DESCRIPTION.
LIST	;
START	; ; --- Display routine description.
PAGE	; PAGE BREAK

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+17
Function Call: WRITE	Prompt: F,?13,$$FNAME^XBFUNC(F),?60,G,! Line Location: LIST+3
Function Call: WRITE	Prompt: @IOF,$$FMTE^XLFDT($$NOW^XLFDT),?34,"FILE DESCRIPTIONS" Line Location: HEADER+1
Function Call: WRITE	Prompt: ?65,$P(Y," ",1),!,$$REPEAT^XLFSTR("-",IOM),!,"NUMBER",?13,"FILE",?60,"GLOBAL",! Line Location: HEADER+3
Function Call: WRITE	Prompt: ?13,"<DESCRIPTION>",! Line Location: HEADER+4
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",IOM),!! Line Location: HEADER+5
Routine Call	%ZIS Line Location: START+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	HEADER+2
^DIC - [#1]	DESC+2
^UTILITY("XBDSET"	START+11, EN+9
^UTILITY($J	START+3!, START+4*, START+6!

Name	Field # of Occurrence
^(	DESC+2

Name	Field # of Occurrence
>> %ZIS	START+18*, START+19
DIRUT	PAGE+2!
DIWF	START+15~*
DIWL	START+15~*
DIWR	START+15~*
DTIME	START+13
DUOUT	PAGE+2!
F	EN+4~, EN+8, EN+9, LIST+3, LIST+4, DESC~, DESC+2, PAGE+1~
G	EN+4~, EN+9*, LIST+3, PAGE+1~
IO	PAGE+2
IO(0	PAGE+2
IOF	EN+2, HEADER+1
IOM	HEADER+3, HEADER+5
IOSL	EN+2, LIST+1, DESC+2
IOST	PAGE+2
N	EN+4~, PAGE+1~
QFLG	START+7~, START+8, EN+4~, EN+6, EN+9, LIST+2, DESC+2, DESC+3, PAGE+2*, PAGE+3
X	EN+4~, DESC+2*, PAGE+1~
XB	DESC+1~, DESC+2*
XBDESC	START+7~, START+13*, START+15, LIST+4, HEADER+4
>> Y	START+14, PAGE+2*, HEADER+3
>> ZTSAVE	START+19
>> ZTSAVE("^UTILITY(""XBDSET"",$J,"	START+18*

Information