Global: ^XT(8984.2

FileMan FileNo	FileMan Filename	Package
8984.2	LOCAL SHORTCUT	Toolkit

Directly Accessed By Routines, Total: 3

Package	Total	Routines
Toolkit	3	XTLKEFOP XTLKKWL XTLKMGR

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Toolkit	3	XTLKEFOP XTLKMGR XTLKPRT

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	FREQUENTLY USED NARRATIVE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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 cross-reference is of the form: ^XT(8984.2,"AC",global root,shortcut,DA)
.02	ENTRY	0;2	VARIABLE POINTER	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 ^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).
.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)

.01

FREQUENTLY USED NARRATIVE

0;1

FREE TEXT

************************REQUIRED FIELD************************

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 cross-reference is of the form:

^XT(8984.2,"AC",global root,shortcut,DA)

.02

ENTRY

0;2

VARIABLE POINTER

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 ^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).

.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)

ICR LINK	Subscribing Package(s)	Fields Referenced
ICR #392	Automated Medical Information Exchange	FREQUENTLY USED NARRATIVE (.01). Access: Both R/W w/Fileman ENTRY (.02). Access: Both R/W w/Fileman
ICR #854	LEXICON UTILITY
ICR #890	LEXICON UTILITY	FREQUENTLY USED NARRATIVE (.01). Access: Both R/W w/Fileman ENTRY (.02). Access: Both R/W w/Fileman CODE (.03). Access: Both R/W w/Fileman

Customize PDF page

Package: Toolkit

Global: ^XT(8984.2

Information

Description

Directly Accessed By Routines, Total: 3

Accessed By FileMan Db Calls, Total: 3

Fields, Total: 3

ICR, Total: 3