Routine: LA7UID2

Information

LA7UID2 ;VA/DALOI/JRR - Process Download Message for an entry in 62.48 ; O3/16/2005

Source Information

Source file <LA7UID2.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Health Level Seven	3	($$HLDATE,$$HLNAME)^HLFNC $$MSH^HLFNC1 (EN1,INIT,KILL)^HLTRANS
VA Fileman	3	FILE^DICN ^DIE $$GET1^DIQ
Automated Lab Instruments	1	CREATE^LA7LOG
IHS Changes To Lab	1	$$GETHRCN^BLRUTIL4
Kernel	1	$$NOW^XLFDT
Lab Service	1	(DEM,KVAR)^LRX

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Automated Lab Instruments	1	LA7UID1

Entry Points

Name	Comments	DBIA/ICR reference
PV1
CHKDT(LA7X)	; Check validity of date/time ; Adjust invalid times to closest valid time - correct for lab problem ; that generated invalid FileMan date/times. ; If hours>24 then set to 24 with no minutes/seconds ; If minutes greater than 59 then set to 59 ; If seconds greater than 59 then set to 59
PID
BUILD	; Build one accession into an HL7 message
MSH	;requires LA7NDAP= IEN in 770 HL7 NON-DHCP APPLICATION file
OBR	;
ORC	;
Q6249	; create an entry in the MESSAGE QUEUE file to store this message

External References

Name	Field # of Occurrence
$$GETHRCN^BLRUTIL4	PID+6
FILE^DICN	Q6249+13
^DIE	BUILD+22
$$GET1^DIQ	ORC+5, OBR+16
$$HLDATE^HLFNC	PID+11, OBR+13
$$HLNAME^HLFNC	ORC+5, PID+8
$$MSH^HLFNC1	MSH+6
EN1^HLTRANS	BUILD+16
INIT^HLTRANS	MSH+3
KILL^HLTRANS	MSH+1
CREATE^LA7LOG	MSH+5
DEM^LRX	PID+2
KVAR^LRX	BUILD+24
$$NOW^XLFDT	Q6249+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($G(LRTYPE):"Cup",1:"Seq"),": " Condition for execution: $X+5>IOM Line Location: OBR+1
Function Call: WRITE	Prompt: LA76822,", " Line Location: OBR+1
Routine Call	DIE Line Location: BUILD+22

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^LAB(61 - [#61]	GET1^DIQ
^LAHM(62.49 - [#62.49]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	OBR+28
^LAB(62.05 - [#62.05]	OBR+46
^LAB(62.4 - [#62.4]	OBR+34, OBR+36, OBR+50
^LAHM(62.49 - [#62.49]	BUILD+19, Q6249+5, Q6249+6, Q6249+14, Q6249+17, Q6249+21, Q6249+22*
^LR - [#63]	OBR+6
^LRO(68 - [#68]	ORC+3, OBR+8, OBR+15, OBR+17, OBR+18, OBR+48
^TMP("LA7"	OBR+23

Name	Line Occurrences
$$CHKDT	OBR+12
MSH	BUILD+6
OBR	BUILD+11
ORC	BUILD+8
PID	BUILD+9
PV1	BUILD+10
Q6249	BUILD+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	BUILD+20~, BUILD+21*
DD	Q6249+8!
DIC	Q6249+2~, Q6249+9*
DIC("DR"	Q6249+11, Q6249+12
DIC(0	Q6249+9*
DIE	BUILD+20~, BUILD+21*
DINUM	Q6249+2~, Q6249+10*
DLAYGO	Q6249+2~, Q6249+9*
DO	Q6249+8!
>> DOB	PID+11
DR	BUILD+20~, BUILD+21*
DT	Q6249+22
>> HLECH	ORC+5, OBR+28, OBR+30, OBR+33, OBR+37, OBR+43, OBR+47
>> HLERR	MSH+5
>> HLFS	ORC+7, ORC+8, PID+14, PID+15, PV1+4, PV1+5, OBR+54, OBR+55, Q6249+16
>> HLMTN	BUILD+14*
>> HLNDAP	MSH+2*
HLSDATA	BUILD+3!
HLSDATA(	Q6249+19, Q6249+21
HLSDATA(0	MSH+6*, Q6249+15
HLSDATA(1	PID+15*
HLSDATA(2	PV1+5*
HLSDATA(3	ORC+8, OBR+55
>> HRCN	PID+6
I	CHKDT+7~, CHKDT+13*, CHKDT+14, CHKDT+15, CHKDT+16, CHKDT+17
IOM	OBR+1
>> LA7	ORC+6, ORC+7, PID+13, PID+14, PV1+3, PV1+4, OBR+8, OBR+10, OBR+12, OBR+14 , OBR+15, OBR+16, OBR+40, OBR+41, OBR+42, OBR+43, OBR+45, OBR+46, OBR+47, OBR+48* , OBR+51, OBR+53, OBR+54, Q6249+18, Q6249+19*, Q6249+20, Q6249+21
>> LA71	Q6249+18, Q6249+20, Q6249+22
LA760	OBR+2~, OBR+22*, OBR+28
>> LA76248	Q6249+11
>> LA76249	BUILD+19, BUILD+21, Q6249+7*, Q6249+17, Q6249+21, Q6249+22
>> LA768	ORC+3, OBR+8, OBR+15, OBR+17, OBR+18, OBR+48
>> LA76801	ORC+3, OBR+8, OBR+15, OBR+17, OBR+18
>> LA76802	ORC+3, OBR+8, OBR+15, OBR+17, OBR+18, OBR+51
LA76821	OBR+41~*
LA76822	OBR+1, OBR+42~*
>> LA7ACC	OBR+18*
>> LA7ACC(	OBR+20, OBR+22, OBR+45
>> LA7ACC0	ORC+4, PID+1, PV1+1
LA7CDT	OBR+2~, OBR+13*, OBR+29
LA7CMT	OBR+2~, OBR+14*, OBR+31
>> LA7CNT	OBR+4, OBR+27, OBR+55
>> LA7CODE	OBR+25*, OBR+28
LA7D0	OBR+35, OBR+50, OBR+51, OBR+52!
>> LA7DATA	OBR+26*, OBR+28
>> LA7DTIM	Q6249+4*, Q6249+11
LA7ERR	BUILD+7, MSH+4!, MSH+5*
LA7I	OBR+2~, OBR+19, OBR+20, OBR+22, OBR+23, OBR+45
>> LA7INST	OBR+23
>> LA7MSH	Q6249+15, Q6249+16, Q6249+17
>> LA7NDAP	MSH+2
LA7OBR	OBR+3!, OBR+21!, OBR+54*, OBR+55
LA7OBR(	OBR+53, OBR+54
LA7OBR(1	OBR+27*
LA7OBR(12	OBR+30*
LA7OBR(13	OBR+31*
LA7OBR(15	OBR+32, OBR+33
LA7OBR(18	OBR+37*
LA7OBR(19	OBR+39, OBR+43
LA7OBR(2	OBR+51*
LA7OBR(27	OBR+47*
LA7OBR(4	OBR+28*
LA7OBR(7	OBR+29*
LA7ORC	ORC+1!, ORC+7*, ORC+8
LA7ORC(	ORC+6, ORC+7
LA7ORC(1	ORC+2*
LA7ORC(12	ORC+4, ORC+5
LA7ORC(3	ORC+3*
LA7PID	PID!, PID+12, PID+14, PID+15
LA7PID(	PID+13, PID+14
LA7PID(19	PID+10*
LA7PID(3	PID+6*
LA7PID(5	PID+8*
LA7PID(7	PID+11*
LA7PID(8	PID+9*
LA7PV1	PV1!, PV1+2, PV1+4, PV1+5
LA7PV1(	PV1+3, PV1+4
LA7PV1(3	PV1+1*
LA7SPEC	OBR+2~, OBR+16*, OBR+32
>> LA7TMP	OBR+23*, OBR+24, OBR+25, OBR+26, OBR+28
>> LA7UID	OBR+17*, OBR+51, Q6249+12
LA7X	OBR+11~, OBR+12, OBR+13, CHKDT~, CHKDT+9, CHKDT+19, CHKDT+21
LA7Y	CHKDT+7~, CHKDT+9, CHKDT+12, CHKDT+14, CHKDT+17
LA7Y(	CHKDT+14, CHKDT+15, CHKDT+16*
LA7Y(1	CHKDT+17, CHKDT+18
LA7Y(3	CHKDT+18
LA7Y(5	CHKDT+18
>> LRAUTO	OBR+34, OBR+37, Q6249+12
LRCADR	OBR+34, OBR+35, OBR+36, OBR+37, OBR+38!
>> LRDFN	PID+1*, PID+6, OBR+6
LRDPF	PID+1!, OBR+33
>> LRFORCE	OBR+41, OBR+42
>> LRINFW	OBR+6*, OBR+30
>> LRLL	OBR+1
>> LRTYPE	OBR+1
>> PNM	PID+8
>> SEX	PID+9
>> SSN	PID+10
U	OBR+36, OBR+50
X	CHKDT+7~, CHKDT+18, CHKDT+19, Q6249+6, Q6249+7, Q6249+10
>> ZTQUEUED	OBR+1

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7UID2

Information

Source Information

Call Graph

Call Graph Total: 10

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

Local Variables

Legend: