Routine: LA7VPID

Information

LA7VPID ;VA/DALOI/JMC - HL7 PID/PV1 segment builder utility ;JUL 06, 2010 3:14 PM

Source Information

Source file <LA7VPID.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Automated Lab Instruments	4	BUILDSEG^LA7VHLU $$CHKDT^LA7VHLU1 $$CHKDATA^LA7VHLU3 $$ACCT^LA7VQINS
Registration	3	($$PTR2CODE,$$PTR2TEXT)^DGUTL4 $$EN^VAFHLPID $$SITE^VASITE
Health Level Seven	1	($$HLNAME,$$M11)^HLFNC
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	$$FMTHL7^XLFDT
Lab Service	1	PT^LRX
Uncategorized	1	$$GETICN^MPIF001
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Automated Lab Instruments	2	LA7VMSG1 LA7VORM1

Entry Points

Name	Comments	DBIA/ICR reference
ICN(DFN,LA7ECH)	; Send ICN from MPI ; Call with DFN = internal entry number of patient in PATIENT #2 file. ; LA7ECH = HL7 encoding characters.
F2PID	; Build patient identifier field on file #2 patient
PV1(LRDFN,LA7ARRAY,LA7FS,LA7ECH)	; Build PV1 segment ; Call with LRDFN = ien of entry in File #63 ; LA7ARRAY = array to return PV1 array, pass by reference ; LA7FS = HL field separator ; LA7ECH = HL encoding characters
PID(LRDFN,LA7EXTID,LA7ARRAY,LA7PIDSN,HL,LA7ALTID)	; Build PID segment ; Call with LRDFN = Lab DFN, passed by value ; LA7EXTID = to return as external patient id, id used by non-VA systems (optional) ; LA7ARRAY = array to return PID array, pass by reference ; LA7PIDSN = PID id counter, passsed by value ; HL = HL7 variable array, pass by reference ; LA7ALTID = return alternate patient id, id used by non-va systems (optional)
NF2PID	; Build patient identifier field on non-file #2 patient

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	F2PID+31, F2PID+32
$$PTR2CODE^DGUTL4	NF2PID+31
$$PTR2TEXT^DGUTL4	NF2PID+32
$$GET1^DIQ	F2PID+19, NF2PID+29, NF2PID+38
$$HLNAME^HLFNC	NF2PID+18
$$M11^HLFNC	F2PID+9, F2PID+12, F2PID+17, F2PID+28, NF2PID+9, NF2PID+10, NF2PID+16
BUILDSEG^LA7VHLU	PV1+33, NF2PID+41
$$CHKDT^LA7VHLU1	NF2PID+21
$$CHKDATA^LA7VHLU3	PV1+30
$$ACCT^LA7VQINS	F2PID+37
PT^LRX	NF2PID+2
$$GETICN^MPIF001	ICN+10
$$EN^VAFHLPID	F2PID+4
$$SITE^VASITE	ICN+15
$$FMTHL7^XLFDT	NF2PID+22

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^LRT(67 - [#67]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ICN+8
^DPT - [#2]	PV1+21
^LR - [#63]	PID+16, PID+19, PV1+8, PV1+26
^LRT(67 - [#67]	PID+23, PID+25, PV1+15, PV1+17
^XMB("NETNAME"	F2PID+19
^XMB(1 - [#4.3]	F2PID+19

Label References

Name	Line Occurrences
$$ICN	F2PID+23
F2PID	PID+28
NF2PID	PID+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	PID+32!
DFN	PID+10~, PID+20, PID+23, PID+25, PV1+7~, PV1+9, PV1+15, PV1+17, PV1+21, F2PID+4 , F2PID+17, F2PID+23, F2PID+31, F2PID+32, NF2PID+29, NF2PID+38, ICN~, ICN+10
DOB	PID+32!, NF2PID+20, NF2PID+21*, NF2PID+22
DUZ(2	F2PID+31, F2PID+32
HL	PID~
HL("ECH"	F2PID+9, F2PID+12, F2PID+13, F2PID+17, F2PID+18, F2PID+19, F2PID+20, F2PID+23, F2PID+24, F2PID+28 , NF2PID+9, NF2PID+10, NF2PID+11, NF2PID+16, NF2PID+18, NF2PID+32, NF2PID+33
HL("FS"	PID+15, F2PID+8, F2PID+20, F2PID+24, F2PID+27, F2PID+28, NF2PID+41
>> HLFS	F2PID+9, F2PID+12, F2PID+14, F2PID+20, F2PID+24, F2PID+28, F2PID+31, F2PID+32, F2PID+33, F2PID+34 , F2PID+37
HLQ	PID+10~, PID+13*
I	F2PID+3~, F2PID+42, F2PID+43
ICN	F2PID+3~, F2PID+23, F2PID+24, ICN+4~, ICN+6, ICN+12, ICN+13, ICN+14, ICN+15, ICN+17
LA763	PID+10~, PV1+7~
LA763(0	PID+19, PID+20, PV1+8, PV1+9
LA7ALTID	PID~, PID+18*, F2PID+27, NF2PID+14
LA7ARRAY	PID~, PV1~, PV1+33, NF2PID+41
LA7ARRAY(	F2PID+43*
LA7ARRAY(0	F2PID+4, F2PID+8, F2PID+9, F2PID+12, F2PID+14, F2PID+20, F2PID+24, F2PID+27, F2PID+28, F2PID+31* , F2PID+32, F2PID+33, F2PID+34, F2PID+37
LA7ECH	PV1~, PV1+30, ICN~, ICN+13, ICN+14, ICN+15
LA7EXTID	PID~, PID+18*, F2PID+7, F2PID+8, F2PID+9, NF2PID+7, NF2PID+8, NF2PID+9
LA7FS	PV1~, PV1+30, PV1+33
LA7ICN	ICN+4~, ICN+10*, ICN+11, ICN+12
LA7LOC	PV1+7~, PV1+9, PV1+21, PV1+22, PV1+25, PV1+26, PV1+30, PV1+31
>> LA7ORD	F2PID+37
LA7PIDSN	PID~, PID+18*, F2PID+4, NF2PID+4
LA7X	F2PID+3~, NF2PID+29, NF2PID+30, NF2PID+31, NF2PID+32, NF2PID+38, NF2PID+39
LA7Y	PID+10~, PV1+7~, PV1+33, NF2PID+41
LA7Y(0	PV1+11, NF2PID+3
LA7Y(1	PV1+12, NF2PID+4
LA7Y(10	NF2PID+27, NF2PID+31, NF2PID+32, NF2PID+33
LA7Y(19	NF2PID+36, NF2PID+39
LA7Y(2	PV1+22, PV1+27, NF2PID+8, NF2PID+9
LA7Y(3	PV1+31, NF2PID+10, NF2PID+11*
LA7Y(4	NF2PID+14, NF2PID+15, NF2PID+16*
LA7Y(5	NF2PID+18*
LA7Y(7	NF2PID+22*
LA7Y(8	NF2PID+24*
LRDFN	PID~, PID+15, PID+16, PID+19, PV1~, PV1+8, PV1+26, NF2PID+15
LRDPF	PID+10~, PID+20, PID+23, PID+24, PID+28, PID+31, PV1+7~, PV1+9, PV1+15, PV1+16 , PV1+21, NF2PID+11, NF2PID+28, NF2PID+37
LRRB	PID+32!
LRTREA	PID+32!
LRWRD	PID+32!
PNM	PID+32!, NF2PID+18
SEX	PID+32!, NF2PID+24
SSN	PID+32!
SSN(2	NF2PID+10
VA	PID+32!
VA200	PID+32!
VAFPID	PID+10~
VAFPID(	F2PID+43
VAFPID(0	F2PID+41
X	F2PID+3~, F2PID+12, F2PID+13, F2PID+14, F2PID+17, F2PID+18, F2PID+19, F2PID+20, ICN+8

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7VPID

Call Graph Total: 13

Caller Graph Total: 2