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

Name Value
NAME XU EPCS PSDRPH SORT
DESCRIPTION
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.

SORT FIELD DATA
  • 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
DATE CREATED 2012-12-13 12:01:00
READ ACCESS @
FILE NEW PERSON
WRITE ACCESS @
DATE LAST USED 2012-12-13 00:00:00