source: FOIAVistA/tag/r/MAILMAN-XM/XMC11.m@ 1326

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1XMC11 ;(WASH ISC)/THM-DECNET Communications Protocol Tools ;04/17/2002 07:51
2 ;;8.0;MailMan;;Jun 28, 2002
3 Q
4 ;ENS and ENR are used by DECNET Communications Protocol in file 3.4
5ENS ;Send
6 I $G(XMINST) D XMTSTAT^XMTDR(XMINST,"S",XMSG)
7 Q
8ENR ;Receive
9 I $G(XMINST) D XMTSTAT^XMTDR(XMINST,"R",XMRG)
10 Q
11 ; *** THE FOLLOWING ARE NOT USED ***
12IMM ;Immediate mode interpreter
13 S XMC("SHOW TRAN")="RS"
14 I $G(XMC("AUDIT")) K ^TMP("XMC",XMC("AUDIT")),XMC("AUDIT","I")
15 F R !!,"Script command: ",X:DTIME Q:X="" D INT^XMC1(X,"you entered") U IO(0) W " ",$S(ER:"Failed",1:"OK")
16 Q
17CHRS ;Christening operation
18 N XMINST,XMSITE,DIC,X,Y,DIR
19 I '$D(^XMB("NETNAME")) D Q
20 . W !!,$C(7),"This domain is not yet christened. It cannot christen others"
21 . W !,"until initialized and christened by a parent domain."
22 W !!,"This process will create a new subordinate domain to this domain"
23 W !,"and update network relationships both there and here, as well as"
24 W !,"inform this domain's parent."
25 W !!,"Do you really want to do this? NO// "
26 R X:DTIME Q:"Yy"'[$S($L(X):$E(X),1:1)
27C W !!!,"Enter the name of the subordinate domain which you wish to christen"
28 S DIC=4.2,DIC(0)="AEQMZ"
29 D ^DIC Q:Y<0
30 S XMINST=+Y,XMSITE=$P(Y,U,2)
31 S XMC("CHRISTEN")=^XMB("NETNAME")_","_XMSITE
32 S XM="D"
33 D ENT^XMC1
34 K XMC("CHRISTEN")
35 Q
Note: See TracBrowser for help on using the repository browser.