PRCH P/C ORACLE SORT (580)    SORT TEMPLATE (.401)

Sort by card holder and purchase order..

• FILE OR SUBFILE NO.:   440.6
  GET CODE:   S DISX(1)=$P($G(^PRCH(440.6,D0,1)),U,6)
  QUERY CONDITION:   I DISX(1)'=""
  DESCRIPTION OF SORT:   RECONCILE DATE not null
  DATA TYPE FOR SORTING:   DATE/TIME
  FIELD NO.:   46
  FIELD NAME:   RECONCILE DATE
• 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(2)=X
  QUERY CONDITION:   I DISX(2)'=""
  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(2)=X
  FIELD NAME:   CARD HOLDER
  SORT QUALIFIERS BEFORE FIELD:   "16
• FILE OR SUBFILE NO.:   440.6
  GET CODE:   S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"") S X=$S('$D(^PRC(442,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
  QUERY CONDITION:   I DISX(3)'=""
  DESCRIPTION OF SORT:   PURCHASE ORDER not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"") S X=$S('$D(^PRC(442,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
  FIELD NAME:   PURCHASE ORDER
  SORT QUALIFIERS BEFORE FIELD:   "41
  CROSS REFERENCE DATA:   ^PRCH(440.6,"PO",^PRCH(440.6,^2
  POINT TO CROSS REFERENCE:   ^PRC(442,"B",