Changeset 238 for ccr/trunk/p

Timestamp:

Oct 27, 2008, 6:01:46 PM (16 years ago)

Author:

George Lilly

Message:

debugging CCRMEDS3

File:

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

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
+ N MEDFIRST S MEDFIRST=1 ; FLAG FOR FIRST MED PROCESSED HERE
  F  S FDAIEN=$O(MEDS(FDAIEN)) Q:FDAIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
  . N MED M MED=MEDS(FDAIEN)
@@ -122 +123 @@
  . ; For that reason, I will use the field I never used before:
  . ; MEDDIRECTIONDESCRIPTIONTEXT
+ . S DIRCNT=1 ; THERE IS ONLY ONE DIRECTION FOR OUTSIDE MEDS
  . S @MAP@("M","DIRECTIONS",1,"MEDDIRECTIONDESCRIPTIONTEXT")=MED(2,"E")_" "_MED(3,"E")_" "_MED(4,"E")
  . S @MAP@("M","DIRECTIONS",1,"MEDDOSEINDICATOR")="4"  ; means look in description text. See E2369-05.