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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^XT(8984.2

Package: Toolkit

Global: ^XT(8984.2


Information

FileMan FileNo FileMan Filename Package
8984.2 LOCAL SHORTCUT Toolkit

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Toolkit 4 XTLKEFOP    ^XT(8984.2    XTLKKWL    XTLKMGR    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Toolkit 3 XTLKEFOP    XTLKMGR    XTLKPRT    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
DRG Grouper 2 ICD OPERATION/PROCEDURE(#80.1)[.02]    ICD DIAGNOSIS(#80)[.02]    
HINQ 1 DISABILITY CONDITION(#31)[.02]    
Kernel 1 STATE(#5)[.02]    

Fields, Total: 3

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 DISABILITY CONDITION(#31)  ICD DIAGNOSIS(#80)  

  • 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, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
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

    External References

    Name Field # of Occurrence
    ^DICR .02(XREF 1n1.4), .02(XREF 1n2.4)
    Y^DIQ .02(XREF 1n49.3)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .02(XREF 1n1.4), .02(XREF 1n2.4), .02(XREF 1n49.3)
    ^DD(8984.2 .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1K), .02(XREF 1n49.3)
    ^XT(8984.2 - [#8984.2] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 2S), .02(XREF 2K)
    .03(XREF 1S), .03(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^( .02(XREF 1n49.3)
    ^(0 .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 1n49.3), .02(XREF 2S), .02(XREF 2K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> C .02(XREF 1n49.3)
    >> D0 .02(XREF 1S), .02(XREF 1K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
    >> DIG .02(XREF 1n1.4), .02(XREF 1n2.4)
    >> DIH .02(XREF 1n1.4), .02(XREF 1n2.4)
    >> DIU .02(XREF 1S), .02(XREF 1K)
    DIV .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 1n49.3)
    DIV(0 .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4)
    JL .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K)
    JLN .02(XREF 2S), .02(XREF 2K)
    U .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4), .02(XREF 1n49.3), .02(XREF 2S), .02(XREF 2K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1n1.1), .02(XREF 1n1.4), .02(XREF 1K), .02(XREF 1n2.4)
    .02(XREF 1n49.3), .03+1!, .03(XREF 1S), .03(XREF 1K)
    Y .02(XREF 1S), .02(XREF 1K), .02(XREF 1n49.3)
    Y(1 .02(XREF 1S), .02(XREF 1K)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All