Changeset 238 for ccr


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

debugging CCRMEDS3

File:
1 edited

Legend:

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

    r234 r238  
    5050 S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
    5151 N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
     52 N MEDFIRST S MEDFIRST=1 ; FLAG FOR FIRST MED PROCESSED HERE
    5253 F  S FDAIEN=$O(MEDS(FDAIEN)) Q:FDAIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
    5354 . N MED M MED=MEDS(FDAIEN)
     
    122123 . ; For that reason, I will use the field I never used before:
    123124 . ; MEDDIRECTIONDESCRIPTIONTEXT
     125 . S DIRCNT=1 ; THERE IS ONLY ONE DIRECTION FOR OUTSIDE MEDS
    124126 . S @MAP@("M","DIRECTIONS",1,"MEDDIRECTIONDESCRIPTIONTEXT")=MED(2,"E")_" "_MED(3,"E")_" "_MED(4,"E")
    125127 . S @MAP@("M","DIRECTIONS",1,"MEDDOSEINDICATOR")="4"  ; means look in description text. See E2369-05.
Note: See TracChangeset for help on using the changeset viewer.