Changeset 240 for ccr/trunk/p

Timestamp:

Oct 27, 2008, 6:52:36 PM (16 years ago)

Author:

George Lilly

Message:

DEBUGGING CCRMEDS3

File:

• ccr/trunk/p/CCRMEDS3.m (modified) (2 diffs)

ccr/trunk/p/CCRMEDS3.m

@@ -58 +58 @@
  . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; INCREMENT TOTAL MEDS IN VAR ARRAY
  . N RXIEN S RXIEN=$P(FDAIEN,",") ; First piece of FDAIEN is the number of the med for this patient
- . I DEBUG W "RXIEN IS ",RXIEN,!
- . I DEBUG W "MAP= ",MAP,!
+ . W "RXIEN IS ",RXIEN,!
+ . W "MAP= ",MAP,!
  . S @MAP@("MEDOBJECTID")="MED_OUTSIDE"_MEDCOUNT ; MEDCOUNT FOR ID
  . S @MAP@("MEDISSUEDATETXT")="Documented Date"
@@ -173 +173 @@
  . 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
+ D PARY^GPLXPAT(OUTXML) ;LETS LOOK AT IT
  N MEDTMP,MEDI
  D MISSING^GPLXPATH(OUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS