Routine: XBLFSETS

Information

XBLFSETS ;IHS/SET/GTH - LISTS FILE SETS ; [ 04/18/2003 9:06 AM ]

Source file <XBLFSETS.m>

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

Name	Comments	DBIA/ICR reference
EN	;EP - from TaskMan.
VARS	;;F,N,X,W;Single-char work vars. ; F:File #
DESC(N,F)	; Field DESCRIPTION and Help-Prompt. N=File, F=Field
PAGE	; PAGE BREAK
START	; ; --- Display routine description.
FIELDS(F)	; Process fields in File F.
FINFO(N,F)	; Return SET values, or Pointed-To. N=File, F=Field
TYPE(P)	; Return TYPE of field. Input is the 2nd piece of the 0th node.
MORE	; ; CodeSetID: This is an identifier that is used to uniquely identify ; the codeset. Some of these codeset ids are the formal ; standard identifier such as "ICD 9-CM" or "ISO 3166"; ; others have been assigned an unofficial codeset id. ; Acronym: This is an abbreviated name for the codeset. ; Name: This is the name of the codeset. ; Requirement: This is an indicator that specifies the codeset is ; required by regulation. An "H" denotes that the codeset ; is required for HIPAA; an "O" denotes a requirement by ; the Office of Management and Budget (OMB). ; Source: This is the originating source of the codeset. ; Information: This is information about the codeset or the location ; of information about the codeset. ; Note: This contains notes that may assist in locating, using, ; documenting, etc., the codeset. ; DateType: This is the datatype of the codeset. ; MinSize: This is the maximum character size of the coded value. ; MaxSize: This is the minimum character size of the coded value.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+13
Function Call: WRITE	Prompt: "IHS"_$J(XBIHS,3,0)_";;"_$P($G(^DD(F,XB,0)),"^",1)_";;;" Line Location: FIELDS+11
Function Call: WRITE	Prompt: $$DESC(F,XB)_";"_$$FINFO(F,XB)_";"_$$TYPE($P($G(^DD(F,XB,0)),"^",2))_";;;"_F_";"_XB_";" Line Location: FIELDS+13
Function Call: WRITE	Prompt: ! Line Location: FIELDS+14
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+2
Routine Call	%ZIS Line Location: START+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(	FIELDS+3, FIELDS+4, FIELDS+5, FIELDS+6, FIELDS+11, FIELDS+13, DESC+4, DESC+5, FINFO+2, FINFO+3 , FINFO+4
^UTILITY("XBDSET"	START+9, VARS+4
^UTILITY($J	START+3!, START+4*, START+6!

Name	Field # of Occurrence
^(	DESC+4
^(0	FIELDS+5

Name	Field # of Occurrence
>> %ZIS	START+14*, START+15
F	VARS+3, VARS+4, FIELDS~, FIELDS+3, FIELDS+4, FIELDS+5, FIELDS+6, FIELDS+8, FIELDS+11, FIELDS+13 , DESC~, DESC+3, DESC+4, DESC+5, FINFO~, FINFO+2, FINFO+3, FINFO+4, PAGE+1~
G	PAGE+1~
IO	PAGE+2
IO(0	PAGE+2
IOF	PAGE+2
IOSL	FIELDS+3
IOST	PAGE+2
N	DESC~, DESC+3, DESC+4, DESC+5, FINFO~, FINFO+2, FINFO+3, FINFO+4, PAGE+1~
P	TYPE~, TYPE+2
T	FINFO+1~, FINFO+2*, FINFO+3, FINFO+4
W	TYPE+1~, TYPE+2*, TYPE+3
X	FIELDS+1~, FIELDS+6, FIELDS+7, DESC+1~, DESC+2, DESC+3, DESC+4, DESC+5*, DESC+6, PAGE+1~
XB	FIELDS+1~, FIELDS+2, FIELDS+3, FIELDS+4, FIELDS+5, FIELDS+6, FIELDS+8, FIELDS+11, FIELDS+13, DESC+1~ , DESC+4*
>> XBIHS	START+10, FIELDS+10, FIELDS+11
XBQFLG	VARS+2~, VARS+3, VARS+4, FIELDS+3, PAGE+2
>> Y	START+11
>> ZTSAVE	START+15
>> ZTSAVE("XBIHS"	START+14*
>> ZTSAVE("^UTILITY(""XBDSET"",$J,"	START+14*

Name	Field # of Occurrence
$T(VARS	VARS+2~