Changeset 162 for ccr/trunk/p


Ignore:
Timestamp:
Sep 21, 2008, 10:09:17 PM (16 years ago)
Author:
Sam Habiel
Message:

CCRMEDS yet again

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r161 r162  
    8484          . N NDFIEN S NDFIEN=$P(NDFDATA(20),U)
    8585          . N VAPROD S VAPROD=$P(NDFDATA(22),U)
     86          . B:NDFIEN=""
    8687          . N CONCDATA S CONCDATA=$$CPRS^PSNAPIS(NDFIEN,VAPROD)
    8788          . S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
     
    159160          . N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"RESULT"))
    160161          . K @RESULT
    161           . D MAP^GPLXPATH(INXML,MAP,RESULT)
     162          . D MAP^GPLXPATH($NA(INXML),MAP,RESULT)
    162163          . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
    163164          . D:MEDCOUNT>1 INSINNER^GPLXPATH(OUTXML,RESULT) ; AFTER THE FIRST, INSERT INNER XML
  • ccr/trunk/p/CCRUNIT.m

    r161 r162  
    1313        W "Getting Med Template into INXML using",!
    1414        W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
    15         N INXML
    1615        D QUERY^GPLXPATH(T,XPATH,"INXML")
    17         W "Executing EXTRACT^CCRMEDS(""INXML"",DFN,OUTXML)",!
     16        B
     17                W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
    1818        W "OUTXML will be ^TMP($J,""OUT"")",!
    1919        N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
    20         D EXTRACT^CCRMEDS("INXML",DFN,OUTXML)
     20        D EXTRACT^CCRMEDS(.INXML,DFN,OUTXML)
    2121        Q
Note: See TracChangeset for help on using the changeset viewer.