XU EPCS DIV SORT (917)    SORT TEMPLATE (.401)

This sort template is for the DEA EPCS project.  This supports the 
report for Prescribers with Controlled Substance Privileges.  This 
templates will sort on file #200, by divisions and by user. 

• 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)
  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