XU EPCS ACTIVE USER SORT (920)    SORT TEMPLATE (.401)

This sort template is for the DEA EPCS project. This 
templates will sort on file #200, by ACTIVE users.

• FILE OR SUBFILE NO.:   200
  GET CODE:   I $$ACTIVE I D0>0 S DISX(1)=X
  QUERY CONDITION:   I DISX(1)'=""
  DESCRIPTION OF SORT:   I $$ACTIVE not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   I $$ACTIVE I D0>0 S DISX(1)=X
  FIELD NAME:   I $$ACTIVE
  SORT QUALIFIERS BEFORE FIELD:   ]@"
• 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
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   .01
  FIELD NAME:   NAME
  CROSS REFERENCE DATA:   ^VA(200,"B",^VA(200,^2