| 1 | VAFHLOBX ;ALB/SCK-Create generic OBX segment ; 22 Jan 2002 10:27 AM
|
|---|
| 2 | ;;5.3;Registration;**189,149,494**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine returns the HL7 defined OBX segment
|
|---|
| 5 | ;
|
|---|
| 6 | EN(VAFARRY,VAFNUM,VAFSTR) ; Returns OBX segment
|
|---|
| 7 | ;
|
|---|
| 8 | ; Input - VAFARRY Array of data fields from calling application for building into OBX segment fields
|
|---|
| 9 | ; Data to be included is expected to be in the following format:
|
|---|
| 10 | ; VAFARRY(Field Number) = Field Value
|
|---|
| 11 | ;
|
|---|
| 12 | ; - Dates to be in internal FM format
|
|---|
| 13 | ; - Provider name to be in external format
|
|---|
| 14 | ; VAFNUM (optional) as sequential number for SET ID (default=1)
|
|---|
| 15 | ; VAFSTR (Optional) as string of fields requested separated by commas. Build all if not passed in.
|
|---|
| 16 | ;
|
|---|
| 17 | ; **** Assumes all HL7 variables are defined ****
|
|---|
| 18 | ;
|
|---|
| 19 | ; Output - String of data forming the OBX segment
|
|---|
| 20 | ;
|
|---|
| 21 | N VAFY,X1
|
|---|
| 22 | ;
|
|---|
| 23 | ;; Check initial values, set defaults as needed
|
|---|
| 24 | ;; Quit on empty array
|
|---|
| 25 | I ($O(VAFARRY(""))="") S VAFY=1 G QUIT
|
|---|
| 26 | S VAFNUM=$S($G(VAFNUM):VAFNUM,1:1)
|
|---|
| 27 | I $G(VAFSTR)']"" S VAFSTR="2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17"
|
|---|
| 28 | ;
|
|---|
| 29 | ;; Initialize the output string
|
|---|
| 30 | S $P(VAFY,HLFS,17)="",VAFSTR=","_VAFSTR_","
|
|---|
| 31 | S $P(VAFY,HLFS,1)=VAFNUM ; Required field
|
|---|
| 32 | ;
|
|---|
| 33 | ;;Check required OBX fields
|
|---|
| 34 | I $G(VAFARRY(11))=""!($L($G(VAFARRY(11)))>1) S VAFY=1 G QUIT ; obs result status
|
|---|
| 35 | I $G(VAFARRY(3))="" S VAFY=1 G QUIT ; obs ID
|
|---|
| 36 | I $G(VAFARRY(11))'="X",$G(VAFARRY(2))']"" S VAFY=1 G QUIT ; Value Type
|
|---|
| 37 | ;
|
|---|
| 38 | ;;Build segment fields
|
|---|
| 39 | I VAFSTR[",2," S $P(VAFY,HLFS,2)=$S($G(VAFARRY(2))]"":VAFARRY(2),1:HLQ) ; Value Type
|
|---|
| 40 | I VAFSTR[",3," S $P(VAFY,HLFS,3)=$G(VAFARRY(3)) ; Observation Identifier
|
|---|
| 41 | I VAFSTR[",4," S $P(VAFY,HLFS,4)=$S($G(VAFARRY(4))]"":VAFARRY(4),1:HLQ) ; Observation Sub ID
|
|---|
| 42 | I VAFSTR[",5," S $P(VAFY,HLFS,5)=$S($G(VAFARRY(5))]"":VAFARRY(5),1:HLQ) ; Observation Value
|
|---|
| 43 | I VAFSTR[",6," S $P(VAFY,HLFS,6)=$S($G(VAFARRY(6))]"":VAFARRY(6),1:HLQ) ; Units
|
|---|
| 44 | I VAFSTR[",7," S $P(VAFY,HLFS,7)=$S($G(VAFARRY(7))]"":VAFARRY(7),1:HLQ) ; Reference Range
|
|---|
| 45 | I VAFSTR[",8," S $P(VAFY,HLFS,8)=$S($G(VAFARRY(8))]"":VAFARRY(8),1:HLQ) ; Abnormal flags
|
|---|
| 46 | I VAFSTR[",9," S $P(VAFY,HLFS,9)=$S($G(VAFARRY(9))]"":VAFARRY(9),1:HLQ) ; Probability
|
|---|
| 47 | I VAFSTR[",10," S $P(VAFY,HLFS,10)=$S($G(VAFARRY(10))]"":VAFARRY(10),1:HLQ) ; Nature of Abnormal Test
|
|---|
| 48 | I VAFSTR[",11," S $P(VAFY,HLFS,11)=$G(VAFARRY(11)) ; Observation Result Status
|
|---|
| 49 | I VAFSTR[",12," S X1=$$HLDATE^HLFNC($G(VAFARRY(12))),$P(VAFY,HLFS,12)=$S(X1]"":X1,1:HLQ) ; Date of last OBS Normal Values
|
|---|
| 50 | I VAFSTR[",13," S $P(VAFY,HLFS,13)=$S($G(VAFARRY(13))]"":VAFARRY(13),1:HLQ) ; User Defined Access Checks
|
|---|
| 51 | I VAFSTR[",14," S X1=$$HLDATE^HLFNC($G(VAFARRY(14))),$P(VAFY,HLFS,14)=$S(X1]"":X1,1:HLQ) ; DT of Observation
|
|---|
| 52 | I VAFSTR[",15," S $P(VAFY,HLFS,15)=$S($G(VAFARRY(15))]"":VAFARRY(15),1:HLQ) ; Producer's ID
|
|---|
| 53 | I VAFSTR[",16," D S $P(VAFY,HLFS,16)=$S(X1]"":X1,1:HLQ)
|
|---|
| 54 | . S DIC="^VA(200,",DIC(0)="MZO",X="`"_$G(VAFARRY(16)) D ^DIC
|
|---|
| 55 | . I VAFARRY(16)]"",Y>0 D
|
|---|
| 56 | .. N DGNAME S DGNAME("FILE")=200,DGNAME("IENS")=VAFARRY(16),DGNAME("FIELD")=.01
|
|---|
| 57 | .. S X1=$$HLNAME^XLFNAME(.DGNAME,"S",$E($G(HLECH))),X1=$G(VAFARRY(16))_$E(HLECH,1)_X1
|
|---|
| 58 | . E D
|
|---|
| 59 | .. S X1=""
|
|---|
| 60 | ;
|
|---|
| 61 | I VAFSTR[",17," S $P(VAFY,HLFS,17)=$S($G(VAFARRY(17))]"":VAFARRY(17),1:HLQ) ; OBS. Method
|
|---|
| 62 | ;
|
|---|
| 63 | ;
|
|---|
| 64 | QUIT Q "OBX"_HLFS_$G(VAFY)
|
|---|
