PRCH BOC SORT (673)    SORT TEMPLATE (.401)

This sort template is used for a report of reconciled or approved purchase
card transactions using the BOC range 2696 to 2699.

• FILE OR SUBFILE NO.:   440.6
  GET CODE:   S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
  QUERY CONDITION:   I DISX(1)'=""
  DESCRIPTION OF SORT:   CARD HOLDER not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,17),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(1)=X
  FIELD NAME:   CARD HOLDER
  SORT QUALIFIERS BEFORE FIELD:   "16
  FROM VALUE INTERNAL:   @z
  FROM VALUE EXTERNAL:   A
  TO VALUE INTERNAL:   z
• FILE OR SUBFILE NO.:   440.6
  GET CODE:   S DISX(2)=$P($G(^PRCH(440.6,D0,5)),U,4)
  QUERY CONDITION:   I (DISX(2)]]2695.99999)&(DISX(2)']]2699)
  DESCRIPTION OF SORT:   BOC from 2696 to 2699
  SEARCH EFFICIENCY RATING:   0.9891
  PROBABILITY RATING:   0.9891
  DATA TYPE FOR SORTING:   FREE TEXT
  FIELD NO.:   24
  FIELD NAME:   BOC
  SORT QUALIFIERS AFTER FIELD:   ;S1
  FROM VALUE INTERNAL:   2695.99999
  FROM VALUE EXTERNAL:   2696
  TO VALUE INTERNAL:   2699
  TO VALUE EXTERNAL:   2699
• FILE OR SUBFILE NO.:   440.6
  GET CODE:   X DPP(3,"OVF0",9.2) S Y(3)=X S X="APPROVED",Y=X,X=Y(3),X=X!Y I D0>0 S DISX(3)=X
  QUERY CONDITION:   I DISX(3)
  DESCRIPTION OF SORT:   STATUS=""RECONCILED""!(""APPROVED"")
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   X DPP(3,"OVF0",9.2) S Y(3)=X S X="APPROVED",Y=X,X=Y(3),X=X!Y I D0>0 S DISX(3)=X

  OVERFLOW DATA:

  • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
    SECOND SUBSCRIPT FOR OVERFLOW:   9.2
    OVERFLOW CODE:   S Y(2)=$C(59)_$S($D(^DD(440.6,15,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PRCH(440.6,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_":",2),$C(59),1)="RECONCILED"

  FIELD NAME:   STATUS="RECONCILED"!("APPROVED")
  SORT QUALIFIERS BEFORE FIELD:   @"@B
  SORT QUALIFIERS AFTER FIELD:   ;L1
• FILE OR SUBFILE NO.:   440.6
  GET CODE:   S DISX(4)=$P($G(^PRCH(440.6,D0,0)),U,7)
  QUERY CONDITION:   I DISX(4)'=""
  DESCRIPTION OF SORT:   TRANSACTION DATE not null
  SEARCH EFFICIENCY RATING:   0.0000
  PROBABILITY RATING:   0.0000
  DATA TYPE FOR SORTING:   DATE/TIME
  FIELD NO.:   6
  FIELD NAME:   TRANSACTION DATE
  FROM VALUE INTERNAL:   2990100.99999
  FROM VALUE EXTERNAL:   1/1/99
  FROM VALUE PRINTABLE:   Jan 1,1999
  TO VALUE INTERNAL:   2990405
  TO VALUE EXTERNAL:   T
  TO VALUE PRINTABLE:   Apr 5,1999