Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | 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

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
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All