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

DGPFHLQ1.m

Go to the documentation of this file.
  1. DGPFHLQ1 ;ALB/RPM - PRF HL7 BUILD QRD SEGMENT ; 02/02/03
  1. ;;5.3;Registration;**425**;Aug 13, 1993
  1. ;
  1. ;
  1. QRD(DGQID,DGWHO,DGFLD,DGHL) ;QRD HL7 segment API
  1. ;This function wraps the data retrieval and segment creation APIs and
  1. ;returns a formatted QRD segment.
  1. ;
  1. ; Input:
  1. ; DGQID - (required) Query ID (DFN)
  1. ; DGWHO - (required) Who Subject Filter (Integrated Control Number)
  1. ; DGFLD - (optional) List of comma-separated fields (sequence #'s)
  1. ; to include. Defaults to all required fields (1-4,7-10).
  1. ; DGHL - VistA HL7 environment array
  1. ;
  1. ; Output:
  1. ; Function Value - QRD segment on success, "" on failure
  1. ;
  1. N DGQRD
  1. N DGVAL
  1. ;
  1. S DGQRD=""
  1. I $G(DGQID)>0,$G(DGWHO)]"" D
  1. . S DGFLD=$$CKSTR^DGPFHLUT("1,2,3,4,7,8,9,10",DGFLD) ;validate fields
  1. . S DGFLD=","_DGFLD_","
  1. . I $$QRDVAL(DGFLD,DGQID,DGWHO,.DGVAL) D
  1. . . S DGQRD=$$BLDSEG^DGPFHLUT("QRD",.DGVAL,.DGHL)
  1. Q DGQRD
  1. ;
  1. QRDVAL(DGFLD,DGQID,DGWHO,DGVAL) ;build QRD value array
  1. ;
  1. ; Input:
  1. ; DGFLD - Fields string
  1. ; DGQID - Query ID (DFN)
  1. ; DGWHO - Who Subject filter (ICN)
  1. ;
  1. ; Output:
  1. ; Function Value - 1 on success, 0 on failure
  1. ; DGVAL - QRD field array [SUB1:field, SUB2:repetition,
  1. ; SUB3:component, SUB4:sub-component
  1. ;
  1. N DGRSLT
  1. ;
  1. S DGRSLT=0
  1. I $G(DGQID)>0,$G(DGWHO)]"",$G(DGFLD)]"" D
  1. . ;
  1. . ; seq 1 (required) Query Date/Time
  1. . I DGFLD[",1," D Q:(+DGVAL(1)'>0)
  1. . . S DGVAL(1)=$$FMTHL7^XLFDT($$NOW^XLFDT())
  1. . ;
  1. . ; seq 2 (required) Query Format Code
  1. . I DGFLD[",2," D
  1. . . S DGVAL(2)="R" ;always "R"ecord
  1. . ;
  1. . ; seq 3 (required) Query Priority
  1. . I DGFLD[",3," D
  1. . . S DGVAL(3)="I" ;always "I"mmediate
  1. . ;
  1. . ; seq 4 (required) Query ID
  1. . I DGFLD[",4," D
  1. . . S DGVAL(4)=DGQID
  1. . ;
  1. . ; seq 5 (optional) Deferred Response Type
  1. . I DGFLD[",5," D
  1. . . S DGVAL(5)=""
  1. . ;
  1. . ; seq 6 (optional) Deferred Response Date/Time
  1. . I DGFLD[",6," D
  1. . . S DGVAL(6)=""
  1. . ;
  1. . ; seq 7 (required) Quantity Limited Request
  1. . I DGFLD[",7," D
  1. . . S DGVAL(7,1,1)=10
  1. . . S DGVAL(7,1,2)="RD" ;records
  1. . ;
  1. . ; seq 8 (required) Who Subject Filter
  1. . I DGFLD[",8," D
  1. . . S DGVAL(8,1,1)=DGWHO
  1. . . S DGVAL(8,1,9,1)="USVHA"
  1. . . S DGVAL(8,1,9,2)=""
  1. . . S DGVAL(8,1,9,3)="L"
  1. . ;
  1. . ; seq 9 (required) What Subject Filter
  1. . I DGFLD[",9," D
  1. . . S DGVAL(9,1,1)="OTH"
  1. . . S DGVAL(9,1,2)="Other"
  1. . . S DGVAL(9,1,3)="HL0048"
  1. . ;
  1. . ; seq 10 (required) What Dept. Data Code
  1. . I DGFLD[",10," D
  1. . . S DGVAL(10,1,1)="PRFA"
  1. . . S DGVAL(10,1,2)="Patient Record Flag Assignments"
  1. . . S DGVAL(10,1,3)="L"
  1. . ;
  1. . ; seq 11 (optional) What Data Code Value Qual.
  1. . I DGFLD[",11," D
  1. . . S DGVAL(11)=""
  1. . ;
  1. . ; seq 12 (optional) Query Results Level
  1. . I DGFLD[",12," D
  1. . . S DGVAL(12)=""
  1. . ;
  1. . S DGRSLT=1
  1. I 'DGRSLT K DGVAL
  1. Q DGRSLT