Changeset 636 for FOIAVistA/tag/r/EVENT_CAPTURE-EC--ECT--ECX/ECUMRPC1.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 )
• EVENT_CAPTURE-EC--ECT--ECX/ECUMRPC1.m (modified) (2 diffs)

FOIAVistA/tag/r/EVENT_CAPTURE-EC--ECT--ECX/ECUMRPC1.m

@@ -1 +1 @@
 ECUMRPC1 ;ALB/JAM-Event Capture Management Broker Utilities ;28 Nov 00
- ;;2.0; EVENT CAPTURE ;**25,30,33,72,94**;8 May 96;Build 4
+ ;;2.0; EVENT CAPTURE ;**25,30,33,72**;8 May 96
  ;
 DSSUNT(RESULTS,ECARY) ;
@@ -69 +69 @@
  . S CRDT=$$FMTE^XLFDT($P(NODE,U,2),"2F")
  . S INDT=$$FMTE^XLFDT($P(NODE,U,3),"2F")
- . ;S CNT=CNT+1,^TMP($J,"ECCAT",CNT)=CAT_U_$P(NODE,U)_U_CRDT_U_INDT
- . S CNT=CNT+1,^TMP($J,"ECCAT",CNT)=CAT_U_$P(NODE,U)_U_$P(CRDT,"@",1)_U_$P(INDT,"@",1)
+ . S CNT=CNT+1,^TMP($J,"ECCAT",CNT)=CAT_U_$P(NODE,U)_U_CRDT_U_INDT
  S RESULTS=$NA(^TMP($J,"ECCAT"))
  Q