Changeset 105

Timestamp:

Aug 26, 2008, 11:57:10 PM (16 years ago)

Author:

George Lilly

Message:

fixed crash in MEDS where med has no 3rd line of description

File:

• ccr/trunk/p/GPLMEDS.m (modified) (1 diff)

ccr/trunk/p/GPLMEDS.m

@@ -64 +64 @@
    . S @MEDVMAP@("MEDQUANTITYUNIT")=""
    . S @MEDVMAP@("MEDRFNO")=""
-   . S @MEDVMAP@("MEDICATIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+1)," *",2)
-   . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
+   . I $D(MEDRSLT(J+1)) D  ; IF SECOND LINE EXISTS
+   . . S @MEDVMAP@("MEDICATIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+1)," *",2)
+   . I $D(MEDRSLT(J+2)) D  ; IF THIRD LINE EXISTS
+   . . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
    . S @MEDVMAP@("MEDICATIONDIRECTIONDOSEVALUE")=""
    . S @MEDVMAP@("MEDICATIONDIRECTIONROUTETEXT")=""