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

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

@@ -1 @@
-ECXUSUR1 ;ALB/TJL-Surgery Extract Unusual Volume Report ; 1/8/08 9:58am
- ;;3.0;DSS EXTRACTS;**49,71,105,111**;July 1, 2003;Build 4
+ECXUSUR1 ;ALB/TJL-Surgery Extract Unusual Volume Report ; 12/1/04 4:48pm
+ ;;3.0;DSS EXTRACTS;**49,71**;July 1, 2003
 EN ;
  N ECHEAD,COUNT,TIMEDIF,ECXPROC
@@ -62 +62 @@
  S ECODE0=TIME_U_ECODE0 K TIME
  ;
- I ECNL]"" S $P(ECODE0,U,2)=ECNT
- ;
- ;- Was surgery cancelled/aborted
- S ECCAN=$P($G(^SRF(ECD0,30)),U)
- I +ECCAN S ECCAN=$$CANC^ECXUTL4(ECNL,$P(DATA2,U,10))
+ I ECNL]"" S $P(ECODE0,U,5)=ECNT
  ;
  I ECXFLAG D FILE  Q
@@ -74 +70 @@
  . I $P(ECODE0,U,PIECE)>ECTHLD S FILE="YES"
  . I $P(ECODE0,U,PIECE)<0 S FILE="YES"
- ;
  I FILE="YES" D FILE Q:ECXERR
  Q
@@ -95 +90 @@
  S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXSTOP,ECSS) Q:ECXENC=""
  ;
- S VOL=$P(ECODE0,U)
- I $P(ECODE0,U,2)>VOL S VOL=$P(ECODE0,U,2)
- I $P(ECODE0,U,3)>VOL S VOL=$P(ECODE0,U,3)
- S ^TMP($J,-VOL,-ECD0)=SURNAME_U_SURSSN_U_SURDT_U_ECD0_U_ECXENC_U_ECODE0_U_ECXPROC_U_ECCAN
+ S VOL=$P(ECODE0,U,4)
+ I $P(ECODE0,U,5)>VOL S VOL=$P(ECODE0,U,5)
+ I $P(ECODE0,U,6)>VOL S VOL=$P(ECODE0,U,6)
+ S ^TMP($J,-VOL,-ECD0)=SURNAME_U_SURSSN_U_SURDT_U_ECD0_U_ECXENC_U_ECODE0_U_ECXPROC
  S COUNT=COUNT+1
  I COUNT#100=0 I $$S^ZTLOAD S (ZSTOP,ECXERR)=1