Changeset 145 for ccr/trunk/p/GPLMEDS.m

Timestamp:

Sep 8, 2008, 4:19:28 PM (16 years ago)

Author:

George Lilly

Message:

handle null dates in meds

File:

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

ccr/trunk/p/GPLMEDS.m

@@ -59 +59 @@
    . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED
    . S @MEDVMAP@("MEDOBJECTID")="MED"_ZI ; UNIQUE OBJID FOR MEDS
-   . S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
+   . I $P(MEDPTMP,"^",11)="" S @MEDVMAP@("MEDISSUEDATETXT")=""
+   . E  S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
    . S @MEDVMAP@("MEDISSUEDATE")=""
    . S @MEDVMAP@("MEDLASTFILLDATETXT")=""