PSO PARK LIST (943)    SORT TEMPLATE (.401)

Sort for ACTIVE/PARK prescriptions

• FILE OR SUBFILE NO.:   52
  GET CODE:   S DISX(1)=$P($G(^PSRX(D0,"PARK")),U)
  QUERY CONDITION:   I DISX(1)=1
  DESCRIPTION OF SORT:   PARK equals 1 (YES)
  SEARCH EFFICIENCY RATING:   19.2000
  PROBABILITY RATING:   0.9505
  DATA TYPE FOR SORTING:   SET OF CODES
  FIELD NO.:   521012
  FIELD NAME:   PARK
  SORT QUALIFIERS BEFORE FIELD:   @
  FROM VALUE INTERNAL:   .999999
  FROM VALUE EXTERNAL:   1
  FROM VALUE PRINTABLE:   1 (YES)
  TO VALUE INTERNAL:   1
  TO VALUE EXTERNAL:   1
  TO VALUE PRINTABLE:   1 (YES)
  CROSS REFERENCE DATA:   ^PSRX("APARK",^PSRX(^2
• FILE OR SUBFILE NO.:   52
  GET CODE:   S DISX(2)=$P($G(^PSRX(D0,"STA")),U)
  QUERY CONDITION:   I DISX(2)=0
  DESCRIPTION OF SORT:   STATUS equals 0 (ACTIVE)
  SEARCH EFFICIENCY RATING:   1.0000
  PROBABILITY RATING:   1.0000
  DATA TYPE FOR SORTING:   SET OF CODES
  FIELD NO.:   100
  FIELD NAME:   STATUS
  SORT QUALIFIERS BEFORE FIELD:   @
  FROM VALUE INTERNAL:   -1
  FROM VALUE EXTERNAL:   0
  FROM VALUE PRINTABLE:   0 (ACTIVE)
  TO VALUE INTERNAL:   0
  TO VALUE EXTERNAL:   0
  TO VALUE PRINTABLE:   0 (ACTIVE)
• FILE OR SUBFILE NO.:   52
  GET CODE:   S Y(1)=$S($D(^PSRX(D0,2)):^(2),1:"") S X=$P($G(^PS(59,+$P(Y(1),U,9),0)),U) I D0>0 S DISX(3)=X
  QUERY CONDITION:   I (DISX(3)]]"ALBANXz")&(DISX(3)']]"AZ")
  DESCRIPTION OF SORT:   DIVISION from ALBANY to AZ
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PSRX(D0,2)):^(2),1:"") S X=$P($G(^PS(59,+$P(Y(1),U,9),0)),U) I D0>0 S DISX(3)=X
  FIELD NAME:   DIVISION
  SORT QUALIFIERS BEFORE FIELD:   #"20
  FROM VALUE INTERNAL:   ALBANXz
  FROM VALUE EXTERNAL:   ALBANY
  TO VALUE INTERNAL:   AZ
  TO VALUE EXTERNAL:   AZ
• FILE OR SUBFILE NO.:   52
  GET CODE:   S DISX(4)=$P($G(^PSRX(D0,0)),U,13)
  QUERY CONDITION:   I (DISX(4)]]3210101.999999)&(DISX(4)']]3211015.24)
  DESCRIPTION OF SORT:   ISSUE DATE from JAN 2,2021 to OCT 15,2021@24:00
  SEARCH EFFICIENCY RATING:   100.0000
  PROBABILITY RATING:   1.0000
  DATA TYPE FOR SORTING:   DATE/TIME
  FIELD NO.:   1
  FIELD NAME:   ISSUE DATE
  SORT QUALIFIERS BEFORE FIELD:   '
  FROM VALUE INTERNAL:   3210101.999999
  FROM VALUE EXTERNAL:   JAN 2,2021
  FROM VALUE PRINTABLE:   JAN 2,2021
  TO VALUE INTERNAL:   3211015.24
  TO VALUE EXTERNAL:   T@2400
  TO VALUE PRINTABLE:   OCT 15,2021@24:00
  CROSS REFERENCE DATA:   ^PSRX("AC",^PSRX(^2
• FILE OR SUBFILE NO.:   52
  GET CODE:   S Y(1)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$P($G(^DPT(+$P(Y(1),U,2),0)),U) I D0>0 S DISX(5)=X
  QUERY CONDITION:   I DISX(5)'=""
  DESCRIPTION OF SORT:   PATIENT not null
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$P($G(^DPT(+$P(Y(1),U,2),0)),U) I D0>0 S DISX(5)=X
  FIELD NAME:   PATIENT
  SORT QUALIFIERS BEFORE FIELD:   "2