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

DGPFHLQ3.m

Go to the documentation of this file.
  1. DGPFHLQ3 ;ALB/RPM - PRF HL7 QRY PROCESSING ; 12/13/04
  1. ;;5.3;Registration;**425,650**;Aug 13, 1993;Build 3
  1. ;
  1. PARSQRY(DGWRK,DGHL,DGQRY,DGPFERR) ;Parse QRY~R02 Message/Segments
  1. ;
  1. ; Input:
  1. ; DGWRK - Closed root global reference
  1. ; DGHL - VistA HL7 environment array
  1. ;
  1. ; Output:
  1. ; DGQRY - Patient lookup components array
  1. ; DGPFERR - Undefined on success, ERR segment data array on failure
  1. ; Format: DGPFERR(seg_id,sequence,fld_pos)=error_code
  1. ;
  1. N DGRSLT ;result from CHK^DIE
  1. N DGFS ;field separator
  1. N DGCS ;component separator
  1. N DGRS ;repetition separator
  1. N DGSS ;sub-component separator
  1. N DGCURLIN ;current segment line
  1. N DGSEG ;segment field data array
  1. N DGERR ;error processing array
  1. ;
  1. S DGFS=DGHL("FS")
  1. S DGCS=$E(DGHL("ECH"),1)
  1. S DGRS=$E(DGHL("ECH"),2)
  1. S DGSS=$E(DGHL("ECH"),4)
  1. S DGCURLIN=0
  1. ;
  1. ;loop through the message segments and retrieve the field data
  1. F D Q:'DGCURLIN
  1. . N DGSEG
  1. . S DGCURLIN=$$NXTSEG^DGPFHLUT(DGWRK,DGCURLIN,DGFS,.DGSEG)
  1. . Q:'DGCURLIN
  1. . D @(DGSEG("TYPE")_"(.DGSEG,DGCS,DGRS,DGSS,.DGQRY,.DGPFERR)")
  1. Q
  1. ;
  1. MSH(DGSEG,DGCS,DGRS,DGSS,DGQRY,DGERR) ;
  1. ;
  1. ; Input:
  1. ; DGSEG - MSH segment field array
  1. ; DGCS - HL7 component separator
  1. ; DGRS - HL7 repetition separator
  1. ; DGSS - HL7 sub-component separator
  1. ;
  1. ; Output:
  1. ; DGQRY - array of ORF results
  1. ; "SNDFAC" - sending facility
  1. ; "RCVFAC" - receiving facility
  1. ; "MSGDTM" - message creation date/time in FileMan format
  1. ; DGERR - undefined on success, error array on failure
  1. ;
  1. D MSH^DGPFHLU4(.DGSEG,DGCS,DGRS,DGSS,.DGQRY,.DGERR)
  1. Q
  1. ;
  1. QRD(DGSEG,DGCS,DGRS,DGSS,DGQRY,DGERR) ;
  1. ;
  1. ; Input:
  1. ; DGSEG - MSH segment field array
  1. ; DGCS - HL7 component separator
  1. ; DGRS - HL7 repetition separator
  1. ; DGSS - HL7 sub-component separator
  1. ;
  1. ; Output:
  1. ; DGQRY("ICN") - Patient's Integrated Control Number
  1. ; DGQRY("QID") - Query ID
  1. ; DGERR - undefined on success, error array on failure
  1. ; format: DGERR(seg_id,sequence,fld_pos)=error code
  1. ;
  1. S DGQRY("QID")=$G(DGSEG(4))
  1. S DGQRY("ICN")=+$P($G(DGSEG(8)),DGCS,1)
  1. Q
  1. ;
  1. QRF(DGSEG,DGCS,DGRS,DGSS,DGQRY,DGERR) ;
  1. ; This procedure is a placeholder to allow parsing loop to continue.
  1. ;
  1. ; Input:
  1. ; DGSEG - PID segment field array
  1. ; DGCS - HL7 component separator
  1. ; DGRS - HL7 repetition separator
  1. ; DGSS - HL7 sub-component separator
  1. ;
  1. ; Output:
  1. ; DGERR - undefined on success, error array on failure
  1. ; format: DGERR(seg_id,sequence,fld_pos)=error code
  1. ;
  1. Q