Routine: LA7COBR

Package	Total	Call Graph
Automated Lab Instruments	6	(OBR2,OBR24,OBR25,OBR26,OBR29,OBR3,OBR32,OBR4,OBR9,OBRPF)^LA7COBRA OBR15^LA7COBRB $$ORC7^LA7CORC $$CHKDT^LA7VHLU1 $$CHKDATA^LA7VHLU3 (OBR33,OBR34,OBR35,OBR44)^LA7VOBRA
Kernel	1	$$FMTHL7^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Automated Lab Instruments	2	LA7CORU LA7CORUB

Entry Points

Name	Comments	DBIA/ICR reference
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
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
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
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. ; "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
OBR17(FS,ECH)	;-- MU2 build the order call back phone number
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
OBR11(LA7X)	; Build OBR-11 sequence - speciman action code ; Call with LA7X = HL7 Table 0065 entry ; Returns OBR-11 sequence
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
OBR14(LA7DT)	; Build OBR-14 sequence - speciman arrival date/time ; Call with LA7DT = FileMan date/time ; Returns OBR-14 sequence
OBR34(LA7DUZ,LA7DIV,LA7FS,LA7ECH)	; Build OBR-34 sequence - Technician field ; Call with LA7DUZ = DUZ of techician ; LA7DIV = Institution of user ; LA7FS = HL field separator ; LA7ECH = HL encoding characters ; ; Returns OBR-34 sequence
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
OBR13(LA7TXT,LA7SNM,LA7FS,LA7ECH)	; Build OBR-13 sequence - revelant clinical info ; Call with LA7TXT = text to place into OBR-13 ; LA7FS = HL7 field separator ; LA7ECH = HL7 encoding characters ; Returns OBR-12 sequence
OBR6(LA7DT)	; Build OBR-6 sequence - requested date/time ; Call with LA7DT = FileMan date/time ; Returns OBR-6 sequence
OBR49(LA7VAL,LA7ECH)	;-- build OBR-49 Results Handling
OBR1(LA7OBRSN)	; Build OBR-1 sequence - set segment id ; Call with LA7OBRSN = segment id (pass by reference)
OBR31(OD,OI,OII,LA7FS,LA7ECH)	;-- MU2 build reason for study field 408 BLR MASTER CONTROL file
OBR29(LA7PON,LA7FON,LA7FS,LA7ECH)
OBR25(LA7FLAG)	; Build OBR-25 sequence - Result status ; Call with LA7FLAG = VistA Lab status flag ; Returns result status based on HL7 table 0123
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
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
OBR28(LA7VAL,LA7ECH)	;-- Build OBR-28 result copies to
OBR22(LA7DT)	; Build OBR-22 sequence - date report completed ; Call with LA7DT = FileMan date/time
OBR8(LA7DT)	; Build OBR-8 sequence - collection end date/time ; Call with LA7DT = FileMan date/time ; Returns OBR-8 sequence
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
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
OBR7(LA7DT)	; Build OBR-7 sequence - collection date/time ; Call with LA7DT = FileMan date/time ; Returns OBR-7 sequence
OBR26(LA7OBX3,LA7OBX4,LA7OBX5,LA7FS,LA7ECH)
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
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
OBR24(LA7SS)	; Build OBR-24 sequence - diagnostic service id ; Call with LA7SS = File #63 subscript^section within subscript
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

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

FileNo	Call Tags
^ICD9 - [#80]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BLRSITE - [#9009029]	OBR17+4, OBR17+5
^LR - [#63]	OBR12+10
^LRO(69 - [#69]	OBR31+3, OBR31+4
^VA(200 - [#200]	OBR28+3, OBR28+4, OBR28+5, OBR28+6, OBR28+7, OBR28+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CS	OBR17+1~, OBR17+2, OBR17+6, OBR17+7, OBR31+1~, OBR31+2, OBR31+8
DUZ(2	OBR17+4, OBR17+5
DX	OBR31+1~, OBR31+6*, OBR31+8
DXE	OBR31+1~, OBR31+7*, OBR31+8
DXI	OBR31+1~, OBR31+3, OBR31+4*, OBR31+5, OBR31+6, OBR31+7, OBR31+8
ECH	OBR17~
FS	OBR17~
LA760	OBR4~
LA761	OBR15~
LA762	OBR15~
LA76205	OBR27~, OBR27+11
LA764	OBR4+10~, OBR44+7~
LA764061	OBR9~, OBR15+14~
LA781	OBR44+7~
>> LA7ADDON	OBR2+8
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+11
LA7DURU	OBR27~, OBR27+11
LA7DUZ	OBR32~, OBR33~, OBR34~, OBR35~
LA7ECH	OBR2~, OBR3~, OBR4~, OBR9~, OBR12~, OBR12+8*, OBR12+12, OBR12+13, OBR13~, OBR13+17 , OBR13+18, OBR13+19, OBR13+20, OBR13+21, OBR13+22, OBR13+23, OBR15~, OBR17+2, OBR17+3, OBR18~ , OBR19~, OBR20~, OBR21~, OBR26~, OBR27~, OBR27+11, OBR28~, OBR28+12, OBR28+13, OBR28+14 , OBR28+15, OBR28+16, OBR28+17, OBR28+18, OBR28+19, OBR28+20, OBR29~, OBR31~, OBR31+2, OBR32~ , OBR33~, OBR34~, OBR35~, OBR44~, OBR49~, OBR49+10, OBR49+11, OBR49+12, OBR49+13, OBR49+14 , OBR49+15, OBR49+16
LA7ERR	OBR4+10~, OBR15+14~
LA7FLAG	OBR25~
LA7FON	OBR29~
LA7FS	OBR2~, OBR3~, OBR4~, OBR9~, OBR12~, OBR12+12, OBR13~, OBR15~, OBR18~, OBR19~ , OBR20~, OBR21~, OBR26~, OBR27~, OBR27+11, OBR29~, OBR31~, OBR32~, OBR33~, OBR34~ , OBR35~, OBR44~
LA7I	OBR18+7~, OBR19+7~, OBR20+7~, OBR21+7~
LA7ID	OBR2~, OBR3~
LA7IENS	OBR9+7~
>> LA7INPT	OBR2+7, OBR2+8
LA7NLT	OBR4~
LA7OBRSN	OBR1~, OBR1+3*, OBR1+4, OBR2+7, OBR2+8
LA7OBX3	OBR26~
LA7OBX4	OBR26~
LA7OBX5	OBR26~
LA7PON	OBR29~
LA7PRI	OBR32+8~, OBR32+10
LA7SC	OBR26+7~
LA7SNM	OBR13~, OBR13+8, OBR13+10, OBR13+13, OBR15~
LA7SS	OBR24~
LA7TECH	OBR34+8~, OBR34+10
LA7TN	OBR4+10~
LA7TSPT	OBR35+8~, OBR35+10
LA7TXT	OBR13~, OBR13+11, OBR13+14, OBR13+16
LA7VAL	OBR28~, OBR28+2, OBR28+3, OBR28+4, OBR28+5, OBR28+6, OBR28+7, OBR28+8, OBR44~, OBR49~ , OBR49+2
LA7VOL	OBR9~
LA7X	OBR2+9~, OBR3+7~, OBR4+10~, OBR9+7~, OBR11~, OBR11+6, OBR12+6~, OBR12+10, OBR12+11, OBR12+12 , OBR12+13*, OBR12+15, OBR15+14~, OBR18~, OBR19~, OBR20~, OBR21~, OBR24+5~, OBR32+8~, OBR33+8~ , OBR34+8~, OBR35+8~, OBR44+7~
LA7Y	OBR2+9~, OBR2+11, OBR3+7~, OBR3+9, OBR4+10~, OBR4+12, OBR9+7~, OBR9+9, OBR13+6~, OBR13+17* , OBR13+18, OBR13+19, OBR13+20, OBR13+21, OBR13+22, OBR13+23, OBR13+24, OBR15+14~, OBR15+16, OBR17+1~ , OBR17+6, OBR17+7, OBR17+8, 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, OBR28+1~, OBR28+12, OBR28+13 , OBR28+14, OBR28+15, OBR28+16, OBR28+17, OBR28+18, OBR28+19, OBR28+20, OBR28+21, OBR29+6~, OBR29+8 , OBR31+1~, OBR31+8, OBR31+9, OBR44+7~, OBR44+9, OBR49+1~, OBR49+10, OBR49+11, OBR49+12, OBR49+13 , OBR49+14, OBR49+15, OBR49+16*, OBR49+17
LA7Z	OBR4+10~, OBR15+14~, OBR18+7~, OBR19+7~, OBR20+7~, OBR21+7~, OBR26+7~, OBR29+6~, OBR44+7~
LRDFN	OBR12~, OBR12+8*, OBR12+10
>> LRSS	OBR2+7
OBR131	OBR13+9~, OBR13+10*, OBR13+17
OBR132	OBR13+9~, OBR13+11*, OBR13+18
OBR133	OBR13+9~, OBR13+12*, OBR13+19
OBR134	OBR13+9~, OBR13+13*, OBR13+20
OBR135	OBR13+9~, OBR13+14*, OBR13+21
OBR136	OBR13+9~, OBR13+15*, OBR13+22
OBR139	OBR13+9~, OBR13+16*, OBR13+23
OBR281	OBR28+1~, OBR28+3*, OBR28+12
OBR2810	OBR28+1~, OBR28+10*, OBR28+19
OBR2813	OBR28+1~, OBR28+11*, OBR28+20
OBR282	OBR28+1~, OBR28+4*, OBR28+13
OBR283	OBR28+1~, OBR28+5*, OBR28+14
OBR284	OBR28+1~, OBR28+6*, OBR28+15
OBR285	OBR28+1~, OBR28+7*, OBR28+16
OBR286	OBR28+1~, OBR28+8*, OBR28+17
OBR289	OBR28+1~, OBR28+9*, OBR28+18
OBR491	OBR49+1~, OBR49+3*, OBR49+10
OBR492	OBR49+1~, OBR49+4*, OBR49+7, OBR49+9, OBR49+11
OBR493	OBR49+1~, OBR49+5*, OBR49+12
OBR494	OBR49+1~, OBR49+6*, OBR49+13
OBR495	OBR49+1~, OBR49+7*, OBR49+14
OBR496	OBR49+1~, OBR49+8*, OBR49+15
OBR499	OBR49+1~, OBR49+9*, OBR49+16
OD	OBR31~, OBR31+3, OBR31+4
ODA	OBR31+1~, OBR31+3*, OBR31+4
OI	OBR31~, OBR31+3, OBR31+4
OII	OBR31~, OBR31+3, OBR31+4
PH1	OBR17+1~, OBR17+4*, OBR17+6
PH2	OBR17+1~, OBR17+5*, OBR17+7
RS	OBR17+1~, OBR17+3*, OBR17+7
U	OBR17+4, OBR17+5, OBR28+3, OBR28+4, OBR28+5, OBR28+6, OBR28+7, OBR28+8, OBR31+4
X	OBR15+14~
Y	OBR15+14~

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7COBR

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend: