source: FOIAVistA/trunk/r/MAILMAN-XM/XMC.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 4.6 KB
Line 
1XMC ;ISC-SF/GMB-Network Programmer Options Menu ;12/16/2002 09:35
2 ;;8.0;MailMan;**12**;Jun 28, 2002
3 ; Was (WASH ISC)/THM
4ENTER ;
5 I '$G(DUZ) W $C(7),!!,$$EZBLD^DIALOG(38105) Q ; You do not have a DUZ.
6 N XMDUZ,XMV,XMABORT,XM,XMDISPI,XMDUN
7 D INIT^XMVVITAE
8 I '$D(DT) D DT^DICRW
9 I $D(IO)[0 S IOP="HOME" D ^%ZIS
10 U IO(0) W !,^XMB("NETNAME")
11 D:$O(^DOPT("XMC","B",""))'?1"ACT".E INIT
12 F D Q:XMABORT
13 . N DIC,X,Y
14 . U IO(0)
15 . W !
16 . S DIC="^DOPT(""XMC"",",DIC(0)="AEQZ"
17 . D ^DIC K DIC I Y<0 S XMABORT=1 Q
18 . S X=$P(Y(0),U,2,99)
19 . K DIC,Y
20 . S XM="D"
21 . D @X
22 . I $L(IO) U IO X ^%ZOSF("EON")
23 . D ^%ZISC
24 . X ^%ZOSF("EON")
25 . U IO(0)
26 . S XMABORT=0
27 D KL
28 Q
29KL ;
30 X ^%ZOSF("EON")
31 D KL1
32 Q
33KL1 ;
34 ; XMOS - Operating System of the computer at this site
35 D KILL
36 K %DT,%H,ER,I,X,Y,Y1,Y3,Z
37 K XMCNT
38 K XMD,XMDIAL
39 K XME,XMEC,XMER,XMESC
40 K XMFS
41 K XMLAN,XMLIN,XMLL,XMLT,XMLX
42 K XMOS
43 K XMP,XMPOLL
44 K XMR
45 K XMS0AJ,XMSUB,XMSUM
46 K XMTLER
47 K XMZ
48 Q
49KILL ; Kill variables used across routines
50 ; XM - Debug: Write all xactions to screen, too? ""=no; "D"=yes
51 ; XMB("SCR IEN") - Script IEN
52 ; XMB("SCR REC") - Script record
53 ; XMC("AUDIT") - Are we auditing? 0=no; n=yes, where n is 1 to 99
54 ; XMC("BATCH") - Batch mode (to tape or global)? 0=no; 1=yes
55 ; XMC("DIR") - Current direction of transmission? S=sending; R=receiving
56 ; XMC("HELO RECV") - Name of site we are receiving message from
57 ; XMC("HELO SEND") - Name of site we are sending message to
58 ; XMC("C","R") - # chars rcvd this session
59 ; XMC("C","S") - # chars sent this session
60 ; XMC("L") - # lines xmited (rcvd & sent) this session
61 ; XMC("R") - # msgs rcvd this session
62 ; XMC("S") - # msgs sent this session
63 ; XMC("MAILMAN") - MailMan version # of remote site, when communicating
64 ; with another MailMan site, version > 4
65 ; XMC("SHOW TRAN") - ["S"= Write the 'send' line to the screen
66 ; ["R"= Write the 'receive' line to the screen
67 ; XMC("START") - timestamp at start of xmit session
68 ; XMC("TALKMODE") - Are we in talk mode? 0=no; 1=yes
69 ; XMC("TURN") - Have we turned already? 0=no; 1=yes
70 ; XMCHAN - Before GET^XML: Name of Comm Protocol (file 3.4) channel
71 ; After GET^XML: IEN of Comm Protocol (file 3.4) channel
72 ; XMCLOSE - Xecute this variable to close the channel (file 3.4,field 4)
73 ; XMHOST - IP address
74 ; XMINST - IEN of Domain (file 4.2) being communicated with
75 ; XMLINE - Tracks line number when dumping msgs to/reading from tape
76 ; XMPROT - Name of Communications Protocol (file 3.4) channel
77 ; XMOPEN - Xecute this variable to open the channel (file 3.4,field 3)
78 ; XMREC - Xecute this variable to receive a line (file 3.4,field 2)
79 ; XMRG - The line received
80 ; XMRPORT - Port # used
81 ; XMSEN - Xecute this variable to send a line (file 3.4,field 1)
82 ; XMSG - The line to send
83 ; XMSITE - Name of Domain (file 4.2) being communicated with
84 ; XMTASK - Tracks IEN in 4.281 when dumping msgs to/reading from tape
85 ; XMTRAN - A line to display on the screen by TRAN^XMC1
86 K XMB
87 K XMC,XMCHAN
88 K XMINST,XMSITE
89 K XMSEN,XMREC,XMOPEN,XMCLOSE
90 ; Kill variables in DIC(3.4 and DIC(4.6
91 ; (Not used: XMBT,XMLCHAR)
92 K X,ER,TCPCHAN
93 K XM
94 K XMBT
95 K XMDECNET
96 K XMER
97 K XMHANG,XMHOST
98 K XMLCHAR,XMLCT,XMLER,XMLINE,XMLST,XMLTCP
99 K XMNO220
100 K XMPROT
101 K XMRG,XMRPORT
102 K XMSG,XMSIO,XMSTIME
103 K XMTASK,XMTRAN
104 Q
105INIT ;INITIALIZE COMMAND TABLE
106 N I,X,DIK
107 K ^DOPT("XMC")
108 S ^DOPT("XMC",0)=$$EZBLD^DIALOG(42201)_"^1N^" ; MailMan Network Programmer Option
109 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)
110 S DIK="^DOPT(""XMC"","
111 D IXALL^DIK
112 Q
113Z ;;
114 ;;42201.01^^XM;MAILMAN
115 ;;42201.02^PLAY^XMCX;PLAY A SCRIPT
116 ;;42201.03^Q1^XMCX;SCHEDULE TASK FOR ONE DOMAIN WITH QUEUED MESSAGES
117 ;;42201.04^QALL^XMCX;SCHEDULE TASKS FOR ALL DOMAINS WITH QUEUED MESSAGES
118 ;;42201.05^SHOWQ^XMCQ;SHOW A QUEUE
119 ;;42201.06^LIST^XMCXT;LIST TRANSCRIPT
120 ;;42201.07^STATUS^XMCQ;TRANSMIT QUEUE STATUS REPORT
121 ;;42201.08^ACTIVE^XMCQA;ACTIVELY TRANSMITTING QUEUES REPORT
122 ;;42201.09^ALL^XMCQA;QUEUES WITH MESSAGES TO GO OUT REPORT
123 ;;42201.1^ENTER^XMCQH;HISTORICAL QUEUE STATISTICS REPORT
124 ;;42201.11^GLBOUT^XMCB;SEND MESSAGES TO ANOTHER UCI VIA %ZISL GLOBAL
125 ;;42201.12^GLBIN^XMCB;RECEIVE MESSAGES FROM ANOTHER UCI VIA %ZISL GLOBAL
126 ;;42201.13^TAPEOUT^XMCB;SEQUENTIAL MEDIA QUEUE TRANSMISSION
127 ;;42201.14^TAPEIN^XMCB;SEQUENTIAL MEDIA MESSAGE RECEPTION
128 ;;42201.15^VAL^XMCE;VALIDATION NUMBER EDIT
129 ;;42201.16^OUT^XMCE;TOGGLE A SCRIPT OUT OF SERVICE
130 ;;42201.17^EDIT42^XMCE;EDIT A SCRIPT
131 ;;42201.18^EDIT46^XMCE;SUBROUTINE EDITOR
132 ;;
133 ;;**OBSOLETE**
134 ;;BLOB SEND^BLOB^XMA2B
135 ;;DIAL PHONE^DI^XMC1
136 ;;HANG UP PHONE^H^XMC1
137 ;;IMMEDIATE SCRIPT MODE^IMM^XMC11
138 ;;RESUME SCRIPT PROCESSING^RES^XMC1
139 ;;
Note: See TracBrowser for help on using the repository browser.