OR GXMOVE DISCHARGE (121)    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)="D":1,'$P(^(0),U,12):0,$P($G(^ORD(100.5,+$P(^(0),U,12),0)),U,2)="D":1,1:0)
  DEFAULT:   S:$G(OREVT) Y=+OREVT
  ITEM:   OR GTX EVENT
  ORDER TEXT SEQUENCE:   1
  FORMAT:   8~8
  REQUIRED:   YES
• SEQUENCE:   2
  HELP MESSAGE:   Enter the type of discharge for this patient.
  SCREEN:   I $P(^(0),U,2)=3,$P(^(0),U,4) ;Type=Discharge, Active
  ITEM:   OR GTX MOVEMENT TYPE
  DISPLAY TEXT:   Discharge Type:
  ASK ON ACTION:   C
• SEQUENCE:   3
  HELP MESSAGE:   Enter any special instructions for this order, up to 240 characters.
  ITEM:   OR GTX FREE TEXT 1
  ORDER TEXT SEQUENCE:   3
  LEADING TEXT:   Instructions:
  DISPLAY TEXT:   Instructions:
  ASK ON ACTION:   C

This allows a patient to be discharged, as a generic order (does not
interact with MAS).