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

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

@@ -1 @@
-ECXUTL2 ;ALB/JAP - Utilities for DSS Extracts (cont.) ; 6/12/07 6:38am
- ;;3.0;DSS EXTRACTS;**8,13,23,24,33,35,39,46,71,84,92,105**;Dec 22, 1997;Build 70
+ECXUTL2 ;ALB/JAP - Utilities for DSS Extracts (cont.) ; 11/2/06 9:03am
+ ;;3.0;DSS EXTRACTS;**8,13,23,24,33,35,39,46,71,84,92**;Dec 22, 1997;Build 30
  ;
 ECXDEF(ECXHEAD,ECXPACK,ECXGRP,ECXFILE,ECXRTN,ECXPIECE,ECXVER) ;variables specific to extract from file #727.1
@@ -13 +13 @@
  ;   ECXPIECE= running piece field (#11)
  ;   ECXVER  = dss version
+ ;
  N ECXIEN,ECXARR,DIC,DA,DR,DIQ
  S (ECXPACK,ECXGRP,ECXFILE,ECXRTN,ECXPIECE,ECXVER)="",ECXIEN=0
@@ -49 +50 @@
  S ECXVER=7
  Q
+ ;
 PATDEM(DFN,DT1,PAR,FLG) ; determine patient information
  ;  DFN   =
@@ -76 +78 @@
  .S ECXEST=PAT("EC STAT"),ECXPST=PAT("POW STAT"),ECXPLOC=PAT("POW LOC")
  .S ECXPHI=PAT("PHI"),ECXMST=PAT("MST STAT"),ECXAOL=PAT("AOL")
- .S ECXOEF=PAT("ECXOEF"),ECXOEFDT=PAT("ECXOEFDT")
  I PAR["6" D
  .S (ECXPAYOR,ECXSAI)="" D VISN19(DFN,.ECXPAYOR,.ECXSAI)
@@ -97 +98 @@
  K ECXSBGRP
  Q
+ ;
 ENROLLM(DFN,RNDT) ;determines enrollment status, category, priority
  ;and user enrollee status
@@ -109 +111 @@
  ;    ECXUESTA = User enrollee
  ;    return value 0 if no data found, 1 if data found
+ ;
  N CAT,PRIOR,STAT,X,X1,X2,X3,ENRIEN,ENR,FL,SBGRP
  S (ECXCAT,ECXPRIOR,ECXSTAT,ECXSBGRP,ECXEUSTA)=""
@@ -139 +142 @@
  S ECXSTAT=STAT,ECXPRIOR=PRIOR,ECXCAT=CAT,ECXSBGRP=$S(SBGRP=1:"a",SBGRP=3:"c",SBGRP=5:"e",SBGRP=7:"g",1:"")
  Q 1
+ ;
 PRIMARY(ECXDFN,ECXDATE,ECXPREFX) ;determine patient's pc team and pc provider
  ; input
@@ -146 +150 @@
  ;             defaults to "2" if not specified otherwise
  ; output
- ; ECXPRIME  = pc team ien^prefix_pc provider ien^pc provider person
- ;class^pc provider npi^prefix_assoc pc provider ien^assoc pc provider
- ;person class^assoc pc provider npi
+ ; ECXPRIME  = pc team ien^prefix_pc provider ien^pc provider person class^pc provider npi
+ ;             ^prefix_assoc pc provider ien^assoc pc provider person class^assoc pc provider npi
+ ;
  N ECPTTM,ECPTPR,ECCLAS,ECPRIME,ECASPR,ECCLAS2
  S:'$D(ECXPREFX) ECXPREFX=2 S:(+ECXPREFX=0) ECXPREFX=2
@@ -156 +160 @@
  S ECPTPR=+$$OUTPTPR^SDUTL3(ECXDFN,ECXDATE)
  S ECCLAS="" I ECPTPR>0 S ECCLAS=$$PRVCLASS^ECXUTL(ECPTPR,ECXDATE)
- N ECXUSRTN S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECPTPR,ECXDATE)
- S:+ECXUSRTN'>0 ECXUSRTN="" S ECPTNPI=$P(ECXUSRTN,U)
  S:ECPTPR=0 ECPTPR="" S:ECPTPR]"" ECPTPR=ECXPREFX_ECPTPR
+ S ECPTNPI=""
  ;assoc pc provider call ok if routine scapmca from patch177 is present
  S ECASPR=""
@@ -164 +167 @@
  .S ECASPR=+$$OUTPTAP^SDUTL3(ECXDFN,ECXDATE)
  S ECCLAS2="" I ECASPR>0 S ECCLAS2=$$PRVCLASS^ECXUTL(ECASPR,ECXDATE)
- N ECXUSRTN S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECASPR,ECXDATE)
- S:+ECXUSRTN'>0 ECXUSRTN="" S ECASNPI=$P(ECXUSRTN,U)
  S:ECASPR=0 ECASPR="" S:ECASPR]"" ECASPR=ECXPREFX_ECASPR
+ S ECASNPI=""
  ;assemble
  S ECXPRIME=ECPTTM_U_ECPTPR_U_ECCLAS_U_ECPTNPI_U_ECASPR_U_ECCLAS2_U_ECASNPI
  Q ECXPRIME
+ ;
 INP(ECXDFN,ECXDATE) ; check for inpatient status
  ; input
@@ -182 +185 @@
  ;           where patient status = I for inpatient
  ;                                = O for outpatient
+ ;
  N DFN,DSSDEPT,ECA,ECADM,ECMN,ECTS,ECWARD,ECDC,ECXINP,ECXPRO
  N ECXATP,ECXDD,ECXDOM,ECXPROF,ECXPWP,ECXWW,FAC,VAIP,WRD,ECXPWPPC
@@ -187 +191 @@
  D FIELD^DID(405,.19,,"SPECIFIER","ECXDD")
  S ECXPROF=$E(+$P(ECXDD("SPECIFIER"),"P",2)) K ECXDD
+ ;
  ;- Inpat/outpat indicator (ECA) initially set to "O" (outpatient)
  S DFN=ECXDFN,ECA="O"
@@ -194 +199 @@
  I ECMN D
  .S ECTS=+$P($G(^DIC(45.7,+VAIP(8),0)),U,2) S:ECTS=0 ECTS=""
+ .;
  .;- Get inpat/outpat indicator
  .S ECA=$$INOUTP^ECXUTL4(ECTS)
@@ -212 +218 @@
  S ECXINP=ECA_U_ECMN_U_ECTS_U_ECADM_U_ECWARD_U_ECDC_U_ECXPWP_U_ECXATP_U_ECXWW_U_ECXDOM_U_ECXPWPPC_U_ECXATPPC
  Q ECXINP
+ ;
 VISN19(ECXDFN,ECXPAYOR,ECXSAI) ;visn 19 sharing agreement data
  ; input  ECXDFN = patient file ien
  ; output ECXPAYOR, ECXSAI (passed by reference)
+ ;
  N JJ,ALIAS,INSUR,DIC,DIQ,DA,DR,ECXARY,ECXERR,ECXDA
  S (ECXPAYOR,ECXSAI)=""
@@ -226 +234 @@
  ;K ECXARY,ECXERR
  I ECXPAYOR]"" D GETS^DIQ(2,ECXDFN,".3121*,","I","ECXARY","ECXERR") D
+ . W !,"This is a test"
  . I $D(ECXERR) Q
  . S JJ=0,ECXDA=$O(ECXARY(2.312,JJ)) I ECXDA="" Q