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 |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: LA7VOBR

Package: Automated Lab Instruments

Routine: LA7VOBR


Information

LA7VOBR ;DALOI/JMC - LAB OBR segment builder ;Feb 26, 2008

Source Information

Source file <LA7VOBR.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Automated Lab Instruments 5 $$CHKDT^LA7VHLU1  $$CHKDATA^LA7VHLU3  (OBR2,OBR24,OBR25,OBR26,OBR29,OBR3,OBR32,OBR33,OBR34,OBR35,OBR4,OBR44,OBR9,OBRPF)^LA7VOBRA  OBR15^LA7VOBRB  $$ORC7^LA7VORC  
Kernel 1 $$FMTHL7^XLFDT  

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  LA7VORM3  LA7VORUB  

Entry Points

Name Comments DBIA/ICR reference
OBR1(LA7OBRSN) ; Build OBR-1 sequence - set segment id
; Call with LA7OBRSN = segment id (pass by reference)
OBR2(LA7ID,LA7FS,LA7ECH) ; Build OBR-2 sequence - placer's specimen id
; Call with LA7ID = placer's specimen id (accn number/UID)
; LA7ID("NMSP") = application namespace (optional)
; LA7ID("SITE") = placer facility
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
OBR3(LA7ID,LA7FS,LA7ECH) ; Build OBR-3 sequence - filler's specimen id
; Call with LA7ID = filler's specimen id (accn number/UID)
; LA7ID("NMSP") = application namespace (optional)
; LA7ID("SITE") = filler facility
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
OBR4(LA7NLT,LA760,LA7ALT,LA7FS,LA7ECH) ; Build OBR-4 sequence - Universal service ID
; Call with LA7NLT = NLT test code
; LA760 = file #60 ien if known
; LA7ALT = alternate order code and system in form
; test code^test name^coding system
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
OBR6(LA7DT) ; Build OBR-6 sequence - requested date/time
; Call with LA7DT = FileMan date/time
; Returns OBR-6 sequence
OBR7(LA7DT) ; Build OBR-7 sequence - collection date/time
; Call with LA7DT = FileMan date/time
; Returns OBR-7 sequence
OBR8(LA7DT) ; Build OBR-8 sequence - collection end date/time
; Call with LA7DT = FileMan date/time
; Returns OBR-8 sequence
OBR9(LA7VOL,LA764061,LA7FS,LA7ECH) ; Build OBR-9 sequence - collection volume
; Call with LA7VOL = collection volume
; LA764061 = units (pointer to #64.061)
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
; Returns OBR-9 sequence
OBR11(LA7X) ; Build OBR-11 sequence - specimen action code
; Call with LA7X = HL7 Table 0065 entry
; Returns OBR-11 sequence
OBR12(LRDFN,LA7FS,LA7ECH) ; Build OBR-12 sequence - patient info
; Call with LRDFN = ien of patient in #63
; LA7FS = HL7 field separator
; LA7ECH = HL7 encoding characters
; Returns OBR-12 sequence
OBR13(LA7TXT,LA7FS,LA7ECH) ; Build OBR-13 sequence - relevant clinical info
; Call with LA7TXT = text to place into OBR-13
; LA7FS = HL7 field separator
; LA7ECH = HL7 encoding characters
; Returns OBR-12 sequence
OBR14(LA7DT) ; Build OBR-14 sequence - specimen arrival date/time
; Call with LA7DT = FileMan date/time
; Returns OBR-14 sequence
OBR15(LA761,LA762,LA7ALT,LA7FS,LA7ECH,LA7CM,LA7SNM) ; Build OBR-15 sequence - specimen source
; Call with LA761 = ien of topography file #61
; LA762 = ien of collection sample in file #62
; LA7ALT = alternate non-HL7 codes/text/coding system in form -
; specimen code^specimen text^specimen system^CONTROL^collection sample code^collection sample^collection system^alt specimen SNOMED^alt collection SNOMED.
; "CONTROL" only present when specimen is a lab control from file #62.3.
; presence of these will override standard HL7 tables
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
; LA7CM = ien of shipping condition file #62.93 (collection method)
; LA7SNM = 1-flag to send SNOMED CT instead of HL7 table 0070
OBR18(LA7X,LA7FS,LA7ECH) ; Build OBR-18 sequence - Placer's field #1
; Call with LA7X = array containing components to store, pass by reference.
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
OBR19(LA7X,LA7FS,LA7ECH) ; Build OBR-19 sequence - Placer's field #2
; Call with LA7X() = array containing components to store, pass by reference.
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
OBR20(LA7X,LA7FS,LA7ECH) ; Build OBR-20 sequence - Filler's field #1
; Call with LA7X = array containing components to store, pass by reference.
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
OBR21(LA7X,LA7FS,LA7ECH) ; Build OBR-21 sequence - Filler's field #2
; Call with LA7X() = array containing components to store, pass by reference.
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
OBR22(LA7DT) ; Build OBR-22 sequence - date report completed
; Call with LA7DT = FileMan date/time
OBR24(LA7SS) ; Build OBR-24 sequence - diagnostic service id
; Call with LA7SS = File #63 subscript^section within subscript
OBR25(LA7FLAG) ; Build OBR-25 sequence - Result status
; Call with LA7FLAG = VistA Lab status flag
; Returns result status based on HL7 table 0123
OBR26(LA7OBX3,LA7OBX4,LA7OBX5,LA7FS,LA7ECH)
OBR27(LA7DUR,LA7DURU,LA76205,LA7FS,LA7ECH) ; Build OBR-27 sequence - Quantity/Timing
; Call with LA7DUR = collection duration
; LA7DURU = duration units (pointer to #64.061)
; LA76205 = test urgency
; LA7FS = HL7 field separator
; LA7ECH = HL encoding characters
OBR29(LA7PON,LA7FON,LA7FS,LA7ECH)
OBR32(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-32 sequence - Principle Result Interpreter field
; Call with LA7DUZ = DUZ of verifying user
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-32 sequence
OBR33(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-32 sequence - Assistant Result Interpreter field
; Call with LA7DUZ = DUZ of assistant interpreter
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-33 sequence
OBR34(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-34 sequence - Technician field
; Call with LA7DUZ = DUZ of technician
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-34 sequence
OBR35(LA7DUZ,LA7DIV,LA7FS,LA7ECH) ; Build OBR-35 sequence - Transcriptionist field
; Call with LA7DUZ = DUZ of transcriptionist
; LA7DIV = Institution of user
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns OBR-35 sequence
OBR44(LA7VAL,LA7FS,LA7ECH) ; Build OBR-44 sequence - Procedure Code
; Call with LA7VAL = Order NLT code
; LA7FS = HL field separator
; LA7ECH = HL encoding characters
;
; Returns LA7Y = OBR-44 sequence

External References

Name Field # of Occurrence
$$CHKDT^LA7VHLU1 OBR6+4, OBR7+4, OBR8+4, OBR14+4, OBR22+5
$$CHKDATA^LA7VHLU3 OBR12+11, OBR13+7
OBR2^LA7VOBRA OBR2+8
OBR24^LA7VOBRA OBR24+6
OBR25^LA7VOBRA OBR25+5
OBR26^LA7VOBRA OBR26+8
OBR29^LA7VOBRA OBR29+7
OBR3^LA7VOBRA OBR3+8
OBR32^LA7VOBRA OBR32+9
OBR33^LA7VOBRA OBR33+9
OBR34^LA7VOBRA OBR34+9
OBR35^LA7VOBRA OBR35+9
OBR4^LA7VOBRA OBR4+11
OBR44^LA7VOBRA OBR44+8
OBR9^LA7VOBRA OBR9+8
OBRPF^LA7VOBRA OBR18+8, OBR19+8, OBR20+8, OBR21+8
OBR15^LA7VOBRB OBR15+15
$$ORC7^LA7VORC OBR27+10
$$FMTHL7^XLFDT OBR6+5, OBR7+5, OBR8+5, OBR14+5, OBR22+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] OBR12+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
LA760 OBR4~
LA761 OBR15~
LA762 OBR15~
LA76205 OBR27~, OBR27+10
LA764 OBR4+10~, OBR44+7~
LA764061 OBR9~, OBR15+14~
LA781 OBR44+7~
LA7ALT OBR4~, OBR15~
LA7ARI OBR33+8~, OBR33+10
LA7C OBR26+7~
LA7CM OBR15~
LA7COMP OBR4+10~, OBR15+14~
LA7DIV OBR32~, OBR33~, OBR34~, OBR35~
LA7DT OBR6~, OBR6+4*, OBR6+5, OBR7~, OBR7+4*, OBR7+5, OBR8~, OBR8+4*, OBR8+5, OBR14~
, OBR14+4*, OBR14+5, OBR22~, OBR22+5*, OBR22+6
LA7DUR OBR27~, OBR27+10
LA7DURU OBR27~, OBR27+10
LA7DUZ OBR32~, OBR33~, OBR34~, OBR35~
LA7ECH OBR2~, OBR3~, OBR4~, OBR9~, OBR12~, OBR12+7*, OBR12+11, OBR12+12, OBR13~, OBR13+7
, OBR15~, OBR18~, OBR19~, OBR20~, OBR21~, OBR26~, OBR27~, OBR27+10, OBR29~, OBR32~
, OBR33~, OBR34~, OBR35~, OBR44~
LA7ERR OBR4+10~, OBR15+14~
LA7FLAG OBR25~
LA7FON OBR29~
LA7FS OBR2~, OBR3~, OBR4~, OBR9~, OBR12~, OBR12+11, OBR13~, OBR13+7, OBR15~, OBR18~
, OBR19~, OBR20~, OBR21~, OBR26~, OBR27~, OBR27+10, OBR29~, OBR32~, OBR33~, OBR34~
, OBR35~, OBR44~
LA7I OBR18+7~, OBR19+7~, OBR20+7~, OBR21+7~
LA7ID OBR2~, OBR3~
LA7IENS OBR9+7~
LA7NLT OBR4~
LA7OBRSN OBR1~, OBR1+3*, OBR1+4
LA7OBX3 OBR26~
LA7OBX4 OBR26~
LA7OBX5 OBR26~
LA7PON OBR29~
LA7PRI OBR32+8~, OBR32+10
LA7SC OBR26+7~
LA7SNM OBR15~
LA7SS OBR24~
LA7TECH OBR34+8~, OBR34+10
LA7TN OBR4+10~
LA7TSPT OBR35+8~, OBR35+10
LA7TXT OBR13~, OBR13+7
LA7VAL OBR44~
LA7VOL OBR9~
LA7X OBR2+7~, OBR3+7~, OBR4+10~, OBR9+7~, OBR11~, OBR11+6, OBR12+6~, OBR12+9*, OBR12+10, OBR12+11*
, OBR12+12*, OBR12+13, OBR13+6~, OBR13+7*, OBR13+8, OBR15+14~, OBR18~, OBR19~, OBR20~, OBR21~
, OBR24+5~, OBR32+8~, OBR33+8~, OBR34+8~, OBR35+8~, OBR44+7~
LA7Y OBR2+7~, OBR2+9, OBR3+7~, OBR3+9, OBR4+10~, OBR4+12, OBR9+7~, OBR9+9, OBR15+14~, OBR15+16
, OBR18+7~, OBR18+9, OBR19+7~, OBR19+9, OBR20+7~, OBR20+9, OBR21+7~, OBR21+9, OBR24+5~, OBR24+7
, OBR25+4~, OBR25+6, OBR26+7~, OBR26+9, OBR29+6~, OBR29+8, OBR44+7~, OBR44+9
LA7Z OBR4+10~, OBR15+14~, OBR18+7~, OBR19+7~, OBR20+7~, OBR21+7~, OBR26+7~, OBR29+6~, OBR44+7~
LRDFN OBR12~, OBR12+7*, OBR12+9
X OBR15+14~
Y OBR15+14~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Local Variables  | All