Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGPFHLU2

DGPFHLU2.m

Go to the documentation of this file.
  1. DGPFHLU2 ;ALB/RPM - PRF HL7 BUILD OBX SEGMENT ; 2/20/03
  1. ;;5.3;Registration;**425,1015**;Aug 13, 1993;Build 21
  1. ;
  1. Q
  1. ;
  1. OBX(DGSET,DGID,DGSUBID,DGVALUE,DGPFAH,DGFLD,DGHL) ;OBX Segment API
  1. ;This function wraps the data retrieval and segment creation APIs and
  1. ;returns a formatted OBX segment.
  1. ;
  1. ; Input:
  1. ; DGSET - (required) OBX segment Set ID
  1. ; DGID - (required) Observation identifier code
  1. ; DGSUBID - (optional) Observation Sub-ID
  1. ; DGVALUE - (required) Observation value
  1. ; DGPFAH - (required) Assignment history data array
  1. ; DGFLD - (optional) List of comma-separated fields (sequence #'s)
  1. ; to include. Defaults to all required fields (3,11).
  1. ; DGHL - HL7 environment array
  1. ;
  1. ; Output:
  1. ; Function Value - OBX segment on success, "" on failure
  1. ;
  1. N DGOBX
  1. N DGVAL
  1. ;
  1. S DGOBX=""
  1. I $G(DGSET)>0,$G(DGID)?1A,$G(DGVALUE)]"" D
  1. . S DGFLD=$$CKSTR^DGPFHLUT("3,11",DGFLD) ;required fields
  1. . S DGFLD=","_DGFLD_","
  1. . I $$OBXVAL(DGFLD,DGSET,DGID,DGSUBID,DGVALUE,.DGPFAH,.DGVAL) D
  1. . . S DGOBX=$$BLDSEG^DGPFHLUT("OBX",.DGVAL,.DGHL)
  1. Q DGOBX
  1. ;
  1. OBXVAL(DGFLD,DGSET,DGID,DGSUBID,DGVALUE,DGPFAH,DGVAL) ;build OBX value array
  1. ;
  1. ; Input:
  1. ; DGFLD - (required) Fields string
  1. ; DGSET - (required) OBX segment Set ID
  1. ; DGID - (required) Observation identifier code
  1. ; DGSUBID - (optional) Observation Sub-ID
  1. ; DGVALUE - (required) Observation value
  1. ; DGPFAH - (required) Assignment history data array
  1. ;
  1. ; Output:
  1. ; Function Value - 1 on sucess, 0 on failure
  1. ; DGVAL - OBX field array [SUB1:field, SUB2:repetition,
  1. ; SUB3:component, SUB4:sub-component]
  1. ;
  1. N DGRSLT ;function value
  1. N DGTYPE ;observation value type
  1. N DGIDSTR ;observation identifier string
  1. N DGDAT ;observation date
  1. ;
  1. S DGRSLT=0
  1. I $G(DGFLD)]"",+$G(DGSET)>0,$G(DGID)?1A,$G(DGVALUE)]"" D
  1. . ;
  1. . ; seq 1 Set ID
  1. . I DGFLD[",1," D
  1. . . S DGVAL(1)=DGSET
  1. . ;
  1. . ; seq 2 Value Type
  1. . I DGFLD[",2," D
  1. . . S DGTYPE=$S(DGID="S":"ST",DGID="N":"TX",DGID="C":"TX",1:"")
  1. . . Q:(DGTYPE']"")
  1. . . S DGVAL(2)=DGTYPE
  1. . ;
  1. . ; seq 3 Observation Identifier
  1. . I DGFLD[",3," D Q:'$D(DGVAL(3)) ;required field
  1. . . S DGIDSTR=$S(DGID="S":"Status",DGID="N":"Narrative",DGID="C":"Comment",1:"")
  1. . . Q:(DGIDSTR']"")
  1. . . S DGVAL(3,1,1)=DGID
  1. . . S DGVAL(3,1,2)=DGIDSTR
  1. . . S DGVAL(3,1,3)="L"
  1. . ;
  1. . ; seq 4 Observation Sub-ID (optional)
  1. . I DGFLD[",4," D
  1. . . S DGVAL(4)=$S(+$G(DGSUBID)>0:DGSUBID,1:"")
  1. . ;
  1. . ; seq 5 Observation Value
  1. . I DGFLD[",5," D
  1. . . S DGVAL(5)=DGVALUE
  1. . ;
  1. . ; seq 6 Units
  1. . I DGFLD[",6," D
  1. . . S DGVAL(6)=""
  1. . ;
  1. . ; seq 7 Reference Range
  1. . I DGFLD[",7," D
  1. . . S DGVAL(7)=""
  1. . ;
  1. . ; seq 8 Abnormal Flags
  1. . I DGFLD[",8," D
  1. . . S DGVAL(8)=""
  1. . ;
  1. . ; seq 9 Probability
  1. . I DGFLD[",9," D
  1. . . S DGVAL(9)=""
  1. . ;
  1. . ; seq 10 Nature of Abnormal Test
  1. . I DGFLD[",10," D
  1. . . S DGVAL(10)=""
  1. . ;
  1. . ; seq 11 Observ Result Status
  1. . I DGFLD[",11," D
  1. . . S DGVAL(11)="F"
  1. . ;
  1. . ; seq 12 Date last Obs Normal Values
  1. . I DGFLD[",12," D
  1. . . S DGVAL(12)=""
  1. . ;
  1. . ; seq 13 User Defined Access Checks
  1. . I DGFLD[",13," D
  1. . . S DGVAL(13)=""
  1. . ;
  1. . ; seq 14 Date/Time of the Observation
  1. . I DGFLD[",14," D
  1. . . S DGDAT=$$FMTHL7^XLFDT(+$G(DGPFAH("ASSIGNDT")))
  1. . . S DGVAL(14)=$S(DGDAT>0:DGDAT,1:"")
  1. . ;
  1. . ; seq 15 Producer's ID
  1. . I DGFLD[",15," D
  1. . . S DGVAL(15)=""
  1. . ;
  1. . ; seq 16 Responsible Observer
  1. . I DGFLD[",16," D
  1. . . S DGVAL(16)=""
  1. . ;
  1. . ; seq 17 Observation Method
  1. . I DGFLD[",17," D
  1. . . S DGVAL(17)=""
  1. . ;
  1. . S DGRSLT=1
  1. I 'DGRSLT K DGVAL
  1. Q DGRSLT
  1. ;
  1. BLDOBXTX(DGROOT,DGTXTA,DGID,DGPFAH,DGHL,DGSEG,DGSET) ;build OBX text segments
  1. ;
  1. ; Input:
  1. ; DGROOT - (required) Closed root array or global name for segment
  1. ; storage
  1. ; DGTXTA - (required) Closed root array containing text
  1. ; DGID - (required) OBX segment Observation ID
  1. ; DGPFAH - (required) Assignment history data array
  1. ; DGHL - (required) VistA HL7 environment array
  1. ; DGSEG - (optional) Previous segment # in DGROOT
  1. ; DGSET - (optional) Previous OBX Set ID
  1. ;
  1. ; Output:
  1. ; Function Value - 1 on success, 0 on failure
  1. ;
  1. N DGI ;generic counter
  1. N DGOBX ;formatted OBX segment
  1. N DGOBXTX ;array of pre-processed text lines
  1. N DGRSLT ;function value
  1. N DGSTR ;list of OBX segment fields to include
  1. ;
  1. S DGRSLT=0
  1. S DGSTR="1,2,3,5,11,14"
  1. I $G(DGROOT)]"",$G(DGTXTA)]"",$G(DGID)?1A,$D(DGPFAH) D
  1. . Q:'$$BLDTEXT^DGPFHLUT(DGTXTA,.DGHL,.DGOBXTX)
  1. . S DGSEG=$G(DGSEG,0)
  1. . S DGSET=$G(DGSET,0)
  1. . S DGI=0
  1. . F S DGI=$O(DGOBXTX(DGI)) Q:'DGI D Q:(DGOBX="")
  1. . . S DGSET=DGSET+1
  1. . . S DGOBX=$$OBX^DGPFHLU2(DGSET,DGID,"",DGOBXTX(DGI),.DGPFAH,DGSTR,.DGHL)
  1. . . Q:(DGOBX="")
  1. . . S DGSEG=DGSEG+1,@DGROOT@(DGSEG)=DGOBX
  1. . Q:(DGOBX)=""
  1. . ;
  1. . ;success
  1. . S DGRSLT=1
  1. ;
  1. Q DGRSLT