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

VAFHLA08.m

Go to the documentation of this file. 
  1. VAFHLA08 ;ALB/CM HL7 A08 MESSAGE BUILDING ;05/01/95
  1.  ;;5.3;Registration;**91**;Jun 06, 1996
  1.  ;
  1.  ;This routine will build an HL7 A08 Message for an inpatient or
  1.  ;outpatient event depending on the entry point used.
  1.  ;Use IN for inpatient
  1.  ;Use OUT for outpatient
  1.  ;
  1. IN ;
  1.  Q
  1.  ;
  1. OUT(DFN,EVENT,EVDT,VPTR,PISTR,ZSTR,PSTR,XSTR,PDNUM,ZNUM,PNUM,XNUM) ;
  1.  ;DFN - Patient file DFN
  1.  ;EVENT - Event number from pivot file
  1.  ;EVDT - event date/time FileMan format
  1.  ;VPTR - variable pointer
  1.  ;PISTR - fields to be included in PID (null - required fields,
  1.  ;or string of fields seperated by commas)
  1.  ;ZSTR - fields to be included in ZPD (null - required fields,
  1.  ;or string of fields seperated by commas)
  1.  ;PSTR - fields to be included in OPV1
  1.  ;(if null - required fields, if "A" - supported
  1.  ;fields, or string of fields seperated by commas")
  1.  ;XSTR - fields to be included in ODG1
  1.  ;(if null - required fields, if "A" - supported
  1.  ;fields, or string of fields seperated by commas")
  1.  ;PDNUM - ID # for PID (optional)
  1.  ;ZNUM - ID # for ZPD (optional)
  1.  ;PNUM - ID # for OPV1 (optional)
  1.  ;XNUM - ID # for ODG1 (optional)
  1.  ;
  1.  I '$D(PDNUM) S PDNUM=1
  1.  I '$D(ZNUM) S ZNUM=1
  1.  I '$D(PNUM) S PNUM=1
  1.  I '$D(XNUM) S XNUM=1
  1.  S ERR=$$OA08^VAFHCA08($G(DFN),$G(EVENT),$G(EVDT),$G(VPTR),$G(PISTR),$G(ZSTR),$G(PSTR),$G(XSTR),PDNUM,ZNUM,PNUM,XNUM)
  1.  Q ERR