STANDARD DATA DICTIONARY #757.13 -- SOURCE CATEGORY FILE 3/24/25 PAGE 1
STORED IN ^LEX(757.13, (497 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains term categories provided by terminology source files.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
POINTED TO BY: SOURCE CATEGORY field (#15) of the EXPRESSIONS File (#757.01)
PARENT CATEGORY field (#2) of the SOURCE CATEGORY File (#757.13)
ANCESTOR CATEGORY field (#4) of the SOURCE CATEGORY File (#757.13)
CROSS
REFERENCED BY: ANCESTOR CATEGORY IDENTIFIER(AAID), CATEGORY IDENTIFIER(ACID), PARENT CATEGORY IDENTIFIER(ACP),
PARENT CATEGORY IDENTIFIER(APC), PARENT CATEGORY IDENTIFIER(APID), CATEGORY NAME(B), CATEGORY NAME(C),
CATEGORY NAME(D)
757.13,.01 CATEGORY NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Answer must be 3-64 characters in length.
DESCRIPTION: Name of a terminology category specified by a source vocabulary (i.e., VA Drug Class as specified
by NDF or Diagnostic class as specified by ICD).
CROSS-REFERENCE: 757.13^B
1)= S ^LEX(757.13,"B",$E(X,1,30),DA)=""
2)= K ^LEX(757.13,"B",$E(X,1,30),DA)
^LEX(757.13,"B",$E(CAT,1,30),IEN) - Where CAT is a free text description of the term category and
IEN is the Internal Entry Number in the Source Category file #757.13 where the Category is located.
CROSS-REFERENCE: 757.13^C^MUMPS
1)= S ^LEX(757.13,"C",$E($$UP^XLFSTR(X),1,64),DA)=""
2)= K ^LEX(757.13,"C",$E($$UP^XLFSTR(X),1,64),DA)
^LEX(757.13,"C",UN,IEN) - Where UN is a 64 character uppercase of the term category and IEN is the
Internal Entry Number in the Source Category file #757.13 where the category is located.
CROSS-REFERENCE: 757.13^D^KWIC
1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)
S ^LEX(757.13,"D",$$UP^XLFSTR(I),DA)=""
2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)
K ^LEX(757.13,"D",$$UP^XLFSTR(I),DA)
^LEX(757.13,"D",WORD,IEN) - Where WORD is a single parsed word taken from the Category Name and IEN
is the Internal Entry Number in the Source Category file #757.13 where the word is located.
757.13,1 CATEGORY IDENTIFIER 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: A single code (i.e., NDF code AH200 for Antihistamines, Ethanolamine) or a range of codes (i.e.,
ICD range of codes 001-009 for Intestinal Infectious Diseases) assigned to the terminology category
by the source vocabulary.
CROSS-REFERENCE: 757.13^ACID
1)= S ^LEX(757.13,"ACID",$E(X,1,30),DA)=""
2)= K ^LEX(757.13,"ACID",$E(X,1,30),DA)
^LEX(757.13,"ACID",ID,IEN) - Where ID is the category identifier and IEN is the internal entry
number in the Source Category file #757.13 where the identifier is located.
757.13,2 PARENT CATEGORY 1;1 POINTER TO SOURCE CATEGORY FILE (#757.13)
LAST EDITED: JUL 29, 1997
DESCRIPTION: This is the internal entry number in the Source Category file #757.13 where the parent category is
located.
757.13,3 PARENT CATEGORY IDENTIFIER 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: If a source category has a parent, then the parent category identifier will be included. It is a
code or a range of codes assigned to the parent category by the source vocabulary.
CROSS-REFERENCE: 757.13^APID
1)= S ^LEX(757.13,"APID",$E(X,1,30),DA)=""
2)= K ^LEX(757.13,"APID",$E(X,1,30),DA)
^LEX(757.13,"APID",ID,IEN) - Where ID is the parent category identifier and IEN is the internal
entry number in the Source Category file #757.13 where the identifier is located.
CROSS-REFERENCE: 757.13^APC^MUMPS
1)= S:$L($P($G(^LEX(757.13,DA,0)),"^",2)) ^LEX(757.13,"APC",X,$P($G(^LEX(757.13,DA,0)),"^",2),DA)="
"
2)= K:$L($P($G(^LEX(757.13,DA,0)),"^",2)) ^LEX(757.13,"APC",X,$P($G(^LEX(757.13,DA,0)),"^",2),DA)
^LEX(757.13,"APC",PAR,CHD,IEN) - Where PAR is the parent identifier, CHD is the child identifier
and IEN is the internal entry number in the Source Category file #757.13 where this parent-child
relationship exist.
CROSS-REFERENCE: 757.13^ACP^MUMPS
1)= S:$L($P($G(^LEX(757.13,DA,0)),"^",2)) ^LEX(757.13,"ACP",$P($G(^LEX(757.13,DA,0)),"^",2),X,DA)="
"
2)= K:$L($P($G(^LEX(757.13,DA,0)),"^",2)) ^LEX(757.13,"ACP",$P($G(^LEX(757.13,DA,0)),"^",2),X,DA)
^LEX(757.13,"ACP",CHD,PAR,IEN) - Where CHD is the child identifier and PAR is the parent identifier
and IEN is the internal entry number in the Source Category file #757.13 where this child-parent
relationship exist.
757.13,4 ANCESTOR CATEGORY 2;1 POINTER TO SOURCE CATEGORY FILE (#757.13)
LAST EDITED: JUL 29, 1997
DESCRIPTION: This is the internal entry number (IEN) in the Source Category file #757.13 where the ancestral
category is located. Ancestral categories are characterized as a category without a parent.
757.13,5 ANCESTOR CATEGORY IDENTIFIER 2;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: This is the identifier of the ancestral category and consist of a code or a range of codes assigned
by the source vocabulary.
CROSS-REFERENCE: 757.13^AAID
1)= S ^LEX(757.13,"AAID",$E(X,1,30),DA)=""
2)= K ^LEX(757.13,"AAID",$E(X,1,30),DA)
^LEX(757.13,"AAID",ID,IEN) - Where ID is the identifier of the ancestral category and IEN is the
internal entry number in the Source Category file #757.13 where the identifier is located.
757.13,6 FAMILY DESCENDANTS 3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>64!($L(X)<1) X
LAST EDITED: JUN 26, 1997
HELP-PROMPT: Answer must be 1-64 characters in length.
DESCRIPTION: This is a listing of internal entry numbers starting with the ancestral category to the named
category (.01 field). The internal entry numbers are delimited by the tilde (~) character.
~<...>~<...>~~
757.13,7 FAMILY ANCESTORS 3;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>64!($L(X)<1) X
LAST EDITED: JUN 26, 1997
HELP-PROMPT: Answer must be 1-64 characters in length.
DESCRIPTION: This is a listing of internal entry numbers starting with the named category (.01 field) to the
ancestral category. The internal entry numbers are delimited by the tilde (~) character.
~~<...>~<...>~
757.13,8 SOURCE 4;1 POINTER TO SOURCE FILE (#757.14)
LAST EDITED: JUL 01, 1997
DESCRIPTION: This is a pointer to the Source file #757.14 containing the common and acceptable name for the
source of the category (i.e., NDF VA Drug Class, ICD Three Digit Classification, etc), and the
source file or document containing the category.
757.13,9 SYSTEM OR GROUP 5;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>64!($L(X)<1) X
LAST EDITED: JUN 26, 1997
HELP-PROMPT: Answer must be 1-64 characters in length.
DESCRIPTION: This is the name of the system (i.e., cardiovascular, pulmonary, etc) or group (pharmacy, etc)
which is MOST frequently associated with the source category.
FILES POINTED TO FIELDS
SOURCE (#757.14) SOURCE (#8)
SOURCE CATEGORY (#757.13) PARENT CATEGORY (#2)
ANCESTOR CATEGORY (#4)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):