| 1 | LAWATCH ;SLC/RWF/FHS - WATCH DATA IN ^LA GLOBAL ;8/8/89 11:36 ;
|
|---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
|
|---|
| 3 | IN ;DALISC/TNN - Query user for ^LA or ^LAH - 02/02/93
|
|---|
| 4 | K DIR S DIR(0)="SO^1:RAW DATA IN LA GLOBAL;2:VERIFIABLE DATA IN LAH GLOBAL",DIR("A")="Select a File to watch"
|
|---|
| 5 | D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 6 | I X=2 D G IN
|
|---|
| 7 | . D ^LAHWATCH
|
|---|
| 8 | . QUIT
|
|---|
| 9 | ;DALISC/TNN - End of query
|
|---|
| 10 | START S U="^" W !,"THIS ROUTINE WILL ALLOW YOU TO WATCH THE ACCUMULATION",!," OF DATA IN THE ^LA GLOBAL"
|
|---|
| 11 | 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)
|
|---|
| 12 | DOWN W !?7,"Do you wish to See 'Download data' " S %=1 D YN^DICN G QUIT:%<1 I %=1 D LA0
|
|---|
| 13 | DATA W !!?7,"Do you wish to look at 'Upload' data nodes " S %=1 D YN^DICN G QUIT:%<1!(%=2) S LANODE="I"
|
|---|
| 14 | LA1 G LA2:$D(^LA(LRTSK,"I",0)),NOTSYS:LRTSK#10=1,NOSYS:$D(^LA(+(LRTSK-1\10_1),"I",0))[0
|
|---|
| 15 | 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
|
|---|
| 16 | I '$D(^LA(LRTSK,"I",0))#2 S ^LA(LRTSK,"I")=0,^("I",0)=0 W !!?10,$C(7),"YOU MUST MANUALLY START THE ( "_$P(^LAB(62.4,LRTSK,0),U,3)_") PROGRAM " G QUIT
|
|---|
| 17 | LA2 R !?5,"Begin with what number ? ",I7:DTIME Q:'$T!(I7="^") S I7=+I7 I '$D(^LA(LRTSK,LANODE,I7)) W $C(7),!?10,I7," DOES NOT EXIST ",! G LA2
|
|---|
| 18 | 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."
|
|---|
| 19 | R !!?7,"To stop data display enter '^' ENTER RETURN TO CONTINUE ",X:DTIME G QUIT:X="^"
|
|---|
| 20 | S I=I7-.1 F I=I7-.1:0 S I=$O(^LA(LRTSK,LANODE,I)) Q:I="" Q:('$D(^LA(LRTSK,LANODE,I))) W !,"^LA(",LRTSK,",",LANODE,",",I,")=",^(I) S I7=I R X:.01 I X="^" Q
|
|---|
| 21 | R !!,"PRESS RETURN TO CONTINUE, ENTER '^' TO STOP. ",X:DTIME G END:'$T,LA2:X=""
|
|---|
| 22 | Q:LANODE="O"
|
|---|
| 23 | 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)
|
|---|
| 24 | I %<1 S XQH="LRHC LRWATCH" D EN^XQH G END
|
|---|
| 25 | W:%'=1 !,"Be sure to startup the instrument routine from the menu.",!?10,"It will NOT start on its own now."
|
|---|
| 26 | QUIT K DIC,T,LANODE,%,ER,I7 Q
|
|---|
| 27 | NOTSYS W !!,"You can't start saving data for a interface routine." G QUIT
|
|---|
| 28 | 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
|
|---|
| 29 | LA0 ;View down load data for instrument
|
|---|
| 30 | I '$D(^LA(LRTSK,"O")) W !?7,"There is no down load data " R !," PRESS RETURN TO CONTINUE ",X:DTIME Q
|
|---|
| 31 | S LANODE="O" D LA2
|
|---|
| 32 | DONE Q
|
|---|
