Routine: LA7VIN

Information

LA7VIN ;VA/DALOI/JMC - Process Incoming Lab HL7 Messages ; Jan 12, 2005

Source file <LA7VIN.m>

Package	Total	Call Graph
Kernel	4	(,$$S)^%ZTLOAD $$NOW^XLFDT DUZ^XUP OPTSTAT^XUTMOPT
Automated Lab Instruments	2	XQA^LA7UXQA NXTMSG^LA7VIN1
VA Fileman	1	$$FIND1^DIC

Name	Comments	DBIA/ICR reference
QLAH(LWL)	; Call here to queue result processing routine to run in the background. ; Call with LWL = pointer to loadlist in file #68.2
QUE	; Call here to queue this processing routine to run in the background. ; Required variables are: LA76248 = pointer to configuration in 62.48
EN	; Only one process should run at a time
GETIN	; Check the incoming queue for messages and then call LA7VIN1 to ; process the message.
CHECKTM	; Check is LA7TASK NIGHTY is scheduled in TaskMan.

FileNo	Call Tags
^VA(200 - [#200]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^LAH("Z"	QLAH+6, QLAH+8
^LAHM(62.48 - [#62.48]	EN+3, EN+16, EN+25, QUE+6, QUE+10, QUE+14
^LAHM(62.49 - [#62.49]	GETIN+4, GETIN+10, GETIN+13, GETIN+16
^LRO(68.2 - [#68.2]	QLAH+11
^TMP("LA7TREE"	GETIN+18!

Name	Field # of Occurrence
CENUM	EN+34!
DPF	EN+34!
ECHOALL	EN+34!
ER	EN+34!
IDE	EN+34!
IDT	EN+34!
LA76248	EN+3, EN+12, EN+16, EN+25, EN+33!, GETIN+4, GETIN+10, QUE+6, QUE+10, QUE+11 , QUE+14, CHECKTM+14
LA76249	EN+1~, GETIN+10*, GETIN+12, GETIN+13, GETIN+16
LA7I	EN+1~, GETIN+23, GETIN+24, GETIN+25, GETIN+26
LA7INTYP	EN+1~, EN+16*, GETIN+21
LA7INTYP("LWL"	GETIN+21, GETIN+24, GETIN+26!
LA7J	CHECKTM+2~, CHECKTM+8, CHECKTM+9
LA7LOOP	EN+1~, EN+19, GETIN+7
LA7TSK	CHECKTM+2~, CHECKTM+3*, CHECKTM+4, CHECKTM+7
LA7TSK(	CHECKTM+9
LA7X	EN+1~, EN+8*, EN+9, EN+13
LALCT	EN+34!
LANM	EN+34!
LAZZ	EN+34!
LINK	EN+34!
LRTEC	EN+34!
LWL	QLAH~, QLAH+6, QLAH+8, QLAH+11, QLAH+12
MSG	EN+10~, EN+11, EN+12, CHECKTM+2~, CHECKTM+13, CHECKTM+14
NOW	EN+34!, CHECKTM+2~, CHECKTM+8*, CHECKTM+9
OK	CHECKTM+2~, CHECKTM+3, CHECKTM+9, CHECKTM+10
RMK	EN+34!
T	EN+34!
TC	EN+34!
TP	EN+34!
TSK	EN+34!
WDT	EN+34!
ZTDESC	QUE+3~, QUE+10, QLAH+3~, QLAH+11
ZTDTH	QUE+3~, QUE+9, QLAH+3~, QLAH+10
ZTIO	QUE+3~, QUE+9, QLAH+3~, QLAH+10
>> ZTQUEUED	EN+28
>> ZTREQ	EN+28*
ZTRTN	QUE+3~, QUE+9, QLAH+3~, QLAH+10
ZTSAVE	QUE+3~, QLAH+3~
ZTSAVE("LA76248"	QUE+11*
ZTSAVE("LRLL"	QLAH+12*
ZTSK	QUE+3~, QLAH+3~
>> ZTSTOP	EN+19, EN+21, GETIN+10, GETIN+12, GETIN+22