Routine: LA7VHLU1

Information

LA7VHLU1 ;VA/DALOI/JMC - HL7 segment builder utility ;JUL 06, 2010 3:14 PM

Source file <LA7VHLU1.m>

Package	Total	Call Graph
Automated Lab Instruments	1	STSUP^LA7SMU
VA Fileman	1	FILE^DIE

Package	Total	Caller Graph
Automated Lab Instruments	41	LA7COBR LA7COBX LA7COBX1 LA7COBXA LA7CORC LA7VCIN1 LA7VCIN2 LA7VCIN3 LA7VCIN4 LA7VCN1A LA7VCN5A LA7VIN1 LA7VIN1A LA7VIN2 LA7VIN3 LA7VIN4 LA7VIN5A LA7VLIN1 LA7VLIN2 LA7VLIN3 LA7VLIN4 LA7VLN1A LA7VLN5A LA7VOBR LA7VOBX LA7VOBX1 LA7VOBXA LA7VORC LA7VPID LA7VQIN1 LA7VQIN2 LA7VQIN3 LA7VQIN4 LA7VQN1A LA7VQN5A LA7VRIN1 LA7VRIN2 LA7VRIN3 LA7VRIN4 LA7VRN1A LA7VRN5A

Name	Comments	DBIA/ICR reference
UPID(LA76249)	; Update identifier's associated with the message in #62.49 ; Call with LA76249 = ien of message in #62.49
ABFLAGS	;; HL7 Table 0078 Abnormal flags
CHKDT(LA7X)	; Check validity of date/time ; Adjust invalid times to closest valid time - correct for lab problem ; that generated invalid FileMan date/times. ; If hours>24 then set to 24 with no minutes/seconds ; If minutes greater than 59 then set to 59 ; If seconds greater than 59 then set to 59
FAMG(LA76248,LA7TYP)	; Find alert mail group for this alert type ; Call with LA76248 = ien of entry in file #62.48 ; LA7TYP = type of alert ; (1-new results) ; (2-error on message) ; (3-orders received)
REFUNIT(LA7SB,LA761)	; Find reference ranges/units from file #60 ; Call with LA7SB = dataname from "CH" subscript ; LA761 = pointer to topography file #61
UTS(LA7628,LA7UID,LA760)	; Update test status on manifest ; Call with LA7628 = ien of shipping manifest in #62.8 ; LA7UID = accession's UID ; LA760 = file # 60 ien of ordered test
SETID(LA76249,LA7ID,LA7X)	; Setup identifier's in TMP global for later storing. ; Call with LA76249 = ien of message in #62.49 ; LA7ID = root of identifier ; LA7X = value to add to identifier
OKTOSND(LRSS,LRSB,LA760)	; Check if test ok to send - is (O)utput or (B)oth ; Call with LRSS = file #63 subscript ; LRSB = file #63 data name or field reference ; LA760 = file #60 ien

Name	Field # of Occurrence
FILE^DIE	UPID+11
STSUP^LA7SMU	UTS+14

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	REFUNIT+10, REFUNIT+11, OKTOSND+14, OKTOSND+16, OKTOSND+17
^LAHM(62.48 - [#62.48]	FAMG+11, FAMG+12
^LAHM(62.8 - [#62.8]	UTS+11, UTS+12
^TMP("LA7-ID"	SETID+5, SETID+7*, UPID+6, UPID+8, UPID+14!

Name	Field # of Occurrence
FDA	UPID+3~
FDA(1	UPID+9*, UPID+11
I	CHKDT+7~, CHKDT+13*, CHKDT+14, CHKDT+15, CHKDT+16, CHKDT+17
LA760	UTS~, UTS+13, REFUNIT+7~, REFUNIT+10, REFUNIT+11, OKTOSND~, OKTOSND+7~, OKTOSND+13, OKTOSND+14, OKTOSND+15 , OKTOSND+16*, OKTOSND+17
LA761	REFUNIT~, REFUNIT+11
LA76248	FAMG~, FAMG+11, FAMG+12
LA76249	SETID~, SETID+5, SETID+7, UPID~, UPID+6, UPID+8, UPID+9, UPID+14
LA7628	UTS~, UTS+11, UTS+12, UTS+14
LA762801	UTS+8~, UTS+10, UTS+11, UTS+12, UTS+14
LA7CNT	UPID+3~, UPID+5, UPID+7, UPID+9
LA7ERR	UPID+3~
LA7I	UPID+3~, UPID+5, UPID+6, UPID+8
LA7ID	SETID~, SETID+7
LA7MG	FAMG+9~, FAMG+10, FAMG+13, FAMG+16*, FAMG+18
LA7SB	REFUNIT~, REFUNIT+10
LA7TYP	FAMG~, FAMG+11
LA7UID	UTS~, UTS+11
LA7X	SETID~, SETID+7, UTS+8~, UTS+12, UTS+13, UTS+14, UPID+3~, UPID+8, UPID+9, CHKDT~ , CHKDT+9, CHKDT+19, CHKDT+21, REFUNIT+7~, REFUNIT+11, REFUNIT+12, REFUNIT+13, REFUNIT+14, REFUNIT+15, REFUNIT+16 , REFUNIT+17, REFUNIT+18, OKTOSND+7~, OKTOSND+15, OKTOSND+17, OKTOSND+18
LA7Y	CHKDT+7~, CHKDT+9, CHKDT+12, CHKDT+14, CHKDT+17, REFUNIT+7~, REFUNIT+9, REFUNIT+12, REFUNIT+13, REFUNIT+14 , REFUNIT+15, REFUNIT+16, REFUNIT+17, REFUNIT+18, REFUNIT+20, OKTOSND+7~, OKTOSND+8, OKTOSND+14, OKTOSND+18*, OKTOSND+20
LA7Y(	CHKDT+14, CHKDT+15, CHKDT+16*
LA7Y(1	CHKDT+17, CHKDT+18
LA7Y(3	CHKDT+18
LA7Y(5	CHKDT+18
LRSB	OKTOSND~, OKTOSND+16
LRSS	OKTOSND~, OKTOSND+12
X	CHKDT+7~, CHKDT+18, CHKDT+19, FAMG+9~, FAMG+10, FAMG+11*, FAMG+12
Y	SETID+4~, SETID+5, SETID+6, SETID+7, FAMG+9~, FAMG+12*, FAMG+13