Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LAWATCH

Package: Automated Lab Instruments

Routine: LAWATCH


Information

LAWATCH ;DALOI/JMC - WATCH DATA IN ^LA GLOBAL ;12/07/11 12:18

Source Information

Source file <LAWATCH.m>

Entry Points

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

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+1
Function Call: WRITE
  • Prompt: !?7,"Do you wish to See 'Download data' "
  • Line Location: DOWN+1
Function Call: WRITE
  • Prompt: !!?7,"Do you wish to look at 'Upload' data nodes "
  • Line Location: DATA+1
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,$C(7),"YOU MUST MANUALLY START THE ( "_$P(^LAB(62.4,LRTSK,0),U,3)_") PROGRAM "
  • Line Location: LA1+2
Function Call: READ
  • Formatting: !?5
  • Prompt: "Begin with what number ? "
  • Variable: I7
  • Timeout: DTIME
  • Line Location: LA2+1
Function Call: WRITE
  • Prompt: $C(7),!?10,I7," DOES NOT EXIST ",!
  • Line Location: LA2+2
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+1
Function Call: WRITE
  • Prompt: " Active flag SET."
  • Condition for execution: $D(^LA("LOCK",LRTSK))
  • Line Location: LA3+1
Function Call: READ
  • Formatting: !!?7
  • Prompt: "To stop data display enter '^' ENTER RETURN TO CONTINUE "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LA3+2
Function Call: READ
  • Variable: X
  • Timeout: .01
  • Line Location: LA3+3
Function Call: WRITE
  • Prompt: !,"^LA(",LRTSK,",",LANODE,",",I,")=",^(I)
  • Line Location: LA3+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: LA3+4
Function Call: WRITE
  • Prompt: !,"CLEAR INSTRUMENT ",LRINST," DATE IN ^LA(",LRTSK,") FIRST"
  • Line Location: END+2
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
  • Formatting: !
  • Prompt: " PRESS RETURN TO CONTINUE "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LA0+1
Function Call: WRITE
  • Prompt: !?7,"There is no down load data "
  • Line Location: LA0+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.4 - [#62.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call