Changeset 593 for ccr/trunk/p/C0CMED6.m

Timestamp:

Nov 3, 2009, 2:29:36 PM (15 years ago)

Author:

Sam Habiel

Message:

updated RPMS Meds...; still working on RxNorm

File:

• ccr/trunk/p/C0CMED6.m (modified) (2 diffs)

ccr/trunk/p/C0CMED6.m

@@ -41 +41 @@
  ; -- DAYS is passed by value (optional; if not passed defaults to 365)
  ; 
- ; Return:
- ; ~Type^PharmID^Drug^InfRate^StopDt^RefRem^TotDose^UnitDose^OrderID 
- ; ^Status^LastFill^Chronic^Issued^Rx #^Provider^ 
- ; Status Reason^DEA Handling
+ ; Return:  
+ ;    ~Type(1)^PharmID(2)^Drug(3)^InfRate(4)^StopDt(5)^RefRem(6)^
+ ;    TotDose(7)^UnitDose(8)^OrderID(9)^Status(10)^LastFill(11)^
+ ;    Days Supply(12)^Quantity(13)^Chronic(14)^Issued(15)^
+ ;    Rx #(16)^Provider(17)^Status Reason(18)^DEA Handling(19)^
+ ;    Pharmacy Site(20)
  ; 
  N MEDS,MEDS1,MAP
@@ -74 +76 @@
  . S @MAP@("MEDOBJECTID")="MED"_MEDCNT ; MEDCNT FOR ID
  . S @MAP@("MEDISSUEDATETXT")="Issue Date"
- . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^C0CUTIL($P(MEDS(MEDCNT),U,13))
+ . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^C0CUTIL($P(MEDS(MEDCNT),U,15))
  . S @MAP@("MEDLASTFILLDATETXT")="Last Fill Date"
  . S @MAP@("MEDLASTFILLDATE")=$$FMDTOUTC^C0CUTIL($P(MEDS(MEDCNT),U,11))
  . S @MAP@("MEDRXNOTXT")="Prescription Number"
- . S @MAP@("MEDRXNO")=$P(MEDS(MEDCNT),U,14)
+ . S @MAP@("MEDRXNO")=$P(MEDS(MEDCNT),U,16)
  . S @MAP@("MEDTYPETEXT")="Medication"
  . S @MAP@("MEDDETAILUNADORNED")=""  ; Leave blank, field has its uses