Changeset 636 for FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXUSUR1.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXUSUR1.m
r628 r636 1 ECXUSUR1 ;ALB/TJL-Surgery Extract Unusual Volume Report ; 1 /8/08 9:58am2 ;;3.0;DSS EXTRACTS;**49,71 ,105,111**;July 1, 2003;Build 41 ECXUSUR1 ;ALB/TJL-Surgery Extract Unusual Volume Report ; 12/1/04 4:48pm 2 ;;3.0;DSS EXTRACTS;**49,71**;July 1, 2003 3 3 EN ; 4 4 N ECHEAD,COUNT,TIMEDIF,ECXPROC … … 62 62 S ECODE0=TIME_U_ECODE0 K TIME 63 63 ; 64 I ECNL]"" S $P(ECODE0,U,2)=ECNT 65 ; 66 ;- Was surgery cancelled/aborted 67 S ECCAN=$P($G(^SRF(ECD0,30)),U) 68 I +ECCAN S ECCAN=$$CANC^ECXUTL4(ECNL,$P(DATA2,U,10)) 64 I ECNL]"" S $P(ECODE0,U,5)=ECNT 69 65 ; 70 66 I ECXFLAG D FILE Q … … 74 70 . I $P(ECODE0,U,PIECE)>ECTHLD S FILE="YES" 75 71 . I $P(ECODE0,U,PIECE)<0 S FILE="YES" 76 ;77 72 I FILE="YES" D FILE Q:ECXERR 78 73 Q … … 95 90 S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXSTOP,ECSS) Q:ECXENC="" 96 91 ; 97 S VOL=$P(ECODE0,U )98 I $P(ECODE0,U, 2)>VOL S VOL=$P(ECODE0,U,2)99 I $P(ECODE0,U, 3)>VOL S VOL=$P(ECODE0,U,3)100 S ^TMP($J,-VOL,-ECD0)=SURNAME_U_SURSSN_U_SURDT_U_ECD0_U_ECXENC_U_ECODE0_U_ECXPROC _U_ECCAN92 S VOL=$P(ECODE0,U,4) 93 I $P(ECODE0,U,5)>VOL S VOL=$P(ECODE0,U,5) 94 I $P(ECODE0,U,6)>VOL S VOL=$P(ECODE0,U,6) 95 S ^TMP($J,-VOL,-ECD0)=SURNAME_U_SURSSN_U_SURDT_U_ECD0_U_ECXENC_U_ECODE0_U_ECXPROC 101 96 S COUNT=COUNT+1 102 97 I COUNT#100=0 I $$S^ZTLOAD S (ZSTOP,ECXERR)=1
Note:
See TracChangeset
for help on using the changeset viewer.