OR GXMOVE TREATING SPECIALTY (120)    ORDER DIALOG (101.41)

• SEQUENCE:   1
  INDEX:   C
  HELP MESSAGE:   Enter the movement you wish to order for this patient.
  ASK ON CONDITION:   N X S X=$S($G(OREVT):0,1:1) I X ;uneditable if defined
  SCREEN:   I $S($P(^(0),U,2)="T":1,'$P(^(0),U,12):0,$P($G(^ORD(100.5,+$P(^(0),U,12),0)),U,2)="T":1,1:0)
  DEFAULT:   S:$G(OREVT) Y=+OREVT
  ITEM:   OR GTX EVENT
  EXIT ACTION:   N X S X=$G(ORDIALOG(PROMPT,INST)) S:X OREVNT=+X
  ORDER TEXT SEQUENCE:   1
  FORMAT:   8~8
  REQUIRED:   YES
• SEQUENCE:   2
  HELP MESSAGE:   Enter the treating specialty this patient is to be changed to.
  SCREEN:   I $$ACTIVE^DGACT(45.7,Y)
  XECUTABLE HELP:   D XHELP^ORCDADT(PROMPT)
  DEFAULT:   I $G(OREVNT) S Y=$$DEFTS^ORCDADT(OREVNT) K:Y<1 Y
  ENTRY ACTION:   D ENTS^ORCDADT(OREVNT)
  ITEM:   OR GTX TREATING SPECIALTY
  ORDER TEXT SEQUENCE:   2
  LEADING TEXT:   Specialty:
  START NEW LINE:   YES
  ASK ON ACTION:   C
• SEQUENCE:   3
  INDEX:   AK.PROVIDER
  HELP MESSAGE:   Enter the attending provider for this patient.
  ITEM:   OR GTX PROVIDER
  ORDER TEXT SEQUENCE:   3
  LEADING TEXT:   Attending:
  START NEW LINE:   YES
  DISPLAY TEXT:   Attending:
  REQUIRED:   YES
  ASK ON ACTION:   C
• SEQUENCE:   5
  HELP MESSAGE:   Enter any special instructions for this order, up to 240 characters.
  ITEM:   OR GTX FREE TEXT 1
  ORDER TEXT SEQUENCE:   5
  START NEW LINE:   YES
  DISPLAY TEXT:   Instructions:
  ASK ON ACTION:   C
• SEQUENCE:   4
  INDEX:   AK.PROVIDER
  HELP MESSAGE:   Enter the primary provider for this patient.
  ITEM:   OR GTX PROVIDER 1
  ORDER TEXT SEQUENCE:   4
  LEADING TEXT:   Primary:
  START NEW LINE:   YES
  DISPLAY TEXT:   Primary:
  ASK ON ACTION:   C

This allows the treating specialty to be changed as a generic order (does
not interact with MAS package).