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


Ignore:
Timestamp:
Oct 27, 2008, 12:50:32 AM (16 years ago)
Author:
George Lilly
Message:

FIX TO EXTRACT+29CCRMEDS3

File:
1 edited

Legend:

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

    r233 r234  
    5050 S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
    5151 N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
    52  F  S FDAIEN=$O(MEDS(FDAIEN)) Q:RXIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
     52 F  S FDAIEN=$O(MEDS(FDAIEN)) Q:FDAIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
    5353 . N MED M MED=MEDS(FDAIEN)
    5454 . I MED(5,"I")!MED(6,"I") QUIT  ; If disconinued, we don't want to pull it.
Note: See TracChangeset for help on using the changeset viewer.