Changeset 109 for ccr/trunk


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

debugging 5 line meds

File:
1 edited

Legend:

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

    r108 r109  
    7070   . I $D(MEDRSLT(J+2)) D  ; IF THIRD LINE EXISTS
    7171   . . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
    72    . I MEDRSLT(J+3)?1"t".E S DONE=1 ; IF CONTINUATION LINES
     72   . I $D(MEDRSLT(J+3)) D  ; IF THERE IS ANOTHER LINE
     73   . . I MEDRSLT(J+3)?1"t".E S DONE=1 ; IF CONTINUATION LINES
    7374   . S @MEDVMAP@("MEDDOSEVALUE")=""
    7475   . S @MEDVMAP@("MEDDOSEUNIT")=""
Note: See TracChangeset for help on using the changeset viewer.