Routine: XBLFMD

Call Graph

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	4	$$DIR^XBDIR ^XBDSET $$FNAME^XBFUNC EN^XBRPTL
VA Fileman	1	DT^DICRW

Name	Comments	DBIA/ICR reference
DEVICE	; GET DEVICE (QUEUEING ALLOWED)
START	; ; --- Display routine description.
FIELDS(F)	; Process fields in File F. ; Output is File#, Field#, Field Name, Date Of Edit
PAGE	; PAGE BREAK

Name	Line Occurrences
Function Call: WRITE	Prompt: $J(F,10),?12,$E($$FNAME^XBFUNC(F),1,20),?32,$J(XB,10),?44,$E($P($G(^DD(F,XB,0)),"^",1),1,24),?68,$$FMTE^XLFDT($G(^DD(F,XB,"DT"))),! Line Location: FIELDS+5
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+3
Function Call: WRITE	Prompt: !,"Fields Marked For Deletion in ",XBUCI," uci.",?(IOM-$L(XBTIME)),XBTIME Line Location: PAGE+4
Function Call: WRITE	Prompt: !,"File#",?12,"File Name",?32,"Field#",?44,"Field Name",?68,"Date Of Edit" Line Location: PAGE+5
Function Call: WRITE	Prompt: !,XBDASH,! Line Location: PAGE+6
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!") Line Location: DEVICE+8
Routine Call	%ZIS Line Location: START+2
Routine Call	%ZIS Line Location: DEVICE+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	START+15
^DD(	FIELDS+4, FIELDS+5, FIELDS+6
^UTILITY("XBDSET"	START+11, START+19
^UTILITY($J	START+3!, START+4*, START+6!

Name	Field # of Occurrence
>> %ZIS	DEVICE+2*
F	START+14~, START+18, START+19, FIELDS~, FIELDS+4, FIELDS+5, FIELDS+6, PAGE+1~
G	PAGE+1~
IO	PAGE+2, DEVICE+13
IO("Q"	DEVICE+5, DEVICE+10!
IO(0	PAGE+2
IOF	PAGE+3
IOM	START+16, PAGE+4
ION	DEVICE+6
IOSL	FIELDS+4
IOST	PAGE+2
N	PAGE+1~
POP	DEVICE+4!
QFLG	START+7~, START+8, START+13, START+19, FIELDS+4, PAGE+2, DEVICE+4, DEVICE+5
X	START+14~, FIELDS+2~, FIELDS+3*, PAGE+1~
XB	FIELDS+2~, FIELDS+4*, FIELDS+5, FIELDS+6
XBDASH	START+14~, START+16*, PAGE+6
XBTIME	START+14~, START+16*, PAGE+4
XBUCI	START+14~, START+16*, PAGE+4
>> Y	START+16
>> ZTDESC	DEVICE+6*
ZTIO	DEVICE+6*, DEVICE+11!
>> ZTRTN	DEVICE+6*
>> ZTSAVE("^UTILITY(""XBDSET"",$J,"	DEVICE+6*
ZTSK	DEVICE+8, DEVICE+10!