Changeset 145
- Timestamp:
- Sep 8, 2008, 4:19:28 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLMEDS.m
r141 r145 59 59 . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED 60 60 . 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 62 63 . S @MEDVMAP@("MEDISSUEDATE")="" 63 64 . S @MEDVMAP@("MEDLASTFILLDATETXT")=""
Note:
See TracChangeset
for help on using the changeset viewer.