Changeset 240 for ccr/trunk/p/CCRMEDS3.m


Ignore:
Timestamp:
Oct 27, 2008, 6:52:36 PM (16 years ago)
Author:
George Lilly
Message:

DEBUGGING CCRMEDS3

File:
1 edited

Legend:

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

    r238 r240  
    5858 . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; INCREMENT TOTAL MEDS IN VAR ARRAY
    5959 . N RXIEN S RXIEN=$P(FDAIEN,",") ; First piece of FDAIEN is the number of the med for this patient
    60  . I DEBUG W "RXIEN IS ",RXIEN,!
    61  . I DEBUG W "MAP= ",MAP,!
     60 . W "RXIEN IS ",RXIEN,!
     61 . W "MAP= ",MAP,!
    6262 . S @MAP@("MEDOBJECTID")="MED_OUTSIDE"_MEDCOUNT ; MEDCOUNT FOR ID
    6363 . S @MAP@("MEDISSUEDATETXT")="Documented Date"
     
    173173 . D:MEDCOUNT=1 CP^GPLXPATH(RESULT,OUTXML) ; First one is a copy
    174174 . D:MEDCOUNT>1 INSINNER^GPLXPATH(OUTXML,RESULT) ; AFTER THE FIRST, INSERT INNER XML
     175 D PARY^GPLXPAT(OUTXML) ;LETS LOOK AT IT
    175176 N MEDTMP,MEDI
    176177 D MISSING^GPLXPATH(OUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS
Note: See TracChangeset for help on using the changeset viewer.