Changeset 108 for ccr/trunk/p


Ignore:
Timestamp:
Aug 28, 2008, 2:28:03 PM (16 years ago)
Author:
George Lilly
Message:

more meds debugging.. looking for 5 line med rpc results

File:
1 edited

Legend:

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

    r107 r108  
    3737   S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
    3838   K @MEDTVMAP,@MEDTARYTMP
    39    F J=1:3 Q:'$D(MEDRSLT(J))  D  ; FOR EACH MEDICATION IN THE LIST
     39   N DONE S DONE=0
     40   F J=1:3 Q:'$D(MEDRSLT(J))!DONE  D  ; FOR EACH MEDICATION IN THE LIST
    4041   . I DEBUG W "J IS ",J,!
    4142   . S MEDVMAP=$NA(@MEDTVMAP@(J))
     
    6970   . I $D(MEDRSLT(J+2)) D  ; IF THIRD LINE EXISTS
    7071   . . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
    71    . S @MEDVMAP@("MEDDIRECTIONDOSEVALUE")=""
     72   . I MEDRSLT(J+3)?1"t".E S DONE=1 ; IF CONTINUATION LINES
     73   . S @MEDVMAP@("MEDDOSEVALUE")=""
     74   . S @MEDVMAP@("MEDDOSEUNIT")=""
     75   . S @MEDVMAP@("MEDFREQUENCYVALUE")=""
     76   . S @MEDVMAP@("MEDDURATIONVALUE")=""
     77   . S @MEDVMAP@("MEDDURATIONUNIT")=""
    7278   . S @MEDVMAP@("MEDDIRECTIONROUTETEXT")=""
    7379   . S @MEDVMAP@("MEDDIRECTIONFREQUENCYVALUE")=""
Note: See TracChangeset for help on using the changeset viewer.