Global: ^LEX(757.13

FileMan FileNo	FileMan Filename	Package
757.13	SOURCE CATEGORY	Lexicon Utility

Package	Total	Routines
Lexicon Utility	3	LEXA LEXAL LEXLK2

Package	Total	FileMan Files
Lexicon Utility	2	EXPRESSIONS(#757.01)[15] SOURCE CATEGORY(#757.13)[2, 4]

Package	Total	FileMan Files
Lexicon Utility	2	SOURCE CATEGORY(#757.13)[2, 4] SOURCE(#757.14)[8]

Field #	Name	Loc	Type	Details
.01	CATEGORY NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.
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.
2	PARENT CATEGORY	1;1	POINTER TO SOURCE CATEGORY FILE (#757.13)	SOURCE CATEGORY(#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.
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.
4	ANCESTOR CATEGORY	2;1	POINTER TO SOURCE CATEGORY FILE (#757.13)	SOURCE CATEGORY(#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.
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.
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. ~<...>~<...>~~
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. ~~<...>~<...>~
8	SOURCE	4;1	POINTER TO SOURCE FILE (#757.14)	SOURCE(#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.
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.

Field #

Name

Loc

Type

Details

.01

CATEGORY NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

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.

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.

2

PARENT CATEGORY

1;1

POINTER TO SOURCE CATEGORY FILE (#757.13)

SOURCE CATEGORY(#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.

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.

4

ANCESTOR CATEGORY

2;1

POINTER TO SOURCE CATEGORY FILE (#757.13)

SOURCE CATEGORY(#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.

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.

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.  ~<...>~<...>~~

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.  ~~<...>~<...>~

8

SOURCE

4;1

POINTER TO SOURCE FILE (#757.14)

SOURCE(#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.
```

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.

Customize PDF page

Package: Lexicon Utility

Global: ^LEX(757.13

Information

Description

Directly Accessed By Routines, Total: 3

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 2

Fields, Total: 10