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

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

@@ -1 @@
-ECXEC ;ALB/JAP,BIR/JLP,PTD-DSS Event Capture Extract  ; 10/2/07 2:33pm
- ;;3.0;DSS EXTRACTS;**11,8,13,24,27,33,39,46,49,71,89,92,105**;Dec 22, 1997;Build 70
+ECXEC ;ALB/JAP,BIR/JLP,PTD-DSS Event Capture Extract  [ 02/14/97   2:26 PM ] ; 12/2/04 12:35pm
+ ;;3.0;DSS EXTRACTS;**11,8,13,24,27,33,39,46,49,71,89,92**;Dec 22, 1997;Build 30
 BEG ;entry point from option
  I '$D(^ECH) W !,"Event Capture is not initialized",!! Q
@@ -67 +67 @@
  F I=1:1:3 S Y=$O(ECXPRV("")) I Y'="" S @("ECU"_I)=+ECXPRV(Y) K ECXPRV(Y)
  S:$L(ECU1) ECXPPC1=$$PRVCLASS^ECXUTL(ECU1,ECDT),ECU1A="2"_$P(ECU1,";")
- S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU1,ECDT)
- S:+ECXUSRTN'>0 ECXUSRTN="" S ECU1NPI=$P(ECXUSRTN,U)
  S:$L(ECU2) ECXPPC2=$$PRVCLASS^ECXUTL(ECU2,ECDT),ECU2A="2"_$P(ECU2,";")
- S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU2,ECDT)
- S:+ECXUSRTN'>0 ECXUSRTN="" S ECU2NPI=$P(ECXUSRTN,U)
  S:$L(ECU3) ECXPPC3=$$PRVCLASS^ECXUTL(ECU3,ECDT),ECU3A="2"_$P(ECU3,";")
- S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU3,ECDT)
- S:+ECXUSRTN'>0 ECXUSRTN="" S ECU3NPI=$P(ECXUSRTN,U)
  ;change for version 2 where ECP is a variable pointer and we want to
  ;expand it category = category or null if stored as 0
@@ -128 +122 @@
  ;ECPCE7^^dss identifier ECDSS^dss dept
  ;node1
- ;mpi ECXMPI^dss dept ECXDSSD^PLACEHOLDER
- ;placeholder^placeholder^placeholder^
- ;placeholder^pc prov person class ECCLAS^
+ ;mpi ECXMPI^dss dept ECXDSSD^provider npi ECXPRV2^
+ ;provider #2 npi ECU2NPI^provider #3 npi ECU3NPI^^
+ ;pc provider npi ECPTNPI^pc prov person class ECCLAS^
  ;assoc pc prov ECASPR^assoc pc prov person class ECCLAS2^
- ;placeholder^
+ ;assoc pc prov npi ECASNPI^
  ;divison ECXDIV^mst status ECXMST^dom ECXDOM^date of birth ECXDOB^
  ;enrollment category ECXCAT^ enrollment status ECXSTAT^enrollment
@@ -147 +141 @@
  ;ECXNPRFI^emerg response indic(FEMA) ECXERI^agent orange indic ECXAO^
  ;environ contam ECXECE^head/neck cancer ECXHNC^encntr mst ECXMIL
- ;^radiation ECXIR^OEF/OIF ECXOEF^OEF/OIF return date ECXOEFDT
- ;^associate pc provider npi ECASNPI^primary care provider npi ECPTNPI^
- ;provider npi ECU1NPI^provider #2 ECU2NPI^provider #3 ECU3NPI
+ ;^radiation ECXIR
  N DA,DIK
  S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
@@ -161 +153 @@
  S ECODE=ECODE_ECXICD94_U_ECXAST_U_ECXRST_U_ECXEST_U
  S ECODE=ECODE_ECSC_U_ECPCE7_U_U_ECDSS_U_U
- S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_U_ECCLAS_U
- S ECODE1=ECODE1_U_ECASPR_U_ECCLAS2_U_U_ECXDIV_U
+ S ECODE1=ECXMPI_U_ECXDSSD_U_ECU1NPI_U_ECU2NPI_U_ECU3NPI_U_ECCLAS_U
+ S ECODE1=ECODE1_ECPTNPI_U_ECASPR_U_ECCLAS2_U_ECASNPI_U_ECXDIV_U
  S ECODE1=ECODE1_ECXMST_U_ECXDOM_U_ECXDOB_U_ECXCAT_U_ECXSTAT_U
  S ECODE1=ECODE1_$S(ECXLOGIC<2005:ECXPRIOR,1:"")_U_ECXPOS_U_ECXPHI_U_ECXOBS_U_ECXENC_U_ECXAOL_U
@@ -171 +163 @@
  I ECXLOGIC>2004 S ECODE2=ECXCVEDT_U_ECXCVENC_U_ECXNPRFI
  I ECXLOGIC>2006 S ECODE2=ECODE2_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U
- I ECXLOGIC>2007 S ECODE2=ECODE2_U_ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECPTNPI_U_ECU1NPI_U_ECU2NPI_U_ECU3NPI
  S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),ECRN=ECRN+1
  S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA