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
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: 4

Package Total Routines
Lexicon Utility 4 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.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields