Routine: LA7VORM1

Information

LA7VORM1 ;VA/DALOI/DLR - LAB ORM (Order) message builder ; 13-Aug-2013 09:09 ; MKK

Source Information

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Automated Lab Instruments	7	($$CHKTST,SEUP)^LA7SMU ($$BLG,BUILDSEG,FILE6249,FILESEG,GEN,STARTMSG)^LA7VHLU ($$FNDOLOC,$$NVAF)^LA7VHLU2 ($$ORC1,$$ORC12,$$ORC17,$$ORC2,$$ORC4,$$ORC7,$$ORC9)^LA7VORC OBR^LA7VORM3 (PID,PV1)^LA7VPID ($$ACCT,DG1,GAR,INS,OBX)^LA7VQINS
VA Fileman	3	FILE^DIE CLEAN^DILF $$GET1^DIQ
Kernel	2	$$NOW^XLFDT $$ID^XUAF4
Lab Service	1	(DEM,KVAR)^LRX

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Automated Lab Instruments	5	LA7CHDR LA7HDR LA7HDR1 LA7POC LA7SMP0
IHS Changes To Lab	1	BLRAG09E

Entry Points

Name	Comments	DBIA/ICR reference
PV1	; Location information ; DoD/CHCS facilities do not use PV1 segment
GETORD(DF)	;-- get the order number
UPDT6249	; update entry in 62.49
GT1(ORD)	;-- handle the guarantor
BUILD(LA7628)	; ; Call with LA7628 = ien of entry in file #62.8 Shipping Manifest
PID	; Patient identification
STARTMSG	; Create/initialize HL message
DG1(ORD)	;-- handle the diagnosis
EXIT	;
GETORDA(UID)	;-- get the order number
BLG	; Billing segment
OBX(ORD,UID)	;-- build the obx ask at order questions
IN1(ORD)	;-- handle insurance
ORC	;Order Control
SENDMSG	; File HL7 message with HL and LAB packages.

External References

Name	Field # of Occurrence
FILE^DIE	SENDMSG+11, UPDT6249+20
CLEAN^DILF	SENDMSG+12, UPDT6249+21
$$GET1^DIQ	BUILD+21, BUILD+27, BUILD+29, BUILD+32, BUILD+34, ORC+27
$$CHKTST^LA7SMU	BUILD+95
SEUP^LA7SMU	SENDMSG+17
$$BLG^LA7VHLU	BLG+6
BUILDSEG^LA7VHLU	ORC+43
FILE6249^LA7VHLU	PID+9, PV1+6, ORC+45, BLG+8
FILESEG^LA7VHLU	PID+8, PV1+5, ORC+44, BLG+7
GEN^LA7VHLU	SENDMSG+15
STARTMSG^LA7VHLU	STARTMSG+4
$$FNDOLOC^LA7VHLU2	ORC+37
$$NVAF^LA7VHLU2	BUILD+20, BUILD+26, BUILD+31
$$ORC1^LA7VORC	ORC+5
$$ORC12^LA7VORC	ORC+38
$$ORC17^LA7VORC	ORC+41
$$ORC2^LA7VORC	ORC+9
$$ORC4^LA7VORC	ORC+12
$$ORC7^LA7VORC	ORC+30
$$ORC9^LA7VORC	ORC+33, ORC+34
OBR^LA7VORM3	BUILD+96
PID^LA7VPID	PID+3
PV1^LA7VPID	PV1+4
$$ACCT^LA7VQINS	DG1+1, GT1+1
DG1^LA7VQINS	DG1+2
GAR^LA7VQINS	GT1+2
INS^LA7VQINS	IN1+4
OBX^LA7VQINS	OBX+1
DEM^LRX	PID+2
KVAR^LRX	EXIT+7
$$NOW^XLFDT	SENDMSG+16
$$ID^XUAF4	BUILD+22, BUILD+28, BUILD+33

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAHM(62.48 - [#62.48]	BUILD+14
^LAHM(62.49 - [#62.49]	SENDMSG+13, SENDMSG+20, UPDT6249+6
^LAHM(62.8 - [#62.8]	BUILD+5, BUILD+10, BUILD+47, BUILD+48, BUILD+94, ORC+21
^LAHM(62.9 - [#62.9]	BUILD+12
^LR - [#63]	PID+1
^LRO(68 - [#68]	BUILD+82, BUILD+85, BUILD+87, BUILD+88, GETORDA+2, GETORDA+5
^LRO(69 - [#69]	BUILD+70, BUILD+74
^TMP("HLS"	SENDMSG+5
^TMP("LA7628"	BUILD+45!, BUILD+51, BUILD+53, BUILD+58, BUILD+67, BUILD+80, BUILD+92, EXIT+1!, ORC+18, GETORD+2

Label References

Name	Line Occurrences
$$GETORDA	BUILD+53
BLG	BUILD+97, BUILD+98, BUILD+100
DG1	BUILD+96
EXIT	BUILD+7, BUILD+15, BUILD+58, BUILD+63
GT1	BUILD+76, BUILD+77, BUILD+89
IN1	BUILD+76, BUILD+77, BUILD+89
OBX	BUILD+96
ORC	BUILD+96
PID	BUILD+76, BUILD+77, BUILD+89
PV1	BUILD+76, BUILD+77, BUILD+89
SENDMSG	BUILD+97, BUILD+98, BUILD+101, BUILD+103
STARTMSG	BUILD+62, BUILD+69, BUILD+77, BUILD+89
UPDT6249	SENDMSG+18

Name	Field # of Occurrence
^(0	PID+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	IN1+3*
DF	GETORD~, GETORD+2
DFN	EXIT+2!, PID+1*, GT1+2
DIC	EXIT+2!
ECNT	BUILD+3~, BUILD+9*
EID	EXIT+2!
FDA	SENDMSG+6~, UPDT6249+2~
FDA(1	SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, UPDT6249+4, UPDT6249+5, UPDT6249+7, UPDT6249+8, UPDT6249+9, UPDT6249+10 , UPDT6249+11, UPDT6249+12, UPDT6249+13, UPDT6249+14, UPDT6249+15, UPDT6249+16, UPDT6249+18, UPDT6249+19
GBL	BUILD+3~, BUILD+9*, EXIT+1, STARTMSG+2, PID+8, PV1+5, ORC+44, BLG+7
HL	BUILD+61, BUILD+63, BUILD+67, BUILD+69, BUILD+77, BUILD+89, EXIT+2!, PID+3
HL("APAT"	UPDT6249+7
HL("MTN"	UPDT6249+13
HL("PID"	UPDT6249+14
HL("SAF"	UPDT6249+12
HL("SAN"	UPDT6249+11
HL("VER"	UPDT6249+15
HLCOMP	EXIT+2!
HLFS	EXIT+2!
HLQ	EXIT+2!
HLSUB	EXIT+2!
I	BUILD+85, BUILD+87, BUILD+88, BUILD+93~, BUILD+94, ORC+19~, ORC+21, GETORDA+5*
IN1	IN1+2!
INT	EXIT+2!
LA	EXIT+6!
LA7101	BUILD+3~
LA760	EXIT+3!, ORC+19~, ORC+26*, ORC+27
LA76205	ORC+2~, ORC+15, ORC+28, ORC+29*, ORC+30
>> LA76248	BUILD+13*, BUILD+14, SENDMSG+7, UPDT6249+4
>> LA76248(0	BUILD+14*, BUILD+15, BUILD+41
>> LA76249	STARTMSG+3*, STARTMSG+4, SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+13, SENDMSG+20, UPDT6249+4, UPDT6249+5 , UPDT6249+6, UPDT6249+7, UPDT6249+8, UPDT6249+9, UPDT6249+10, UPDT6249+11, UPDT6249+12, UPDT6249+13, UPDT6249+14, UPDT6249+15 , UPDT6249+16, UPDT6249+18, UPDT6249+19, PID+9, PV1+6, ORC+45, BLG+8
LA7628	BUILD~, BUILD+5, BUILD+10, BUILD+47, BUILD+48, BUILD+94, BUILD+95, EXIT+3!, ORC+21
LA7628(0	BUILD+10*, BUILD+11, SENDMSG+3, SENDMSG+17, ORC+12
LA762801	BUILD+3~, BUILD+46, BUILD+47, BUILD+48, BUILD+51, BUILD+53, BUILD+55!, BUILD+90, BUILD+92, BUILD+94 , BUILD+95, EXIT+3!, ORC+2~, ORC+16, ORC+18, ORC+21
LA762801(	BUILD+94, ORC+21
LA762801(0	ORC+26
LA762801(2	ORC+22, ORC+23, ORC+24
LA7629	BUILD+3~, BUILD+11*, BUILD+12, EXIT+3!
LA7629(0	BUILD+12*, BUILD+13, BUILD+17, BUILD+18, BUILD+21, BUILD+22, BUILD+23, BUILD+26, BUILD+27, BUILD+28 , BUILD+29, BUILD+31, BUILD+32, BUILD+33, BUILD+34, ORC+41, BLG+5, BLG+6
LA76802	BUILD+81~
LA76802(	BUILD+85, ORC+9, GETORDA+5, GETORDA+6
LA76802(0	ORC+33, ORC+34, ORC+38
LA76802(3	ORC+34
LA76802(5	BUILD+88*
LA7BLG	BLG+3~, BLG+7, BLG+8
LA7BLG(0	BLG+6*
LA7DATA	SENDMSG+2~, SENDMSG+16*, SENDMSG+17, ORC+2~, ORC+43, ORC+44, ORC+45
>> LA7DGQ	BUILD+79, BUILD+99
LA7DUR	ORC+2~, ORC+15, ORC+23, ORC+30
LA7DURU	ORC+2~, ORC+15, ORC+24, ORC+30
LA7ECH	EXIT+4!, PID+6, PV1+4, ORC+9, ORC+12, ORC+30, ORC+38, ORC+41, BLG+6
LA7ER	SENDMSG+6~, UPDT6249+2~
>> LA7ERR	UPDT6249+9
LA7FS	EXIT+4!, PID+6, PID+7, PV1+4, ORC+9, ORC+12, ORC+30, ORC+38, ORC+41, ORC+43 , BLG+6
>> LA7GUAR	BUILD+79, BUILD+99
LA7HDR	EXIT+4!
LA7ID	SENDMSG+2~, SENDMSG+3*, SENDMSG+10, UPDT6249+10
LA7MID	EXIT+4!, UPDT6249+16, UPDT6249+17, UPDT6249+18, UPDT6249+19
LA7NVAF	BUILD+3~, BUILD+20*, BUILD+21, BUILD+22, PID+5, PV1+2
LA7OBR	BUILD+93~
LA7OBRSN	BUILD+66, BUILD+90, EXIT+4!
LA7OBXSN	EXIT+4!
LA7ORC	BUILD+81~
>> LA7ORD	BUILD+66, BUILD+67, BUILD+70, BUILD+71, BUILD+76, BUILD+77, BUILD+80, BUILD+89, BUILD+92, BUILD+96 , ORC+18
LA7ORDD	BUILD+68~, BUILD+72*, BUILD+74
LA7ORDI	BUILD+68~, BUILD+70*, BUILD+71, BUILD+72, BUILD+73
LA7ORI	BUILD+68~, BUILD+73*, BUILD+74
LA7PID	BUILD+68~, PID+3, PID+8, PID+9
LA7PID(0	PID+6, PID+7*
LA7PIDSN	BUILD+3~, BUILD+66, STARTMSG+3, PID+3
LA7PV1	BUILD+68~, PV1+4, PV1+5, PV1+6
LA7QUID	GETORD+1~, GETORD+2*, GETORD+3, GETORD+4
>> LA7SMSG	BUILD+41*, BUILD+50, BUILD+52, BUILD+61, BUILD+69, BUILD+76, BUILD+77, BUILD+89, BUILD+97, BUILD+98 , BUILD+100, BUILD+101, BUILD+103
>> LA7UID	BUILD+78, BUILD+80, BUILD+82, BUILD+83, BUILD+92, BUILD+96, ORC+18, ORC+37
LA7V	EXIT+4!
LA7V("CLNT"	BUILD+27, BUILD+28, BUILD+29*
LA7V("HOST"	BUILD+32, BUILD+33, BUILD+34*
LA7V("INST"	BUILD+17*, BUILD+18, BUILD+20
LA7V("NON"	BUILD+23*, BUILD+24
LA7VIEN	EXIT+4!
LA7X	BUILD+3~, BUILD+26, BUILD+27, BUILD+28, BUILD+31, BUILD+32, BUILD+33, ORC+2~, ORC+37*, ORC+38
LAEVNT	EXIT+4!
LRAA	BUILD+84, BUILD+85, BUILD+87, BUILD+88, EXIT+5!, ORC+27, GETORDA+4, GETORDA+5
LRACC	EXIT+5!
LRAD	BUILD+84, BUILD+85, BUILD+87, BUILD+88, EXIT+5!, ORC+27, GETORDA+4, GETORDA+5
LRAN	BUILD+84, BUILD+85, BUILD+87, BUILD+88, EXIT+5!, ORC+27, GETORDA+4, GETORDA+5
LRDFN	BUILD+66, BUILD+74, EXIT+5!, PID+1, PID+3, PV1+4
>> LRDPF	PID+1*
LRI	BUILD+66*, EXIT+5!
LTST	EXIT+6!
NLT	EXIT+6!
NLTIEN	EXIT+6!
NTST	BUILD+3~
ORC	ORC+2~, ORC+43
ORC(0	ORC+4*
ORC(1	ORC+5*
ORC(12	ORC+38*
ORC(17	ORC+41*
ORC(2	ORC+9*
ORC(4	ORC+12*
ORC(7	ORC+30*
ORC(9	ORC+33, ORC+34
ORD	DG1~, DG1+1, DG1+2, GT1~, GT1+1, IN1~, IN1+4, OBX~, OBX+1
ORUID	BUILD+3~
PCNT	EXIT+6!
RUID	EXIT+6!
SHP	BUILD+3~
SHPC	BUILD+3~
SITE	BUILD+3~, BUILD+20, BUILD+21, BUILD+22, BUILD+24, STARTMSG+4, SENDMSG+3
SNIEN	EXIT+6!
TIEN	EXIT+6!
U	BUILD+11, BUILD+17, BUILD+18, BUILD+21, BUILD+22, BUILD+23, BUILD+26, BUILD+27, BUILD+28, BUILD+29 , BUILD+31, BUILD+32, BUILD+33, BUILD+34, ORC+41, DG1+1, GT1+1, BLG+5
UID	GETORDA~, GETORDA+2, GETORDA+3, OBX~, OBX+1
X	BUILD+81~, BUILD+82, BUILD+83, BUILD+84, EXIT+6!, PID+6, PID+7, ORC+27, ORC+28, ORC+29 , GETORDA+1~, GETORDA+2, GETORDA+3, GETORDA+4
X(0	BUILD+48*, BUILD+49, BUILD+51, BUILD+53
Y	EXIT+6!
>> ZTQUEUED	EXIT+8
>> ZTREQ	EXIT+8*

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7VORM1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: