fixed template problems

p/GPLCCR0.m

@@ -243,7 +243,6 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;<ActorID>@@ALERTAGENTPRODUCTSOURCEID@@</ActorID>
  ;;</Actor>
  ;;</Source>
- ;;<Product>
  ;;<ProductName>
  ;;<Text>@@ALERTAGENTPRODUCTNAMETEXT@@</Text>
  ;;<Code>
@@ -252,7 +251,6 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;</Code>
  ;;</ProductName>
  ;;</Product>
- ;;</Product>
  ;;</Products>
  ;;</Agent>
  ;;<Reaction>
@@ -290,6 +288,7 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;</Type>
  ;;<Description>
  ;;<Text>@@MEDDETAILUNADORNED@@</Text>
+ ;;</Description>
  ;;<Status>
  ;;<Text>@@MEDSTATUSTEXT@@</Text>
  ;;</Status>
@@ -323,9 +322,10 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;<Value>@@MEDCONCVALUE@@</Value>
  ;;<Units>
  ;;<Unit>@@MEDCONCUNIT@@</Unit>
+ ;;</Units>
  ;;</Concentration>
  ;;<Size>
- ;;<Text>@@MEDSIZETEXT</Text>
+ ;;<Text>@@MEDSIZETEXT@@</Text>
  ;;</Size>
  ;;</Product>
  ;;<Quantity>
@@ -333,6 +333,7 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;<Units>
  ;;<Unit>@@MEDQUANTITYUNIT@@</Unit>
  ;;</Units>
+ ;;</Quantity>
  ;;<Directions>
  ;;<Direction>
  ;;<Description>
@@ -366,18 +367,19 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;<Value>@@MEDFREQUENCYVALUE@@</Value>
  ;;<Units>
  ;;<Unit>@@MEDFREQUENCYUNIT@@</Unit>
- ;;<Units>
+ ;;</Units>
  ;;</Frequency>
  ;;<Interval>
  ;;<Value>@@MEDINTERVALVALUE@@</Value>
  ;;<Units>
  ;;<Unit>@@MEDINTERVALUNIT@@</Unit>
- ;;<Units>
+ ;;</Units>
  ;;</Interval>
  ;;<Duration>
  ;;<Value>@@MEDDURATIONVALUE@@</Value>
  ;;<Units>
  ;;<Unit>@@MEDDURATIONUNIT@@</Unit>
+ ;;</Units>
  ;;</Duration>
  ;;<Indication>
  ;;<PRNFlag>
@@ -422,7 +424,7 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;<Refill>
  ;;<Number>@@MEDRFNO@@</Number>
  ;;</Refill>
- ;;<Refills>
+ ;;</Refills>
  ;;</Medication>
  ;;</Medications>
  ;;<VitalSigns>

p/GPLXPATH.m

@@ -115,6 +115,7 @@ INDEX(ZXML)     ; parse the XML in ZXML and produce an XPATH index
           . . . D POP("GPLSTK",.TMP) ; REMOVE FROM STACK
           . . . I TMP'=CUR  D  ; MALFORMED XML, END MUST MATCH START
           . . . . W "MALFORMED XML ",CUR,"LINE "_I_LINE,!
+          . . . . D PARY("GPLSTK") ; PRINT OUT THE STACK FOR DEBUGING
           . . . . Q
           . I FOUND'=1  D  ; THE LINE MIGHT CONTAIN A SECTION BEGINNING
           . . I (LINE?.E1"<"1.E)&(LINE'["?>")  D  ; BEGINNING OF A SECTION