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.
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,40),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 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 ^DICR:$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 ^DICR:$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).