STANDARD DATA DICTIONARY #8984.2 -- LOCAL SHORTCUT FILE 6/27/25 PAGE 1
STORED IN ^XT(8984.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is a word or phrase which will be used EXCLUSIVELY to find an entry. During a lookup, this file is checked first. If a
shortcut matches the user's entry, the corresponding entry will be displayed and no other lookups will be performed.
DD ACCESS: @
RD ACCESS: #
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: FREQUENTLY USED NARRATIVE(AC), ENTRY(AD), FREQUENTLY USED NARRATIVE(B), CODE(D)
8984.2,.01 FREQUENTLY USED NARRATIVE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: NOV 20, 1990
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION: This is a word or phrase which will be used EXCLUSIVELY to find an entry. During a lookup, this
file is checked first. If a shortcut matches the user's entry, the corresponding entry will be
displayed and no other lookups will be performed.
CROSS-REFERENCE: 8984.2^B
1)= S ^XT(8984.2,"B",$E(X,1,30),DA)=""
2)= K ^XT(8984.2,"B",$E(X,1,30),DA)
This field is cross-referenced by global node and narrative and will look like this:
^XT(8984.3,"AC",global root,narrative,DA)
CROSS-REFERENCE: 8984.2^AC^MUMPS
1)= I $D(^XT(8984.2,DA,0)),$P(^(0),U,2)'="" S JL=$P($P(^(0),U,2),";",2),^XT(8984.2,"AC",JL,$E(X,1,4
0),DA)="" K JL
2)= I $D(^XT(8984.2,DA,0)),$P(^(0),U,2)'="" S JL=$P($P(^(0),U,2),";",2) K ^XT(8984.2,"AC",JL,$E(X,1
,40),DA),JL
This cross-reference is of the form:
^XT(8984.2,"AC",global root,shortcut,DA)
8984.2,.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 is a variable pointer to the file and entry with which the shortcut is associated. The entry
itself is triggered into the CODE field.
CROSS-REFERENCE: ^^TRIGGER^8984.2^.03
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S
DIU=X K Y X ^DD(8984.2,.02,1,1,1.1) X ^DD(8984.2,.02,1,1,1.4)
1.1)= S X=DIV X ^DD(8984.2,.02,1,1,49.3) S X=X_" "
1.4)= S DIH=$S($D(^XT(8984.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=8984.2,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.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S
DIU=X K Y S X="" X ^DD(8984.2,.02,1,1,2.4)
2.4)= S DIH=$S($D(^XT(8984.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=8984.2,DIG=.03 D ^D
ICR:$O(^DD(DIH,DIG,1,0))>0
49.2)=
49.3)= X ^DD(8984.2,.02,1,1,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
Triggers the CODE field of the LOCAL SHORTCUT FILE.
CROSS-REFERENCE: 8984.2^AD^MUMPS
1)= I $D(^XT(8984.2,DA,0)),$P(^(0),U,2)'="" S JLN=$P(^(0),U),JL=$P($P(^(0),U,2),";",2),^XT(8984.2,"
AC",JL,JLN,DA)="" K JL,JLN
2)= I $D(^XT(8984.2,DA,0)),$P(^(0),U,2)'="" S JLN=$P(^(0),U),JL=$P($P(^(0),U,2),";",2) K ^XT(8984.2
,"AC",JL,JLN,DA),JL,JLN
Resets the 'AC' cross-reference (normally set when editing FREQUENTLY USED NARRATIVE).
8984.2,.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 is the lookup-entry in the associated file. It is triggered by the ENTRY field.
NOTES: TRIGGERED by the ENTRY field of the LOCAL SHORTCUT File
CROSS-REFERENCE: 8984.2^D
1)= S ^XT(8984.2,"D",$E(X,1,30),DA)=""
2)= K ^XT(8984.2,"D",$E(X,1,30),DA)
FILES POINTED TO FIELDS
DISABILITY CONDITION (#31) ENTRY (#.02)
ICD DIAGNOSIS (#80) ENTRY (#.02)
INPUT TEMPLATE(S):
XTLK EDIT SHORT DEC 17, 1990@11:18 USER #0
PRINT TEMPLATE(S):
XTLK SHORT ALPHA OCT 17, 1990@13:27 USER #0 LOCAL SHORT CUT BY ALPHA
XTLK SHORT CODE OCT 17, 1990@13:32 USER #0 LOCAL SHORTCUT LIST BY CODES
SORT TEMPLATE(S):
XTLK SHORT ALPHA OCT 17, 1990@13:26 USER #0
SORT BY: FREQUENTLY USED NARRATIVE//
WITHIN FREQUENTLY USED NARRATIVE, SORT BY: ENTRY//
XTLK SHORT CODE OCT 17, 1990@13:31 USER #0
SORT BY: CODE//
WITHIN CODE, SORT BY: FREQUENTLY USED NARRATIVE//
FORM(S)/BLOCK(S):