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 |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^LEX(757.071

Package: Lexicon Utility

Global: ^LEX(757.071


Information

FileMan FileNo FileMan Filename Package
757.071 SUPPLEMENTAL WORDS Lexicon Utility

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Lexicon Utility 6 LINKAGES    ^LEX(757.071    LEXQWS    LEXWUM    LEXWUP    LEXWUS    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Lexicon Utility 1 LEXQWS    

Fields, Total: 5

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

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X
    MAXIMUM LENGTH: 40
  • LAST EDITED:  AUG 24, 2016
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    This is a word to be applied to the SUPPLEMENTAL fields in either the Lexicon or ICD files 80/80.1.
  • CROSS-REFERENCE:  757.071^B
    1)= S ^LEX(757.071,"B",$$UP^XLFSTR($E(X,1,40)),DA)=""
    2)= K ^LEX(757.071,"B",$$UP^XLFSTR($E(X,1,40)),DA)
    ^LEX(757.071,"B",KEY,IEN) - Where KEY is a keyword and IEN is the Internal Entry Number where the keyword is stored.
  • CROSS-REFERENCE:  757.071^AD1^MUMPS
    1)= S ^LEX(757.071,"AD",$$UP^XLFSTR($E(X,1,40)),DA)=""
    2)= K ^LEX(757.071,"AD",$$UP^XLFSTR($E(X,1,40)),DA)
    ^LEX(757.071,"AD",KEY,IEN) - Where KEY is a keyword from the .01 field and IEN is the Internal Entry Number where the keyword is stored.
.02 EFFECTIVE DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2960923>X X
  • LAST EDITED:  OCT 13, 2015
  • HELP-PROMPT:  Type a date not earlier than SEP 23, 1996.
  • DESCRIPTION:  
    The word is to be used from the effective date until the inactivation date (if one exist).
.03 INACTIVE DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:2960924>X X
  • LAST EDITED:  OCT 13, 2015
  • HELP-PROMPT:  Type a date not earlier than SEP 24, 1996.
  • DESCRIPTION:  
    If an inactivation date exist, and it is in the past, then the word will not be used.
.04 INCLUDES 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  OCT 13, 2015
  • HELP-PROMPT:  Answer must be 2-85 characters in length.
  • DESCRIPTION:  
    This is a semi-colon ";" delimited string of words and phrases that must be contained in a term for the word to be applied.
  • CROSS-REFERENCE:  757.071^AD2^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)>2,^DD("KWIC")'[I S ^LEX(757.071,"AD",$$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)>2 K ^LEX(757.071,"AD",$$UP^XLFSTR(I),DA)
    ^LEX(757.071,"AD",WORD,IEN) - Where WORD is a parsed word (KWIC) from the INCLUDES string in field .04 and IEN is the Internal Entry Number where the parsed word is stored.
.05 EXCLUDES 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  OCT 13, 2015
  • HELP-PROMPT:  Answer must be 2-85 characters in length.
  • DESCRIPTION:  
    This is a semi-colon ";" delimited string of words and phrases that must NOT be contained in a term for the word to be applied.

External References

Name Field # of Occurrence
^%DT .02+1, .03+1
EN^DDIOL ID.04+1
$$UP^XLFSTR .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .04(XREF 1S), .04(XREF 1K)

Global Variables Directly Accessed

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % .04(XREF 1S), .04(XREF 1K)
>> %1 .04(XREF 1S), .04(XREF 1K)
>> %DT .02+1*, .03+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .04(XREF 1S), .04(XREF 1K)
>> I .04(XREF 1S), .04(XREF 1K)
LEXI ID.04+1~*
LEXK ID.04+1~*
LEXT ID.04+1~*
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1*!, .03+1*!, .04+1!, .04(XREF 1S), .04(XREF 1K)
, .05+1!
>> Y ID.04+1, .02+1, .03+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All