SD RTC (391)    ORDER DIALOG (101.41)

Name Value
NAME SD RTC
ITEMS
  • SEQUENCE:   1
    SCREEN:   I $$VALCLINC^ORCDSD(Y)
    ITEM:   OR GTX LOCATION
    EXIT ACTION:   S ORCLOC=$G(ORDIALOG(PROMPT,INST))
    ORDER TEXT SEQUENCE:   5
    LEADING TEXT:   Return to
    DISPLAY TEXT:   Clinic Location:
    REQUIRED:   YES
    MULTIPLE VALUED:   NO
  • SEQUENCE:   8
    HELP MESSAGE:   Select Yes if this order is a time sensitive order.
    ITEM:   OR GTX YES/NO
    EXIT ACTION:   S ORSDTISE=$G(ORDIALOG(PROMPT,INST))
    DISPLAY TEXT:   Time sensitive:
    REQUIRED:   YES
    MULTIPLE VALUED:   NO
  • SEQUENCE:   10
    POST-SELECTION ACTION:   Q:$G(ORTYPE)'="Z" I $G(ORDIALOG(PROMPT,INST))'["T" K DONE W $C(7),!,"Response must be relative date (e.g. TODAY, T+7D, T+3M)"
    ITEM:   OR GTX CLINICALLY INDICATED DATE
    EXIT ACTION:   S ORLEAD="on or around (",ORTRAIL=")" S:$G(ORSDTISE)="1" ORLEAD="on or before ",ORTRAIL=""
    ORDER TEXT SEQUENCE:   15
    LEADING TEXT:   @ORLEAD
    TRAILING TEXT:   @ORTRAIL
    DISPLAY TEXT:   Return to clinic date:
    REQUIRED:   YES
  • SEQUENCE:   20
    POST-SELECTION ACTION:   S ORSDNAPT=$G(ORDIALOG(PROMPT,INST))
    DEFAULT:   S Y=1
    ITEM:   OR GTX APPT NUM
    EXIT ACTION:   I +$G(ORDIALOG(PROMPT,INST))=1 S ORDIALOG($$PTR^ORCD("OR GTX SCH INTERVAL"),INST)=""
    ORDER TEXT SEQUENCE:   20
    LEADING TEXT:   for a total of
    TRAILING TEXT:   appointment(s)
    START NEW LINE:   YES
    DISPLAY TEXT:   Number of Appointments:
    REQUIRED:   YES
  • SEQUENCE:   20.5
    INPUT TRANSFORM:   I +$$VAL^ORCD("NUMBER OF APPOINTMENTS")>1,X<1 K X
    HELP MESSAGE:   Select an interval between 1 and 30
    ASK ON CONDITION:   I +$$VAL^ORCD("NUMBER OF APPOINTMENTS")>1 S REQD=1
    ITEM:   OR GTX SCH INTERVAL
    ORDER TEXT SEQUENCE:   30
    LEADING TEXT:   with a frequency of every
    TRAILING TEXT:   day(s)
    DISPLAY TEXT:   Interval:
  • SEQUENCE:   30
    INPUT TRANSFORM:   D PREREQV^ORCDSD
    ASK ON CONDITION:   I $$PREREQN^ORCDSD()>0
    XECUTABLE HELP:   D PREREQH^ORCDSD
    ITEM:   OR GTX PRE REQ
    ORDER TEXT SEQUENCE:   35
    LEADING TEXT:   Prerequisites:
    START NEW LINE:   YES
    DISPLAY TEXT:   Prerequisites:
    REQUIRED:   NO
    MULTIPLE VALUED:   YES
    MAX NUMBER OF MULTIPLES:   99
  • SEQUENCE:   40
    INPUT TRANSFORM:   I X[U W !,"Comment cannot contain an ^ character." K X
    ITEM:   OR GTX SD COMMENT
    ORDER TEXT SEQUENCE:   45
    START NEW LINE:   YES
    DISPLAY TEXT:   Comments:
DISPLAY TEXT Return To Clinic
TYPE dialog
EXIT ACTION K ORSDTISE,ORLEAD,ORTRAIL
DISPLAY GROUP CLINIC SCHEDULING
WINDOW FORM ID 175
SIGNATURE REQUIRED ORELSE
PACKAGE SCHEDULING
VERIFY ORDER YES
ASK FOR ANOTHER ORDER NO
TIMESTAMP 2024-09-03 10:47:29