Changeset 80 for ccr

Timestamp:

Jul 30, 2008, 2:56:15 PM (16 years ago)

Author:

George Lilly

Message:

fixed crash in CCD processing

File:

• ccr/trunk/p/GPLCCD.m (modified) (1 diff)

ccr/trunk/p/GPLCCD.m

@@ -78 +78 @@
     I 'CCD D HDRMAP(CCDGLO,DFN,HDRARY) ; MAP HEADER VARIABLES
     ; MAPPING THE PATIENT PORTION OF THE CDA HEADER
-    S ZX="//ContinuityOfCareRecord/recordTarget/patientRole/patient"
-    D QUERY^GPLXPATH(CCDGLO,ZX,"ACTT1")
+    S ZZX="//ContinuityOfCareRecord/recordTarget/patientRole/patient"
+    D QUERY^GPLXPATH(CCDGLO,ZZX,"ACTT1")
     D PATIENT^GPLACTORS("ACTT1",DFN,"ACTORPATIENT_"_DFN,"ACTT2") ; MAP PATIENT
     I DEBUG D PARY^GPLXPATH("ACTT2")
-    D REPLACE^GPLXPATH(CCDGLO,"ACTT2",ZX)
+    D REPLACE^GPLXPATH(CCDGLO,"ACTT2",ZZX)
     I DEBUG D PARY^GPLXPATH(CCDGLO)
     K ACTT1 K ACCT2