Changeset 396 for ccr/trunk/p/CCRMEDS.m
- Timestamp:
- Mar 15, 2009, 8:14:48 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS.m
r359 r396 111 111 . S @MEDVMAP@("MEDOBJECTID")="MED"_(MEDCNT) ; UNIQUE OBJID FOR MEDS 112 112 . I $P(MEDPTMP,"^",11)="" S @MEDVMAP@("MEDISSUEDATETXT")="" 113 . E S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^C CRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE113 . E S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^C0CUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE 114 114 . S @MEDVMAP@("MEDISSUEDATE")="" 115 115 . S @MEDVMAP@("MEDLASTFILLDATETXT")=""
Note:
See TracChangeset
for help on using the changeset viewer.