LRWATCH.m

LRWATCH ;SLC/RWF/FHS- WATCH DATA IN ^LA GLOBAL ;8/8/89  11:36 ;

 ;;V~5.0~;LAB;**42**;02/27/90 17:09

 S U="^" W !,"THIS ROUTINE WILL ALLOW YOU TO WATCH THE ACCUMULATION",!," OF DATA IN THE ^LA GLOBAL"

 K DIC S DIC="^LAB(62.4,",DIC(0)="AEMQ",DIC("S")="I Y<100" D ^DIC G QUIT:Y<1 S LRTSK=+Y,LRINST=$P(Y,"^",2)

DOWN W !?7,"Do you wish to See 'Download data' " S %=1 D YN^DICN G QUIT:%<1 I %=1 D LA0

DATA W !!?7,"Do you wish to look at 'Upload' data nodes " S %=1 D YN^DICN G QUIT:%<1!(%=2) S LANODE="I"

LA1 G LA2:$D(^LA(LRTSK,"I",0)),NOTSYS:LRTSK#10=1,NOSYS:$D(^LA(+(LRTSK\10_1),"I",0))[0

 W !?3,"There isn't any data there! Should I start saving the data" S %=2 D YN^DICN G QUIT:%=2!(%=-1) W !,"This will prevent the automatic processing of the data." G LA1:%=0

 I '$D(^LA(LRTSK,"I",0))#2 S ^LA(LRTSK,"I")=0,^("I",0)=0 W !!?10,*7,"YOU MUST MANUALLY START THE ( ",$P(^LAB(62.4,LRTSK,0),U,3)_") PROGRAM " G QUIT

LA2 R !?5,"Begin with what number ? ",I7:DTIME Q:'$T!(I7="^")  S I7=+I7 I '$D(^LA(LRTSK,LANODE,I7)) W *7,!?10,I7," DOES NOT EXIST ",! G LA2

LA3 W !!!,LRINST,!," Number of Records: ",$S($D(^LA(LRTSK,LANODE))#2:^(LANODE),1:"??"),?$X+5,"Processed Records: ",$S($D(^LA(LRTSK,LANODE,0))#2:^(0),1:"??") W:$D(^LA("LOCK",LRTSK)) " Active flag SET."

 R !!?7,"To stop data display enter '^'  ENTER RETURN TO CONTINUE ",X:DTIME G QUIT:X="^"

 S I=I7-.1 F I=I7-.1:0 S I=$O(^LA(LRTSK,LANODE,I)) Q:I=""  W !,"^LA(",LRTSK,",",LANODE,",",I,")=",^(I) S I7=I R X:.01 I X="^" Q

 R !!,"PRESS RETURN TO CONTINUE, ENTER '^' TO STOP. ",X:DTIME G END:'$T,LA2:X=""

 Q:LANODE="O"

END G QUIT:LRTSK#10=1 W !,"CLEAR INSTRUMENT ",LRINST," DATE IN ^LA(",LRTSK,") FIRST" S %=2 D YN^DICN I %=1 K ^LA(LRTSK)

 I %<1 S XQH="LRHC LRWATCH" D EN^XQH G END

 W:%'=1 !,"Be sure to startup the instrument routine from the menu.",!?10,"It will NOT start on its own now."

QUIT K DIC,T,LANODE,LRTSK,%,ER,I7 Q

NOTSYS W !!,"You can't start saving data for a interface routine." G QUIT

NOSYS W !!,"The LAB routine for the instrument isn't running so there",!,"is no need to continue as data will never arrive." G QUIT

LA0 ;View down load data for instrument

 I '$D(^LA(LRTSK,"O")) W !?7,"There is no down load data " R !," PRESS RETURN TO CONTINUE ",X:DTIME Q

 S LANODE="O" D LA2

 Q

LRWATCH   ;SLC/RWF/FHS- WATCH DATA IN ^LA GLOBAL ;8/8/89  11:36 ;

 +1       ;;V~5.0~;LAB;**42**;02/27/90 17:09

 +2        SET U="^"

           WRITE !,"THIS ROUTINE WILL ALLOW YOU TO WATCH THE ACCUMULATION",!," OF DATA IN THE ^LA GLOBAL"

 +3        KILL DIC

           SET DIC="^LAB(62.4,"

           SET DIC(0)="AEMQ"

           SET DIC("S")="I Y<100"

           DO ^DIC

           IF Y<1

               GOTO QUIT

           SET LRTSK=+Y

           SET LRINST=$PIECE(Y,"^",2)

DOWN       WRITE !?7,"Do you wish to See 'Download data' "

           SET %=1

           DO YN^DICN

           IF %<1

               GOTO QUIT

           IF %=1

               DO LA0

DATA       WRITE !!?7,"Do you wish to look at 'Upload' data nodes "

           SET %=1

           DO YN^DICN

           IF %<1!(%=2)

               GOTO QUIT

           SET LANODE="I"

LA1        IF $DATA(^LA(LRTSK,"I",0))

               GOTO LA2

           IF LRTSK#10=1

               GOTO NOTSYS

           IF $DATA(^LA(+(LRTSK\10_1),"I",0))[0

               GOTO NOSYS

 +1        WRITE !?3,"There isn't any data there! Should I start saving the data"

           SET %=2

           DO YN^DICN

           IF %=2!(%=-1)

               GOTO QUIT

           WRITE !,"This will prevent the automatic processing of the data."

           IF %=0

               GOTO LA1

 +2        IF '$DATA(^LA(LRTSK,"I",0))#2

               SET ^LA(LRTSK,"I")=0

               SET ^("I",0)=0

               WRITE !!?10,*7,"YOU MUST MANUALLY START THE ( ",$PIECE(^LAB(62.4,LRTSK,0),U,3)_") PROGRAM "

               GOTO QUIT

LA2        READ !?5,"Begin with what number ? ",I7:DTIME

           IF '$TEST!(I7="^")

               QUIT 

           SET I7=+I7

           IF '$DATA(^LA(LRTSK,LANODE,I7))

               WRITE *7,!?10,I7," DOES NOT EXIST ",!

               GOTO LA2

LA3        WRITE !!!,LRINST,!," Number of Records: ",$SELECT($DATA(^LA(LRTSK,LANODE))#2:^(LANODE),1:"??"),?$X+5,"Processed Records: ",$SELECT($DATA(^LA(LRTSK,LANODE,0))#2:^(0),1:"??")

           IF $DATA(^LA("LOCK",LRTSK))

               WRITE " Active flag SET."

 +1        READ !!?7,"To stop data display enter '^'  ENTER RETURN TO CONTINUE ",X:DTIME

           IF X="^"

               GOTO QUIT

 +2        SET I=I7-.1

           FOR I=I7-.1:0

               SET I=$ORDER(^LA(LRTSK,LANODE,I))

               IF I=""

                   QUIT 

               WRITE !,"^LA(",LRTSK,",",LANODE,",",I,")=",^(I)

               SET I7=I

               READ X:.01

               IF X="^"

                   QUIT 

 +3        READ !!,"PRESS RETURN TO CONTINUE, ENTER '^' TO STOP. ",X:DTIME

           IF '$TEST

               GOTO END

           IF X=""

               GOTO LA2

 +4        IF LANODE="O"

               QUIT 

END        IF LRTSK#10=1

               GOTO QUIT

           WRITE !,"CLEAR INSTRUMENT ",LRINST," DATE IN ^LA(",LRTSK,") FIRST"

           SET %=2

           DO YN^DICN

           IF %=1

               KILL ^LA(LRTSK)

 +1        IF %<1

               SET XQH="LRHC LRWATCH"

               DO EN^XQH

               GOTO END

 +2        IF %'=1

               WRITE !,"Be sure to startup the instrument routine from the menu.",!?10,"It will NOT start on its own now."

QUIT       KILL DIC,T,LANODE,LRTSK,%,ER,I7

           QUIT 

NOTSYS     WRITE !!,"You can't start saving data for a interface routine."

           GOTO QUIT

NOSYS      WRITE !!,"The LAB routine for the instrument isn't running so there",!,"is no need to continue as data will never arrive."

           GOTO QUIT

LA0       ;View down load data for instrument

 +1        IF '$DATA(^LA(LRTSK,"O"))

               WRITE !?7,"There is no down load data "

               READ !," PRESS RETURN TO CONTINUE ",X:DTIME

               QUIT 

 +2        SET LANODE="O"

           DO LA2

 +3        QUIT