Changeset 396 for ccr/trunk/p/C0CIMMU.m
- Timestamp:
- Mar 15, 2009, 8:14:48 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CIMMU.m
r391 r396 79 79 . . D GETN^C0CRNF("C0CI",9000010.11,C0CIEN) ; GET THE FILEMAN RECORD FOR IENS 80 80 . . W C0CIEN,"_",C0CIMD 81 . . S C0CT=$$FMDTOUTC^C CRUTIL(9999999-C0CIMD,"DT") ; FORMAT DATE/TIME81 . . S C0CT=$$FMDTOUTC^C0CUTIL(9999999-C0CIMD,"DT") ; FORMAT DATE/TIME 82 82 . . W C0CT,! 83 83 . . S @VMAP@("IMMUNEOBJECTID")="IMMUNIZATION_"_C0CC ;UNIQUE OBJECT ID
Note:
See TracChangeset
for help on using the changeset viewer.