Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRWATCH

Package: Lab Service

Routine: LRWATCH


Information

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

Source Information

Source file <LRWATCH.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRWATCH  

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.4 - [#62.4] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( LA3, LA3+2
^("I" LA1+2*
^(0 LA3

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All