SD-PAIT PEND EXCL FUTURE (786)    SORT TEMPLATE (.401)

This template allows to print a list of pending appointments in the APPT 
DATE order, to be evaluated for possible finalizing.

• FILE OR SUBFILE NO.:   409.69
  GET CODE:   S DISX(1)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,5)
  QUERY CONDITION:   I DISX(1)="Y"
  DESCRIPTION OF SORT:   RETENTION FLAG equals Y (YES - to be sent when 'Final')
  DATA TYPE FOR SORTING:   SET OF CODES

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   409.6
    NODE:   1

  FIELD NO.:   4
  FIELD NAME:   RETENTION FLAG
  FROM VALUE INTERNAL:   Xz
  FROM VALUE EXTERNAL:   Y
  FROM VALUE PRINTABLE:   Y (YES - to be sent when 'Final')
  TO VALUE INTERNAL:   Y
  TO VALUE EXTERNAL:   Y
  TO VALUE PRINTABLE:   Y (YES - to be sent when 'Final')
  CROSS REFERENCE DATA:   ^SDWL(409.6,"AE",^SDWL(409.6,^2
• FILE OR SUBFILE NO.:   409.69
  GET CODE:   S DISX(2)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,2)
  QUERY CONDITION:   I (DISX(2)]]3020726.999999)&(DISX(2)']]3040407.24)
  DESCRIPTION OF SORT:   APPT DATE from Jul 27,2002 to Apr 7,2004@24:00
  DATA TYPE FOR SORTING:   DATE/TIME

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   409.6
    NODE:   1

  FIELD NO.:   1
  FIELD NAME:   APPT DATE
  FROM VALUE INTERNAL:   3020726.999999
  FROM VALUE EXTERNAL:   Jul 27,2002
  FROM VALUE PRINTABLE:   Jul 27,2002
  TO VALUE INTERNAL:   3040407.24
  TO VALUE EXTERNAL:   Apr 7,2004@2400
  TO VALUE PRINTABLE:   Apr 7,2004@24:00
• FILE OR SUBFILE NO.:   409.69
  GET CODE:   S DISX(3)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,7)
  QUERY CONDITION:   I DISX(3)]]3020900.999999
  DESCRIPTION OF SORT:   DATE APPT MADE from Sep 1,2002
  DATA TYPE FOR SORTING:   DATE/TIME

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   409.6
    NODE:   1

  FIELD NO.:   6
  FIELD NAME:   DATE APPT MADE
  FROM VALUE INTERNAL:   3020900.999999
  FROM VALUE EXTERNAL:   9 1 2002
  FROM VALUE PRINTABLE:   Sep 1,2002
  TO VALUE INTERNAL:   z
• FILE OR SUBFILE NO.:   409.69
  GET CODE:   S DISX(4)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,9)
  QUERY CONDITION:   I DISX(4)'=""
  DESCRIPTION OF SORT:   APPOINTMENT TYPE not null
  DATA TYPE FOR SORTING:   SET OF CODES

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   409.6
    NODE:   1

  FIELD NO.:   8
  FIELD NAME:   APPOINTMENT TYPE
• FILE OR SUBFILE NO.:   409.69
  GET CODE:   S DISX(5)=$P($G(^SDWL(409.6,D0,1,D1,0)),U,6)
  QUERY CONDITION:   I DISX(5)'=""
  DESCRIPTION OF SORT:   EVENT REASON not null
  DATA TYPE FOR SORTING:   SET OF CODES

  MULTIPLE FIELD DATA:

  • MULT.FILE OR SUBFILE NO.:   409.6
    NODE:   1

  FIELD NO.:   5
  FIELD NAME:   EVENT REASON