XMCD1.m

XMCD1 ;PKE/ALBANY COMMUNICATIONS DIAGNOSTICS;1/10/85 ; 12 FEB 86  4:16 pm

 ;;7.1;Mailman;**1003**;OCT 27, 1998

 ;;5.01

 Q

VADATS ;VADATS EXTENDED DIAGNOSTIC

 W !,"This will will test VADATS link for 'Net Go Ahead'"

 I '$D(^XMB(1,1,0)) W !,*7,"No MailMan site parameters defined" Q

 S IO=$P(^(0),U,7) I IO="" W !,*7,"No VADATS device defined.  Use the SITE PARAMETERS option to define one." Q

 S IO=$P(^%ZIS(1,IO,0),U,1) W !,"Device ",IO," defined as the VADATS device."

 D DIAG X ^%ZIS("C") K XMNICK Q

 ;

DIAG O IO::0 I '$T W !,*7,"VADATS device is currently in use." Q

 W !,"Trying to open link to VADATS....."

 S IOP=IO D ^%ZIS Q:POP  S XMNCR=$C(13),XMNIME=30,XMNABT=0,X=0 U IO X ^%ZOSF("EOFF"),^%ZOSF("TYPE-AHEAD"),^%ZOSF("RM") S XMNICK=$P($H,",",2) D NETSHAK^XMNET2 U IO(0)

 I XMNABT W !,*7,"Unable to open device." Q

 W !,XMNANS,"   VADATS line OK     ",$P($H,",",2)-XMNICK W:$D(T) "  (",T,")"

GO ; 

 S XMNABT=0 U IO D NETRDY^XMNET2

 U IO(0) I XMNABT W !,*7,"Net go-ahead not recieved" Q

 W !,XMNANS,"   DHCP-MCTS link OK   ",$P($H,",",2)-XMNICK Q

 ;

DXHINQ Q  ;;;Q:'$D(DUZ)  S:'$D(DTIME) DTIME=30

 ;;;I $D(^XMB(3.8,"B","DGHINQ")) S N=0,N=$O(^("DGHINQ",N)) Q:N=""  F DGU=0:0 S DGU=$O(^XMB(3.8,N,1,"B",DGU)) Q:DGU=""  S XMY(DGU)=""

 K DGU

 W !,*7,*7,"WARNING this test may last up to 3 minutes"

 R !!,"Do you wish to continue ? NO// ",X:DTIME Q:"Yy"'[$E(X,1)  Q:'$L(X)

 S DFN=0,DFN=$O(^DPT(DFN)) Q:'+DFN

 S DGP="AAAA" D BYPASS^DGHINQ

 F Z=1:1:60 H 3 W "." I Z#30=0 S DGDUZ=DUZ,DUZ=236 D EN^XM,SCANNEW^XMA S DUZ=DGDUZ S:$D(XMDUZ) XMDUZ=DGDUZ I $D(XMR),XMR["Hinq" K DGDUZ Q

 Q

XMCD1     ;PKE/ALBANY COMMUNICATIONS DIAGNOSTICS;1/10/85 ; 12 FEB 86  4:16 pm

 +1       ;;7.1;Mailman;**1003**;OCT 27, 1998

 +2       ;;5.01

 +3        QUIT 

VADATS    ;VADATS EXTENDED DIAGNOSTIC

 +1        WRITE !,"This will will test VADATS link for 'Net Go Ahead'"

 +2        IF '$DATA(^XMB(1,1,0))

               WRITE !,*7,"No MailMan site parameters defined"

               QUIT 

 +3        SET IO=$PIECE(^(0),U,7)

           IF IO=""

               WRITE !,*7,"No VADATS device defined.  Use the SITE PARAMETERS option to define one."

               QUIT 

 +4        SET IO=$PIECE(^%ZIS(1,IO,0),U,1)

           WRITE !,"Device ",IO," defined as the VADATS device."

 +5        DO DIAG

           XECUTE ^%ZIS("C")

           KILL XMNICK

           QUIT 

 +6       ;

DIAG       OPEN IO::0

           IF '$TEST

               WRITE !,*7,"VADATS device is currently in use."

               QUIT 

 +1        WRITE !,"Trying to open link to VADATS....."

 +2        SET IOP=IO

           DO ^%ZIS

           IF POP

               QUIT 

           SET XMNCR=$CHAR(13)

           SET XMNIME=30

           SET XMNABT=0

           SET X=0

           USE IO

           XECUTE ^%ZOSF("EOFF")

           XECUTE ^%ZOSF("TYPE-AHEAD")

           XECUTE ^%ZOSF("RM")

           SET XMNICK=$PIECE($HOROLOG,",",2)

           DO NETSHAK^XMNET2

           USE IO(0)

 +3        IF XMNABT

               WRITE !,*7,"Unable to open device."

               QUIT 

 +4        WRITE !,XMNANS,"   VADATS line OK     ",$PIECE($HOROLOG,",",2)-XMNICK

           IF $DATA(T)

               WRITE "  (",T,")"

GO        ; 

 +1        SET XMNABT=0

           USE IO

           DO NETRDY^XMNET2

 +2        USE IO(0)

           IF XMNABT

               WRITE !,*7,"Net go-ahead not recieved"

               QUIT 

 +3        WRITE !,XMNANS,"   DHCP-MCTS link OK   ",$PIECE($HOROLOG,",",2)-XMNICK

           QUIT 

 +4       ;

DXHINQ    ;;;Q:'$D(DUZ)  S:'$D(DTIME) DTIME=30

           QUIT 

 +1       ;;;I $D(^XMB(3.8,"B","DGHINQ")) S N=0,N=$O(^("DGHINQ",N)) Q:N=""  F DGU=0:0 S DGU=$O(^XMB(3.8,N,1,"B",DGU)) Q:DGU=""  S XMY(DGU)=""

 +2        KILL DGU

 +3        WRITE !,*7,*7,"WARNING this test may last up to 3 minutes"

 +4        READ !!,"Do you wish to continue ? NO// ",X:DTIME

           IF "Yy"'[$EXTRACT(X,1)

               QUIT 

           IF '$LENGTH(X)

               QUIT 

 +5        SET DFN=0

           SET DFN=$ORDER(^DPT(DFN))

           IF '+DFN

               QUIT 

 +6        SET DGP="AAAA"

           DO BYPASS^DGHINQ

 +7        FOR Z=1:1:60

               HANG 3

               WRITE "."

               IF Z#30=0

                   SET DGDUZ=DUZ

                   SET DUZ=236

                   DO EN^XM

                   DO SCANNEW^XMA

                   SET DUZ=DGDUZ

                   IF $DATA(XMDUZ)

                       SET XMDUZ=DGDUZ

                   IF $DATA(XMR)

                       IF XMR["Hinq"

                           KILL DGDUZ

                           QUIT 

 +8        QUIT