Changeset 76 for ccr/trunk/p/GPLCCD.m


Ignore:
Timestamp:
Jul 27, 2008, 4:37:10 PM (16 years ago)
Author:
George Lilly
Message:

Fixed CCD structure, added Narrative to Problems

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLCCD.m

    r75 r76  
    8181    D QUERY^GPLXPATH(CCRGLO,ZX,"ACTT1")
    8282    D PATIENT^GPLACTORS("ACTT1",DFN,"ACTORPATIENT_"_DFN,"ACTT2") ; MAP PATIENT
    83     D PARY^GPLXPATH("ACTT2")
     83    I DEBUG D PARY^GPLXPATH("ACTT2")
    8484    D REPLACE^GPLXPATH(CCRGLO,"ACTT2",ZX)
    85     D PARY^GPLXPATH(CCRGLO)
     85    I DEBUG D PARY^GPLXPATH(CCRGLO)
    8686    K ACTT1 K ACCT2
    8787    ; MAPPING THE PROVIDER ORGANIZATION,AUTHOR,INFORMANT,CUSTODIAN CDA HEADER
    … …  
    109109    . I CCD D QUERY^GPLXPATH(TGLOBAL,XPATH,"ITMP") ; XML TO UNSHAVE WITH
    110110    . I CCD D UNSHAVE("ITMP",OXML)
     111    . I CCD D UNMARK^GPLXPATH(OXML) ; REMOVE THE CCR MARKUP FROM SECTION
    111112    . ; NOW INSERT THE RESULTS IN THE CCR BUFFER
    112113    . D INSERT^GPLXPATH(CCRGLO,OXML,"//ContinuityOfCareRecord/Body")
    … …  
    122123    . W "TRIMMED",J,!
    123124    . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
     125    I CCD D  ; TURN THE BODY INTO A CCD COMPONENT
     126    . N I
     127    . F I=1:1:@CCRGLO@(0) D  ; SEARCH THROUGH THE ENTIRE ARRAY
     128    . . I @CCRGLO@(I)["<Body>" D  ; REPLACE BODY MARKUP
     129    . . . S @CCRGLO@(I)="<component><structuredBody>" ; WITH CCD EQ
     130    . . I @CCRGLO@(I)["</Body>" D  ; REPLACE BODY MARKUP
     131    . . . S @CCRGLO@(I)="</structuredBody></component>"
    124132    S @CCRGLO@(3)=CAPSAVE ; UNCAP - TURN IT BACK INTO A CCD
    125133    S @CCRGLO@(@CCRGLO@(0))=CAPSAVE2 ; UNCAP LAST LINE
Note: See TracChangeset for help on using the changeset viewer.