Changeset 1325 for ccr/branches/ohum/p/C0CMED1.m

Timestamp:

Dec 31, 2011, 12:08:05 AM (12 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

• ccr/branches/ohum/p/C0CMED1.m (modified) (2 diffs)

ccr/branches/ohum/p/C0CMED1.m

@@ -1 +1 @@
 C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
- ;;1.0;C0C;;May 19, 2009;Build 38
+ ;;1.0;C0C;;May 19, 2009;Build 39
  ;;Last modified Sat Jan 10 21:42:27 PST 2009
  ; Copyright 2009 WorldVistA.  Licensed under the terms of the GNU
@@ -72 +72 @@
  . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^C0CUTIL($P(MED(1),U))
  . S @MAP@("MEDLASTFILLDATETXT")="Last Fill Date"
- . S @MAP@("MEDLASTFILLDATE")=$$FMDTOUTC^C0CUTIL($P($G(MED(101)),U))
+ . S @MAP@("MEDLASTFILLDATE")=$$FMDTOUTC^C0CUTIL($P(MED(101),U))
  . S @MAP@("MEDRXNOTXT")="Prescription Number"
  . S @MAP@("MEDRXNO")=MED(.01)