RA CLINIC BY PRINT DATE (315)    SORT TEMPLATE (.401)

 
This template sorts the distribution queue by clinic location.
It also allows for sorting of reports by print status.

• 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
• 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
• 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
• 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:

  • 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:   @"