Routine: LAHWATCH

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

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

>>	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!

Customize PDF page

Package: Automated Lab Instruments

Routine: LAHWATCH

Information

Source Information

Call Graph

Call Graph Total: 4

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

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