XU EPCS DISUSER2 SORT (922)    SORT TEMPLATE (.401)

This sort template is for the DEA EPCS project.  This template will sort 
on file #200, by Division and Termination Date.

• FILE OR SUBFILE NO.:   200.02
  GET CODE:   S Y(1)=$S($D(^VA(200,D0,2,D1,0)):^(0),1:"") S X=$P($G(^DIC(4,+$P(Y(1),U,1),0)),U) I D1>0 S DISX(1)=X
  QUERY CONDITION:   I 1
  DESCRIPTION OF SORT:   All DIVISION (includes nulls)
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^VA(200,D0,2,D1,0)):^(0),1:"") S X=$P($G(^DIC(4,+$P(Y(1),U,1),0)),U) I D1>0 S DISX(1)=X

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   200
    NODE:   2

  FIELD NAME:   DIVISION
  SORT QUALIFIERS BEFORE FIELD:   ".01
  FROM VALUE INTERNAL:   ?z
  FROM VALUE EXTERNAL:   @
  TO VALUE INTERNAL:   z
• FILE OR SUBFILE NO.:   200
  GET CODE:   S DISX(2)=$P($G(^VA(200,D0,0)),U,11)
  QUERY CONDITION:   I 1
  DESCRIPTION OF SORT:   All TERMINATION DATE (includes nulls)
  SEARCH EFFICIENCY RATING:   0.0000
  PROBABILITY RATING:   0.0000
  DATA TYPE FOR SORTING:   DATE/TIME
  FIELD NO.:   9.2
  FIELD NAME:   TERMINATION DATE
  SORT QUALIFIERS BEFORE FIELD:   -
  FROM VALUE INTERNAL:   ?z
  FROM VALUE EXTERNAL:   @
  TO VALUE INTERNAL:   z
• FILE OR SUBFILE NO.:   200
  GET CODE:   S DISX(3)=$P($G(^VA(200,D0,0)),U)
  QUERY CONDITION:   I DISX(3)'=""
  DESCRIPTION OF SORT:   NAME not null
  SEARCH EFFICIENCY RATING:   0
  PROBABILITY RATING:   0
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   .01
  FIELD NAME:   NAME
  CROSS REFERENCE DATA:   ^VA(200,"B",^VA(200,^2