source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMC.m@ 1073

XMC ;ISC-SF/GMB-Network Programmer Options Menu ;12/16/2002  09:35

 ;;8.0;MailMan;**12**;Jun 28, 2002

 ; Was (WASH ISC)/THM

ENTER ;

 I '$G(DUZ) W $C(7),!!,$$EZBLD^DIALOG(38105) Q  ; You do not have a DUZ.

 N XMDUZ,XMV,XMABORT,XM,XMDISPI,XMDUN

 D INIT^XMVVITAE

 I '$D(DT) D DT^DICRW

 I $D(IO)[0 S IOP="HOME" D ^%ZIS

 U IO(0) W !,^XMB("NETNAME")

 D:$O(^DOPT("XMC","B",""))'?1"ACT".E INIT

 F  D  Q:XMABORT

 . N DIC,X,Y

 . U IO(0)

 . W !

 . S DIC="^DOPT(""XMC"",",DIC(0)="AEQZ"

 . D ^DIC K DIC I Y<0 S XMABORT=1 Q

 . S X=$P(Y(0),U,2,99)

 . K DIC,Y

 . S XM="D"

 . D @X

 . I $L(IO) U IO X ^%ZOSF("EON")

 . D ^%ZISC

 . X ^%ZOSF("EON")

 . U IO(0)

 . S XMABORT=0

 D KL

 Q

KL ;

 X ^%ZOSF("EON")

 D KL1

 Q

KL1 ;

 ; XMOS   - Operating System of the computer at this site

 D KILL

 K %DT,%H,ER,I,X,Y,Y1,Y3,Z

 K XMCNT

 K XMD,XMDIAL

 K XME,XMEC,XMER,XMESC

 K XMFS

 K XMLAN,XMLIN,XMLL,XMLT,XMLX

 K XMOS

 K XMP,XMPOLL

 K XMR

 K XMS0AJ,XMSUB,XMSUM

 K XMTLER

 K XMZ

 Q

KILL ; Kill variables used across routines

 ; XM      - Debug: Write all xactions to screen, too? ""=no; "D"=yes

 ; XMB("SCR IEN") - Script IEN

 ; XMB("SCR REC") - Script record

 ; XMC("AUDIT") - Are we auditing? 0=no; n=yes, where n is 1 to 99

 ; XMC("BATCH") - Batch mode (to tape or global)? 0=no; 1=yes

 ; XMC("DIR") - Current direction of transmission? S=sending; R=receiving

 ; XMC("HELO RECV") - Name of site we are receiving message from

 ; XMC("HELO SEND") - Name of site we are sending message to

 ; XMC("C","R") - # chars rcvd this session

 ; XMC("C","S") - # chars sent this session

 ; XMC("L") - # lines xmited (rcvd & sent) this session

 ; XMC("R") - # msgs rcvd this session

 ; XMC("S") - # msgs sent this session

 ; XMC("MAILMAN") - MailMan version # of remote site, when communicating

 ;                  with another MailMan site, version > 4

 ; XMC("SHOW TRAN") - ["S"= Write the 'send' line to the screen

 ;                    ["R"= Write the 'receive' line to the screen

 ; XMC("START") - timestamp at start of xmit session

 ; XMC("TALKMODE") - Are we in talk mode? 0=no; 1=yes

 ; XMC("TURN") - Have we turned already? 0=no; 1=yes

 ; XMCHAN  - Before GET^XML: Name of Comm Protocol (file 3.4) channel

 ;           After  GET^XML: IEN of Comm Protocol (file 3.4) channel

 ; XMCLOSE - Xecute this variable to close the channel (file 3.4,field 4)

 ; XMHOST  - IP address

 ; XMINST  - IEN of Domain (file 4.2) being communicated with

 ; XMLINE  - Tracks line number when dumping msgs to/reading from tape

 ; XMPROT  - Name of Communications Protocol (file 3.4) channel

 ; XMOPEN  - Xecute this variable to open the channel (file 3.4,field 3)

 ; XMREC   - Xecute this variable to receive a line (file 3.4,field 2)

 ; XMRG    - The line received

 ; XMRPORT - Port # used

 ; XMSEN   - Xecute this variable to send a line (file 3.4,field 1)

 ; XMSG    - The line to send

 ; XMSITE  - Name of Domain (file 4.2) being communicated with

 ; XMTASK  - Tracks IEN in 4.281 when dumping msgs to/reading from tape

 ; XMTRAN  - A line to display on the screen by TRAN^XMC1

 K XMB

 K XMC,XMCHAN

 K XMINST,XMSITE

 K XMSEN,XMREC,XMOPEN,XMCLOSE

 ; Kill variables in DIC(3.4 and DIC(4.6

 ; (Not used: XMBT,XMLCHAR)

 K X,ER,TCPCHAN

 K XM

 K XMBT

 K XMDECNET

 K XMER

 K XMHANG,XMHOST

 K XMLCHAR,XMLCT,XMLER,XMLINE,XMLST,XMLTCP

 K XMNO220

 K XMPROT

 K XMRG,XMRPORT

 K XMSG,XMSIO,XMSTIME

 K XMTASK,XMTRAN

 Q

INIT ;INITIALIZE COMMAND TABLE

 N I,X,DIK

 K ^DOPT("XMC")

 S ^DOPT("XMC",0)=$$EZBLD^DIALOG(42201)_"^1N^" ; MailMan Network Programmer Option

 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)

 S DIK="^DOPT(""XMC"","

 D IXALL^DIK

 Q

Z ;;

 ;;42201.01^^XM;MAILMAN

 ;;42201.02^PLAY^XMCX;PLAY A SCRIPT

 ;;42201.03^Q1^XMCX;SCHEDULE TASK FOR ONE DOMAIN WITH QUEUED MESSAGES

 ;;42201.04^QALL^XMCX;SCHEDULE TASKS FOR ALL DOMAINS WITH QUEUED MESSAGES

 ;;42201.05^SHOWQ^XMCQ;SHOW A QUEUE

 ;;42201.06^LIST^XMCXT;LIST TRANSCRIPT

 ;;42201.07^STATUS^XMCQ;TRANSMIT QUEUE STATUS REPORT

 ;;42201.08^ACTIVE^XMCQA;ACTIVELY TRANSMITTING QUEUES REPORT

 ;;42201.09^ALL^XMCQA;QUEUES WITH MESSAGES TO GO OUT REPORT

 ;;42201.1^ENTER^XMCQH;HISTORICAL QUEUE STATISTICS REPORT

 ;;42201.11^GLBOUT^XMCB;SEND MESSAGES TO ANOTHER UCI VIA %ZISL GLOBAL

 ;;42201.12^GLBIN^XMCB;RECEIVE MESSAGES FROM ANOTHER UCI VIA %ZISL GLOBAL

 ;;42201.13^TAPEOUT^XMCB;SEQUENTIAL MEDIA QUEUE TRANSMISSION

 ;;42201.14^TAPEIN^XMCB;SEQUENTIAL MEDIA MESSAGE RECEPTION

 ;;42201.15^VAL^XMCE;VALIDATION NUMBER EDIT

 ;;42201.16^OUT^XMCE;TOGGLE A SCRIPT OUT OF SERVICE

 ;;42201.17^EDIT42^XMCE;EDIT A SCRIPT

 ;;42201.18^EDIT46^XMCE;SUBROUTINE EDITOR

 ;;

 ;;**OBSOLETE**

 ;;BLOB SEND^BLOB^XMA2B

 ;;DIAL PHONE^DI^XMC1

 ;;HANG UP PHONE^H^XMC1

 ;;IMMEDIATE SCRIPT MODE^IMM^XMC11

 ;;RESUME SCRIPT PROCESSING^RES^XMC1

 ;;