close Warning: Can't use blame annotator: 
svn blame failed on WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFCPV1.m: 'GenericSWIGWrapper' object has no attribute '_wrap'

source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFCPV1.m@ 1306

Last change on this file since 1306 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 827 bytes
RevLine 
1VAFCPV1 ;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
10EN(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
Note: See TracBrowser for help on using the repository browser.