STANDARD DATA DICTIONARY #8984.1 -- LOCAL KEYWORD FILE 3/24/25 PAGE 1
STORED IN ^XT(8984.1, (1334 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
The lookup entry (or code) can be associated with multiple key words or key phrases. The entry will be displayed if the user enters
all or any part of a key phrase. For example:
|**mtlu x-ref**
KEYPHRASE: LOOKUP FILE: V
SALT AND PEPPER NAME: JOHN HAIR COLOR: LIGHT BROWN
SORT OF GRAY JACK PRETTY GRAY
SCHNAUZER JILL GEORGIA CLAY
MARY SORT OF GRAY
JIM BLACK AND WHITE
If each of the above keyphrases are associated with 'JIM' then users can enter the following combinations: 1. SALT, SALT AND
PEPPER, SALT & PEPPER, PEPPER, SORT OF PEPPER, SCHNAUZER will return ONLY Jim. Note that SORT OF PEPPER returns only Jim because
the tokens 'SORT' and 'PEPPER' must BOTH be true for a match. PEPPER is false for Mary. 2. SORT, SORT OF GRAY returns Mary and Jim
3. GRAY returns Mary, Jim, and Jack
NOTE! LOOKUPS ARE PERFORMED IN THE FOLLOWING ORDER:
1. SHORTCUT<--stops here if a match is found
2. SYNONYM
3. KEYWORD
DD ACCESS: @
RD ACCESS: #
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: CODE (#.03)
CROSS
REFERENCED BY: ENTRY(AC), ASSOCIATED FILE(AD), NAME(AIHS), NAME(B), CODE(C)
8984.1,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: OCT 16, 1990
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
A term or phrase that will be associated with a specific entry in a target file.
CROSS-REFERENCE: 8984.1^B
1)= S ^XT(8984.1,"B",$E(X,1,30),DA)=""
2)= K ^XT(8984.1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 8984.1^AIHS^MUMPS
1)= I $D(^XT(8984.1,DA,0)),$P(^(0),U,2)'="" S JL=$P(^(0),U,2),JL1=$P(JL,";"),JL2="^"_$P(JL,";",2),J
L3=+$P(@(JL2_"0)"),U,2),JL3=$P(^XT(8984.4,JL3,0),U,3),%=JL2_"JL3,I,JL1,DA)" D S^XTLKWIC K JL,JL1,JL
2,%,JL3
2)= I $D(^XT(8984.1,DA,0)),$P(^(0),U,2)'="" S JL=$P(^(0),U,2),JL1=$P(JL,";"),JL2="^"_$P(JL,";",2),J
L3=+$P(@(JL2_"0)"),U,2),JL3=$P(^XT(8984.4,JL3,0),U,3),%=JL2_"JL3,I,JL1,DA)" D K^XTLKWIC K JL,JL1,JL
2,JL3,%
This cross-reference passes the keyword or tokenized phrase into the special lookup
cross-reference of the target file in the same manner as is done on the ENTRY field.
8984.1,.02 ENTRY 0;2 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
31 1 DVBA n DISABILITY CONDITION
396.93 2 DVBB n EXAM EXCEPTIONS
80 4 ICD9( n ICD DIAGNOSIS !! FILE 396.93 DOES NOT EXIST !!
LAST EDITED: SEP 27, 1993
DESCRIPTION:
This field is a variable pointer to the file and entry with which the keyword is associated.
CROSS-REFERENCE: 8984.1^AC^MUMPS
1)= I $D(^XT(8984.1,DA,0)),$P(^(0),U,2)'="" S JLX=$P(^(0),U),JL=$P(^(0),U,2),JL1=$P(JL,";"),JL2="^"
_$P(JL,";",2),JL3=+$P(@(JL2_"0)"),U,2),JL3=$P(^XT(8984.4,JL3,0),U,3),%=JL2_"JL3,I,JL1,DA)" D S^XTLK
WIC K JL,JL1,JL2,JL3,JLX,%
2)= I $D(^XT(8984.1,DA,0)),$P(^(0),U,2)'="" S JLX=$P(^(0),U),JL=X,JL1=$P(JL,";"),JL2="^"_$P(JL,";",
2),JL3=+$P(@(JL2_"0)"),U,2),JL3=$P(^XT(8984.4,JL3,0),U,3),%=JL2_"JL3,I,JL1,DA)" D K^XTLKWIC K JL,JL
1,JL2,JL3,JLX,%
This cross-reference passes the keyword or 'tokenized' phrase into the special lookup
cross-reference of the target file.
CROSS-REFERENCE: ^^TRIGGER^8984.1^.03
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S
DIU=X K Y X ^DD(8984.1,.02,1,2,1.1) X ^DD(8984.1,.02,1,2,1.4)
1.1)= S X=DIV X ^DD(8984.1,.02,1,2,49.3) S X=X_" "
1.4)= S DIH=$S($D(^XT(8984.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=8984.1,DIG=.03 D ^D
ICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S
DIU=X K Y S X="" X ^DD(8984.1,.02,1,2,2.4)
2.4)= S DIH=$S($D(^XT(8984.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=8984.1,DIG=.03 D ^D
ICR:$O(^DD(DIH,DIG,1,0))>0
49.2)=
49.3)= X ^DD(8984.1,.02,1,2,49.2) S X=DIV,C=$S(X="":-1,'$D(@(U_$P(X,";",2)_"0)")):-1,1:$P(^(0),U,2)
),X=$S(X="":X,'$D(^(+X,0)):"",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:"D") D:X]""
Y^DIQ:C'["D" S X=Y,C=","
CREATE VALUE)= ENTRY_" "
DELETE VALUE)= @
FIELD)= CODE
CROSS-REFERENCE: ^^TRIGGER^8984.1^.04
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y X ^DD(8984.1,.02,1,3,1.1) X ^DD(8984.1,.02,1,3,1.4)
1.1)= S X=DIV S X="^"_$P(X,";",2)_"0)",X=$S($D(@X):+$P(^(0),U,2),1:"")
1.4)= S DIH=$S($D(^XT(8984.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=8984.1,DIG=.04 D ^D
ICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S
DIU=X K Y S X="" X ^DD(8984.1,.02,1,3,2.4)
2.4)= S DIH=$S($D(^XT(8984.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=8984.1,DIG=.04 D ^D
ICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S X="^"_$P(X,";",2)_"0)",X=$S($D(@X):+$P(^(0),U,2),1:"")
DELETE VALUE)= @
FIELD)= ASSOCIATED FILE
8984.1,.03 CODE 0;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X
LAST EDITED: OCT 16, 1990
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
This field holds the entry itself and is triggered by ENTRY field.
NOTES: TRIGGERED by the ENTRY field of the LOCAL KEYWORD File
CROSS-REFERENCE: 8984.1^C
1)= S ^XT(8984.1,"C",$E(X,1,30),DA)=""
2)= K ^XT(8984.1,"C",$E(X,1,30),DA)
8984.1,.04 ASSOCIATED FILE 0;4 POINTER TO FILE FILE (#1)
LAST EDITED: NOV 21, 1990
DESCRIPTION: This field contains the global root of the file associated with the keyword entry. It is TRIGGERED
by the ENTRY field.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the ENTRY field of the LOCAL KEYWORD File
CROSS-REFERENCE: 8984.1^AD
1)= S ^XT(8984.1,"AD",$E(X,1,30),DA)=""
2)= K ^XT(8984.1,"AD",$E(X,1,30),DA)
FILES POINTED TO FIELDS
DISABILITY CONDITION (#31) ENTRY (#.02)
FILE (#1) ASSOCIATED FILE (#.04)
ICD DIAGNOSIS (#80) ENTRY (#.02)
INPUT TEMPLATE(S):
XTLK EDIT KEY DEC 17, 1990@11:17 USER #0
PRINT TEMPLATE(S):
XTLK KEYWORD ALPHA OCT 17, 1990@13:10 USER #0 LOCAL KEYWORD BY ALPHA
XTLK KEYWORD CODES OCT 17, 1990@13:14 USER #0 LOCAL KEYWORD BY CODES
SORT TEMPLATE(S):
XTLK KEYWORD ALPHA NOV 26, 1990@14:21 USER #0
SORT BY: '@INTERNAL(ASSOCIATED FILE)// (User is asked range)
WITHIN INTERNAL(ASSOCIATED FILE), SORT BY: NAME//
XTLK KEYWORD CODES NOV 26, 1990@11:03 USER #0
SORT BY: '@INTERNAL(ASSOCIATED FILE)// (User is asked range)
WITHIN INTERNAL(ASSOCIATED FILE), SORT BY: CODE//
FORM(S)/BLOCK(S):