PSO COST STAT (670)    SORT TEMPLATE (.401)

This sort template is used to print Rx cost data sorted by Outpatient
Pharmacy division.

• FILE OR SUBFILE NO.:   50.9006
  GET CODE:   S Y(1)=$S($D(^PSCST(D0,"V",D1,0)):^(0),1:"") S X=$S('$D(^PS(59,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X
  QUERY CONDITION:   I DISX(1)'=""
  DESCRIPTION OF SORT:   DIVISION not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PSCST(D0,"V",D1,0)):^(0),1:"") S X=$S('$D(^PS(59,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D1>0 S DISX(1)=X

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   50.9
    NODE:   V

  FIELD NAME:   DIVISION
  SORT QUALIFIERS BEFORE FIELD:   +".01
  FROM VALUE INTERNAL:   STICJz
  FROM VALUE EXTERNAL:   STICK
  TO VALUE INTERNAL:   z
• FILE OR SUBFILE NO.:   50.9
  GET CODE:   S DISX(2)=$P($G(^PSCST(D0,0)),U)
  QUERY CONDITION:   I DISX(2)'=""
  DESCRIPTION OF SORT:   FILLED DATE not null
  SEARCH EFFICIENCY RATING:   0
  PROBABILITY RATING:   0
  DATA TYPE FOR SORTING:   DATE/TIME
  FIELD NO.:   .01
  FIELD NAME:   FILLED DATE
  SORT QUALIFIERS BEFORE FIELD:   @
  SORT QUALIFIERS AFTER FIELD:   ;
  FROM VALUE INTERNAL:   2990100.99999
  FROM VALUE EXTERNAL:   0101
  FROM VALUE PRINTABLE:   Jan 1,1999
  TO VALUE INTERNAL:   z
  CROSS REFERENCE DATA:   ^PSCST("B",^PSCST(^2