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

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

@@ -1 @@
-ECXPRO ;ALB/GTS - Prosthetics Extract for DSS ; 10/17/07 3:47pm
- ;;3.0;DSS EXTRACTS;**9,13,15,21,24,33,39,46,71,92,105**;Dec 22, 1997;Build 70
+ECXPRO ;ALB/GTS - Prosthetics Extract for DSS ; 11/2/06 8:56am
+ ;;3.0;DSS EXTRACTS;**9,13,15,21,24,33,39,46,71,92**;Dec 22, 1997;Build 30
 BEG ;entry point from option
  D SETUP I ECFILE="" Q
@@ -40 +40 @@
  ..S ECXFORM=$G(ECXP(660,ECXDACT,11,"E"))_U_$G(ECXP(660,ECXDACT,11,"I"))
  ..Q:'$$PATDEM^ECXUTL2(ECXDFN,ECXCT)
- ..S OK=$$PAT^ECXUTL3(ECXDFN,ECXDATE,"1;5",.ECXPAT)
- ..I 'OK S ECXERR=1 K ECXPAT Q
- ..;OEF/OIF data
- ..S ECXOEF=ECXPAT("ECXOEF")
- ..S ECXOEFDT=ECXPAT("ECXOEFDT")
  ..Q:'$$NTEG^ECXPRO1(ECXDFN,.ECXLNE,ECXDACT,ECX0,ECXLB,ECINST,ECXFORM)
  ..D PROSINFO^ECXPRO1(ECXDACT,ECXLB,ECX0,ECXFORM)
  ..S CPTCODE=$E(ECXHCPCS,1,5)
- ..;nppd entry date
- ..S ECXNPPDT=$$ECXDATE^ECXUTL($P(ECX0,U,1),ECXYM)
  ..;
  ..;Get production division ;p-46
@@ -97 +90 @@
  ;icd9-4 (ECXICD94)^agent orange^radiation^env contam^eligibility^
  ;cost^lab labor cost^lab matl cost^billing status^
- ;vet^transaction type^req station^rec station^file#661.1 ien
+ ;vet^transacton type^req station^rec station^file#661.1 ien
  ;node1
- ;zip^dob^sex^amis grouper^placeholder^mpi^dss dept ECXDSSD^
+ ;zip^dob^sex^amis grouper^pc prov npi^mpi^dss dept ECXDSSD^
  ;pc prov person class^race^pow status^pow loc^
  ;sharing agree payor^sharing agree ins^mst status^
  ;enroll loc^state^county^assoc pc provider^
- ;assoc pc prov person class^placeholder
+ ;assoc pc prov person class^assoc pc prov npi
  ;dom (ECXDOM)^purple heart indicator (ECXPHI)^
  ;enrollment Category (ECXCAT)^enrollment status (ECXSTAT)^
@@ -116 +109 @@
  ;emergency response indicator(FEMA) ECXERI^agent orange indicator ECXAO
  ;^environ contam ECXECE^head/neck cancer ECXHNC^encntr mst ECXMIL^
- ;radiation ECXIR^OEF/OIF ECXOEF^OEF/OIF return date ECXOEFDT^
- ;nppd code ECXNPPDC^nppd entry date ECXNPPDT
- ;assoc pc provider npi ECASNPI^primary care provider npi ECPTNPI
+ ;radiation ECXIR
  N DA,DIK
  S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
@@ -128 +119 @@
  S ECODE=ECODE_ECXLMC_U_ECXBILST_U_ECXVET_U_ECXTYPE_U_ECXRQST_U_ECXRCST_U
  S ECODE=ECODE_ECXPHCPC_U
- S ECODE1=ECXZIP_U_ECXDOB_U_ECXSEX_U_ECXGRPR_U_U_ECXMPI_U
+ S ECODE1=ECXZIP_U_ECXDOB_U_ECXSEX_U_ECXGRPR_U_ECPTNPI_U_ECXMPI_U
  S ECODE1=ECODE1_ECXDSSD_U_ECCLAS_U_ECXRACE_U_ECXPST_U_ECXPLOC_U
  S ECODE1=ECODE1_U_U_ECXMST_U_ECXENRL_U_ECXSTATE_U
- S ECODE1=ECODE1_ECXCNTY_U_ECASPR_U_ECCLAS2_U_U_ECXDOM_U
+ S ECODE1=ECODE1_ECXCNTY_U_ECASPR_U_ECCLAS2_U_ECASNPI_U_ECXDOM_U
  S ECODE1=ECODE1_ECXCAT_U_ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,1:"")_U_ECXPHI_U_ECXPOS_U
  S ECODE1=ECODE1_ECXOBS_U_ECXENC_U_ECXAOL_U_ECXCNH_U_ECXPDIV_U
  S ECODE1=ECODE1_ECXHNCI_U_ECXETH_U_ECXRC1_U
  I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI
- I ECXLOGIC>2006 S ECODE1=ECODE1_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U
- I ECXLOGIC>2007 S ECODE2=ECXOEF_U_ECXOEFDT_U_ECXNPPDC_U_ECXNPPDT_U_ECASNPI_U_ECPTNPI
- S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),ECRN=ECRN+1
+ I ECXLOGIC>2006 S ECODE1=ECODE1_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,ECRN=ECRN+1
  S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
  I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1