Changeset 165 for ccr/trunk/p/CCRMEDS.m

Timestamp:

Sep 22, 2008, 12:25:53 AM (16 years ago)

Author:

George Lilly

Message:

fixes to CCRMEDS

File:

• ccr/trunk/p/CCRMEDS.m (modified) (3 diffs)

ccr/trunk/p/CCRMEDS.m

@@ -21 +21 @@
           Q
           ;
-EXTRACT(INXML,DFN,OUTXML)       ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
+EXTRACT(MINXML,DFN,OUTXML)      ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
           ;
           ; INXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
@@ -35 +35 @@
           ; http://www.va.gov/vdl/documents/Clinical/Pharm-Outpatient_Pharmacy/phar_1_api_r0807.pdf
           ; Output of API is ^TMP($J,"SUBSCRIPT",DFN,RXIENS).
-        
+          ; D PARY^GPLXPATH(MINXML)
           N MEDS,MAP
           K ^TMP($J)
@@ -164 +164 @@
           . N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"RESULT"))
           . K @RESULT
-          . D MAP^GPLXPATH($NA(INXML),MAP,RESULT)
+          . ; D MAP^GPLXPATH($NA(INXML),MAP,RESULT)
+          . D MAP^GPLXPATH(MINXML,MAP,RESULT)
+          . ; D PARY^GPLXPATH(RESULT)
           . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
           . D:MEDCOUNT>1 INSINNER^GPLXPATH(OUTXML,RESULT) ; AFTER THE FIRST, INSERT INNER XML