PSO DRUG WARNINGS (908)    SORT TEMPLATE (.401)

Outpatient Prescription Drug Warning List

• 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(1)=X
  QUERY CONDITION:   I (DISX(1)]]"@z")&(DISX(1)']]"Z")
  DESCRIPTION OF SORT:   DIVISION from A to Z
  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(1)=X
  FIELD NAME:   DIVISION
  SORT QUALIFIERS BEFORE FIELD:   '"20
  FROM VALUE INTERNAL:   @z
  FROM VALUE EXTERNAL:   A
  TO VALUE INTERNAL:   Z
  TO VALUE EXTERNAL:   Z
• 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(2)=X
  QUERY CONDITION:   I (DISX(2)]]"@z")&(DISX(2)']]"Z")
  DESCRIPTION OF SORT:   PATIENT from A to Z
  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(2)=X
  FIELD NAME:   PATIENT
  SORT QUALIFIERS BEFORE FIELD:   "2
  FROM VALUE INTERNAL:   @z
  FROM VALUE EXTERNAL:   A
  TO VALUE INTERNAL:   Z
  TO VALUE EXTERNAL:   Z
• FILE OR SUBFILE NO.:   52
  GET CODE:   S Y(1)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$P($G(^PSDRUG(+$P(Y(1),U,6),0)),U) I D0>0 S DISX(3)=X
  QUERY CONDITION:   I (DISX(3)]]"amowz")&(DISX(3)']]"amoxz")
  DESCRIPTION OF SORT:   DRUG from amox to amoxz
  DATA TYPE FOR SORTING:   FREE TEXT
  COMPUTED FIELD CODE:   S Y(1)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$P($G(^PSDRUG(+$P(Y(1),U,6),0)),U) I D0>0 S DISX(3)=X
  FIELD NAME:   DRUG
  SORT QUALIFIERS BEFORE FIELD:   "6
  FROM VALUE INTERNAL:   amowz
  FROM VALUE EXTERNAL:   amox
  TO VALUE INTERNAL:   amoxz
  TO VALUE EXTERNAL:   amoxz
• FILE OR SUBFILE NO.:   52
  GET CODE:   S DISX(4)=$P($G(^PSRX(D0,"OR1")),U,8)
  QUERY CONDITION:   I (DISX(4)]]3070300.999999)&(DISX(4)']]3100212.24)
  DESCRIPTION OF SORT:   FINISH DATE/TIME from Mar 1,2007 to Feb 12,2010@24:00
  SEARCH EFFICIENCY RATING:   10.2222
  PROBABILITY RATING:   0.9109
  DATA TYPE FOR SORTING:   DATE/TIME
  FIELD NO.:   38.3
  FIELD NAME:   FINISH DATE/TIME
  SORT QUALIFIERS BEFORE FIELD:   @
  FROM VALUE INTERNAL:   3070300.999999
  FROM VALUE EXTERNAL:   Mar 1,2007
  FROM VALUE PRINTABLE:   Mar 1,2007
  TO VALUE INTERNAL:   3100212.24
  TO VALUE EXTERNAL:   Feb 12,2010@2400
  TO VALUE PRINTABLE:   Feb 12,2010@24:00
  CROSS REFERENCE DATA:   ^PSRX("AFDT",^PSRX(^2