Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^LEX(757.02

Package: Lexicon Utility

Global: ^LEX(757.02


Information

FileMan FileNo FileMan Filename Package
757.02 CODES Lexicon Utility

Description

Directly Accessed By Routines, Total: 98

Package Total Routines
Lexicon Utility 88 LEX10CX3    LEX10CX5    LEX10DBT    LEX10DU    LEX10DX    LEX10TAX    LEX2028    LEX2047B
LEX2072P    LEX2073A    LEX2073B    LEX2073K    LEX2076P    LEX2089P    LEX2103P    LEX2127P
LEXAR8    LEXASO    LEXCODE    LEXDFSS    LEXINF    LEXINF3    LEXINF4    LEXINF5
LEXPRNT    LEXQC    LEXQID2    LEXQIP3    LEXQIPA    LEXQVSEA    LEXRXB    LEXRXD2
LEXRXXM    LEXSRC    LEXTRAN    LEXU    LEXU2    LEXU3    LEXU4    LEXWUL
LEXWUP    LEXXFQ    LINKAGES    ^LEX(757.02    ACTIVATION STATUS    LEX10CS    LEX10CS2    LEX10CX2
LEX10DBC    LEX10DBR    LEX10DL    LEX10PL    LEX10PR    LEX2027P    LEX2044P    LEX2067P
LEX2073H    LEX2073I    LEX2073J    LEX2081A    LEXABC    LEXAL    LEXAR5    LEXDCCC
LEXDFSO    LEXINF2    LEXLK2    LEXNDX8    LEXQC6    LEXQCP    LEXQCP2    LEXQHL5
LEXQID4    LEXQIP2    LEXQSC    LEXQSC2    LEXQSCA    LEXQVSE    LEXQVSE2    LEXRXD
LEXRXD3    LEXRXD4    LEXSRC2    LEXTRAN1    LEXU5    LEXU6    LEXU7    LEXXGI3
CPT HCPCS Codes 1 ICPT614E    
DRG Grouper 1 ICD186E    

Accessed By FileMan Db Calls, Total: 14

Package Total Routines
Lexicon Utility 14 LEX2047B    LEX2067P    LEX2072P    LEX2073A    LEX2073H    LEX2073I    LEX2073J    LEX2073K
LEX2076P    LEX2081A    LEXINF4    LEXQSCA    LEXQVSEA    LEXTRAN    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Lexicon Utility 3 MAJOR CONCEPT MAP(#757)[3]    EXPRESSIONS(#757.01)[.01]    CODING SYSTEMS(#757.03)[2]    

Fields, Total: 8

Field # Name Loc Type Details
.01 EXPRESSION 0;1 POINTER TO EXPRESSIONS FILE (#757.01)
************************REQUIRED FIELD************************
EXPRESSIONS(#757.01)

  • LAST EDITED:  MAY 12, 2016
  • HELP-PROMPT:  Enter the expression (2-240 characters) for the code.
  • DESCRIPTION:  Pointer to the expression in the Expression file #757.01 to which a classification code (i.e., ICD, CPT, DSM code) has been assigned. This pointer links the code to an expression. This expression can be a Major Concept,
    a Synonym or a Lexical Variant of either the Major Concept or the Synonym.
    UNEDITABLE
  • CROSS-REFERENCE:  757.02^B
    1)= S ^LEX(757.02,"B",$E(X,1,30),DA)=""
    2)= K ^LEX(757.02,"B",$E(X,1,30),DA)
    ^LEX(757.02,"B",EXP,IEN) - where EXP is a pointer to the expression in the Expression file (#757.01) which has been assigned a classification code and IEN is the Internal Entry Number in the Codes file (#757.02) where this
    expression is located. This index is used to retrieve all codes associated with an expression.
1 CODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  NOV 21, 2016
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Classification Code as described by a controlled vocabulary (i.e., ICD, CPT, etc.)
  • CROSS-REFERENCE:  757.02^ACT1^MUMPS
    1)= D SAHC^LEXNDX8
    2)= D KAHC^LEXNDX8
    ^LEX(757.02,"ACT",CODE,STA,DATE,IEN,HIS) - Where CODE is the classification code, STA is the status (see below), DATE is the date the code was activated or inactivated, IEN is the internal entry number in the CODES file,
    and HIS is the entry number of the Activation Status multiple where this historical entry may be found.
    Values for Status:
    0 = Code is Inactive
    1 = Code is Active
    2 = Code for the preferred term is Inactive
    3 = Code for the preferred term is Active
  • CROSS-REFERENCE:  757.02^CODE^MUMPS
    1)= S ^LEX(757.02,"CODE",X_" ",DA)=""
    2)= K ^LEX(757.02,"CODE",X_" ",DA)
    ^LEX(757.02,"CODE",CODE,IEN) - Where CODE is a classification code (i.e. ICD code, CPT code, DSM code, etc.) and IEN is the Internal Entry Number in the codes file (#757.02) where this code is located. This is an index of
    all codes contained in this file.
  • CROSS-REFERENCE:  757.02^APCODE1^MUMPS
    1)= S:$L(X)&(+$P(^LEX(757.02,+DA,0),"^",5)>0) ^LEX(757.02,"APCODE",(X_" "),+DA)=""
    2)= K:$L(X)&(+$P(^LEX(757.02,+DA,0),"^",5)>0) ^LEX(757.02,"APCODE",(X_" "),+DA)
    ^LEX(757.02,"APCODE",(CODE_" "),IEN) - Where CODE is a classification code and IEN is the internal entry number where the record pointing to the preferred term for the code is stored in file 757.02.
2 CLASSIFICATION SOURCE 0;3 POINTER TO CODING SYSTEMS FILE (#757.03)
************************REQUIRED FIELD************************
CODING SYSTEMS(#757.03)

  • LAST EDITED:  APR 15, 2016
  • HELP-PROMPT:  Enter the coding system (source) for the code.
  • DESCRIPTION:  
    Pointer to the classification system (ICD/CPT/DSM etc.) described in the Coding Systems file (#757.03) from which the code (field 1) is derived.
  • CROSS-REFERENCE:  757.02^ASRC^MUMPS
    1)= S ^LEX(757.02,"ASRC",$E(^LEX(757.03,X,0),1,3),DA)=""
    2)= K ^LEX(757.02,"ASRC",$E(^LEX(757.03,X,0),1,3),DA)
    ^LEX(757.02,"ASRC",SAB,IEN) - where SAB is the three character mnemonic of the Source Abbreviation (i.e., ICD, CPT, etc.) from the Coding Systems file #757.03 and IEN is the Internal Entry Number where this type of code
    can be located. This index is used extensively in filtering searches by type of code and used to determine the type of code selected.
  • CROSS-REFERENCE:  757.02^AVA^MUMPS
    1)= N SAB S SAB=$E(^LEX(757.03,X,0),1,3) S:"^ICD^10D^ICP^10P^CPT^CPC^BIR^DS4^NAN^HHC^NIC^SNM^OMA^SCC^SCT^"[SAB ^LEX(757.02,"AVA",($P(^LEX(757.02,DA,0),U,2)_" "),$P(^LEX(757.02,DA,0),U),SAB,DA)=""
    2)= N SAB S SAB=$E(^LEX(757.03,X,0),1,3) K ^LEX(757.02,"AVA",($P(^LEX(757.02,DA,0),U,2)_" "),$P(^LEX(757.02,DA,0),U),SAB,DA)
    ^LEX(757.02,"AVA",CODE,MCIEN,SAB,IEN) - where CODE is the Classification Code from field 1, MCIEN is a pointer to Major Concept Map file (#757), SAB is the three character mnemonic for the source abbreviation in the Coding
    Systems file #757.03 (i.e., ICD, CPT, etc.) and IEN is the Internal Entry Number in the Codes file #757.02 where the code is located. This is an index of only those codes frequently used by the VA.
3 MAJOR CONCEPT 0;4 POINTER TO MAJOR CONCEPT MAP FILE (#757)
************************REQUIRED FIELD************************
MAJOR CONCEPT MAP(#757)

  • LAST EDITED:  SEP 30, 2015
  • HELP-PROMPT:  Enter the major concept (2-240 characters) for the code.
  • DESCRIPTION:  Pointer the Major Concept in the Major Concept Map file #757 to which a classification code (i.e., ICD, CPT, DSM code) has been assigned. This pointer links the code to the Major Concept of the expression defined in the
    .01 field (Expression).
    UNEDITABLE
  • CROSS-REFERENCE:  757.02^AMC
    1)= S ^LEX(757.02,"AMC",$E(X,1,30),DA)=""
    2)= K ^LEX(757.02,"AMC",$E(X,1,30),DA)
    ^LEX(757.02,"AMC",MC,IEN) - where MC is a pointer to the Major Concept Map file #757 and IEN is the Internal Entry Number of the Codes file #757.03 where this Major Concept pointer is located. Used to retrieve all codes
    associated with a Major Concept.
4 PREFERENCE FLAG 0;5 SET
  • '1' FOR PREFERRED TERM;
  • '0' FOR OTHER THAN PREFERRED TERM;

  • LAST EDITED:  SEP 30, 2015
  • HELP-PROMPT:  Enter 1 if this is the preferred term for the code.
  • DESCRIPTION:  Some codes within a coding system are linked to multiple terms. This flag indicates the preferred term of a code (within a classification system), providing a one-to-one relationship between codes and terms. This field
    is only populated when a code is linked to multiple terms.
  • CROSS-REFERENCE:  757.02^APCODE2^MUMPS
    1)= S:+X>0&($L($P($G(^LEX(757.02,+DA,0)),U,2))) ^LEX(757.02,"APCODE",($P($G(^LEX(757.02,+DA,0)),U,2)_" "),+DA)=""
    2)= K:$L($P($G(^LEX(757.02,+DA,0)),U,2)) ^LEX(757.02,"APCODE",($P($G(^LEX(757.02,+DA,0)),U,2)_" "),+DA)
    ^LEX(757.02,"APCODE",(CODE_" "),IEN) - Where CODE is a classification code and IEN is the internal entry number where the record pointing to the preferred term for the code is stored in file 757.02.
6 PRIMARY FLAG 0;7 SET
************************REQUIRED FIELD************************
  • '0' FOR SUPPLEMENTAL CODE;
  • '1' FOR PRIMARY CODE;

  • LAST EDITED:  SEP 30, 2015
  • HELP-PROMPT:  Enter 1 if this code is the primary code for the expression.
  • DESCRIPTION:  If an expression has multiple codes from the same classification system (i.e., ICD, CPT, etc.) then one will be flagged as the primary code and the others will be flagged as supplemental. If there is only one code of a
    specific classification system then it will be flagged as the primary code.
8 ACTIVATION STATUS 4;0 DATE Multiple #757.28 757.28

  • DESCRIPTION:  
    This is a listing of the activation history for a code.
13 LEGACY CODE 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 30, 2015
  • HELP-PROMPT:  Answer must be 1-20 characters in length
  • DESCRIPTION:  This field stores a code that under a different version of the coding system represents the same concept as the code in the current coding system. E.g. SNOMED CT (the current SNOMED code system) code 123456789 might have a
    SNOMED 2 (legacy code system) legacy code of F-12345.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6837 EXPRESSION (.01).
Access: Read w/Fileman

CODE (1).
Access: Read w/Fileman

CLASSIFICATION SOURCE (2).
Access: Read w/Fileman

MAJOR CONCEPT (3).
Access: Read w/Fileman

PREFERENCE FLAG (4).
Access: Read w/Fileman

DEACTIVATION FLAG (5).
Access: Read w/Fileman

PRIMARY FLAG (6).
Access: Read w/Fileman

ACTIVATION EFFECTIVE DATE (.01).
Access: Read w/Fileman

ACTIVATION STATUS (1).
Access: Read w/Fileman

LEGACY CODE (13).
Access: Read w/Fileman

External References

Name Field # of Occurrence
Y^DIQ ID2+1
KAHC^LEXNDX8 1(XREF 2K)
SAHC^LEXNDX8 1(XREF 2S)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(757.03 ID2+1
^LEX(757.02 - [#757.02] ID4+1, ID6+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 3S), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 2(XREF 1S), 2(XREF 1K)
2(XREF 2S), 2(XREF 2K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K)
^LEX(757.03 - [#757.03] ID2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1, ID2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I ID2+1*!
>> C ID2+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 3S), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K)
>> DIC ID2+1
SAB 2(XREF 2S), 2(XREF 2K)
U ID1+1, ID2+1, 2(XREF 2S), 2(XREF 2K), 4(XREF 1S), 4(XREF 1K)
X .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 3S), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S)
2(XREF 2K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 13+1!
>> Y ID2+1*, ID4+1, ID6+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All