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

Package: Automated Lab Instruments

Routine: LAHWATCH


Information

LAHWATCH ; IHS/DIR/FJE - WATCH DATA IN ^LAH GLOBAL 12:41 ; [ 1/13/92 ]

Source Information

Source file <LAHWATCH.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIR  
Lab Service 1 $$GLBR^LRAFUNC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LAWATCH  

Entry Points

Name Comments DBIA/ICR reference
BLOOP ;
EN
END
CHK
ALOOP ;
NEXT ;
AQUIT ;
STRT1
STRT2 ;*** Logic to list interpreted ^LAH data ***
IN ;
BQUIT ;
FIND

External References

Name Field # of Occurrence
^DIC FIND
YN^DICN AQUIT+1, NEXT+1, BQUIT+1
^DIR EN+6, ALOOP+2, BLOOP+8
$$GLBR^LRAFUNC EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"This routine will allow you to look at the verifiable data in the ^LAH GLOBAL ",!,"for a specific instrument",!!
  • Line Location: IN+1
Function Call: WRITE
  • Prompt: !!,?10,"No load/worklist defined for this instrument ",!!,$C(7)
  • Line Location: FIND+1
Function Call: WRITE
  • Prompt: !!?5,"No data for ",LRINST,!!
  • Line Location: FIND+2
Function Call: WRITE
  • Prompt: !!,?10,"No load/worklist defined for this instrument ",!!,$C(7)
  • Line Location: STRT1+0
Function Call: WRITE
  • Prompt: !!,"I am about to display the data in ^LAH(",LRWL,")",!,?10,"You may exit at any time by entering the ""^""."
  • Line Location: STRT1+1
Function Call: WRITE
  • Prompt: !!!,?20,"This instrument has no pointer to ^LAH!",!!!
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !!!,?20,"No data in ^LAH for this instrument!",!!!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ALOOP+1
Function Call: WRITE
  • Prompt: !,LREF," = ",@LREF
  • Line Location: ALOOP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ALOOP+2
Function Call: WRITE
  • Prompt: !,"Would you like to see if any more data has entered ^LAH(",LRWL,")"
  • Line Location: AQUIT+1
Function Call: WRITE
  • Prompt: !,"Would you like to view another instruments ^LAH data"
  • Line Location: NEXT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BLOOP+1
Function Call: WRITE
  • Prompt: !!?5,"Accession # ",$P(@(LREF),U,5)
  • Line Location: BLOOP+2
Function Call: WRITE
  • Prompt: !,"Test",?25,"Value"
  • Line Location: BLOOP+3
Function Call: WRITE
  • Prompt: !?5,"Organism: ",$P($G(^LAB(61.2,+@LREF,0)),U)
  • Line Location: BLOOP+4
Function Call: WRITE
  • Prompt: !,"***Organism entry points to missing entry # ",+@LREF," in file 61.2 (ETIOLOGY)***"
  • Line Location: BLOOP+5
Function Call: WRITE
  • Prompt: !,$P(^(0),"^"),?25,@LREF
  • Line Location: BLOOP+6
Function Call: WRITE
  • Prompt: !,$P(^DD(63.04,+$P($P(LREF,"(",2),",",4),0),"^"),?25,+@LREF
  • Line Location: BLOOP+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BLOOP+8
Function Call: WRITE
  • Prompt: !,"Would you like to see if any more data has entered ^LAH(",LRWL,")"
  • Line Location: BQUIT+1
Routine Call
  • DIC
  • Line Location:
    • FIND
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • ALOOP+2
    • BLOOP+8

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)
^DD(63.04 BLOOP+7
^LAB(61.2 - [#61.2] BLOOP+4, BLOOP+5
^LAB(62.06 - [#62.06] BLOOP+6
^LAB(62.4 - [#62.4] FIND
^LAH( FIND+2, CHK+1

Label References

Name Line Occurrences
ALOOP AQUIT+1
BLOOP BQUIT+1
CHK STRT2+1
END FIND, EN+9, NEXT+1, STRT2+1, BQUIT+2
FIND NEXT+1, STRT2+1
IN FIND+1, FIND+2, EN+9, BQUIT+2
NEXT AQUIT+1, BQUIT+1
STRT1 EN+7
STRT2 EN+8

Naked Globals

Name Field # of Occurrence
^(0 BLOOP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AQUIT+1*, NEXT+1*, END!, BQUIT+1*
DIC FIND!*
DIC("S" FIND*
DIC(0 FIND*
DIR EN+5!, EN+6!, END!
DIR("A" EN+5*
DIR(0 EN+5*, ALOOP+2*, BLOOP+8*
>> DIRUT EN+6
DUOUT ALOOP+2, END!, BLOOP+8
IOF ALOOP+1, ALOOP+2, BLOOP+1, BLOOP+8
LPREF ALOOP+1*, AQUIT+1, END!, BLOOP+1*, BQUIT+1
LREF EN*, ALOOP+1*, AQUIT+1*, END!, BLOOP+1*, BLOOP+2, BLOOP+4, BLOOP+5, BLOOP+6, BLOOP+7
, BQUIT+1*
LREND ALOOP+1*, ALOOP+2*, END!, BLOOP+1*, BLOOP+8*
LRHDR EN*, ALOOP+2*, END!, BLOOP+3*, BLOOP+8*
LRINST FIND*, FIND+2, END!
LRMSK EN*, ALOOP+1, END!, BLOOP+1
LRNOP CHK*, CHK+1*, END!, STRT2+1
LRNUM END!, BLOOP+6*
LRTSK FIND*, END!
LRWL FIND*, FIND+1, FIND+2, EN, STRT1, STRT1+1, CHK, CHK+1, AQUIT+1, END!
, BQUIT+1
U IN+1*, FIND, BLOOP+2, BLOOP+4
X EN+7, EN+8, CHK+2, END!
Y FIND, END!
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