Changeset 241 for ccr/trunk/p/CCRMEDS3.m


Ignore:
Timestamp:
Oct 27, 2008, 8:17:14 PM (16 years ago)
Author:
George Lilly
Message:

testing CCRMEDS3

File:
1 edited

Legend:

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

    r240 r241  
    153153 . ;
    154154 . ; S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105"
    155  . S @MAP@("MEDPTINSTRUCTIONS")=MED(10,1) ; WP Field
    156  . S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")=MED(14,1) ; WP Field
     155 . I $D(MED(10,1)) D  ;
     156 . . S @MAP@("MEDPTINSTRUCTIONS")=MED(10,1) ; WP Field
     157 . E  S @MAP@("MEDPTINSTRUCTIONS")=""
     158 . I $D(MED(14,1)) D  ;
     159 . . S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")=MED(14,1) ; WP Field
     160 . E  S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")=""
    157161 . S @MAP@("MEDRFNO")=""
    158162 . N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"MAPPED"))
     
    171175 . . . D MAP^GPLXPATH(DIRXML1,MDZNA,DIRXML2)
    172176 . . . D INSERT^GPLXPATH(RESULT,DIRXML2,"//Medications/Medication")
    173  . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
    174  . D:MEDCOUNT>1 INSINNER^GPLXPATH(OUTXML,RESULT) ; AFTER THE FIRST, INSERT INNER XML
    175  D PARY^GPLXPAT(OUTXML) ;LETS LOOK AT IT
     177 . I MEDFIRST D  ;
     178 . . S MEDFIRST=0 ; RESET FIRST FLAG
     179 . . D CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
     180 . D:'MEDFIRST INSINNER^GPLXPATH(OUTXML,RESULT) ; AFTER FIRST, INSERT INNER XML
    176181 N MEDTMP,MEDI
    177182 D MISSING^GPLXPATH(OUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS
Note: See TracChangeset for help on using the changeset viewer.