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 |  All
Print Page as PDF
Sort Template: RA CLINIC BY PRINT DATE

Package: Radiology Nuclear Medicine

Sort Template: RA CLINIC BY PRINT DATE


Source Information

Name Value
NAME RA CLINIC BY PRINT DATE
DESCRIPTION
This template sorts the distribution queue by clinic location.
It also allows for sorting of reports by print status.
SORT FIELD DATA
  1. FILE OR SUBFILE NO.:   74.4
    GET CODE:   S DISX(1)=$P($G(^RABTCH(74.4,D0,0)),U,4)
    QUERY CONDITION:   I (DISX(1)]]2970907.99999)&(DISX(1)']]2971217.9999)
    DESCRIPTION OF SORT:   PRINT DATE/TIME from 9/8/97 to 12/17/97@99:99
    SEARCH EFFICIENCY RATING:   29.0000
    PROBABILITY RATING:   0.9667
    DATA TYPE FOR SORTING:   DATE/TIME
    FIELD NO.:   4
    FIELD NAME:   PRINT DATE/TIME
    SORT QUALIFIERS BEFORE FIELD:   @
    FROM VALUE INTERNAL:   2970907.99999
    FROM VALUE EXTERNAL:   2970908
    FROM VALUE PRINTABLE:   9/8/97
    TO VALUE INTERNAL:   2971217.9999
    TO VALUE EXTERNAL:   2971217.9999
    TO VALUE PRINTABLE:   12/17/97@99:99
    CROSS REFERENCE DATA:   ^RABTCH(74.4,"AD",^RABTCH(74.4,^2
  2. FILE OR SUBFILE NO.:   74.4
    GET CODE:   S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X
    QUERY CONDITION:   I (DISX(2)]]"@z")&(DISX(2)']]"Z")
    DESCRIPTION OF SORT:   REPORT:HOSPITAL DIVISION from A to Z
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 X $P(^DD(74,53,0),U,5,99) S Y(101)=X S X=Y(101) S D0=I(0,0) I D0>0 S DISX(2)=X
    FIELD NAME:   REPORT:HOSPITAL DIVISION
    SORT QUALIFIERS BEFORE FIELD:   @"
    FROM VALUE INTERNAL:   @z
    FROM VALUE EXTERNAL:   A
    TO VALUE INTERNAL:   Z
    TO VALUE EXTERNAL:   Z
  3. FILE OR SUBFILE NO.:   74.4
    GET CODE:   S Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"") S X=$S('$D(^SC(+$P(Y(1),U,8),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
    QUERY CONDITION:   I (DISX(3)]]"1Dz")&(DISX(3)']]"ZZX-RAY")
    DESCRIPTION OF SORT:   PRINCIPAL CLINIC from 1E to ZZX-RAY
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   S Y(1)=$S($D(^RABTCH(74.4,D0,0)):^(0),1:"") S X=$S('$D(^SC(+$P(Y(1),U,8),0)):"",1:$P(^(0),U,1)) I D0>0 S DISX(3)=X
    FIELD NAME:   PRINCIPAL CLINIC
    SORT QUALIFIERS BEFORE FIELD:   @"8
    FROM VALUE INTERNAL:   1Dz
    FROM VALUE EXTERNAL:   1E
    TO VALUE INTERNAL:   ZZX-RAY
    TO VALUE EXTERNAL:   ZZX-RAY
  4. FILE OR SUBFILE NO.:   74.4
    GET CODE:   X DPP(4,"OVF0",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(4)=X
    QUERY CONDITION:   I DISX(4)'=""
    DESCRIPTION OF SORT:   REPORT:PATIENT NAME not null
    DATA TYPE FOR SORTING:   FREE TEXT
    COMPUTED FIELD CODE:   X DPP(4,"OVF0",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S DISX(4)=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(^RABTCH(74.4,D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^RARPT(+D0,0)) D0=-1 S Y(101)=$S($D(^RARPT(D0,0)):^(0),1:"")
    FIELD NAME:   REPORT:PATIENT NAME
    SORT QUALIFIERS BEFORE FIELD:   @"
DATE CREATED 1993-01-29 11:50:00
FILE REPORT DISTRIBUTION
DATE LAST USED 1997-12-17 00:00:00

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(74 P21, P25
^DPT - [#2] P41, P45
^RABTCH(74.4 - [#74.4] P11, P21, P25, P31, P35, OVF04P11
^RARPT - [#74] P21, P25, OVF04P11
^SC - [#44] P31, P35

Naked Globals

Name Field # of Occurrence
^(0 P21, P25, P31, P35, P41, P45, OVF04P11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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