Changeset 227 for ccr


Ignore:
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 FMDTOUTCCCRUTIL call for CCRMEDS1 and 2

Location:
ccr/trunk/p
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRMEDS2.m

    r225 r227  
    6565 . S @MAP@("MEDISSUEDATETXT")="Issue Date"
    6666 . ; Field 6 is "Effective date", and we pull it in timson format w/ I
    67  . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^CCRUTIL($$GET1^DIQ(52.41,RXIEN,6,"I"))
     67 . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^CCRUTIL($$GET1^DIQ(52.41,RXIEN,6,"I"),"DT")
    6868 . ; Med never filled; next 4 fields are not applicable.
    6969 . S @MAP@("MEDLASTFILLDATETXT")=""
  • ccr/trunk/p/CCRMEDS3.m

    r220 r227  
    6262 . S @MAP@("MEDISSUEDATETXT")="Documented Date"
    6363 . ; Field 6 is "Effective date", and we pull it in timson format w/ I
    64  . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^CCRUTIL(MED(11,"I"),"I")
     64 . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^CCRUTIL(MED(11,"I"),"DT")
    6565 . ; Med never filled; next 4 fields are not applicable.
    6666 . S @MAP@("MEDLASTFILLDATETXT")=""
Note: See TracChangeset for help on using the changeset viewer.