XU EPCS PSDRPH SORT (918)    SORT TEMPLATE (.401)

This sort template is for the ePCS DEA project will sort by security key 
'PSDRPH' and Division..  This sort template will be used for report to identify 
individuals that hold this keys.

• 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)="PSDRPH"
  DESCRIPTION OF SORT:   KEY equals PSDRPH
  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:   PSDRPGz
  FROM VALUE EXTERNAL:   PSDRPH
  TO VALUE INTERNAL:   PSDRPH
  TO VALUE EXTERNAL:   PSDRPH
  CROSS REFERENCE DATA:   ^VA(200,"AB",^VA(200,^2
  POINT TO CROSS REFERENCE:   ^DIC(19.1,"B",
• 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(2)=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(2)=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(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