OR GWDIAG DIAGNOSIS (125)    ORDER DIALOG (101.41)

• SEQUENCE:   2
  HELP MESSAGE:   Enter a diagnosis for the patient, up to 240 characters.
  ITEM:   OR GTX FREE TEXT 1
  DISPLAY TEXT:   Diagnosis:
  REQUIRED:   YES
  ASK ON ACTION:   C
• SEQUENCE:   1
  INDEX:   S.DX
  ASK ON CONDITION:   I 0 ; uneditable
  SCREEN:   I $$ACTIVE^ORDD43(Y)
  DEFAULT:   S Y=$O(^ORD(101.43,"S.DX","DIAGNOSIS",0))
  ITEM:   OR GTX ORDERABLE ITEM
  DISPLAY TEXT:   Order:
  REQUIRED:   YES

This documents the patient's diagnosis.