Changeset 238
- Timestamp:
- Oct 27, 2008, 6:01:46 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS3.m
r234 r238 50 50 S MEDMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP")) 51 51 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 52 53 F S FDAIEN=$O(MEDS(FDAIEN)) Q:FDAIEN="" D ; FOR EACH MEDICATION IN THE LIST 53 54 . N MED M MED=MEDS(FDAIEN) … … 122 123 . ; For that reason, I will use the field I never used before: 123 124 . ; MEDDIRECTIONDESCRIPTIONTEXT 125 . S DIRCNT=1 ; THERE IS ONLY ONE DIRECTION FOR OUTSIDE MEDS 124 126 . S @MAP@("M","DIRECTIONS",1,"MEDDIRECTIONDESCRIPTIONTEXT")=MED(2,"E")_" "_MED(3,"E")_" "_MED(4,"E") 125 127 . 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.