XMZDOM ;(WASH ISC)/CAP - CONVERT MAILMAN HOST #'S TO IDCU ;5/23/90 10:17
;;7.1;Mailman;**1003**;OCT 27, 1998
;;1.0;
D ^XMZDOM4
S U="^" D NOW^%DTC S XMDT=$E(%,4,5)_"/"_$E(%,6,7)_"/"_$E(%,2,3),%=$P(%,".",2) I $L(%) S %=$E(%_"000",1,4),XMDT=XMDT_" @ "_$E(%,1,2)_":"_$E(%,3,4)
R R !,"OPTION: P//",X:900 E W !!,"<< Time out ! " G END
I X["^" G OUT
G XMZDOM:X="?" I X="" S XMF0="PRE-CONVERSION CHECK" G GO
S %="PRE-CONVERSION CHECK^IDCU^VADATS" F I=1:1:$L(%,U) I $E($P(%,U,I),1,$L(X))=X S XMF0=$P(%,U,I) W $E(XMF0,$L(X)+1,99) G GO
D 0^XMZDOM4 G R
GO I XMF0="VADATS",'$D(^XMB(4.6,"B","OLDMINI"))!'$D(^("OLDAUSTIN")) W !!,*7,"The OLDMINI and OLDAUSTIN entries are NOT IN the TRANSMISSION SCRIPT file.",!,"You cannot reverse the IDCU conversion because you haven't run it.",!! G END
I XMF0="IDCU",$D(^XMB(4.6,"B","OLDMINI"))!$D(^XMB("OLDAUSTIN")) W !!,*7,"You have Transmission scripts name OLDMINI or OLDAUSTIN.",!,"You have already run this conversion. " G END
TEXT I XMF0'="VADATS" W *7,!!,"The following will initialize your TRANSMISSION scripts.",!,"You must enter in the correct UserID and Password in order for it to work.",!,"If you do not, you may edit it in the 4.6 file later."
I XMF0'="VADATS" R !!,"Enter the IDCU UserID sent to you by mail: ",XMU:600 G OUT:XMU["^"!'$T R !!,"Enter the IDCU Password sent to you by mail: ",XMP:600 G OUT:XMP["^"!'$T I XMP=""!(XMU="") D IDCU^XMZDOM3 I X["^" G OUT
K %ZIS S %IS="Q" D ^%ZIS I POP K POP W !!," << No device --" G END
G ZTSK:'$D(IO("Q")),GO:'IO("Q"),END:X=U
S ZTRTN="ZTSK^XMZDOM",ZTDESC=XMF0_" Conversion (IDCU Conversion Kit)"
D GETTIME^XMA02 W ! S ZTDTH=Y X ^%ZOSF("UCI")
S %=$S($D(ION)#2:ION,1:IO) I $D(IOST)#2,IOST]"" S %=%_";"_IOST I $D(IOM)#2,IOM S %=%_";"_IOM I $D(IOSL)#2,IOSL S %=%_";"_IOSL
S ZTIO=% I $D(IOT),IOT="SPL" K ZTIO
S ZTUCI=Y,ZTSAVE("XMF0")="",ZTSAVE("XMU")="",ZTSAVE("XMP")="" D ^%ZTLOAD W "Task #"_ZTSK_" queued by request",!
G KILL
ZTSK U IO K ^UTILITY($J) D DT^DICRW S XMA=0,XMPG=0 D ^XMZDOM1,^XMZDOM2 W !!,"WORKING",!! S XMD(1)=XMA,XMA=0
G ^XMZDOM0
OUT I X["^" W !!,"<< User requested Abort "
END W "Process aborted >>",!!,*7 G KILL
KILL K %,%0,I,X,Y,XMA,XMB,XMC,XMD,XMDT,XME,XMF,XMF0,XMP,XMPG,XMS,XMU
K ZTUCI,ZTDTH,ZTSAVE,ZTRTN,ZTDESC,ZTIO,ZTSK
Q
XMZDOM ;(WASH ISC)/CAP - CONVERT MAILMAN HOST #'S TO IDCU ;5/23/90 10:17
+1 ;;7.1;Mailman;**1003**;OCT 27, 1998
+2 ;;1.0;
+3 DO ^XMZDOM4
+4 SET U="^"
DO NOW^%DTC
SET XMDT=$EXTRACT(%,4,5)_"/"_$EXTRACT(%,6,7)_"/"_$EXTRACT(%,2,3)
SET %=$PIECE(%,".",2)
IF $LENGTH(%)
SET %=$EXTRACT(%_"000",1,4)
SET XMDT=XMDT_" @ "_$EXTRACT(%,1,2)_":"_$EXTRACT(%,3,4)
R READ !,"OPTION: P//",X:900
IF '$TEST
WRITE !!,"<< Time out ! "
GOTO END
+1 IF X["^"
GOTO OUT
+2 IF X="?"
GOTO XMZDOM
IF X=""
SET XMF0="PRE-CONVERSION CHECK"
GOTO GO
+3 SET %="PRE-CONVERSION CHECK^IDCU^VADATS"
FOR I=1:1:$LENGTH(%,U)
IF $EXTRACT($PIECE(%,U,I),1,$LENGTH(X))=X
SET XMF0=$PIECE(%,U,I)
WRITE $EXTRACT(XMF0,$LENGTH(X)+1,99)
GOTO GO
+4 DO 0^XMZDOM4
GOTO R
GO IF XMF0="VADATS"
IF '$DATA(^XMB(4.6,"B","OLDMINI"))!'$DATA(^("OLDAUSTIN"))
WRITE !!,*7,"The OLDMINI and OLDAUSTIN entries are NOT IN the TRANSMISSION SCRIPT file.",!,"You cannot reverse the IDCU conversion because you haven't run it.",!!
GOTO END
+1 IF XMF0="IDCU"
IF $DATA(^XMB(4.6,"B","OLDMINI"))!$DATA(^XMB("OLDAUSTIN"))
WRITE !!,*7,"You have Transmission scripts name OLDMINI or OLDAUSTIN.",!,"You have already run this conversion. "
GOTO END
TEXT IF XMF0'="VADATS"
WRITE *7,!!,"The following will initialize your TRANSMISSION scripts.",!,"You must enter in the correct UserID and Password in order for it to work.",!,"If you do not, you may edit it in the 4.6 file later."
+1 IF XMF0'="VADATS"
READ !!,"Enter the IDCU UserID sent to you by mail: ",XMU:600
IF XMU["^"!'$TEST
GOTO OUT
READ !!,"Enter the IDCU Password sent to you by mail: ",XMP:600
IF XMP["^"!'$TEST
GOTO OUT
IF XMP=""!(XMU="")
DO IDCU^XMZDOM3
IF X["^"
GOTO OUT
+2 KILL %ZIS
SET %IS="Q"
DO ^%ZIS
IF POP
KILL POP
WRITE !!," << No device --"
GOTO END
+3 IF '$DATA(IO("Q"))
GOTO ZTSK
IF 'IO("Q")
GOTO GO
IF X=U
GOTO END
+4 SET ZTRTN="ZTSK^XMZDOM"
SET ZTDESC=XMF0_" Conversion (IDCU Conversion Kit)"
+5 DO GETTIME^XMA02
WRITE !
SET ZTDTH=Y
XECUTE ^%ZOSF("UCI")
+6 SET %=$SELECT($DATA(ION)#2:ION,1:IO)
IF $DATA(IOST)#2
IF IOST]""
SET %=%_";"_IOST
IF $DATA(IOM)#2
IF IOM
SET %=%_";"_IOM
IF $DATA(IOSL)#2
IF IOSL
SET %=%_";"_IOSL
+7 SET ZTIO=%
IF $DATA(IOT)
IF IOT="SPL"
KILL ZTIO
+8 SET ZTUCI=Y
SET ZTSAVE("XMF0")=""
SET ZTSAVE("XMU")=""
SET ZTSAVE("XMP")=""
DO ^%ZTLOAD
WRITE "Task #"_ZTSK_" queued by request",!
+9 GOTO KILL
ZTSK USE IO
KILL ^UTILITY($JOB)
DO DT^DICRW
SET XMA=0
SET XMPG=0
DO ^XMZDOM1
DO ^XMZDOM2
WRITE !!,"WORKING",!!
SET XMD(1)=XMA
SET XMA=0
+1 GOTO ^XMZDOM0
OUT IF X["^"
WRITE !!,"<< User requested Abort "
END WRITE "Process aborted >>",!!,*7
GOTO KILL
KILL KILL %,%0,I,X,Y,XMA,XMB,XMC,XMD,XMDT,XME,XMF,XMF0,XMP,XMPG,XMS,XMU
+1 KILL ZTUCI,ZTDTH,ZTSAVE,ZTRTN,ZTDESC,ZTIO,ZTSK
+2 QUIT
