Changeset 80 for ccr/trunk


Ignore:
Timestamp:
Jul 30, 2008, 2:56:15 PM (16 years ago)
Author:
George Lilly
Message:

fixed crash in CCD processing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLCCD.m

    r78 r80  
    7878    I 'CCD D HDRMAP(CCDGLO,DFN,HDRARY) ; MAP HEADER VARIABLES
    7979    ; MAPPING THE PATIENT PORTION OF THE CDA HEADER
    80     S ZX="//ContinuityOfCareRecord/recordTarget/patientRole/patient"
    81     D QUERY^GPLXPATH(CCDGLO,ZX,"ACTT1")
     80    S ZZX="//ContinuityOfCareRecord/recordTarget/patientRole/patient"
     81    D QUERY^GPLXPATH(CCDGLO,ZZX,"ACTT1")
    8282    D PATIENT^GPLACTORS("ACTT1",DFN,"ACTORPATIENT_"_DFN,"ACTT2") ; MAP PATIENT
    8383    I DEBUG D PARY^GPLXPATH("ACTT2")
    84     D REPLACE^GPLXPATH(CCDGLO,"ACTT2",ZX)
     84    D REPLACE^GPLXPATH(CCDGLO,"ACTT2",ZZX)
    8585    I DEBUG D PARY^GPLXPATH(CCDGLO)
    8686    K ACTT1 K ACCT2
Note: See TracChangeset for help on using the changeset viewer.