Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  All
Print Page as PDF
Global: ^XT(8984.1

Package: Toolkit

Global: ^XT(8984.1


Information

FileMan FileNo FileMan Filename Package
8984.1 LOCAL KEYWORD Toolkit

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Toolkit 2 XTLKEFOP    XTLKMGR    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Toolkit 3 XTLKEFOP    XTLKMGR    XTLKPRT    

Pointer To FileMan Files, Total: 1

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

Fields, Total: 4

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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),JL3=+$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,JL2,%,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),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,JL1,JL2,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.
.02 ENTRY 0;2 VARIABLE POINTER

  • 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^XTLKWIC 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,JL1,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 ^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.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 ^DICR:$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 ^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.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 ^DICR:$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
.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)
.04 ASSOCIATED FILE 0;4 POINTER TO FILE FILE (#1) 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)

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #346
  • LEXICON UTILITY
    		•
    ICR #391
  • Automated Medical Information Exchange
    		•  NAME (.01).
    Access: Both R/W w/Fileman

    ENTRY (.02).
    Access: Both R/W w/Fileman
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  All