| [613] | 1 | VAFHLA08 ;ALB/CM HL7 A08 MESSAGE BUILDING ;05/01/95
|
|---|
| 2 | ;;5.3;Registration;**91**;Jun 06, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;This routine will build an HL7 A08 Message for an inpatient or
|
|---|
| 5 | ;outpatient event depending on the entry point used.
|
|---|
| 6 | ;Use IN for inpatient
|
|---|
| 7 | ;Use OUT for outpatient
|
|---|
| 8 | ;
|
|---|
| 9 | IN ;
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | OUT(DFN,EVENT,EVDT,VPTR,PISTR,ZSTR,PSTR,XSTR,PDNUM,ZNUM,PNUM,XNUM) ;
|
|---|
| 13 | ;DFN - Patient file DFN
|
|---|
| 14 | ;EVENT - Event number from pivot file
|
|---|
| 15 | ;EVDT - event date/time FileMan format
|
|---|
| 16 | ;VPTR - variable pointer
|
|---|
| 17 | ;PISTR - fields to be included in PID (null - required fields,
|
|---|
| 18 | ;or string of fields seperated by commas)
|
|---|
| 19 | ;ZSTR - fields to be included in ZPD (null - required fields,
|
|---|
| 20 | ;or string of fields seperated by commas)
|
|---|
| 21 | ;PSTR - fields to be included in OPV1
|
|---|
| 22 | ;(if null - required fields, if "A" - supported
|
|---|
| 23 | ;fields, or string of fields seperated by commas")
|
|---|
| 24 | ;XSTR - fields to be included in ODG1
|
|---|
| 25 | ;(if null - required fields, if "A" - supported
|
|---|
| 26 | ;fields, or string of fields seperated by commas")
|
|---|
| 27 | ;PDNUM - ID # for PID (optional)
|
|---|
| 28 | ;ZNUM - ID # for ZPD (optional)
|
|---|
| 29 | ;PNUM - ID # for OPV1 (optional)
|
|---|
| 30 | ;XNUM - ID # for ODG1 (optional)
|
|---|
| 31 | ;
|
|---|
| 32 | I '$D(PDNUM) S PDNUM=1
|
|---|
| 33 | I '$D(ZNUM) S ZNUM=1
|
|---|
| 34 | I '$D(PNUM) S PNUM=1
|
|---|
| 35 | I '$D(XNUM) S XNUM=1
|
|---|
| 36 | S ERR=$$OA08^VAFHCA08($G(DFN),$G(EVENT),$G(EVDT),$G(VPTR),$G(PISTR),$G(ZSTR),$G(PSTR),$G(XSTR),PDNUM,ZNUM,PNUM,XNUM)
|
|---|
| 37 | Q ERR
|
|---|
