Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LA7VPID

Package: Automated Lab Instruments

Routine: LA7VPID


Information

LA7VPID ;DALOI/JMC - HL7 PID/PV1 segment builder utility ;08/03/09 15:59

Source Information

Source file <LA7VPID.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Automated Lab Instruments 4 BUILDSEG^LA7VHLU  $$CHKDT^LA7VHLU1  $$RETFACID^LA7VHLU2  $$CHKDATA^LA7VHLU3  
Kernel 3 $$FMTHL7^XLFDT  $$HLNAME^XLFNAME  $$KSP^XUPARAM  
Registration 3 ($$PTR2CODE,$$PTR2TEXT)^DGUTL4  $$EN^VAFHLPID  $$SITE^VASITE  
Health Level Seven 1 $$M11^HLFNC  
Lab Service 1 PT^LRX  
Master Patient Index VistA 1 ($$GETICN,$$IFLOCAL)^MPIF001  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Automated Lab Instruments 3 LA7UIO1  LA7VMSG1  LA7VORM1  

Entry Points

Name Comments DBIA/ICR reference
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, passed by value
; HL = HL7 variable array, pass by reference
; LA7ALTID = return alternate patient id, id used by non-va systems (optional)
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
F2PID ; Build patient identifier field on file #2 patient
NF2PID ; Build patient identifier field on non-file #2 patient
ICN(DFN,LA7ECH) ; Send ICN from MPI
; Call with DFN = internal entry number of patient in PATIENT #2 file.
; LA7ECH = HL7 encoding characters.

External References

Name Field # of Occurrence
$$PTR2CODE^DGUTL4 NF2PID+39
$$PTR2TEXT^DGUTL4 NF2PID+40
$$GET1^DIQ NF2PID+37, NF2PID+46
$$M11^HLFNC F2PID+15, F2PID+22, F2PID+33, NF2PID+12, NF2PID+15, NF2PID+23
BUILDSEG^LA7VHLU PV1+33, NF2PID+49
$$CHKDT^LA7VHLU1 NF2PID+29
$$RETFACID^LA7VHLU2 F2PID+24
$$CHKDATA^LA7VHLU3 PV1+30
PT^LRX NF2PID+3
$$GETICN^MPIF001 ICN+11
$$IFLOCAL^MPIF001 ICN+14
$$EN^VAFHLPID F2PID+5
$$SITE^VASITE ICN+16
$$FMTHL7^XLFDT NF2PID+30
$$HLNAME^XLFNAME NF2PID+26
$$KSP^XUPARAM F2PID+24

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PV1+21
^LR - [#63] PID+16, PID+19, PV1+8, PV1+26
^LRT(67 - [#67] PV1+15, PV1+17

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE PID+27!
DFN PID+10~, PID+20*, PV1+7~, PV1+9*, PV1+15, PV1+17*, PV1+21, F2PID+5, F2PID+22, F2PID+28
, NF2PID+37, NF2PID+46, ICN~, ICN+11, ICN+14
DOB PID+27!, NF2PID+28, NF2PID+29*, NF2PID+30
DUZ("AG" F2PID+4
HL PID~
HL("ECH" F2PID+15, F2PID+19, F2PID+22, F2PID+23, F2PID+24, F2PID+25, F2PID+28, F2PID+29, F2PID+33, NF2PID+12
, NF2PID+15, NF2PID+16, NF2PID+17, NF2PID+23, NF2PID+24, NF2PID+26, NF2PID+40, NF2PID+41
HL("FS" PID+15, F2PID+14, F2PID+25, F2PID+29, F2PID+32, F2PID+33, NF2PID+49
>> HLFS F2PID+15, F2PID+18, F2PID+19, F2PID+25, F2PID+29, F2PID+33
HLQ PID+10~, PID+13*
I F2PID+3~, F2PID+9*, F2PID+10*
ICN F2PID+3~, F2PID+28*, F2PID+29, ICN+7~, ICN+9*, ICN+13*, ICN+17*, ICN+18*, ICN+19*, ICN+21
LA763 PID+10~, PV1+7~
LA763(0 PID+19*, PID+20, PV1+8*, PV1+9
LA7ALTID PID~, PID+18*, F2PID+32, NF2PID+21
LA7ARRAY PID~, PV1~, PV1+33, NF2PID+49
LA7ARRAY( F2PID+10*
LA7ARRAY(0 F2PID+5*, F2PID+14*, F2PID+15*, F2PID+18, F2PID+19*, F2PID+25*, F2PID+29*, F2PID+32*, F2PID+33*
LA7ECH PV1~, PV1+30, ICN~, ICN+17, ICN+18, ICN+19
LA7EXTID PID~, PID+18*, F2PID+13, F2PID+14, F2PID+15, NF2PID+10, NF2PID+11, NF2PID+12, NF2PID+13
LA7FS PV1~, PV1+30, PV1+33
LA7ICN ICN+7~, ICN+11*, ICN+12, ICN+13
LA7LOC PV1+7~, PV1+9*, PV1+21*, PV1+22, PV1+25, PV1+26*, PV1+30*, PV1+31
LA7PIDSN PID~, PID+18*, F2PID+5, NF2PID+5
>> LA7STR F2PID+4*, F2PID+5
LA7X F2PID+3~, NF2PID+37*, NF2PID+38, NF2PID+39, NF2PID+40, NF2PID+46*, NF2PID+47
LA7Y PID+10~, PV1+7~, PV1+33, NF2PID+49
LA7Y(0 PV1+11*, NF2PID+4*
LA7Y(1 PV1+12*, NF2PID+5*
LA7Y(10 NF2PID+35*, NF2PID+39*, NF2PID+40*, NF2PID+41*
LA7Y(19 NF2PID+44*, NF2PID+47*
LA7Y(2 PV1+22*, PV1+27*, NF2PID+11*, NF2PID+12*
LA7Y(3 PV1+31*, NF2PID+9*, NF2PID+13*, NF2PID+17*, NF2PID+18*
LA7Y(4 NF2PID+21*, NF2PID+22*, NF2PID+23*, NF2PID+24*
LA7Y(5 NF2PID+26*
LA7Y(7 NF2PID+30*
LA7Y(8 NF2PID+32*
LOCAL ICN+7~, ICN+14*, ICN+15
LRDFN PID~, PID+15, PID+16, PID+19, PV1~, PV1+8, PV1+26, NF2PID+22
LRDPF PID+10~, PID+20*, PID+23, PID+26, PV1+7~, PV1+9*, PV1+15, PV1+16*, PV1+21, NF2PID+16
, NF2PID+36, NF2PID+45
LRRB PID+27!
LRSTR F2PID+3~
LRTREA PID+27!
LRWRD PID+27!
PNM PID+27!, NF2PID+26
SEX PID+27!, NF2PID+32
SITE ICN+7~, ICN+15*, ICN+16*, ICN+19
SSN PID+27!
SSN(2 NF2PID+15, NF2PID+17
VA PID+27!
VA200 PID+27!
VAFPID PID+10~
VAFPID( F2PID+10
VAFPID(0 F2PID+8
X F2PID+3~, F2PID+18*, F2PID+19*, F2PID+22*, F2PID+23*, F2PID+24*, F2PID+25, NF2PID+2~, NF2PID+15*, NF2PID+16*
, NF2PID+17, NF2PID+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All