Changeset 227 for ccr/trunk/p/CCRMEDS3.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/CCRMEDS3.m (modified) (1 diff)

ccr/trunk/p/CCRMEDS3.m

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