XU EPCS SET PARMS SORT (919)    SORT TEMPLATE (.401)

This sort template is for the ePCS DEA project will sort by security key 
'XUEPCSEDIT'.  This sort template will be used for report to identify 
individuals responsible for setting ePCS parameters.

• FILE OR SUBFILE NO.:   200.051
  GET CODE:   S Y(1)=$S($D(^VA(200,D0,51,D1,0)):^(0),1:"") S X=$P($G(^DIC(19.1,+$P(Y(1),U,1),0)),U) I D1>0 S DISX(1)=X
  QUERY CONDITION:   I DISX(1)="XUEPCSEDIT"
  DESCRIPTION OF SORT:   KEY equals XUEPCSEDIT
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^VA(200,D0,51,D1,0)):^(0),1:"") S X=$P($G(^DIC(19.1,+$P(Y(1),U,1),0)),U) I D1>0 S DISX(1)=X

  MULTIPLE FIELD DATA:

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

  FIELD NAME:   KEY
  SORT QUALIFIERS BEFORE FIELD:   @".01
  FROM VALUE INTERNAL:   XUEPCSEDISz
  FROM VALUE EXTERNAL:   XUEPCSEDIT
  TO VALUE INTERNAL:   XUEPCSEDIT
  TO VALUE EXTERNAL:   XUEPCSEDIT
  CROSS REFERENCE DATA:   ^VA(200,"AB",^VA(200,^2
  POINT TO CROSS REFERENCE:   ^DIC(19.1,"B",
• 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