Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMRENT

XMRENT.m

Go to the documentation of this file.
  1. XMRENT ;ISC-SF/GMB-Msg Network Header Info API ;04/19/2002 13:17
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ; Was (WASH ISC)/CMW
  1. ;
  1. ; Entry points (DBIA 1143):
  1. ; $$NET Get message information.
  1. ;
  1. ;Extrinsic Function for API call to parse network header
  1. ;Parameter #1=Message #
  1. ;
  1. ;Output=STRING
  1. ; Message-date ^ Encryption-code ^ Returned addr of sender ^ Message ID
  1. ; ^ Sender ^ Message subject ^ Message ID of In-reply-to ^ Message Type
  1. ;
  1. NET(XMZ) ;
  1. Q:'$D(^XMB(3.9,XMZ,0)) ""
  1. N XMDATE,XMENCR,XMFROM,XMREMID,XMSEND,XMSUBJ,XMZO,XMFIRST
  1. S XMFIRST=$O(^XMB(3.9,XMZ,2,0))
  1. I XMFIRST,XMFIRST<1 D
  1. . D NETMAIL(XMZ,.XMREMID,.XMSUBJ,.XMFROM,.XMDATE,.XMSEND,.XMENCR,.XMZO)
  1. E D
  1. . D LOCMAIL(XMZ,.XMREMID,.XMSUBJ,.XMFROM,.XMDATE,.XMSEND,.XMENCR,.XMZO)
  1. Q $G(XMDATE)_U_$G(XMENCR)_U_$G(XMFROM)_U_$G(XMREMID)_U_$G(XMSEND)_U_$G(XMSUBJ)_U_$G(XMZO)_U_$P($G(^XMB(3.9,XMZ,0)),U,7)
  1. LOCMAIL(XMZ,XMREMID,XMSUBJ,XMFROM,XMDATE,XMSEND,XMENCR,XMZO) ; Get data for Locally originated message
  1. N XMZREC,Y
  1. S XMZREC=^XMB(3.9,XMZ,0)
  1. S Y=$P(XMZREC,U,3),%DT="S" D DD^%DT S XMDATE=Y
  1. S:$P(XMZREC,U,8) XMZO=^XMB("NETNAME")_"@"_$P(XMZREC,U,8)
  1. S XMSEND=$S($P(XMZREC,U,4)="":"",1:$$NAME^XMXUTIL($P(XMZREC,U,4)))
  1. S XMENCR=$P(XMZREC,U,10)
  1. S XMFROM=$$NAME^XMXUTIL($P(XMZREC,U,2))
  1. S XMSUBJ=$$SUBJ^XMXUTIL2(XMZREC)
  1. S XMREMID=$$NETID^XMS3(XMZ)
  1. Q
  1. NETMAIL(XMZ,XMREMID,XMSUBJ,XMFROM,XMDATE,XMSEND,XMENCR,XMZO) ; Get data for Message that originated from another domain
  1. D PARSE^XMR3(XMZ,.XMREMID,.XMSUBJ,.XMFROM,.XMDATE,.XMSEND,.XMENCR,.XMZO)
  1. S:$G(XMSUBJ)="" XMSUBJ=" "
  1. S XMFROM="<"_$$REMADDR^XMXADDR3(XMFROM)_">"
  1. S:XMREMID[".DOMAIN.EXT" XMFROM=$TR($P(XMFROM,"@"),"._+",", .")_"@"_$P(XMFROM,"@",2)
  1. Q