Routine: LAMODU

Package	Total	Call Graph
Automated Lab Instruments	3	SET^LAB ^LABERR (,RMK)^LASET

Package

Total

Call Graph

SET^LAB ^LABERR (,RMK)^LASET

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	LA1+2
^LA(	LA1+1, IN, IN+1*, QUIT!
^LA("LOCK"	QUIT!
^LAB(62.4 - [#62.4]	LA1
^LAH(	LA3+1*
^TMP("LA"	LA2+2, QUIT!, CODE+1
^TMP($J	QUIT!

Name	Field # of Occurrence
^(	IN, IN+1
^(4	CODE+1

Name	Field # of Occurrence
>> A	LA2*, QC+1
>> CNT	IN*, IN+1
>> CTRL	IN+2*
>> CUP	LA2+4*
>> I	LA2+1, LA2+2, LA2+3, LA3+1, CODE, CODE+1
>> ID	LA2+4*
>> IDE	LA2+4*
>> IN	QC+1, IN+1, IN+2
>> ISQN	LA3, LA3+1
>> JJ	NUM*
>> LAGEN	LA3
>> LALCT	LA1+2*, LA2+2, LA2+3, CODE, CODE+1
>> LANM	LA1*, LA1+2, TRAP
LATOP	LA1+2!
>> LWL	LA3+1
>> RMK	LA2*, LA3+2
>> T	TRAP*
>> TC(	LA2+3, CODE
>> TOUT	LA2, IN, IN+1*
>> TRAY	LA2+4*
>> TSK	LA1*, LA1+1, LA1+2, IN, IN+1, QUIT, TRAP
TV	LA2!
TV(	LA3+1
TY	LA2!
TY(	LA2+1*
V	LA2+1, LA2+2!, LA2+3!, LA2+4, NUM, NUM+1, CODE, CODE+1, COLOR, APP* , RANGE, ESTM, PLUS*
>> X	LA1+2, LA2+1, NUM*, NUM+1
Y	LA2!
Y(	QC+1*
Y(1	LA2+1, LA2+4
>> ZTQUEUED	LA1
>> ZTREQ	LA1*

Information

Name	Comments	DBIA/ICR reference
QUIT
CODE
COLOR
ESTM
APP
RANGE
QC	;QC TESTING HERE; S BAD=1 IF DONT STORE
NUM
PLUS
TRAP
IN
LA1
LA2
LA3