XU EPCS DISUSER SORT (921)    SORT TEMPLATE (.401)

This sort template is for the DEA EPCS project. This sorts by termination date.

• FILE OR SUBFILE NO.:   200
  GET CODE:   S DISX(1)=$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(2)=$P($G(^VA(200,D0,0)),U)
  QUERY CONDITION:   I DISX(2)'=""
  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