| [613] | 1 | VAFCPV1 ;ALB/PKE PV1 segment for message builder;
|
|---|
| 2 | ;;5.3;Registration;**91,298**;Jun 06, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;07/07/00 ACS - Added sequence 21 (physical treating specialty - ward
|
|---|
| 5 | ;location) and sequence 39 (facility+suffix) to the inpatient string
|
|---|
| 6 | ;of fields. Added sequence 39 to the outpatient string of fields.
|
|---|
| 7 | ;
|
|---|
| 8 | ;set the v2.3 PV1
|
|---|
| 9 | ;called from VAFCMSG3
|
|---|
| 10 | EN(DFN) ;if not a scheduling event and an inpatient
|
|---|
| 11 | I $G(@EVNTINFO@("SERVER PROTOCOL"))'="VAFC ADT-A08-SDAM SERVER"
|
|---|
| 12 | IF I $G(^DPT(DFN,.1))]"" DO
|
|---|
| 13 | .;get inpatient pv1
|
|---|
| 14 | . S VAFSTR="2,3,6,7,10,18,21,39,44,45,50"
|
|---|
| 15 | . S PV1=$$EN^VAFHAPV1(DFN,EVNTDATE,VAFSTR)
|
|---|
| 16 | E DO
|
|---|
| 17 | .;get outpatient pv1
|
|---|
| 18 | . S VAFSTR="2,3,7,18,39,44,50"
|
|---|
| 19 | . N EVENT,VPTR
|
|---|
| 20 | . S EVENT=$G(@EVNTINFO@("EVENT-NUM"))
|
|---|
| 21 | . S VPTR=$G(@EVNTINFO@("VAR-PTR"))
|
|---|
| 22 | . S PV1=$$OPV1^VAFHCPV(DFN,EVENT,EVNTDATE,VPTR,VAFSTR,1)
|
|---|
| 23 | ;
|
|---|
| 24 | Q PV1
|
|---|
