Changeset 636 for FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXUTL3.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/ECXUTL3.m (modified) (3 diffs)

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

@@ -1 @@
-ECXUTL3 ;ALB/GTS - Utilities for DSS Extracts ; 9/28/07 1:38pm
- ;;3.0;DSS EXTRACTS;**11,24,32,33,35,37,39,42,46,92,105**;Dec 22,1997;Build 70
+ECXUTL3 ;ALB/GTS - Utilities for DSS Extracts ; 11/2/06 9:07am
+ ;;3.0;DSS EXTRACTS;**11,24,32,33,35,37,39,42,46,92**;Dec 22,1997;Build 30
  ;
 OUTPTTM(ECXDFN,ECXDT) ;* Return PC Team from PCMM files or DPT
@@ -69 +69 @@
  I ECXDFN="" Q 0
  S SSN=$$GET1^DIQ(2,ECXDFN,.09,"I"),DFN=ECXDFN,ECXPAT=0
- I $E(SSN,1,3)="000"!(SSN="") K ECXPAT Q 0  ;test patient
- ;test patient extended checks; mtl extract excluded
- I $G(ECHEAD)'="MTL",'$$SSN^ECXUTL5(SSN) K ECXPAT Q 0
+ I $E(SSN,1,5)="00000"!(SSN="") K ECXPAT Q 0  ;test patient
  S STR="NAME;SSN;DOB;SEX;RACE;RELIGION;STATE;COUNTY;ZIP;SC%;MEANS;ELIG;"
  S STR=STR_"EMPLOY;AO STAT;IR STAT;EC STAT;POW STAT;POW LOC;MST STAT;"
@@ -149 +147 @@
  . ;- Agent Orange Location (K=Korean DMZ,V=Vietnam)
  . S ECXPAT("AOL")=$P($G(VASV(2,5)),U)
- . ;get patient OEF/OIF status and date of return
- . D OEFDATA^ECXUTL4
- . ;
  . ;get patient current MST status
  . I ECXDATE'="",ECXDATE'["." S ECXDATE=ECXDATE+.9