Changeset 204


Ignore:
Timestamp:
Oct 7, 2008, 10:42:00 PM (16 years ago)
Author:
George Lilly
Message:

fixing the SIG

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r192 r204  
    185185 . . . S MDZNA=$NA(@MAP@("M","DIRECTIONS",MDZ1))
    186186 . . . D MAP^GPLXPATH(DIRXML1,MDZNA,DIRXML2)
    187  . . . D INSINNER^GPLXPATH(RESULT,DIRXML2)
     187 . . . D INSERT^GPLXPATH(RESULT,DIRXML2,"//Medications/Medication")
    188188 . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
    189189 . D:MEDCOUNT>1 INSINNER^GPLXPATH(OUTXML,RESULT) ; AFTER THE FIRST, INSERT INNER XML
  • ccr/trunk/p/CCRMEDS2.m

    r192 r204  
    204204 . . . S MDZNA=$NA(@MAP@("M","DIRECTIONS",MDZ1))
    205205 . . . D MAP^GPLXPATH(DIRXML1,MDZNA,DIRXML2)
    206  . . . D INSINNER^GPLXPATH(RESULT,DIRXML2)
     206 . . . D INSERT^GPLXPATH(RESULT,DIRXML2,"//Medications/Medication")
    207207 . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
    208208 . D:MEDCOUNT>1 INSINNER^GPLXPATH(OUTXML,RESULT) ; AFTER THE FIRST, INSERT INNER XML
Note: See TracChangeset for help on using the changeset viewer.