Changeset 162 for ccr/trunk/p/CCRUNIT.m


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

CCRMEDS yet again

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.