Changeset 636 for FOIAVistA/tag/r/EVENT_CAPTURE-EC--ECT--ECX

Timestamp:

Dec 4, 2009, 8:26:01 PM (15 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/ECMXP.m (modified) (1 diff)
• EVENT_CAPTURE-EC--ECT--ECX/ECMXP1.m (modified) (1 diff)
• EVENT_CAPTURE-EC--ECT--ECX/ECMXPC.m (modified) (1 diff)
• EVENT_CAPTURE-EC--ECT--ECX/ECRRPT.m (modified) (2 diffs)
• EVENT_CAPTURE-EC--ECT--ECX/ECUMRPC1.m (modified) (2 diffs)
• EVENT_CAPTURE-EC--ECT--ECX/ECUURPC.m (modified) (2 diffs)

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

@@ -1 @@
-ECMXP ; GENERATED FROM 'EC CREATE PATIENT ENTRY' INPUT TEMPLATE(#1503), FILE 721;06/14/06
+ECMXP ; GENERATED FROM 'EC CREATE PATIENT ENTRY' INPUT TEMPLATE(#1503), FILE 721;10/08/06
  D DE G BEGIN
 DE S DIE="^ECH(",DIC=DIE,DP=721,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^ECH(DA,""))=""

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

@@ -1 @@
-ECMXP1 ; ;06/14/06
+ECMXP1 ; ;10/08/06
  D DE G BEGIN
 DE S DIE="^ECH(",DIC=DIE,DP=721,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^ECH(DA,""))=""

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

@@ -1 @@
-ECMXPC ; GENERATED FROM 'EC FILE PCE NODE' INPUT TEMPLATE(#1504), FILE 721;06/14/06
+ECMXPC ; GENERATED FROM 'EC FILE PCE NODE' INPUT TEMPLATE(#1504), FILE 721;10/08/06
  D DE G BEGIN
 DE S DIE="^ECH(",DIC=DIE,DP=721,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^ECH(DA,""))=""

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)

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

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