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

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

@@ -1 +1 @@
 ECUURPC ;ALB/JAM;Event Capture Data Entry Broker Utilities ;Aug 28, 2000
- ;;2.0; EVENT CAPTURE ;**25,42,49,94**;8 May 96;Build 4
+ ;;2.0; EVENT CAPTURE ;**25,42,49**;8 May 96
  ;
 ECHELP(RESULTS,ECARY) ;
@@ -33 +33 @@
  S FIL=$P(ECARY,U),TXT=$P(ECARY,U,2) I TXT=""!(FIL="") Q
  S DIC=FIL,DIC(0)="MN",X=TXT
- I FIL=81.3 S DIC("S")="I $P(^DIC(81.3,Y,0),U,5)'=1" ;PATCH 94
  D ^DIC I Y=-1 Q
  S RESULTS=+Y