Changeset 636 for FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXUTL4.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• DSS_EXTRACTS-ECX/ECXUTL4.m (modified) (2 diffs)

FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXUTL4.m

@@ -1 @@
-ECXUTL4 ;ALB/ESD - Utilities for DSS Extracts ; 11/26/07 10:58am
- ;;3.0;DSS EXTRACTS;**39,41,46,49,78,92,105**;Dec 22,1997;Build 70
+ECXUTL4 ;ALB/ESD - Utilities for DSS Extracts ; 11/2/06 9:08am
+ ;;3.0;DSS EXTRACTS;**39,41,46,49,78,92**;Dec 22,1997;Build 30
  ;
 OBSPAT(ECXIO,ECXTS,DSSID) ;
@@ -271 +271 @@
  F I=1:1:$L(TS) Q:$P(TS,"^",I)=ECXTS
  Q $P(SC,"^",I)_"000"
-OEFDATA ;
- ;get patient OEF/OIF status and date of return
- S (ECXOEF,ECXOEFDT)=""
- I $G(VASV(11))>0 S ECXOEF=ECXOEF_"OIF"
- I $G(VASV(12))>0 S ECXOEF=ECXOEF_"OEF"
- I $G(VASV(13))>0 S ECXOEF=ECXOEF_"UNK"
- I ECXOEF'="" D
- . S ECXOEFDT=""
- . I $G(VASV(11))>0 S ECXOEFDT=$P($G(VASV(11,$G(VASV(11)),3)),"^")
- . I $G(VASV(12))>0,$P($G(VASV(12,$G(VASV(12)),3)),"^")>ECXOEFDT S ECXOEFDT=$P($G(VASV(12,$G(VASV(12)),3)),"^")
- . I $G(VASV(13))>0,$P($G(VASV(13,$G(VASV(13)),3)),"^")>ECXOEFDT S ECXOEFDT=$P($G(VASV(13,$G(VASV(13)),3)),"^")
- . I ECXOEFDT>0 S ECXOEFDT=17000000+ECXOEFDT
- ;
- S ECXPAT("ECXOEF")=ECXOEF
- S ECXPAT("ECXOEFDT")=ECXOEFDT
- Q