PRCH OUTSTANDING REQUEST/PA (140)    SORT TEMPLATE (.401)

This template helps select 2237s to display, as well as, provide
sort parameters for display of outstanding 2237s.

• FILE OR SUBFILE NO.:   443
  GET CODE:   S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X I D0>0 S DISX(1)=X
  QUERY CONDITION:   I (DISX(1)]]68.999999)&(DISX(1)']]80)
  DESCRIPTION OF SORT:   INTERNAL(#1.5) from 69 to 80
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X I D0>0 S DISX(1)=X
  FIELD NAME:   INTERNAL(#1.5)
  SORT QUALIFIERS BEFORE FIELD:   '"
  FROM VALUE INTERNAL:   68.999999
  FROM VALUE EXTERNAL:   69
  TO VALUE INTERNAL:   80
  TO VALUE EXTERNAL:   80
• FILE OR SUBFILE NO.:   443
  GET CODE:   S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"") S X=$P($G(^VA(200,+$P(Y(1),U,5),0)),U) I D0>0 S DISX(2)=X
  QUERY CONDITION:   I 1
  DESCRIPTION OF SORT:   All PURCHASING AGENT (includes nulls)
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"") S X=$P($G(^VA(200,+$P(Y(1),U,5),0)),U) I D0>0 S DISX(2)=X
  FIELD NAME:   PURCHASING AGENT
  SORT QUALIFIERS BEFORE FIELD:   +"6
  SORT QUALIFIERS AFTER FIELD:   ;S2;C17
  FROM VALUE INTERNAL:   ?z
  FROM VALUE EXTERNAL:   @
  TO VALUE INTERNAL:   z
• FILE OR SUBFILE NO.:   443
  GET CODE:   S I(0,0)=$G(D0),Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'D0!'$D(^PRCS(410,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCS(410,D0,1)):^(1),1:"") S X=$P(Y(101),U,4) S D0=I(0,0) I D0>0 S DISX(3)=X
  QUERY CONDITION:   I DISX(3)'=""
  DESCRIPTION OF SORT:   .01:DATE REQUIRED not null
  DATA TYPE FOR SORTING:   DATE/TIME
  COMPUTED FIELD CODE:   S I(0,0)=$G(D0),Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'D0!'$D(^PRCS(410,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCS(410,D0,1)):^(1),1:"") S X=$P(Y(101),U,4) S D0=I(0,0) I D0>0 S DISX(3)=X
  FIELD NAME:   .01:DATE REQUIRED
  SORT QUALIFIERS BEFORE FIELD:   "
  SORT QUALIFIERS AFTER FIELD:   ;"DATE REQUIRED: ";C5;S1
  COMPUTED FIELD TYPE:   D
• FILE OR SUBFILE NO.:   443
  GET CODE:   S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"") S X=$P($G(^PRCS(410,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X
  QUERY CONDITION:   I DISX(4)'=""
  DESCRIPTION OF SORT:   2237 TRANSACTION NUMBER not null
  SEARCH EFFICIENCY RATING:   0.0000
  PROBABILITY RATING:   0.0000
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"") S X=$P($G(^PRCS(410,+$P(Y(1),U,1),0)),U) I D0>0 S DISX(4)=X
  FIELD NAME:   2237 TRANSACTION NUMBER
  SORT QUALIFIERS BEFORE FIELD:   ".01
  CROSS REFERENCE DATA:   ^PRC(443,"B",^PRC(443,^2
  POINT TO CROSS REFERENCE:   ^PRCS(410,"B",