MAILMAN: (old) Message Forwarding (Extr.Fun.)    ICR (1140)

NOTICE!  NOTICE!  NOTICE!

XMDF is being RETIRED as a supported reference.  Use ENT1^XMD instead.

$$ENT^XMD  is an interface in the same routine as the other interfaces for
forwarding messages.  It has identical parameters and results and calls this
one -- which will remain supported since documented first.

$$ENT^XMDF is a newly created extrinsic function to forward a message for
immediate delivery TO LOCAL RECIPIENTS ONLY. This is processed while the user
waits. It is not passed on to background filer(s) as with most mail messages.


Usage: S X=$$ENT^XMDF(RECIPIENT,TOBASKET,MESSAGE,FORWARDER)

Where:
RECIPIENT  =  Recipient DUZ (Pointer to the New Person file)
TO_BASKET  =  Number of Basket (to recipient; typically null; if
less than 1, set to 1 (IN))
MESSAGE    =  IEN of message in the Message file (XMZ)
FORWARDER  =  DUZ of person who forwarded message


Output:  If successful, +X>0.(1 or 10) ...or
If unsuccessful, X=Human readable error (+X<1); for example:
"-0: Already a recipient"


Example: S X=$$ENT^XMDF(.5,"",XMZ,DUZ) I X<1 W *7,!,"**** Message NOT
forwarded: ",X