Routine: XBFLD

Information

XBFLD ; IHS/ADC/GTH - DICTIONARY LISTING ; [ 02/07/97 3:02 PM ]

Source Information

Source file <XBFLD.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
IHS VA Utilities	4	$$DIR^XBDIR ^XBFLD0 ^XBFLD2 ^XBSFGBL
Kernel	2	^%ZISC $$REPEAT^XLFSTR
VA Fileman	1	^%DT

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS VA Utilities	2	XBFLD0 XBFLD2
IHS Accounts Receivable	1	BARFM
Package Documentation	1	ADCFPALL

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	; GIVE USER A CHANCE TO SEE LAST PAGE AND QUIT
MULTIPLE	; LIST MULTIPLE, THEN FIELDS IN SUBFILE
COMPUTED	; COMPUTED FIELD ; The variable XBCOMP prevents multiple lfs between adjacent ; computed fields.
FIELD	; LIST ONE FIELD
FIELDS	; LIST ALL FIELDS IN ONE FILE/SUBFILE (CALLED RECURSIVELY)
FORMAT	;EP - select format
LIST	; LIST RANGE OF FILES
PAGE	;EP - PAGE HEADERS
WRITE	; WRITE ONE LINE
START	;
INIT	; INITIALIZATION
EN	; EXTERNAL ENTRY POINT ; To use this entry point ^UTILITY("XBDSET",$J, must contain ; the list of dictionaries. All device variables must be set ; and, if appropriate, the U IO executed prior to the call. ; It is the callers responsibility to close the device.
HEADING2	; HARD COPY HEADERS
FILE	; LIST ONE FILE
EOJ	; END OF JOB
WRITELF	; WRITE ONE LINE FEED ; The variable XBLNFEED prevents multiple lfs when backing out of ; deep recursion.
TXT	;
HEADING	; DICTIONARY HEADERS
LOOP	; LIST FILES UNTIL USER SAYS STOP

External References

Name	Field # of Occurrence
^%DT	HEADING2+10
^%ZISC	LOOP+3
$$DIR^XBDIR	PAUSE+1, FORMAT+4
^XBFLD0	WRITE+13
^XBFLD2	INIT+3
^XBSFGBL	MULTIPLE+6
$$REPEAT^XLFSTR	PAGE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"^XBFLD - This routine lists FileMan dictionaries." Line Location: LOOP+2
Function Call: WRITE	Prompt: ! Line Location: LOOP+3
Function Call: WRITE	Prompt: !?XBTAB,XBFIELD,?13+XBTAB,$S(XBTYPE="":XBNAME,1:$E(XBNAME,1,31-XBTAB)),?46,$E(XBWPSUB,1,21),?68,XBWPC,?77,XBTYPE Line Location: WRITE+6
Function Call: WRITE	Prompt: !?XBTAB,XBFIELD,?13+XBTAB,$S(XBTYPE="":XBNAME,1:$E(XBNAME,1,31-XBTAB)),?46,$E(XBWPSUB,1,21) Line Location: WRITE+7
Function Call: WRITE	Prompt: ?56,^DD(XBFILE,XBFIELD,9.1) Condition for execution: XBFMT["C" Line Location: WRITE+7
Function Call: WRITE	Prompt: !,?13+XBTAB,$E(XBNAME,32-XBTAB,$L(XBNAME)),?46,$E(XBWPSUB,22,$L(XBWPSUB)) Line Location: WRITE+8
Function Call: WRITE	Prompt: !,?16+XBTAB,"S: ",$P(^DD(XBFILE,XBFIELD,0),"^",3) Line Location: WRITE+9
Function Call: WRITE	Prompt: !,?16+XBTAB,"P: ",XBFLDPT Line Location: WRITE+10
Function Call: WRITE	Prompt: !,?16+XBTAB,"V: ",$P(^DD(XBFILE,XBFIELD,"V",XBFLDPT,0),"^",1,2) Line Location: WRITE+11
Function Call: WRITE	Prompt: ! Line Location: WRITELF+5
Function Call: WRITE	Prompt: @IOF Line Location: HEADING+3
Function Call: WRITE	Prompt: ?80-$L("FILE: "_$P(^DIC(XBFILE,0),"^",1))\2,"FILE: ",$P(^DIC(XBFILE,0),"^",1),!,?80-$L("GLOBAL: "_^DIC(XBFILE,0,"GL"))\2,"GLOBAL: ",^DIC(XBFILE,0,"GL"),!,?80-$L("FILE #: "_XBFILE)\2,"FILE #: ",XBFILE,!! Line Location: HEADING+5
Function Call: WRITE	Prompt: !!! Line Location: HEADING2+2
Function Call: WRITE	Prompt: XBTIME,?80-$L(XBTITLE)\2,XBTITLE,?72,"page ",XBPAGE,!,?80-$L(^DD("SITE"))\2,^DD("SITE"),! Line Location: HEADING2+6
Function Call: WRITE	Prompt: ?80-$L(Y)\2,Y Line Location: HEADING2+9
Function Call: WRITE	Prompt: !!,?80-$L("as of "_Y)\2,"as of ",Y,!! Line Location: HEADING2+13
Function Call: WRITE	Prompt: "FIELD #",?13,"FIELD NAME",?46,"SUBSCRIPT",?69,"PIECE",?75,"TYPE",!,$$REPEAT^XLFSTR("=",79),! Line Location: PAGE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	HEADING2+7
^DD(	FIELDS+1, FIELD+2, WRITE+7, WRITE+9, WRITE+11, WRITE+13
^DD("DD"	HEADING2+12
^DD("SITE"	HEADING2+6
^DIC - [#1]	WRITE+10, HEADING+5
^UTILITY("XBDSET"	LIST+4, EOJ+2!

Label References

Name	Line Occurrences
COMPUTED	FIELD+6
EOJ	START+2, EN+8
FIELD	FIELDS+1
FIELDS	FILE+3, MULTIPLE+9
FILE	LIST+4
HEADING	FILE+2
HEADING2	HEADING+4
INIT	LOOP+3
LIST	LOOP+3, EN+7
LOOP	START+1
MULTIPLE	FIELD+8
PAGE	WRITE+2, HEADING+6
PAUSE	FILE+5, PAGE+2
WRITE	FIELD+12, COMPUTED+7, MULTIPLE+2
WRITELF	FIELD+7, COMPUTED+4, MULTIPLE+2, MULTIPLE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PAUSE+1, FORMAT+3
>> %DT	HEADING2+10*
A	FORMAT+1~, FORMAT+2*, FORMAT+4
A(	FORMAT+3*
DIR	EOJ+3!
DIRUT	PAUSE+1!, EOJ+3!
DT	HEADING2+10*, HEADING2+11
DTOUT	EOJ+3!
DUOUT	PAUSE+1!, EOJ+3!
IO	HEADING2+1, PAUSE+1, EN+7
IO(0	HEADING2+1, PAUSE+1, EN+7
IOF	HEADING+3, PAGE+4, EN+7
IOSL	WRITE+2, WRITELF+5, EN+7
IOST	HEADING2+1, PAUSE+1
POP	EOJ+3!
S	EOJ+3!
U	FIELD+3, FIELD+4, FIELD+9
X	FIELD+2, FIELD+3, FIELD+4, FIELD+9, WRITE+10, HEADING2+10, PAGE+1~, FORMAT+1~, FORMAT+3*, EOJ+3!
XBCOMP	LIST+2~, FILE+1, FIELD+7, COMPUTED+4, COMPUTED+5*
>> XBDSND	INIT+2*
XBFIELD	LIST+2~, FIELDS+1*, FIELD+2, MULTIPLE+4~, WRITE+4, WRITE+6, WRITE+7, WRITE+9, WRITE+11, WRITE+13
XBFILE	LIST+2~, LIST+4, FIELDS+1, FIELD+2, MULTIPLE+4~, MULTIPLE+5, MULTIPLE+6, WRITE+7, WRITE+9, WRITE+11 , WRITE+13, HEADING+5
XBFLD	EOJ+1!
XBFLD("BROWSE"	HEADING2+2
XBFLDP	INIT+1*, INIT+2, EOJ+1!
XBFLDPT	WRITE+10!, WRITE+11, EOJ+1!
XBFMT	LIST+1, WRITE+7, WRITE+9, WRITE+10, WRITE+11, WRITE+13, FORMAT+6, EOJ+1!
XBHOUR	HEADING+1~, HEADING2+3*, HEADING2+5
XBIHS	EOJ+1!
XBLNFEED	LIST+2~, FILE+1, WRITE+1, WRITELF+4, WRITELF+5*
XBMINUT	HEADING+1~, HEADING2+3, HEADING2+4, HEADING2+5
XBNAME	LIST+2~, FIELD+1, FIELD+3, MULTIPLE+1*, WRITE+6, WRITE+7, WRITE+8
XBPAGE	LIST+2~, FILE+1, HEADING+2, HEADING2+6, PAGE+2, PAGE+4, PAGE+5*
XBPIECE	LIST+2~, FIELD+1, FIELD+11, WRITE+5
XBPSUB	LIST+2~, FIELD+1, FIELD+10, COMPUTED+5, COMPUTED+6, WRITE+4, WRITE+6, WRITE+12
XBPSUBOL	LIST+2~, FILE+1, WRITE+4, WRITE+12, PAGE+7*
XBQFLG	LOOP+1~, LOOP+3, LIST+3, LIST+4, FILE+4, FIELDS+1, MULTIPLE+3, MULTIPLE+11, WRITE+3, PAGE+3 , PAUSE+1, EN+6~
XBSUB	LIST+2~, FILE+1, FIELD+10, MULTIPLE+4~, MULTIPLE+6, MULTIPLE+7
XBSUBFIL	LIST+2~, MULTIPLE+1*, MULTIPLE+5
XBTAB	LIST+2~, FILE+1, MULTIPLE+8, MULTIPLE+10*, WRITE+6, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+11
XBTIME	HEADING+1~, HEADING2+3, HEADING2+5, HEADING2+6
XBTITLE	HEADING+1~, HEADING2+3*, HEADING2+6
XBTYPE	LIST+2~, FIELD+1, FIELD+5, FIELD+6, FIELD+8, FIELD+11, COMPUTED+5*, WRITE+6, WRITE+7, WRITE+8 , WRITE+9, WRITE+10, WRITE+11
XBWPC	LIST+2~, WRITE+5*, WRITE+6
XBWPSUB	LIST+2~, WRITE+4*, WRITE+6, WRITE+7, WRITE+8
Y	FIELD+4, FIELD+5, FIELD+9, FIELD+10, FIELD+11, COMPUTED+6, MULTIPLE+1, HEADING2+8, HEADING2+9, HEADING2+10 , HEADING2+11, HEADING2+13, FORMAT+4, FORMAT+5, FORMAT+6, EOJ+3!
>> ZTQUEUED	EOJ+4
>> ZTREQ	EOJ+4*

Marked Items

Name	Field # of Occurrence
$T(TXT+%	FORMAT+3

Customize PDF page

Package: IHS VA Utilities

Routine: XBFLD

Call Graph Total: 7

Caller Graph Total: 4