STANDARD DATA DICTIONARY #757.071 -- SUPPLEMENTAL WORDS FILE 9/29/25 PAGE 1
STORED IN ^LEX(757.071, (702 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains supplemental words to use during lookup and the rules to use to apply the supplemental words to the expression.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: INCLUDES (#.04)
CROSS
REFERENCED BY: WORD(AD1), INCLUDES(AD2), WORD(B)
LAST MODIFIED: JUL 27,2017@12:22:34
757.071,.01 WORD 0;1 FREE TEXT (Required)
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.
757.071,.02 EFFECTIVE DATE 0;2 DATE (Required)
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).
757.071,.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.
757.071,.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.
757.071,.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.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):