PRCH CREDIT SORT (218)    SORT TEMPLATE (.401)

SORT TEMPLATE CREATED FOR CREDIT CARD PURCHASES, WHICH SORTS BY
FUND CONTROL POINT, WITHIN FCP IT SORTS BY PURCHASING/PPM AGENT(PA)
AND WITHIN PA IT SORTS BY PURCHASE ORDER DATE.

• FILE OR SUBFILE NO.:   442
  GET CODE:   S DISX(1)=$P($G(^PRC(442,D0,0)),U,3)
  QUERY CONDITION:   I DISX(1)]]"100z"
  DESCRIPTION OF SORT:   FCP from 101
  SEARCH EFFICIENCY RATING:   0.2178
  PROBABILITY RATING:   0.2178
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   1
  FIELD NAME:   FCP
  SORT QUALIFIERS AFTER FIELD:   ;S1;C20
  FROM VALUE INTERNAL:   100z
  FROM VALUE EXTERNAL:   101
  TO VALUE INTERNAL:   z
• FILE OR SUBFILE NO.:   442
  GET CODE:   S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,10),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X
  QUERY CONDITION:   I DISX(2)="EVERITTE,ROBIN"
  DESCRIPTION OF SORT:   PURCHASING/PPM AGENT equals EVERITTE,ROBIN
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,10),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(2)=X
  FIELD NAME:   PURCHASING/PPM AGENT
  SORT QUALIFIERS BEFORE FIELD:   "16
  SORT QUALIFIERS AFTER FIELD:   ;"PURCHASING AGENT: ";C20
  FROM VALUE INTERNAL:   EVERITTE,ROBIMz
  FROM VALUE EXTERNAL:   EVERITTE,ROBIN
  TO VALUE INTERNAL:   EVERITTE,ROBIN
  TO VALUE EXTERNAL:   EVERITTE,ROBIN
• FILE OR SUBFILE NO.:   442
  GET CODE:   S DISX(3)=$P($G(^PRC(442,D0,1)),U,15)
  QUERY CONDITION:   I DISX(3)'=""
  DESCRIPTION OF SORT:   P.O. DATE not null
  SEARCH EFFICIENCY RATING:   0.0306
  PROBABILITY RATING:   0.0297
  DATA TYPE FOR SORTING:   DATE/TIME
  FIELD NO.:   .1
  FIELD NAME:   P.O. DATE
  SORT QUALIFIERS AFTER FIELD:   ;S1
  FROM VALUE INTERNAL:   2951008.99999
  FROM VALUE EXTERNAL:   T-30
  FROM VALUE PRINTABLE:   10/9/95
  TO VALUE INTERNAL:   z
  CROSS REFERENCE DATA:   ^PRC(442,"AB",^PRC(442,^2