LABCX7U ; IHS/DIR/FJE - ; [ 05/27/2003 6:53 AM ]
;;5.2;LA;**1016**;MAY 27, 2003
DOC ;utility routine, performs various functions to maintain CX7s.
STAT ;check instrument status
S A=0 F I=1:1 S A=$O(^LAB(62.4,"D","CX7",A)) Q:'A S VAR="DEV"_I,@VAR=A ;JPW removed label 0 (duplicate);10/27/94
I I=1 W *7,*7,!!,"YOU HAVE NO DEVICES DEFINED IN THE AUTO INSTRUMENT FILE AS A CX7!!",!! K A,I,VAR Q
W ! I $D(OPT) D MON G EXIT
I I=2 S T=DEV1 D SEND G EXIT
S D=I-1 F J=1:1:D S VAR="DEV"_J,T=@VAR D REQ
EXIT K A,I,D,DEV1,DEV2,VAR,T,CNT,S1,S2,S3,OUT,CX3,CX4,CX3T,CX4T,POP,J,ANS
K OPT,MDEV,NAME,CK,CKSUM Q
REQ ;Request instrument state
W !,"Device ",T,", ",$P(^LAB(62.4,T,0),U),"? Y// " R ANS:30
I '$T!(ANS["^")!(ANS["N") W " No action taken" Q
SEND D ZIS(0,.ANS) Q:ANS=1 ;CHECK IF LINE UP, NO ERROR IF IT IS
L ^LA(T,"O") S CNT=$G(^LA(T,"O")),^LA(T,"O")=CNT+3 L ;***JPC $GET***
S S1=CNT+1,S2=CNT+2,S3=CNT+3 K ^LAZ("ZZZ",T)
S (OUT,^LA(T,"O",S1))=$C(1)
S OUT="["_T_",703,03]" S CK=0 F I=1:1:$L(OUT) S CK=CK+$A($E(OUT,I))
S CK=CK#256,CKSUM=256-CK D HEX^LABCX7R
S (OUT,^LA(T,"O",S2))=OUT_CKSUM
S (OUT,^LA(T,"O",S3))=$C(4)
REC ;Receive 703,04 from CX7
W !,"Waiting for response from device ",T,"..."
;The following FOR loop will determine how long the host will wait for
;a response from the CX7. You may adjust depending on response time.
F I=1:1:60 Q:$D(^LAZ("ZZZ",T)) H 1 ;JPC CHANGE TIME 30 TO 60
I '$D(^LAZ("ZZZ",T)) D ZIS(1) Q
S CX3=+$P(^LAZ("ZZZ",T),",",7) I CX3=0 S CX3=$E($P(^(T),",",7),2)
S CX4=+$P(^LAZ("ZZZ",T),",",8) I CX4=0 S CX4=$E($P(^(T),",",8),2)
S CX3T=$P($T(@CX3),";",2),CX4T=$P($T(@CX4),";",3)
W !!,"DEVICE ",T,": CX3 is in the ",CX3T," state."
W !,?11,"CX4 is in the ",CX4T," state.",!!,*7
K ^LAZ("ZZZ",T)
Q
ZIS(MES,ANS) ;check to see if CX7 is off-line, or interface went down
S ANS=0,IOP=$P(^LAB(62.4,T,0),U,2) D ^%ZIS ;JPC-CHECK POP AFTER %ZIS, NOT %ZISC
I MES,POP K IOP W !!,?19,"The interface IS operating properly!",!,?5,*7,*7,"The CX7 is NOT in Bi-Directional mode. Put the CX7 back On-Line.",!! ;JPC
I 'POP D ^%ZISC K IOP W !!,?5,*7,*7,"The interface is down, Please Restart the interface",!! S ANS=1 ;JPC - CLOSE DEVICE
Q
STATUS ;CX3 STATUS CODES ; CX4 STATUS CODES ;
0 ;NO STATE;NO STATE;
1 ;STOPPED;STOPPED;
2 ;STANDBY;PAUSE INITIATED;
3 ;SYSTEM HOME;;
4 ;REAGENT LOAD;EXTINCTION-COEFFICIENT;
5 ;PRIME;RUNNING;
6 ;CALIBRATION;IDLE, SHUTDOWN IN PROGRESS;
7 ;RUNNING;IDLE;
8 ;MAINTENANCE;INITIALIZING;
9 ;AUTOPRIME;REAGENT LOAD;
10 ;CALIBRATION REQUEST;HOMING;
11 ;NO STATE;PRIMING;
12 ;BOOTING;;
13 ;PAUSE INITIATED;SAVING TO DISK;
14 ;WAITING;READING FROM DISK;
15 ;SYSTEM IDLE;STANDBY;
16 ;;CHECKING LEVELS;
17 ;;;
18 ;;PROCEDURE IN PROGRESS;
19 ;;PROCEDURE TERMINATION IN PROGRESS;
20 ;;PROCEDURE COMPLETE;
21 ;;WAITING;
MON ;monitor CX7 interface - for programmers only
I I=2 S T=DEV1,NAME=$P(^LAB(62.4,T,0),U) D @OPT Q ;ADDED SET OF NAME ** JPC**
S D=I-1 F J=1:1:D S VAR="DEV"_J,T=@VAR,NAME=$P(^LAB(62.4,T,0),U) D @OPT
Q
START W !,"Do you want to monitor device ",T,", ",NAME,"? N// " R ANS:30
I ANS["Y" S MDEV="D"_T K ^LA(MDEV) S ^LA(MDEV,0)=0 W *7," Monitoring in progress" Q
W " No action taken" Q
STOP S MDEV="D"_T I '$D(^LA(MDEV,0)) W !,"Device ",T,", ",NAME,", ","is not being monitored. No action needed." Q
W !,"Do you want to stop monitoring device ",T,", ",NAME,"? Y// " R ANS:30
I ANS["N"!(ANS["^") W " No action taken" Q
K ^LA(MDEV) W *7," Monitoring is stopped" Q
LABCX7U ; IHS/DIR/FJE - ; [ 05/27/2003 6:53 AM ]
+1 ;;5.2;LA;**1016**;MAY 27, 2003
DOC ;utility routine, performs various functions to maintain CX7s.
STAT ;check instrument status
+1 ;JPW removed label 0 (duplicate);10/27/94
SET A=0
FOR I=1:1
SET A=$ORDER(^LAB(62.4,"D","CX7",A))
IF 'A
QUIT
SET VAR="DEV"_I
SET @VAR=A
+2 IF I=1
WRITE *7,*7,!!,"YOU HAVE NO DEVICES DEFINED IN THE AUTO INSTRUMENT FILE AS A CX7!!",!!
KILL A,I,VAR
QUIT
+3 WRITE !
IF $DATA(OPT)
DO MON
GOTO EXIT
+4 IF I=2
SET T=DEV1
DO SEND
GOTO EXIT
+5 SET D=I-1
FOR J=1:1:D
SET VAR="DEV"_J
SET T=@VAR
DO REQ
EXIT KILL A,I,D,DEV1,DEV2,VAR,T,CNT,S1,S2,S3,OUT,CX3,CX4,CX3T,CX4T,POP,J,ANS
+1 KILL OPT,MDEV,NAME,CK,CKSUM
QUIT
REQ ;Request instrument state
+1 WRITE !,"Device ",T,", ",$PIECE(^LAB(62.4,T,0),U),"? Y// "
READ ANS:30
+2 IF '$TEST!(ANS["^")!(ANS["N")
WRITE " No action taken"
QUIT
SEND ;CHECK IF LINE UP, NO ERROR IF IT IS
DO ZIS(0,.ANS)
IF ANS=1
QUIT
+1 ;***JPC $GET***
LOCK ^LA(T,"O")
SET CNT=$GET(^LA(T,"O"))
SET ^LA(T,"O")=CNT+3
LOCK
+2 SET S1=CNT+1
SET S2=CNT+2
SET S3=CNT+3
KILL ^LAZ("ZZZ",T)
+3 SET (OUT,^LA(T,"O",S1))=$CHAR(1)
+4 SET OUT="["_T_",703,03]"
SET CK=0
FOR I=1:1:$LENGTH(OUT)
SET CK=CK+$ASCII($EXTRACT(OUT,I))
+5 SET CK=CK#256
SET CKSUM=256-CK
DO HEX^LABCX7R
+6 SET (OUT,^LA(T,"O",S2))=OUT_CKSUM
+7 SET (OUT,^LA(T,"O",S3))=$CHAR(4)
REC ;Receive 703,04 from CX7
+1 WRITE !,"Waiting for response from device ",T,"..."
+2 ;The following FOR loop will determine how long the host will wait for
+3 ;a response from the CX7. You may adjust depending on response time.
+4 ;JPC CHANGE TIME 30 TO 60
FOR I=1:1:60
IF $DATA(^LAZ("ZZZ",T))
QUIT
HANG 1
+5 IF '$DATA(^LAZ("ZZZ",T))
DO ZIS(1)
QUIT
+6 SET CX3=+$PIECE(^LAZ("ZZZ",T),",",7)
IF CX3=0
SET CX3=$EXTRACT($PIECE(^(T),",",7),2)
+7 SET CX4=+$PIECE(^LAZ("ZZZ",T),",",8)
IF CX4=0
SET CX4=$EXTRACT($PIECE(^(T),",",8),2)
+8 SET CX3T=$PIECE($TEXT(@CX3),";",2)
SET CX4T=$PIECE($TEXT(@CX4),";",3)
+9 WRITE !!,"DEVICE ",T,": CX3 is in the ",CX3T," state."
+10 WRITE !,?11,"CX4 is in the ",CX4T," state.",!!,*7
+11 KILL ^LAZ("ZZZ",T)
+12 QUIT
ZIS(MES,ANS) ;check to see if CX7 is off-line, or interface went down
+1 ;JPC-CHECK POP AFTER %ZIS, NOT %ZISC
SET ANS=0
SET IOP=$PIECE(^LAB(62.4,T,0),U,2)
DO ^%ZIS
+2 ;JPC
IF MES
IF POP
KILL IOP
WRITE !!,?19,"The interface IS operating properly!",!,?5,*7,*7,"The CX7 is NOT in Bi-Directional mode. Put the CX7 back On-Line.",!!
+3 ;JPC - CLOSE DEVICE
IF 'POP
DO ^%ZISC
KILL IOP
WRITE !!,?5,*7,*7,"The interface is down, Please Restart the interface",!!
SET ANS=1
+4 QUIT
STATUS ;CX3 STATUS CODES ; CX4 STATUS CODES ;
0 ;NO STATE;NO STATE;
1 ;STOPPED;STOPPED;
2 ;STANDBY;PAUSE INITIATED;
3 ;SYSTEM HOME;;
4 ;REAGENT LOAD;EXTINCTION-COEFFICIENT;
5 ;PRIME;RUNNING;
6 ;CALIBRATION;IDLE, SHUTDOWN IN PROGRESS;
7 ;RUNNING;IDLE;
8 ;MAINTENANCE;INITIALIZING;
9 ;AUTOPRIME;REAGENT LOAD;
10 ;CALIBRATION REQUEST;HOMING;
11 ;NO STATE;PRIMING;
12 ;BOOTING;;
13 ;PAUSE INITIATED;SAVING TO DISK;
14 ;WAITING;READING FROM DISK;
15 ;SYSTEM IDLE;STANDBY;
16 ;;CHECKING LEVELS;
17 ;;;
18 ;;PROCEDURE IN PROGRESS;
19 ;;PROCEDURE TERMINATION IN PROGRESS;
20 ;;PROCEDURE COMPLETE;
21 ;;WAITING;
MON ;monitor CX7 interface - for programmers only
+1 ;ADDED SET OF NAME ** JPC**
IF I=2
SET T=DEV1
SET NAME=$PIECE(^LAB(62.4,T,0),U)
DO @OPT
QUIT
+2 SET D=I-1
FOR J=1:1:D
SET VAR="DEV"_J
SET T=@VAR
SET NAME=$PIECE(^LAB(62.4,T,0),U)
DO @OPT
+3 QUIT
START WRITE !,"Do you want to monitor device ",T,", ",NAME,"? N// "
READ ANS:30
+1 IF ANS["Y"
SET MDEV="D"_T
KILL ^LA(MDEV)
SET ^LA(MDEV,0)=0
WRITE *7," Monitoring in progress"
QUIT
+2 WRITE " No action taken"
QUIT
STOP SET MDEV="D"_T
IF '$DATA(^LA(MDEV,0))
WRITE !,"Device ",T,", ",NAME,", ","is not being monitored. No action needed."
QUIT
+1 WRITE !,"Do you want to stop monitoring device ",T,", ",NAME,"? Y// "
READ ANS:30
+2 IF ANS["N"!(ANS["^")
WRITE " No action taken"
QUIT
+3 KILL ^LA(MDEV)
WRITE *7," Monitoring is stopped"
QUIT
