Changeset 110 for ccr/trunk


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

more meds debugging

File:
1 edited

Legend:

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

    r109 r110  
    7171   . . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
    7272   . 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
     73   . . I MEDRSLT(J+3)?1"t".E D  ; CONTINUATION LINES
     74   . . . I $D(MEDRSLT(J+6)) D  ;
     75   . . . . S J=J=3 ; SKIP THREE LINES TO NEXT MED
     76   . . . E  S DONE=1 ; ELSE NO MORE MEDS
    7477   . S @MEDVMAP@("MEDDOSEVALUE")=""
    7578   . S @MEDVMAP@("MEDDOSEUNIT")=""
Note: See TracChangeset for help on using the changeset viewer.