JSH DDS (890)    SORT TEMPLATE (.401)

Name Value
NAME JSH DDS
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   0
    GET CODE:   S X=$P(@(DCC_"D0,0)"),U,2),X=$S(X["C":6,X["N":2,X["P":7,X["S":3,X["D":1,X["V":8,X["K":9,X["W"!$S('X:0,'$D(^DD(+X,.01,0)):0,1:$P(^(0),U,2)["W"):5,1:0),X=$S($D(^DOPT("DICATT",X,0)):$P(^(0)," "),1:"FREE TEXT") S DISX(1)=X
    QUERY CONDITION:   I DISX(1)'=""
    DESCRIPTION OF SORT:   TYPE not null
    DATA TYPE FOR SORTING:   FREE TEXT
    FIELD NO.:   .25
    FIELD NAME:   TYPE
    SORT QUALIFIERS BEFORE FIELD:   @
  • FILE OR SUBFILE NO.:   .12
    GET CODE:   S Y(1)=$S($D(^DD(DFF,D0,"V",D1,0)):^(0),1:"") S X=$P($G(^DIC(+$P(Y(1),U,1),0)),U) I D1>0 S DISX(2)=X
    QUERY CONDITION:   I 1
    DESCRIPTION OF SORT:   All VARIABLE-POINTER (includes nulls)
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^DD(DFF,D0,"V",D1,0)):^(0),1:"") S X=$P($G(^DIC(+$P(Y(1),U,1),0)),U) I D1>0 S DISX(2)=X
    MULTIPLE FIELD DATA:
    • MULT.FILE OR SUBFILE NO.:   0
      NODE:   V
    FIELD NAME:   VARIABLE-POINTER
    SORT QUALIFIERS BEFORE FIELD:   ".01
    FROM VALUE INTERNAL:   ?z
    FROM VALUE EXTERNAL:   @
    TO VALUE INTERNAL:   z
  • FILE OR SUBFILE NO.:   0
    GET CODE:   S DISX(3)=$P($G(^DD(DFF,D0,0)),U)
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   LABEL not null
    DATA TYPE FOR SORTING:   FREE TEXT
    FIELD NO.:   .01
    FIELD NAME:   LABEL
    CROSS REFERENCE DATA:   ^DD(DFF,"B",^DD(DFF,^2
DATE CREATED 2007-04-10 12:48:00
READ ACCESS @
FILE File: 1, IEN: 0
USER # 1
WRITE ACCESS @
DATE LAST USED 2007-04-10 00:00:00