DSICXQA    ICR (5320)

Return 1 if alert successfully sent, else return
-1^msg.

(Required) DATA is a list which is expecting data in
the following format:

DATA(sub) = value
subscript  required  value
---------  --------  ------------------------------
XQAMSG        Y      message displayed to the user
(80 char)

XQAROU        N      tag^routine to be invoked
if from RPC this must be silent

XQAID         N      package identifier for alert

XQADATA       N      an application specific data string
[the alert processor will set
XQADATA equal to this and will
be available to M routine specified
in XQAROU]

XQAARCH       N      # days to keep in alert tracking
file.

XQASURO       N      # days to wait before forwarding
alert.
[forwarded to recipient's MAILMAN's
surrogates if unprocessed
by recipient]

XQASUPV       N      Supervisor forwarding
[# days to wait before forwarding
to recipient's supervisor if
unprocessed by recipient.
SUPERVIOR = CHIEF field from file
#49 corresponding to recipient's
SERVICE/SECTION]

DFN           N      pointer to PATIENT file
[used to construct XQAID so that it
works properly in CPRS]

PKG           N      namespace of calling app -
default=VEJD

Rn            Y      at least one must be defined -
recipients of R1,R2,R3,...
alert - can be pointer to NEW PERSON
file or G.<name of mail group>

Example of setup in the GUI:
Param.List['"XQAMSG"'] := text
Param.list['"R1"']     := duz of recipient
Param.List['"DFN"']    := pointer to PATIENT file