Changeset 103 for ccr


Ignore:
Timestamp:
Aug 26, 2008, 12:17:44 AM (16 years ago)
Author:
Sam Habiel
Message:

CCRMEDS mappings half-way done.

File:
1 edited

Legend:

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

    r101 r103  
    5252   . N MED M MED=MEDS(RXIEN) ; PULL OUT MEDICATION FROM
    5353   . S @MAP@("MEDOBJECTID")="MED"_MED(.01) ;Rx Number
    54    . S @MAP@("MEDISSUEDATETXT")
    55    . S @MAP@("MEDISSUEDATE")
    56    . S @MAP@("MEDLASTFILLDATETXT")
    57    . S @MAP@("MEDLASTFILLDATE")
    58    . S @MAP@("MEDRXNOTXT")
    59    . S @MAP@("MEDRXNO")
    60    . S @MAP@("MEDTYPETEXT")
    61    . S @MAP@("MEDDETAILUNADORNED")
    62    . S @MAP@("MEDSTATUSTEXT")
    63    . S @MAP@("MEDSOURCEACTORID")
    64    . S @MAP@("MEDPRODUCTNAMETEXT")
    65    . S @MAP@("MEDPRODUCTNAMECODEVALUE")
    66    . S @MAP@("MEDPRODUCTNAMECODINGINGSYSTEM")
    67    . S @MAP@("MEDPRODUCTNAMECODEVERSION")
    68    . S @MAP@("MEDBRANDNAMETEXT")
    69    . S @MAP@("MEDSTRENGTHVALUE")
    70    . S @MAP@("MEDSTRENGTHUNIT")
    71    . S @MAP@("MEDFORMTEXT")
     54   . S @MAP@("MEDISSUEDATETXT")="Issue Date"
     55   . S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^CCRUTIL($P(MED(1),U))
     56   . S @MAP@("MEDLASTFILLDATETXT")="Last Fill Date"
     57   . S @MAP@("MEDLASTFILLDATE")=$$FMDTOUTC^CCRUTIL($P(MED(101),U))
     58   . S @MAP@("MEDRXNOTXT")="Prescription Number"
     59   . S @MAP@("MEDRXNO")=MED(.01)
     60   . S @MAP@("MEDTYPETEXT")="Medication"
     61   . S @MAP@("MEDDETAILUNADORNED")=""  ; Leave blank, field has its uses
     62   . S @MAP@("MEDSTATUSTEXT")=$P(MED(100),U,2)
     63   . S @MAP@("MEDSOURCEACTORID")="ACTORPROVIDER_"_$P(MED(4),U)
     64   . S @MAP@("MEDPRODUCTNAMETEXT")=$P(MED(6),U,2)
     65   . S @MAP@("MEDPRODUCTNAMECODEVALUE")=MED(27)
     66   . S @MAP@("MEDPRODUCTNAMECODINGINGSYSTEM")="NDC"
     67   . S @MAP@("MEDPRODUCTNAMECODEVERSION")="none"
     68   . S @MAP@("MEDBRANDNAMETEXT")=MED(6.5)
     69   . N MEDIEN S MEDIEN=$P(MED(6),U)
     70   . D DOSE^PSS50(MEDIEN,,,,,"DOSE")
     71   . N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
     72   . S @MAP@("MEDSTRENGTHVALUE")=DOSEDATA(901)
     73   . S @MAP@("MEDSTRENGTHUNIT")=$P(DOSEDATA(902),U,2)
     74   . S @MAP@("MEDFORMTEXT")=$P(MED("OI"),U,4)
    7275   . S @MAP@("MEDCONCVALUE")
    7376   . S @MAP@("MEDCONCUNIT")
     
    9194   . S @MAP@("MEDDURATIONUNIT")
    9295   . S @MAP@("MEDPRNFLAG")
    93    . S @MAP@("MEDPROBLEMOBJECTID")
    94    . S @MAP@("MEDPROBLEMDESCRIPTION")
    95    . S @MAP@("MEDPROBLEMCODEVALUE")
    96    . S @MAP@("MEDPROBLEMCODINGSYSTEM")
    97    . S @MAP@("MEDPROBLEMCODINGVERSION")
    98    . S @MAP@("MEDPROBLEMSOURCEACTORID")
     96   . S @MAP@("MEDPROBLEMOBJECTID")=""
     97   . S @MAP@("MEDPROBLEMDESCRIPTION")=""
     98   . S @MAP@("MEDPROBLEMCODEVALUE")=""
     99   . S @MAP@("MEDPROBLEMCODINGSYSTEM")=""
     100   . S @MAP@("MEDPROBLEMCODINGVERSION")=""
     101   . S @MAP@("MEDPROBLEMSOURCEACTORID")=""
    99102   . S @MAP@("MEDSTOPINDICATOR")
    100103   . S @MAP@("MEDDIRSEQ")
Note: See TracChangeset for help on using the changeset viewer.