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

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

@@ -1 @@
-ECXNUT ;ALB/JRC Nutrition DSS Extract ; 9/24/07 9:33am
- ;;3.0;DSS EXTRACTS;**92,107,105**;Dec 22, 1997;Build 70
+ECXNUT ;ALB/JRC Nutrition DSS Extract ; 4/2/2007
+ ;;3.0;DSS EXTRACTS;**92,107**;Dec 22, 1997;Build 9
 BEG ;entry point from option
  N EC23,EC7,ECED,ECFILE,ECGRP,ECHEAD,ECINST,ECPACK,ECPIECE,ECRN,ECRTN,ECSD1,ECVER,ECXYM
@@ -9 +9 @@
 START ; start package specific extract
  ;Init variables
- N ECSD,ARRAY
- S ECED=ECED+.3,ECSD=ECSD1,ARRAY="^TMP($J,""FH"")"
- K @ARRAY
+ N ECSD
+ S ECED=ECED+.3,ECSD=ECSD1
+ K ^TMP($J,"FH")
  ;
  ;Call n&fs api and store in ^TMP($J,"FH" global
@@ -20 +20 @@
  ;
  ;kill ^tmp global
- K @ARRAY
+ K ^TMP($J,"FH")
  ;
  Q
@@ -27 +27 @@
  ;Init variables
  N ECXORDPC,ECXSSN,ECXPNM,ECXSEX,ECXDOB,ECXMPI,ECXRC1,ECXETH,ECXVET,ECXENRL,ECXELIG,ECXMST,ECXPST,ECXPLOC,ECXPHI,ECXMNS,ECXSTATE,ECXCNTY,ECXZIP,ECXPOS,ECXAST,ECXAOL,ECXRST,ECXEST,ECXTM,ECXDATE,ECXMN,ECXSPC
- N ECXADMDT,ECXWRD,ECXFAC,ECXPRV,ECXPRNPI,ECXATT,ECXATNPI,ECXDOM,ECXATTPC,ECXPRVPC,ECXPDIV,ECXCBOC,ECPTPR,ECCLASS,ECPTTM,ECXOBS,ECXHNCI,ECXNPRFI,ECXERI,ECXENC,ECPAT,ECXERR,ADM,W,X,ECXCAT,ECXCVE,ECXPRIOR,ECXPTYPE,ECXSTAT,ECXUESTA,ECXA,ECORNPI
- N ECXOEF,ECXOEFDT
+ N ECXADMDT,ECXWRD,ECXFAC,ECXPRV,ECXPRNPI,ECXATT,ECXATNPI,ECXDOM,ECXATTPC,ECXPRVPC,ECXPDIV,ECXCBOC,ECPTPR,ECCLASS,ECPTTM,ECXOBS,ECXHNCI,ECXNPRFI,ECXERI,ECXENC,ECPAT,ECXERR,ADM,W,X,ECXCAT,ECXCVE,ECXPRIOR,ECXPTYPE,ECXSTAT,ECXUESTA,ECXA
  ;
  ;- Prefix ordering pro with a 2 and get person class
  S ECXORDPC=$$PRVCLASS^ECXUTL(+ECXORDPH,DATE)
- S ECORNPI=$$NPI^XUSNPI("Individual_ID",+ECXORDPH,DATE)
- S:+ECORNPI'>0 ECORNPI="" S ECORNPI=$P(ECORNPI,U)
  S ECXORDPH=$S(ECXORDPH:2_ECXORDPH,1:"")
  ;
@@ -45 +42 @@
  S ECXPOS=ECPAT("POS"),ECXAST=ECPAT("AO STAT"),ECXAOL=ECPAT("AOL"),ECXRST=ECPAT("IR STAT"),ECXEST=ECPAT("EC STAT")
  ;
- ;Get oef/oif data
- S ECXOEF=ECPAT("ECXOEF")
- S ECXOEFDT=ECPAT("ECXOEFDT")
- ;
  ;Get enrollment status
  I $$ENROLLM^ECXUTL2(ECXDFN)
  ;
  S ECXTM=$$ECXTIME^ECXUTL(DATE)
- S ECXDATE=$$ECXDATE^ECXUTL(+DATE,ECXYM)
+ S ECXDATE=DATE
  ;
  ;- Use movement record date & time
@@ -67 +60 @@
  ;- Get primary care data
  S X=$$PRIMARY^ECXUTL2(ECXDFN,DATE)
- S ECPTPR=$P(X,U,2),ECCLASS=$P(X,U,3),ECPTTM=$P(X,U),ECPTNPI=$P(X,U,4)
+ S ECPTPR=$P(X,U,2),ECCLASS=$P(X,U,3),ECPTTM=$P(X,U)
  ;
  ;- Observation patient indicator (YES/NO)
@@ -115 +108 @@
  ;facility^delivery location type^delivery feeder location^quantity^
  ;cboc^status^user enrollee^patient type^cv status eligibility^
- ;national patient record flag^emergency response indicator^admission
- ;date^oef/oif ECXOEF^oef/oif return date ECXOEFDT^ordering provider
- ;npi ECORNPI^primary care provider npi ECPTNPI
+ ;national^patient record flag^emergency response indicator^admission
+ ;date
  ;
  N DA,DIK,ECODE,ECODE1
@@ -129 +121 @@
  S ECXSPC=$G(ECXDATA(7))
  ;
- S ECODE=ECODE_ECXDATE_U_ECXTM_U_ECXSPC_U_ECXORDPH_U_ECXORDPC_U
+ S ECODE=ECODE_$$ECXDATE^ECXUTL(DATE,ECXYM)_U_ECXTM_U_ECXSPC_U_ECXORDPH_U_ECXORDPC_U
  S ECODE=ECODE_ECPTPR_U_ECCLASS_U_ECPTTM_U_ECXMPI_U_ECXDOB_U_ECXSEX_U
  S ECODE=ECODE_ECXRC1_U_ECXETH_U_ECXVET_U_ECXSTAT_U_ECXENRL_U_ECXCAT_U
@@ -139 +131 @@
  S ECODE1=ECODE1_ECXCBOC_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXNPRFI_U
  S ECODE1=ECODE1_ECXERI_U_$S(ECXADMDT:$$ECXDATE^ECXUTL(ECXADMDT,ECXYM),1:"")
- I ECXLOGIC>2007 S ECODE1=ECODE1_U_ECXOEF_U_ECXOEFDT_U_$G(ECXTFU)_U_ECORNPI_U_ECPTNPI
  S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1
  S ECRN=ECRN+1