DSIV SEND ALERT (3329)    REMOTE PROCEDURE (8994)

RPC to send a user a kernal alert

• DATA
  PARAMETER TYPE:   LIST
  REQUIRED:   YES
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  DATA is a list which is expecting data in the following format:
   
    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]
  DATA(sub) = value
   
    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
    subscript  required  value
    Param.List['"DFN"']    := pointer to PATIENT file
    ---------  --------  ---------------------------------------
    XQAMSG        Y      message displayed to the user (80 char)
   
    XQAROU        N      tag^routine to be invoked
                         if from RPC this must be silent
  

If the process is successful, a value of 1 is returned.
 
If an error occurred, the value will be -1^message.