Changeset 227 for ccr/trunk/p/CCRMEDS2.m

Timestamp:

Oct 26, 2008, 2:33:51 PM (16 years ago)

Author:

Sam Habiel

Message:

Added CCRMEDS4 for inpatient UD, and tiny fixes for the FMDTOUTC^{CCRUTIL call for CCRMEDS1 and 2}

File:

• ccr/trunk/p/CCRMEDS2.m (modified) (1 diff)

ccr/trunk/p/CCRMEDS2.m

@@ -65 +65 @@
  . S @MAP@("MEDISSUEDATETXT")="Issue Date"
  . ; Field 6 is "Effective date", and we pull it in timson format w/ I
- . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^CCRUTIL($$GET1^DIQ(52.41,RXIEN,6,"I"))
+ . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^CCRUTIL($$GET1^DIQ(52.41,RXIEN,6,"I"),"DT")
  . ; Med never filled; next 4 fields are not applicable.
  . S @MAP@("MEDLASTFILLDATETXT")=""