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

XMC.m

Go to the documentation of this file.
  1. XMC ;ISC-SF/GMB-Network Programmer Options Menu ;12/16/2002 09:35
  1. ;;8.0;MailMan;**12**;Jun 28, 2002
  1. ; Was (WASH ISC)/THM
  1. ENTER ;
  1. I '$G(DUZ) W $C(7),!!,$$EZBLD^DIALOG(38105) Q ; You do not have a DUZ.
  1. N XMDUZ,XMV,XMABORT,XM,XMDISPI,XMDUN
  1. D INIT^XMVVITAE
  1. I '$D(DT) D DT^DICRW
  1. I $D(IO)[0 S IOP="HOME" D ^%ZIS
  1. U IO(0) W !,^XMB("NETNAME")
  1. D:$O(^DOPT("XMC","B",""))'?1"ACT".E INIT
  1. F D Q:XMABORT
  1. . N DIC,X,Y
  1. . U IO(0)
  1. . W !
  1. . S DIC="^DOPT(""XMC"",",DIC(0)="AEQZ"
  1. . D ^DIC K DIC I Y<0 S XMABORT=1 Q
  1. . S X=$P(Y(0),U,2,99)
  1. . K DIC,Y
  1. . S XM="D"
  1. . D @X
  1. . I $L(IO) U IO X ^%ZOSF("EON")
  1. . D ^%ZISC
  1. . X ^%ZOSF("EON")
  1. . U IO(0)
  1. . S XMABORT=0
  1. D KL
  1. Q
  1. KL ;
  1. X ^%ZOSF("EON")
  1. D KL1
  1. Q
  1. KL1 ;
  1. ; XMOS - Operating System of the computer at this site
  1. D KILL
  1. K %DT,%H,ER,I,X,Y,Y1,Y3,Z
  1. K XMCNT
  1. K XMD,XMDIAL
  1. K XME,XMEC,XMER,XMESC
  1. K XMFS
  1. K XMLAN,XMLIN,XMLL,XMLT,XMLX
  1. K XMOS
  1. K XMP,XMPOLL
  1. K XMR
  1. K XMS0AJ,XMSUB,XMSUM
  1. K XMTLER
  1. K XMZ
  1. Q
  1. KILL ; Kill variables used across routines
  1. ; XM - Debug: Write all xactions to screen, too? ""=no; "D"=yes
  1. ; XMB("SCR IEN") - Script IEN
  1. ; XMB("SCR REC") - Script record
  1. ; XMC("AUDIT") - Are we auditing? 0=no; n=yes, where n is 1 to 99
  1. ; XMC("BATCH") - Batch mode (to tape or global)? 0=no; 1=yes
  1. ; XMC("DIR") - Current direction of transmission? S=sending; R=receiving
  1. ; XMC("HELO RECV") - Name of site we are receiving message from
  1. ; XMC("HELO SEND") - Name of site we are sending message to
  1. ; XMC("C","R") - # chars rcvd this session
  1. ; XMC("C","S") - # chars sent this session
  1. ; XMC("L") - # lines xmited (rcvd & sent) this session
  1. ; XMC("R") - # msgs rcvd this session
  1. ; XMC("S") - # msgs sent this session
  1. ; XMC("MAILMAN") - MailMan version # of remote site, when communicating
  1. ; with another MailMan site, version > 4
  1. ; XMC("SHOW TRAN") - ["S"= Write the 'send' line to the screen
  1. ; ["R"= Write the 'receive' line to the screen
  1. ; XMC("START") - timestamp at start of xmit session
  1. ; XMC("TALKMODE") - Are we in talk mode? 0=no; 1=yes
  1. ; XMC("TURN") - Have we turned already? 0=no; 1=yes
  1. ; XMCHAN - Before GET^XML: Name of Comm Protocol (file 3.4) channel
  1. ; After GET^XML: IEN of Comm Protocol (file 3.4) channel
  1. ; XMCLOSE - Xecute this variable to close the channel (file 3.4,field 4)
  1. ; XMHOST - IP address
  1. ; XMINST - IEN of Domain (file 4.2) being communicated with
  1. ; XMLINE - Tracks line number when dumping msgs to/reading from tape
  1. ; XMPROT - Name of Communications Protocol (file 3.4) channel
  1. ; XMOPEN - Xecute this variable to open the channel (file 3.4,field 3)
  1. ; XMREC - Xecute this variable to receive a line (file 3.4,field 2)
  1. ; XMRG - The line received
  1. ; XMRPORT - Port # used
  1. ; XMSEN - Xecute this variable to send a line (file 3.4,field 1)
  1. ; XMSG - The line to send
  1. ; XMSITE - Name of Domain (file 4.2) being communicated with
  1. ; XMTASK - Tracks IEN in 4.281 when dumping msgs to/reading from tape
  1. ; XMTRAN - A line to display on the screen by TRAN^XMC1
  1. K XMB
  1. K XMC,XMCHAN
  1. K XMINST,XMSITE
  1. K XMSEN,XMREC,XMOPEN,XMCLOSE
  1. ; Kill variables in DIC(3.4 and DIC(4.6
  1. ; (Not used: XMBT,XMLCHAR)
  1. K X,ER,TCPCHAN
  1. K XM
  1. K XMBT
  1. K XMDECNET
  1. K XMER
  1. K XMHANG,XMHOST
  1. K XMLCHAR,XMLCT,XMLER,XMLINE,XMLST,XMLTCP
  1. K XMNO220
  1. K XMPROT
  1. K XMRG,XMRPORT
  1. K XMSG,XMSIO,XMSTIME
  1. K XMTASK,XMTRAN
  1. Q
  1. INIT ;INITIALIZE COMMAND TABLE
  1. N I,X,DIK
  1. K ^DOPT("XMC")
  1. S ^DOPT("XMC",0)=$$EZBLD^DIALOG(42201)_"^1N^" ; MailMan Network Programmer Option
  1. F I=1:1 S X=$P($E($T(Z+I),4,99),";") Q:X="" S ^DOPT("XMC",I,0)=$$EZBLD^DIALOG($P(X,U,1))_U_$P(X,U,2,99)
  1. S DIK="^DOPT(""XMC"","
  1. D IXALL^DIK
  1. Q
  1. Z ;;
  1. ;;42201.01^^XM;MAILMAN
  1. ;;42201.02^PLAY^XMCX;PLAY A SCRIPT
  1. ;;42201.03^Q1^XMCX;SCHEDULE TASK FOR ONE DOMAIN WITH QUEUED MESSAGES
  1. ;;42201.04^QALL^XMCX;SCHEDULE TASKS FOR ALL DOMAINS WITH QUEUED MESSAGES
  1. ;;42201.05^SHOWQ^XMCQ;SHOW A QUEUE
  1. ;;42201.06^LIST^XMCXT;LIST TRANSCRIPT
  1. ;;42201.07^STATUS^XMCQ;TRANSMIT QUEUE STATUS REPORT
  1. ;;42201.08^ACTIVE^XMCQA;ACTIVELY TRANSMITTING QUEUES REPORT
  1. ;;42201.09^ALL^XMCQA;QUEUES WITH MESSAGES TO GO OUT REPORT
  1. ;;42201.1^ENTER^XMCQH;HISTORICAL QUEUE STATISTICS REPORT
  1. ;;42201.11^GLBOUT^XMCB;SEND MESSAGES TO ANOTHER UCI VIA %ZISL GLOBAL
  1. ;;42201.12^GLBIN^XMCB;RECEIVE MESSAGES FROM ANOTHER UCI VIA %ZISL GLOBAL
  1. ;;42201.13^TAPEOUT^XMCB;SEQUENTIAL MEDIA QUEUE TRANSMISSION
  1. ;;42201.14^TAPEIN^XMCB;SEQUENTIAL MEDIA MESSAGE RECEPTION
  1. ;;42201.15^VAL^XMCE;VALIDATION NUMBER EDIT
  1. ;;42201.16^OUT^XMCE;TOGGLE A SCRIPT OUT OF SERVICE
  1. ;;42201.17^EDIT42^XMCE;EDIT A SCRIPT
  1. ;;42201.18^EDIT46^XMCE;SUBROUTINE EDITOR
  1. ;;
  1. ;;**OBSOLETE**
  1. ;;BLOB SEND^BLOB^XMA2B
  1. ;;DIAL PHONE^DI^XMC1
  1. ;;HANG UP PHONE^H^XMC1
  1. ;;IMMEDIATE SCRIPT MODE^IMM^XMC11
  1. ;;RESUME SCRIPT PROCESSING^RES^XMC1
  1. ;;