Routine: LRWATCH

Package	Total	Call Graph
VA Fileman	2	^DIC YN^DICN
Kernel	1	EN^XQH

Package	Total	Caller Graph
Lab Service	1	LRWATCH

Entry Points

External References

Name	Field # of Occurrence
^DIC	LRWATCH+3
YN^DICN	DOWN, DATA, LA1+1, END
EN^XQH	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS ROUTINE WILL ALLOW YOU TO WATCH THE ACCUMULATION",!," OF DATA IN THE ^LA GLOBAL" Line Location: LRWATCH+2
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: !?3,"There isn't any data there! Should I start saving the data" Line Location: LA1+1
Function Call: WRITE	Prompt: !,"This will prevent the automatic processing of the data." Line Location: LA1+1
Function Call: WRITE	Prompt: !!?10,*7,"YOU MUST MANUALLY START THE ( ",$P(^LAB(62.4,LRTSK,0),U,3)_") PROGRAM " Line Location: LA1+2
Function Call: READ	Prompt: "Begin with what number ? " Formatting: !?5 Timeout: DTIME Variable: I7 Line Location: LA2+0
Function Call: WRITE	Prompt: *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." Line Location: NOSYS+0
Function Call: READ	Prompt: " PRESS RETURN TO CONTINUE " Formatting: ! Timeout: DTIME Variable: X Line Location: LA0+1
Function Call: WRITE	Prompt: !?7,"There is no down load data " Line Location: LA0+1
Routine Call	DIC Line Location: LRWATCH+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DOWN, DATA, LA1+1, END, END+1, END+2, QUIT!
DIC	LRWATCH+3!*, QUIT!
DIC("S"	LRWATCH+3*
DIC(0	LRWATCH+3*
DTIME	LA2, LA3+1, LA3+3, LA0+1
ER	QUIT!
>> I	LA3+2*
I7	LA2, LA3+2, QUIT!
LANODE	DATA, LA2, LA3, LA3+2, LA3+4, QUIT!, LA0+2
>> LRINST	LRWATCH+3*, LA3, END
LRTSK	LRWATCH+3*, LA1, LA1+2, LA2, LA3, LA3+2, END, QUIT!, LA0+1
T	QUIT!
U	LRWATCH+2*, LA1+2
>> X	LA3+1, LA3+2, LA3+3, LA0+1
>> XQH	END+1*
>> Y	LRWATCH+3

Customize PDF page

Package: Lab Service

Routine: LRWATCH

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
QUIT
END
NOTSYS
LA0	;View down load data for instrument
DOWN
NOSYS
DATA
LA1
LA2
LA3

Name	Line Occurrences (* Changed, ! Killed)
^LA(	LA1, LA1+2*, LA2, LA3, LA3+2, END!, LA0+1
^LA("LOCK"	LA3
^LAB(62.4 - [#62.4]	LA1+2

Name	Line Occurrences
END	LA3+3, END+1
LA0	DOWN
LA1	LA1+1
LA2	LA1, LA2, LA3+3, LA0+2
NOSYS	LA1
NOTSYS	LA1
QUIT	LRWATCH+3, DOWN, DATA, LA1+1, LA1+2, LA3+1, END, NOTSYS, NOSYS