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: LAWATCH

Package: Automated Lab Instruments

Routine: LAWATCH


Information

LAWATCH ; IHS/DIR/FJE - WATCH DATA IN ^LA GLOBAL 8/8/89 11:36 ;

Source Information

Source file <LAWATCH.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIR  
Automated Lab Instruments 1 ^LAHWATCH  
Kernel 1 EN^XQH  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LA WATCH  

Entry Points

Name Comments DBIA/ICR reference
QUIT
END
NOSYS
NOTSYS
LA0 ;View down load data for instrument
DOWN
START
DONE
IN ;DALISC/TNN - Query user for ^LA or ^LAH - 02/02/93
DATA
LA1
LA2
LA3

External References

Name Field # of Occurrence
^DIC START+1
YN^DICN DOWN, DATA, LA1+2, END
^DIR IN+2
^LAHWATCH IN+4
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: 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."
  • 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:
    • START+1
Routine Call
  • DIR
  • Line Location:
    • IN+2

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+3*, LA2, LA3, LA3+2, END!, LA0+1
^LA("LOCK" LA3
^LAB(62.4 - [#62.4] LA1+3

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DOWN*, DATA*, LA1+2*, END*, END+1, END+2, QUIT!
DIC START+1!*, QUIT!
DIC("S" START+1*
DIC(0 START+1*
DIR IN+1!, IN+2!
DIR("A" IN+1*
DIR(0 IN+1*
>> DIRUT IN+2
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 START+1*, LA3, END
>> LRTSK START+1*, LA1, LA1+3, LA2, LA3, LA3+2, END, LA0+1
T QUIT!
U START*, LA1+3
>> X IN+3, LA3+1*, LA3+2*, LA3+3*, LA0+1*
>> XQH END+1*
>> Y START+1
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