Prompt: !,"THIS ROUTINE WILL ALLOW YOU TO WATCH THE ACCUMULATION",!," OF DATA IN THE ^LA GLOBAL"
Line Location: START+0
Function Call: WRITE
Prompt: !?7,"Do you wish to See 'Download data' "
Line Location: DOWN+0
Function Call: WRITE
Prompt: !!?7,"Do you wish to look at 'Upload' data nodes "
Line Location: DATA+0
Function Call: WRITE
Prompt: !,"This will prevent the automatic processing of the data."
Line Location: LA1+1
Function Call: WRITE
Prompt: !?3,"There isn't any data there! Should I leave the data in ^LA?"
Line Location: LA1+2
Function Call: WRITE
Prompt: !,"This will prevent the automatic processing of the data."
Line Location: LA1+2
Function Call: WRITE
Prompt: !!?10,$C(7),"YOU MUST MANUALLY START THE ( "_$P(^LAB(62.4,LRTSK,0),U,3)_") PROGRAM "
Line Location: LA1+3
Function Call: READ
Prompt: "Begin with what number ? "
Formatting: !?5
Timeout: DTIME
Variable: I7
Line Location: LA2+0
Function Call: WRITE
Prompt: $C(7),!?10,I7," DOES NOT EXIST ",!
Line Location: LA2+0
Function Call: WRITE
Prompt: !!!,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:"??")
Line Location: LA3+0
Function Call: WRITE
Prompt: " Active flag SET."
Condition for execution: $D(^LA("LOCK",LRTSK))
Line Location: LA3+0
Function Call: READ
Prompt: "To stop data display enter '^' ENTER RETURN TO CONTINUE "
Formatting: !!?7
Timeout: DTIME
Variable: X
Line Location: LA3+1
Function Call: READ
Timeout: .01
Variable: X
Line Location: LA3+2
Function Call: WRITE
Prompt: !,"^LA(",LRTSK,",",LANODE,",",I,")=",^(I)
Line Location: LA3+2
Function Call: READ
Timeout: DTIME
Line Location: LA3+3
Function Call: WRITE
Prompt: !,"CLEAR INSTRUMENT ",LRINST," DATE IN ^LA(",LRTSK,") FIRST"
Line Location: END+0
Function Call: WRITE
Prompt: !!,"You can't start saving data for a interface routine."
Line Location: NOTSYS+0
Function Call: WRITE
Prompt: !!,"The LAB routine for the instrument isn't running so there",!,"is no need to continue as data will never arrive."