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: LA7VHLU2

Package: Automated Lab Instruments

Routine: LA7VHLU2


Information

LA7VHLU2 ;DALOI/JMC - HL7 Segment Utility ;July 16, 2008

Source Information

Source file <LA7VHLU2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Automated Lab Instruments 2 CREATE^LA7LOG  $$CHKDATA^LA7VHLU3  
Kernel 2 $$UP^XLFSTR  ($$ID,$$IDX,$$LKUP,$$WHAT)^XUAF4  
VA FileMan 2 $$FIND1^DIC  ($$GET1,GETS)^DIQ  
Master Patient Index VistA 1 ($$GETDFN,$$GETICN)^MPIF001  

Caller Graph

Caller Graph Total: 31

Package Total Caller Graph
Automated Lab Instruments 29 LA7QRY1  LA7SBCR2  LA7SCE  LA7SM2  LA7SMP  LA7SMU2  LA7UCFG  LA7UIO1  
LA7VHLU4  LA7VHLU9  LA7VIN1  LA7VIN1B  LA7VIN2  LA7VIN2A  LA7VIN5A  LA7VIN5B  
LA7VIN7  LA7VMSG  LA7VMSG1  LA7VOBRA  LA7VOBX4  LA7VORC  LA7VORM  LA7VORM1  
LA7VORM3  LA7VORU  LA7VPID  LA7VSET  LA7VSET1  
Lab Service 2 LRSCTX1  LRVRMI1  

Entry Points

Name Comments DBIA/ICR reference
GETSEG(LA76249,LA7NODE,LA7ARR) ; Returns the next segment from file 62.49
; during processing of an inbound message. The following variables
; are used for the processing.
FINDSITE(LA7Z,LA7TYPE,LA7SEM) ; Look up an institution in file #4
RETFACID(LA7Z,LA7TYPE,LA7SEM) ; (RET)urn (FAC)ility (ID)entifier
FNDOLOC(LRUID) ; Find ordering location
; Call with LRUID = Accession's UID
; Returns LA7Y = ordering location^ordering institution
CHKICN(LA7X) ; Lookup patient using ICN
; Call with LA7X = patient's ICN
; Returns LA7Y = patient's DFN^full ICN
; -1^error message
NVAF(LA7X) ; Set flag sending to non-VA facility.
; Used to code certain segments for other systems, i.e. CHCS-DOD.
; Call with LA7X = ien of institution in file #4
; Returns LA7Y = 0 (VA facility)
; 1 (DoD facility - Army, Navy, Air Force, Coast Guard)
; 2 (Indian Health Service)
; 3 (Other - non US Government)
FACDNS(LA74,LA7FS,LA7ECH,LA7LV) ; Build facility DNS identifier
; Call with LA74 = pointer to entry in INSITUTION file (#4)
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
; LA7LV = field (1)/ component (2) level in message
RESFID(LA7PRDID,LA7SFAC,LA7CS) ; Resolve facility id to file #4 INSTIUTION file entry.
; Call with LA7PRDID = Producer's ID field
; LA7SFAC = sending facility
; LA7CS = component encoding character
RESPL(LA7X) ; Resolve performing lab from file #63 designation
CHCHK ; Find performing lab for a CH subscript reference
MIAPCHK ; Find performing lab for a MI and AP subscript reference
CHKNODE ; Check if node exists and return file #4 ien

External References

Name Field # of Occurrence
$$FIND1^DIC FINDSITE+29
$$GET1^DIQ RETFACID+38, NVAF+10
GETS^DIQ FNDOLOC+11
CREATE^LA7LOG FINDSITE+49, RETFACID+40
$$CHKDATA^LA7VHLU3 FACDNS+23
$$GETDFN^MPIF001 CHKICN+13, CHKICN+15
$$GETICN^MPIF001 CHKICN+16
$$UP^XLFSTR RETFACID+33
$$ID^XUAF4 RETFACID+19, RETFACID+20, RETFACID+21, FACDNS+20
$$IDX^XUAF4 FINDSITE+23, FINDSITE+25, FINDSITE+27, RESFID+11
$$LKUP^XUAF4 RESFID+9, RESFID+10, RESFID+12
$$WHAT^XUAF4 FACDNS+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] FIND1^DIC,  GET1^DIQ
^SC - [#44] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAHM(62.49 - [#62.49] GETSEG+15, GETSEG+18, GETSEG+19, GETSEG+20, GETSEG+21
^LAHM(62.9 - [#62.9] FINDSITE+37, FINDSITE+38, RETFACID+28, RETFACID+29
^LR - [#63] CHKNODE+2, CHKNODE+3
^LRO(68 - [#68] FNDOLOC+7, FNDOLOC+9
^TMP($J FACDNS+12, FACDNS+24*

Label References

Name Line Occurrences
$$FINDSITE RESFID+13, RESFID+14
$$NVAF FINDSITE+42, RETFACID+18, FACDNS+19
CHCHK RESPL+15
CHKNODE RESPL+10, CHCHK+2, MIAPCHK+7, MIAPCHK+8, MIAPCHK+10
MIAPCHK RESPL+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
I RETFACID+13~, MIAPCHK+10*
LA74 FACDNS~, FACDNS+12, FACDNS+19, FACDNS+20, FACDNS+22, FACDNS+24, RESFID+4~, RESFID+6*, RESFID+8, RESFID+9*
, RESFID+10*, RESFID+11*, RESFID+12*, RESFID+13*, RESFID+14*, RESFID+16
LA76249 GETSEG~, GETSEG+13*, GETSEG+15, GETSEG+18, GETSEG+19, GETSEG+20, GETSEG+21
LA7ARR GETSEG~, GETSEG+12!
LA7ARR( GETSEG+21*
LA7ARR(0 GETSEG+18*
LA7CS RESFID~, RESFID+6, RESFID+9, RESFID+10, RESFID+11, RESFID+12, RESFID+13, RESFID+14
LA7DN FACDNS+8~, FACDNS+22*, FACDNS+23*
LA7ECH FACDNS~, FACDNS+12, FACDNS+23, FACDNS+24
LA7END GETSEG+11~, GETSEG+13*, GETSEG+16*, GETSEG+23
LA7FAC FACDNS+8~, FACDNS+19*, FACDNS+20*, FACDNS+21, FACDNS+23
LA7FS FACDNS~, FACDNS+12, FACDNS+23, FACDNS+24
LA7I GETSEG+11~, GETSEG+18*, GETSEG+21*, RESFID+4~, RESFID+8*, RESFID+9, RESFID+10, RESFID+11, RESFID+12, RESFID+13
, RESPL+6~, CHKNODE+2*, CHKNODE+3
LA7J FINDSITE+35~, FINDSITE+36*, FINDSITE+37*, FINDSITE+38, RETFACID+26~, RETFACID+27*, RETFACID+28*, RETFACID+29, RESPL+6~, MIAPCHK+4*
, MIAPCHK+5
LA7J(0 FINDSITE+38*, FINDSITE+39, FINDSITE+40, FINDSITE+41, RETFACID+29*, RETFACID+30, RETFACID+31, RETFACID+32
LA7K FINDSITE+35~, FINDSITE+41*, FINDSITE+42, RESPL+6~, MIAPCHK+5*, MIAPCHK+6, MIAPCHK+8
LA7LV FACDNS~, FACDNS+12, FACDNS+23, FACDNS+24
LA7NODE GETSEG~, GETSEG+13*, GETSEG+15*, GETSEG+16, GETSEG+18, GETSEG+19*, GETSEG+20, GETSEG+21
LA7NVAF RETFACID+13~, RETFACID+18*, RETFACID+19, RETFACID+20, RETFACID+21, FACDNS+8~, FACDNS+19*, FACDNS+20
LA7PRDID RESFID~, RESFID+6, RESFID+9, RESFID+10, RESFID+11, RESFID+12, RESFID+13
LA7QUIT GETSEG+11~, GETSEG+13*, GETSEG+19, GETSEG+20*, RESPL+6~, RESPL+14*
LA7SEM FINDSITE~, FINDSITE+15*, FINDSITE+45, RETFACID~, RETFACID+14*, RETFACID+36
LA7SFAC RESFID~, RESFID+14
LA7SITE FINDSITE+46~, FINDSITE+47*, RETFACID+37~, RETFACID+38*
LA7TYPE FINDSITE~, FINDSITE+15*, FINDSITE+41, FINDSITE+47, RETFACID~, RETFACID+31, RETFACID+32, RETFACID+38
LA7X FINDSITE+13~, FINDSITE+18*, FINDSITE+19*, FINDSITE+29, FINDSITE+34, FINDSITE+40, FINDSITE+48~, RETFACID+13~, RETFACID+39~, FNDOLOC+4~
, FNDOLOC+9*, FNDOLOC+10, FNDOLOC+11, FNDOLOC+12, CHKICN~, CHKICN+11, CHKICN+12, CHKICN+17, NVAF~, NVAF+10
, RESFID+4~, RESFID+6*, RESPL~, RESPL+7, RESPL+15, RESPL+16, CHCHK+2, MIAPCHK+2, MIAPCHK+10
LA7X(1 CHKICN+11*, CHKICN+13, CHKICN+15
LA7X(2 CHKICN+12*, CHKICN+13
LA7Y FINDSITE+13~, FINDSITE+15*, FINDSITE+23*, FINDSITE+25*, FINDSITE+27*, FINDSITE+29*, FINDSITE+34, FINDSITE+37, FINDSITE+42*, FINDSITE+45
, FINDSITE+48~, FINDSITE+51, RETFACID+13~, RETFACID+14*, RETFACID+19*, RETFACID+20*, RETFACID+21*, RETFACID+25, RETFACID+31*, RETFACID+32*
, RETFACID+33*, RETFACID+36, RETFACID+39~, RETFACID+42, FNDOLOC+4~, FNDOLOC+6*, FNDOLOC+8, FNDOLOC+10, FNDOLOC+12*, FNDOLOC+13
, CHKICN+8~, CHKICN+10*, CHKICN+13*, CHKICN+15*, CHKICN+16, CHKICN+17*, CHKICN+19, NVAF+8~, NVAF+9*, NVAF+10*
, NVAF+11*, NVAF+12, FACDNS+8~, FACDNS+9*, FACDNS+12*, FACDNS+18, FACDNS+21*, FACDNS+23*, FACDNS+24, FACDNS+26
, RESFID+4~, RESPL+7*, RESPL+13, RESPL+18, MIAPCHK+5, MIAPCHK+7, MIAPCHK+10, CHKNODE+3*
LA7Y(44 FNDOLOC+12
LA7Z FINDSITE~, FINDSITE+15*, FINDSITE+18, FINDSITE+19, FINDSITE+23, FINDSITE+25, FINDSITE+27, FINDSITE+47, FINDSITE+48~, RETFACID~
, RETFACID+18, RETFACID+19, RETFACID+20, RETFACID+21, RETFACID+31, RETFACID+32, RETFACID+38, CHKICN+8~, CHKICN+10*, CHKICN+16*
, CHKICN+17, CHKICN+19, RESPL+6~, RESPL+7*, CHCHK+2*, MIAPCHK+2*, MIAPCHK+4, MIAPCHK+6*, MIAPCHK+8*, MIAPCHK+10*
, CHKNODE+2
LRAA FNDOLOC+4~
LRAD FNDOLOC+4~
LRAN FNDOLOC+4~
LRDFN RESPL+6~, RESPL+7*, CHKNODE+2, CHKNODE+3
LRUID FNDOLOC~, FNDOLOC+7, FNDOLOC+8
X FNDOLOC+4~, FNDOLOC+7*, FNDOLOC+8, FNDOLOC+9
Y FNDOLOC+4~
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