Changeset 396 for ccr/trunk/p/CCRDPT.m
- Timestamp:
- Mar 15, 2009, 8:14:48 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRDPT.m
r175 r396 111 111 N DOB S DOB=$$GET1^DIQ(2,DFN,.03,"I") 112 112 ; Date in FM Date Format. Convert to UTC/ISO 8601. 113 Q $$FMDTOUTC^C CRUTIL(DOB,"D")113 Q $$FMDTOUTC^C0CUTIL(DOB,"D") 114 114 GENDER(DFN) ; Gender/Sex 115 115 Q $$GET1^DIQ(2,DFN,.02) ;
Note:
See TracChangeset
for help on using the changeset viewer.