Routine: XBLFAM

Information

XBLFAM ;IHS/SET/GTH - LISTS FILE ATTRIBUTES FOR MODELING ; [ 04/18/2003 9:05 AM ]

Package	Total	Call Graph
IHS VA Utilities	5	$$DIR^XBDIR ^XBDSET $$FNAME^XBFUNC EN^XBRPTL EN^XBVK
Kernel	4	HOME^%ZIS ^%ZISC $$FMTE^XLFDT EN^XUTMDEVQ
VA Fileman	1	DT^DICRW

Name	Comments	DBIA/ICR reference
HP(N,F)	;;3;'HELP'-PROMPT
DFLE(N,F)	;;50;DATE FIELD LAST EDITED
DESC(N,F)	;;21;DESCRIPTION (word-processing) ; Field DESCRIPTION and Help-Prompt. N=File, F=Field
IT(N,F)	;;.5;INPUT TRANSFORM
AUDIT(N,F)	;;1.1;AUDIT
TITLE(N,F)	;;.1;TITLE
FIELDS(F)	; Process fields in File F. ; Field #, File #, File Name, Field Label, Field type, Desc/Help.
TYPE(P)	;PEP;.25;TYPE ; Return TYPE of field. Input is the 2nd piece of the 0th node.
GSL(N,F)	;;.4;GLOBAL SUBSCRIPT LOCATION
MAXL(N,F)	; Return maximum length
MINL(N,F)	; Return minimum length
OT(N,F)	;;2;OUTPUT TRANSFORM
XH(N,F)	;;4;XECUTABLE 'HELP'
DA(N,F)	;;8.5;DELETE ACCESS (OPTIONAL)
EN	;EP - From TaskMan.
START	; ; --- Display routine description.
TDESC(N,F)	;;23;TECHNICAL DESCRIPTION (word-processing)
SRC(N,F)	;;10;SOURCE
LABEL(N,F)	;;.01;LABEL
WA(N,F)	;;9;WRITE ACCESS (OPTIONAL)
RA(N,F)	;;8;READ ACCESS (OPTIONAL)
OUTLINE()	; ; File #, File Name, Field #, Field Label, Field type, Desc/Help., ; Min Length, Max Length
NUMBER(F)	;;.001;NUMBER
PAGE	; PAGE BREAK

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+17
Function Call: WRITE	Prompt: $$OUTLINE,! Line Location: FIELDS+6
Function Call: WRITE	Prompt: $$OUTLINE,! Line Location: FIELDS+7
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+2
Routine Call	%ZIS Line Location: START+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(	FIELDS+4, FIELDS+5, FIELDS+6, OUTLINE+3, MINL+2, MINL+5, MAXL+2, MAXL+5, LABEL+1, TITLE+1 , TYPE+5, IT+1, AUDIT+1, OT+1, HP+2, HP+4, XH+1, RA+1, DA+1, WA+1 , SRC+1, DESC+4, TDESC+3, DFLE+1
^UTILITY("XBDSET"	START+14, EN+8
^UTILITY($J	START+3!, START+4*, START+6!

Name	Field # of Occurrence
^(	DESC+4, TDESC+3

Name	Field # of Occurrence
>> %ZIS	START+18*, START+19
F	EN+3~, EN+7, EN+8, FIELDS~, FIELDS+4, FIELDS+5, FIELDS+6, OUTLINE+3, PAGE+1~, MINL~ , MINL+2, MINL+5, MAXL~, MAXL+2, MAXL+5, NUMBER~, NUMBER+1, LABEL~, LABEL+1, TITLE~ , TITLE+1, TYPE+5, GSL~, IT~, IT+1, AUDIT~, AUDIT+1, OT~, OT+1, HP~ , HP+2, HP+4, XH~, XH+1, RA~, RA+1, DA~, DA+1, WA~, WA+1 , SRC~, SRC+1, DESC~, DESC+4, TDESC~, TDESC+3, DFLE~, DFLE+1
G	PAGE+1~
IO	PAGE+2
IO(0	PAGE+2
IOF	PAGE+2
IOSL	FIELDS+4
IOST	PAGE+2
N	PAGE+1~, MINL~, MINL+2, MINL+5, MAXL~, MAXL+2, MAXL+5, LABEL~, LABEL+1, TITLE~ , TITLE+1, GSL~, IT~, IT+1, AUDIT~, AUDIT+1, OT~, OT+1, HP~, HP+2 , HP+4, XH~, XH+1, RA~, RA+1, DA~, DA+1, WA~, WA+1, SRC~ , SRC+1, DESC~, DESC+4, TDESC~, TDESC+3, DFLE~, DFLE+1
P	TYPE~, TYPE+2, TYPE+4, TYPE+6
QFLG	START+9~, START+10, EN+8, FIELDS+4, PAGE+2
W	TYPE+3~, TYPE+4, TYPE+5, TYPE+6*, TYPE+7
X	EN+3~, FIELDS+2~, FIELDS+3, PAGE+1~, MINL+1~, MINL+2, MINL+3, MINL+4, MINL+5, MINL+6 , MAXL+1~, MAXL+2, MAXL+3, MAXL+4, MAXL+5, MAXL+6, HP+1~, HP+2, HP+3, DESC+2~ , DESC+3, DESC+4, DESC+5, DESC+6, TDESC+1~, TDESC+2, TDESC+3, TDESC+4, TDESC+5
XB	FIELDS+2~, FIELDS+4, FIELDS+5, FIELDS+6, OUTLINE+3, TYPE+5, DESC+2~, DESC+4, TDESC+1~, TDESC+3*
>> ZTSAVE	START+19
>> ZTSAVE("^UTILITY(""XBDSET"",$J,"	START+18*