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 |  Pointed To By FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^LEX(757.12

Package: Lexicon Utility

Global: ^LEX(757.12


Information

FileMan FileNo FileMan Filename Package
757.12 SEMANTIC TYPE Lexicon Utility

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
Lexicon Utility 15 ASSOCIATED CODING SYSTEMS    LEX10TAX    LEXAR5    LEXDDSD    LEXDDSP    LEXDDTF    LEXDFSE    LEXLK2
LEXRXF    LEXSRC2    LEXU    ^LEX(757.1    ^LEX(757.12    LEXU2    LEXU7    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Lexicon Utility 1 SEMANTIC MAP(#757.1)[2]    

Fields, Total: 4

Field # Name Loc Type Details
.01 UNIQUE IDENTIFIER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?1"T"3N) X
  • LAST EDITED:  MAR 16, 1995
  • HELP-PROMPT:  Unique identifier must be 4 characters in length, T followed by 3 numerics.
  • DESCRIPTION:  
    The unique identifier is used for file maintenance.
    UNEDITABLE
  • CROSS-REFERENCE:  757.12^B
    1)= S ^LEX(757.12,"B",$E(X,1,30),DA)=""
    2)= K ^LEX(757.12,"B",$E(X,1,30),DA)
    ^LEX(757.12,"B",TUI,IEN) - where TUI is the Semantic Type Unique Identifier and IEN is the Internal Entry Number of the Semantic Type file #757.12 where the Type Unique Identifier is located.
1 DESCRIPTIVE TITLE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<2) X
  • LAST EDITED:  MAY 09, 1997
  • HELP-PROMPT:  Descriptive Title must be 2-200 characters in length.
  • DESCRIPTION:  
    Full title (textual description, mixed case) representing a semantical type.
    UNEDITABLE
  • CROSS-REFERENCE:  757.12^D
    1)= S ^LEX(757.12,"D",$E(X,1,30),DA)=""
    2)= K ^LEX(757.12,"D",$E(X,1,30),DA)
    ^LEX(757.12,"D",DT,IEN) - where DT is the Descriptive Title (1) of a semantic type and IEN is the Internal Entry Number in the Semantic Types file #757.12 where the descriptive title of the semantic type is located.
  • CROSS-REFERENCE:  757.12^E^MUMPS
    1)= S ^LEX(757.12,"E",$$UP^XLFSTR($E(X,1,30)),DA)=""
    2)= K ^LEX(757.12,"E",$$UP^XLFSTR($E(X,1,30)),DA)
    ^LEX(757.12,"E",UDT,IEN) - where UDT is the Uppercase form of the Descriptive Title (1) of the semantic type and IEN is the Internal Entry Number in the Semantic Types file #757.12 where the descriptive title is located.
2 CLASS 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3)!'(X?3U)!('$D(^LEX(757.11,"B",X))) X
  • LAST EDITED:  NOV 24, 1993
  • HELP-PROMPT:  Class must be 3 UPPERCASE characters.
  • DESCRIPTION:  
    Three character mnemonic representing the semantical class for which this semantical type belongs.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  757.12^C
    1)= S ^LEX(757.12,"C",$E(X,1,30),DA)=""
    2)= K ^LEX(757.12,"C",$E(X,1,30),DA)
    ^LEX(757.12,"C",SC,IEN) - where SC is a 3 character mnemonic representing a semantic class to which the semantic type belongs and IEN is the Internal Entry Number of the Semantic Type file #757.12 where the semantic class
    is located.
  • CROSS-REFERENCE:  757.12^F^KWIC
    1)= S %A=$P($G(^LEX(757.12,DA,0)),"^",2)_" ",%1=1,%B=$O(^LEX(757.11,"B",X,0)) F %=1:1:$L(%A)+1 S I=$E(%A,%) I "(,.?! '-/&:;)"[I S I=$E($E(%A,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^LEX(757.11,"F",$$UP^XLFSTR(I),+(
    %B))=""
    2)= S %A=$P($G(^LEX(757.12,DA,0)),"^",2)_" ",%1=1,%B=$O(^LEX(757.11,"B",X,0)) F %=1:1:$L(%A)+1 S I=$E(%A,%) I "(,.?! '-/&:;)"[I S I=$E($E(%A,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^LEX(757.11,"F",$$UP^XLFSTR(I),+(%B))
3 ASSOCIATED CODING SYSTEMS 1;0 Multiple #757.123 757.123

  • DESCRIPTION:  
    This multiple field contains all of the classification systems (i.e., ICD, CPT, DSM) which have terms included in this semantical type.

External References

Name Field # of Occurrence
$$UP^XLFSTR 1(XREF 2S), 1(XREF 2K), 2(XREF 2S), 2(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("KWIC" 2(XREF 2S)
^LEX(757.11 - [#757.11] 2+1, 2(XREF 2S), 2(XREF 2K)
^LEX(757.12 - [#757.12] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 2(XREF 2S), 2(XREF 2K)
>> %1 2(XREF 2S), 2(XREF 2K)
>> %A 2(XREF 2S), 2(XREF 2K)
>> %B 2(XREF 2S), 2(XREF 2K)
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
>> I 2(XREF 2S), 2(XREF 2K)
U ID1+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2+1!, 2(XREF 1S)
2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All