Changeset 227 for ccr/trunk

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}

Location:

ccr/trunk/p

Files:

• CCRMEDS2.m (modified) (1 diff)
• CCRMEDS3.m (modified) (1 diff)
• CCRMEDS4.m (added)

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")=""

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")=""