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


Ignore:
Timestamp:
Sep 8, 2008, 4:19:28 PM (16 years ago)
Author:
George Lilly
Message:

handle null dates in meds

File:
1 edited

Legend:

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

    r141 r145  
    5959   . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED
    6060   . S @MEDVMAP@("MEDOBJECTID")="MED"_ZI ; UNIQUE OBJID FOR MEDS
    61    . S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
     61   . I $P(MEDPTMP,"^",11)="" S @MEDVMAP@("MEDISSUEDATETXT")=""
     62   . E  S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
    6263   . S @MEDVMAP@("MEDISSUEDATE")=""
    6364   . S @MEDVMAP@("MEDLASTFILLDATETXT")=""
Note: See TracChangeset for help on using the changeset viewer.