XMS ;ISC-SF/GMB-SMTP Send ;07/11/2002 07:52
Source file <XMS.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CHRISTN | ; Christen the remote domain
|
|
QUIT | ;
|
|
TESTERR | ;
|
|
PROCESS(XMINST,XMB) | ;
|
|
NEXTPRI(XMK,XMTPRI) | ; Get the next high/low priority message
|
|
TESTRSLT(XMSTIME,XMETIME,XMLINES,XMCHARS,XMUERR,XMTLER) | ;
|
|
RSET | ; Send: "RSET"
; Recv: "250" |
|
SEND | ;
|
|
INIT | ;
|
|
TURN(XMINST) | ; Turn around channel
; Send: "TURN" ; Recv: "250 REMOTE.MED.VA.GOV has messages to export" ; or: "502 REMOTE.MED.VA.GOV has no messages to export" |
|
NEXT(XMK) | ; Returns the next message (XMZ) in basket XMK to go out.
; The next XMZ flagged 'high-priority' is next. ; Barring that, the next 'regular-priority' XMZ is next. ; Barring that, the next 'low-priority' XMZ is next. ; If an XMZ was involved in the failure of the previous transmission, ; that XMZ will be 'low-priority'. |
|
SYNCH | ; Recv: "220 REMOTE.MED.VA.GOV MailMan 8.0 ready"
|
|
ENTER | ;
; Variables ; XMINST Institution number ; XMSITE Institution name ; XMIO same as ZTIO |
|
HELO(XMINST,XMSITE) | ;
; Send: "HELO LOCAL.MED.VA.GOV <security num>" ; Recv: "250 OK REMOTE.MED.VA.GOV <security num> [8.0,DUP,SER,FTP]" |
|
TESTIT(XMLINES,XMCHARS,XMUERR,XMTLER) | ;
|
|
NEXTOK(XMK,XMZ) | ; Ensure msg is in file 3.9 & still has recipients q'd
|
|
TESTLNK | ; Test the link
|
Name | Field # of Occurrence |
---|---|
DT^DICRW | INIT+4 |
FILE^DIE | TURN+12 |
$$FMDIFF^XLFDT | TESTRSLT+3 |
$$NOW^XLFDT | TESTLNK+4, TESTLNK+6 |
DOTRAN^XMC1 | PROCESS+4, TURN+6, TURN+15 |
ERTRAN^XMC1 | HELO+7, HELO+9, HELO+11, HELO+13, PROCESS+10 |
TRAN^XMC1 | TESTERR+1, TESTIT+10, TESTIT+11, TESTRSLT+1, TESTRSLT+3 |
RECEIVE^XMR | TURN+16 |
SENDMSG^XMS1 | PROCESS+11 |
TASKBULL^XMXBULL | HELO+23 |
XP^XMXMSGS1 | PROCESS+15 |
ZAPIT^XMXMSGS2 | PROCESS+12, NEXTOK+2 |
$$BMSGCT^XMXUTIL | PROCESS+3 |
$$TSTAMP^XMXUTIL1 | INIT+3 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4.2 - [#4.2] | SEND+6, HELO+4, HELO+6, HELO+27*, TURN+5 |
^TMP("XMS" | TESTIT+3 |
^XMB("NETNAME" | HELO+8, HELO+13 |
^XMB(3.7 - [#3.7] | PROCESS+15, NEXT+9, NEXT+10, NEXTPRI+2, NEXTPRI+3, NEXTPRI+4! |
^XMB(3.9 - [#3.9] | PROCESS+12, NEXTOK+1 |
^XMBS(4.2999 - [#4.2999] | INIT+2* |
^XMNET( | PROCESS+8, PROCESS+17 |
Name | Line Occurrences |
---|---|
$$NEXT | PROCESS+7 |
$$NEXTOK | NEXT+11, NEXTPRI+6 |
$$NEXTPRI | NEXT+7, NEXT+13 |
CHRISTN | SEND+4 |
HELO | SEND+6 |
INIT | ENTER+5 |
PROCESS | SEND+7 |
QUIT | SEND+9 |
RSET | PROCESS+16 |
SYNCH | SEND+3 |
TESTERR | TESTLNK+2, TESTLNK+3, TESTLNK+7 |
TESTIT | TESTLNK+5 |
TESTLNK | SEND+4, SEND+5 |
TESTRSLT | TESTLNK+9 |
TURN | SEND+8 |
Name | Field # of Occurrence |
---|---|
^( | TESTIT+3 |
^(0 | HELO+27* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DT | INIT+4 |
ER | SEND+3, SEND+6, INIT+1*, SYNCH+4, SYNCH+5, HELO+9, HELO+11, HELO+24*, PROCESS+7, PROCESS+13 , PROCESS+14!*, QUIT+2, RSET+2, RSET+3, RSET+4*, TURN+13, TURN+14, CHRISTN+1, TESTLNK+2, TESTLNK+3 , TESTLNK+7, TESTIT+3, TESTIT+6, TESTIT+13, TESTIT+14 |
ER("MSG" | HELO+24* |
ER("NONFATAL" | PROCESS+13 |
I | HELO+3~, HELO+15*, HELO+16, TESTIT+1~, TESTIT+2*, TESTIT+3* |
IO | INIT+2, TESTIT+12 |
IO(0 | TESTLNK+8, TESTIT+9 |
U | INIT+2, HELO+5, HELO+27, TURN+5 |
XMB | SEND+7, PROCESS~, PROCESS+11 |
>> XMC("BATCH" | INIT+5*, SYNCH+1, HELO+10, RSET+2, TURN+4 |
>> XMC("CHRISTEN" | SEND+4, CHRISTN+1 |
>> XMC("DIR" | SEND+1* |
>> XMC("HELO SEN | D" , HELO+16* |
>> XMC("MAILMAN" | SYNCH+1*, SYNCH+2*, SYNCH+7* |
>> XMC("NOREQUEUE" | PROCESS+9* |
>> XMC("QUIT" | QUIT+1, QUIT+4* |
>> XMC("START" | INIT+3* |
>> XMC("TEST" | SEND+5 |
>> XMC("TURN" | SEND+2*, TURN+4, TURN+7* |
XMCHARS | TESTLNK+1~, TESTLNK+5, TESTLNK+9, TESTIT~, TESTIT+2*, TESTIT+5*, TESTRSLT~, TESTRSLT+1, TESTRSLT+3 |
XMETIME | TESTLNK+1~, TESTLNK+6*, TESTLNK+9, TESTRSLT~, TESTRSLT+3 |
XMFDA | TURN+8~ |
XMFDA( | TURN+10*, TURN+11* |
XMI | SYNCH+3~, SYNCH+4* |
XMIENS | TURN+8~, TURN+9*, TURN+10, TURN+11 |
XMINREC | HELO+3~, HELO+4*, HELO+5, HELO+27* |
XMINST | SEND+6, SEND+7, SEND+8, INIT+2, HELO~, HELO+4, HELO+6, HELO+27, PROCESS~, PROCESS+2 , PROCESS+8, PROCESS+12, PROCESS+17, TURN~, TURN+5, TURN+9 |
XMINSTR | HELO+20~, HELO+23 |
XMINSTR("FROM" | HELO+22* |
XMK | PROCESS+1~, PROCESS+2*, PROCESS+3, PROCESS+7, PROCESS+11, PROCESS+12, PROCESS+15, NEXT~, NEXT+7, NEXT+9 , NEXT+10, NEXT+11, NEXT+13, NEXTPRI~, NEXTPRI+2, NEXTPRI+3, NEXTPRI+4, NEXTPRI+6, NEXTOK~, NEXTOK+1 , NEXTOK+2 |
XMLINES | TESTLNK+1~, TESTLNK+5, TESTLNK+9, TESTIT~, TESTIT+2*, TESTIT+4*, TESTRSLT~, TESTRSLT+1 |
XMOK | NEXT+6~, NEXT+8*, NEXT+9, NEXT+11* |
XMPARM | HELO+20~, HELO+23 |
XMPARM(1 | HELO+22* |
>> XMPROT | INIT+2 |
>> XMREC | SYNCH+5, HELO+11, QUIT+3, RSET+3, TURN+14, CHRISTN+1, TESTLNK+3, TESTIT+6, TESTIT+14 |
>> XMRG | SYNCH+4, SYNCH+6, SYNCH+8, HELO+12, HELO+15, HELO+16, HELO+18, RSET+4, TURN+14, TESTIT+7 , TESTIT+11 |
>> XMSEN | SYNCH+8, HELO+8, HELO+21, QUIT+2, RSET+2, TURN+13, CHRISTN+1, TESTLNK+2, TESTIT+6, TESTIT+14 |
>> XMSG | SYNCH+8*, HELO+8*, HELO+9, HELO+21*, HELO+24, QUIT+2*, RSET+2*, TURN+13*, CHRISTN+1*, TESTLNK+2* , TESTERR+1*, TESTIT+3*, TESTIT+5, TESTIT+7, TESTIT+10*, TESTIT+11*, TESTIT+14*, TESTRSLT+1*, TESTRSLT+2*, TESTRSLT+3* |
XMSITE | SEND+6, HELO~, HELO+13, HELO+22, TURN+6 |
XMSTIME | TESTLNK+1~, TESTLNK+4*, TESTLNK+9, TESTRSLT~, TESTRSLT+3 |
XMSVAL | HELO+3~, HELO+5*, HELO+6, HELO+8, HELO+17, HELO+18*, HELO+19, HELO+27 |
XMTLER | INIT+6*, TESTLNK+1~, TESTLNK+5, TESTLNK+9, TESTIT~, TESTIT+2*, TESTRSLT~, TESTRSLT+2 |
XMTPRI | NEXTPRI~, NEXTPRI+2, NEXTPRI+4 |
XMUERR | TESTLNK+1~, TESTLNK+5, TESTLNK+9, TESTIT~, TESTIT+2*, TESTIT+8*, TESTRSLT~, TESTRSLT+2 |
XMX | SYNCH+3~, SYNCH+6*, SYNCH+7 |
XMZ | PROCESS+1~, PROCESS+7*, PROCESS+8, PROCESS+11, PROCESS+12, PROCESS+15, PROCESS+17, NEXT+6~, NEXT+7*, NEXT+8* , NEXT+9*, NEXT+10, NEXT+11, NEXT+12, NEXTPRI+1~, NEXTPRI+2*, NEXTPRI+3, NEXTPRI+4, NEXTPRI+5*, NEXTPRI+6* , NEXTPRI+7, NEXTOK~, NEXTOK+1, NEXTOK+2 |
>> ZTQUEUED | TURN+11 |
>> ZTSK | TURN+11 |
Name | Field # of Occurrence |
---|---|
$T(XMS+1 | SYNCH+1 |