OR GXMOVE TRANSFER (122)    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
  ORDER TEXT SEQUENCE:   1
  FORMAT:   8~8
  REQUIRED:   YES
• SEQUENCE:   2
  HELP MESSAGE:   Enter any special instructions for this order, up to 240 characters.
  ITEM:   OR GTX FREE TEXT 1
  DISPLAY TEXT:   Instructions:
  ASK ON ACTION:   C

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