OR GWINST DNR (162)    ORDER DIALOG (101.41)

• SEQUENCE:   1
  INDEX:   S.ADT
  ASK ON CONDITION:   I 0 ; uneditable
  SCREEN:   I $$ACTIVE^ORDD43(Y)
  DEFAULT:   S Y=$O(^ORD(101.43,"S.ADT","DO NOT RESUSCITATE",0))
  ITEM:   OR GTX ORDERABLE ITEM
  DISPLAY TEXT:   Order:
  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:   RC
• SEQUENCE:   3
  HELP MESSAGE:   Enter the date/time this order is to become effective.
  DEFAULT:   S Y="NOW"
  ITEM:   OR GTX START DATE/TIME
  DISPLAY TEXT:   Effective:
  REQUIRED:   YES
  ASK ON EDIT ONLY:   YES
  ASK ON ACTION:   RCW
• SEQUENCE:   4
  HELP MESSAGE:   Enter the date/time this order is to expire.
  POST-SELECTION ACTION:   I $$FTDCOMP^ORCD("EFFECTIVE","EXPIRES",">") K DONE,ORDIALOG(PROMPT,ORI) W $C(7),!,"Cannot end before start date/time!",!
  DEFAULT:   S Y="NOW+1"
  ITEM:   OR GTX STOP DATE/TIME
  ORDER TEXT SEQUENCE:   3
  LEADING TEXT:   Expires
  DISPLAY TEXT:   Expires:
  ASK ON EDIT ONLY:   YES
  ASK ON ACTION:   RCW

This documents a request for DNR procedures.