Global: ^XT(8984.3

FileMan FileNo	FileMan Filename	Package
8984.3	LOCAL SYNONYM	Toolkit

Package	Total	Routines
Toolkit	3	XTLKEFOP XTLKMGR XTLKPRT

Package	Total	FileMan Files
VA FileMan	1	FILE(#1)[.02]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TERM	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E)!'(X?1U.U) X` LAST EDITED: `NOV 20, 1990` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `The term or phrase associated with the target file that the synonym will be equivalent to.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `8984.3^B` `1)= S ^XT(8984.3,"B",$E(X,1,30),DA)=""` `2)= K ^XT(8984.3,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `8984.3^AC^MUMPS` `1)= I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="" S JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,"GL"),U,2),^XT(8984.3,"AC",JL,$E(X,1,30),DA)="" K JL` `2)= I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="" S JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,"GL"),U,2) K ^XT(8984.3,"AC",JL,$E(X,1,30),DA),JL` `Associates the synonym with the global root of the lookup file.`
.02	ASSOCIATED FILE	0;2	POINTER TO FILE FILE (#1)	**********************REQUIRED FIELD********************** FILE(#1) INPUT TRANSFORM: `S DIC("S")="I $D(^XT(8984.4,+Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 20, 1990` DESCRIPTION: `The file containing the TERM that MTLU will use for lookups.` SCREEN: `S DIC("S")="I $D(^XT(8984.4,+Y,0))"` EXPLANATION: `ONLY FILES FROM THE LOCAL LOOKUP FILE.` CROSS-REFERENCE: `8984.3^AD^MUMPS` `1)= I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="" S JLN=$P(^(0),U),JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,"GL"),U,2),^XT(8984.3,"AC",JL,JLN,DA)="" K JL,JLN` `2)= I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="" S JLN=$P(^(0),U),JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,"GL"),U,2) K ^XT(8984.3,"AC",JL,JLN,DA),JL,JLN` `Associates the synonym with the global root of the lookup file in the 'AC' cross-reference.`
.03	SYNONYM	1;0	Multiple #8984.31	8984.31 DESCRIPTION: `One or more terms that are related to the term in the associated file.`

.01

TERM

0;1

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E)!'(X?1U.U) X
LAST EDITED: NOV 20, 1990
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
The term or phrase associated with the target file that the synonym will be equivalent to.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 8984.3^B
1)= S ^XT(8984.3,"B",$E(X,1,30),DA)=""
2)= K ^XT(8984.3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 8984.3^AC^MUMPS
1)= I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="" S JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,"GL"),U,2),^XT(8984.3,"AC",JL,$E(X,1,30),DA)="" K JL
2)= I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="" S JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,"GL"),U,2) K ^XT(8984.3,"AC",JL,$E(X,1,30),DA),JL
Associates the synonym with the global root of the lookup file.

.02

ASSOCIATED FILE

0;2

POINTER TO FILE FILE (#1)

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

FILE(#1)

INPUT TRANSFORM: S DIC("S")="I $D(^XT(8984.4,+Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 20, 1990
DESCRIPTION:
The file containing the TERM that MTLU will use for lookups.
SCREEN: S DIC("S")="I $D(^XT(8984.4,+Y,0))"
EXPLANATION: ONLY FILES FROM THE LOCAL LOOKUP FILE.
CROSS-REFERENCE: 8984.3^AD^MUMPS
1)= I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="" S JLN=$P(^(0),U),JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,"GL"),U,2),^XT(8984.3,"AC",JL,JLN,DA)="" K JL,JLN
2)= I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="" S JLN=$P(^(0),U),JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,"GL"),U,2) K ^XT(8984.3,"AC",JL,JLN,DA),JL,JLN
Associates the synonym with the global root of the lookup file in the 'AC' cross-reference.

.03

SYNONYM

1;0

Multiple #8984.31

8984.31

DESCRIPTION:
One or more terms that are related to the term in the associated file.

TERM: MALARIA	TERM: SYPHILIS	TERM: HYPOTHYROIDISM	TERM: HYPERPITUITARISM	TERM: OSTEOMYELITIS	TERM: TUBERCULOSIS	TERM: ARTHRITIS	TERM: AMPUTATION
TERM: FUSION	TERM: TALUS	TERM: PARALYSIS

ICR LINK	Subscribing Package(s)	Fields Referenced
ICR #393	Automated Medical Information Exchange	TERM (.01). Access: Both R/W w/Fileman
ICR #855	Lexicon Utility
ICR #891	Lexicon Utility	TERM (.01). Access: Both R/W w/Fileman ASSOCIATED FILE (.02). Access: Both R/W w/Fileman SYNONYM (.03). Access: Both R/W w/Fileman SYNONYM (.01). Access: Both R/W w/Fileman

Customize PDF page

Package: Toolkit

Global: ^XT(8984.3

Information

Description

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 1

Fields, Total: 3

Found Entries, Total: 11

ICR, Total: 3