PSO NARC LIST (215)    SORT TEMPLATE (.401)

Name Value
NAME PSO NARC LIST
SORT FIELD DATA
  • FILE OR SUBFILE NO.:   52
    GET CODE:   S DISX(1)=$P($G(^PSRX(D0,2)),U,2)
    QUERY CONDITION:   I DISX(1)'=""
    DESCRIPTION OF SORT:   FILL DATE not null
    SEARCH EFFICIENCY RATING:   0.0594
    PROBABILITY RATING:   0.0594
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   22
    FIELD NAME:   FILL DATE
    SORT QUALIFIERS BEFORE FIELD:   +
    FROM VALUE INTERNAL:   2950100.99999
    FROM VALUE EXTERNAL:   010195
    FROM VALUE PRINTABLE:   1/1/95
    TO VALUE INTERNAL:   2951010
    TO VALUE EXTERNAL:   T
    TO VALUE PRINTABLE:   10/10/95
  • FILE OR SUBFILE NO.:   52
    GET CODE:   X DPP(2,"OVF0",9.2) S X=X["A" S D0=I(0,0) I D0>0 S DISX(2)=X
    QUERY CONDITION:   I DISX(2)
    DESCRIPTION OF SORT:   (DRUG:DEA, SPECIAL HDLG)[""A""
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(2,"OVF0",9.2) S X=X["A" S D0=I(0,0) I D0>0 S DISX(2)=X
    OVERFLOW DATA:
    • FIRST SUBSCRIPT FOR OVERFLOW:   OVF0
      SECOND SUBSCRIPT FOR OVERFLOW:   9.2
      OVERFLOW CODE:   S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^PSRX(D0,0)):^(0),1:""),D0=$P(Y(1),U,6) S:'$D(^PSDRUG(+D0,0)) D0=-1 S Y(101)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$P(Y(101),U,3)
    FIELD NAME:   (DRUG:DEA, SPECIAL HDLG)["A"
    SORT QUALIFIERS BEFORE FIELD:   "@B
    SORT QUALIFIERS AFTER FIELD:   ;L1
  • FILE OR SUBFILE NO.:   52
    GET CODE:   S Y(1)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$S('$D(^PSDRUG(+$P(Y(1),U,6),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
    QUERY CONDITION:   I DISX(3)'=""
    DESCRIPTION OF SORT:   DRUG not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^PSRX(D0,0)):^(0),1:"") S X=$S('$D(^PSDRUG(+$P(Y(1),U,6),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
    FIELD NAME:   DRUG
    SORT QUALIFIERS BEFORE FIELD:   "6
DATE CREATED 1993-03-08 15:50:00
READ ACCESS @
FILE PRESCRIPTION
WRITE ACCESS @
DATE LAST USED 1997-09-02 00:00:00