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

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

@@ -1 +1 @@
 ECRRPT ;ALB/JAM;Event Capture Report RPC Broker ;Jan 2, 2001
- ;;2.0; EVENT CAPTURE ;**25,32,41,56,61,82,94**;8 May 96;Build 4
+ ;;2.0; EVENT CAPTURE ;**25,32,41,56,61,82**;8 May 96
  ;
 REQCHK(ECV) ;Required data check
@@ -74 +74 @@
  . . S ECKEY=$S($D(^XUSEC("ECALLU",ECDUZ)):1,1:0),DUZ=ECDUZ D ALLU^ECRUTL
  . S (ECI,ECNT)=0 F ECI=0:1 S ECX="ECD"_ECI Q:'$D(@ECX)  D
- . . K DIC S DIC=724,DIC(0)="QNZX",X=@ECX D ^DIC I Y<0 Q
+ . . K DIC S DIC=724,DIC(0)="QNMZX",X=@ECX D ^DIC I Y<0 Q
  . . S ECNT=ECNT+1,ECDSSU(ECNT)=Y
  D DATECHK(.ECSD,.ECED)