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

Timestamp:

Oct 27, 2008, 12:50:32 AM (16 years ago)

Author:

George Lilly

Message:

FIX TO EXTRACT+29^CCRMEDS3

File:

• ccr/trunk/p/CCRMEDS3.m (modified) (1 diff)

ccr/trunk/p/CCRMEDS3.m

@@ -50 +50 @@
  S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
  N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
- F  S FDAIEN=$O(MEDS(FDAIEN)) Q:RXIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
+ F  S FDAIEN=$O(MEDS(FDAIEN)) Q:FDAIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
  . N MED M MED=MEDS(FDAIEN)
  . I MED(5,"I")!MED(6,"I") QUIT  ; If disconinued, we don't want to pull it.