Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables
Print Page as PDF
Sort Template: PSO NARC LIST

Package: Outpatient Pharmacy

Sort Template: PSO NARC LIST


Source Information

Name Value
NAME PSO NARC LIST
SORT FIELD DATA
  1. 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
  2. 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:
    1. 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
  3. 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] RJ, OVF02P11, P31, P35
^PSRX - [#52] P11, OVF02P11, P31, P35

Naked Globals

Name Field # of Occurrence
^(0 OVF02P11, P31, P35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 P11, P21, P25, OVF02P11, P31, P35
>> DISX(1 P11, P13
>> DISX(2 P21, P23, P25
>> DISX(3 P31, P33, P35
>> DPP(2 P21, P25
>> I(0 P21, P25, OVF02P11
U P11, OVF02P11, P31, P35
>> X P21, P25, OVF02P11, P31, P35
>> Y(1 OVF02P11, P31, P35
>> Y(101 OVF02P11
Source Information |  Global Variables Directly Accessed |  Naked Globals |  Local Variables