Index: /ccr/trunk/p/GPLCCR.m
===================================================================
--- /ccr/trunk/p/GPLCCR.m	(revision 135)
+++ /ccr/trunk/p/GPLCCR.m	(revision 136)
@@ -45,5 +45,5 @@
        N ZY
        S ZY=$$OUTPUT^GPLXPATH(OARY,ONAM,ODIR)
-       W $P(ZY,U,2)
+       W !,$P(ZY,U,2)
        Q
        ;
Index: /ccr/trunk/p/GPLMEDS.m
===================================================================
--- /ccr/trunk/p/GPLMEDS.m	(revision 135)
+++ /ccr/trunk/p/GPLMEDS.m	(revision 136)
@@ -60,4 +60,34 @@
    . S @MEDVMAP@("MEDOBJECTID")="MED"_ZI ; UNIQUE OBJID FOR MEDS
    . S @MEDVMAP@("MEDISSUEDATETXT")=$$FMDTOUTC^CCRUTIL($P(MEDPTMP,"^",11),"DT") ; GETS LAST FILL DATE
+   . S @MEDVMAP@("MEDISSUEDATE")=""
+   . S @MEDVMAP@("MEDLASTFILLDATETXT")=""
+   . S @MEDVMAP@("MEDLASTFILLDATE")=""
+   . S @MEDVMAP@("MEDRXNOTXT")=""
+   . S @MEDVMAP@("MEDRXNO")=""
+   . S @MEDVMAP@("MEDDETAILUNADORNED")=""
+   . S @MEDVMAP@("MEDCONCVALUE")=""
+   . S @MEDVMAP@("MEDCONCUNIT")=""
+   . S @MEDVMAP@("MEDSIZETEXT")=""
+   . S @MEDVMAP@("MEDDOSEINDICATOR")=""
+   . S @MEDVMAP@("MEDDELIVERYMETHOD")=""
+   . S @MEDVMAP@("MEDRATEVALUE")=""
+   . S @MEDVMAP@("MEDRATEUNIT")=""
+   . S @MEDVMAP@("MEDVEHICLETEXT")=""
+   . S @MEDVMAP@("MEDFREQUENCYUNIT")=""
+   . S @MEDVMAP@("MEDINTERVALVALUE")=""
+   . S @MEDVMAP@("MEDINTERVALUNIT")=""
+   . S @MEDVMAP@("MEDPRNFLAG")=""
+   . S @MEDVMAP@("MEDPROBLEMOBJECTID")=""
+   . S @MEDVMAP@("PROBLEM")=""
+   . S @MEDVMAP@("MEDPROBLEMDESCRIPTION")=""
+   . S @MEDVMAP@("MEDPROBLEMCODEVALUE")=""
+   . S @MEDVMAP@("MEDPROBLEMCODINGSYSTEM")=""
+   . S @MEDVMAP@("MEDPROBLEMCODINGVERSION")=""
+   . S @MEDVMAP@("MEDPROBLEMSOURCEACTORID")=""
+   . S @MEDVMAP@("MEDSTOPINDICATOR")=""
+   . S @MEDVMAP@("MEDDIRSEQ")=""
+   . S @MEDVMAP@("MEDMULDIRMOD")=""
+   . S @MEDVMAP@("MEDPTINSTRUCTIONS")=""
+   . S @MEDVMAP@("MEDFULLFILLMENTINSTRUCTIONS")=""
    . S @MEDVMAP@("MEDDATETIMEAGE")=""
    . S @MEDVMAP@("MEDDATETIMEAGEUNITS")=""
@@ -66,7 +96,16 @@
    . S @MEDVMAP@("MEDSOURCEACTORID")="ACTORSYSTEM_1"
    . S @MEDVMAP@("MEDPRODUCTNAMETEXT")=$P(MEDPTMP,"^",3)
-   . S @MEDVMAP@("MEDPRODUCTNAMECODEVALUE")=""
+   . S @MEDVMAP@("MEDPRODUCTNAMECODEVALUE")="" ; DEFAULT VALUE
    . S @MEDVMAP@("MEDPRODUCTNAMECODINGINGSYSTEM")=""
    . S @MEDVMAP@("MEDPRODUCTNAMECODEVERSION")=""
+   . I $P(MEDPTMP,U,1)?1"~OP" D  ; IS OUTPATIENT, MIGHT HAVE CODE
+   . . I $P(MEDPTMP,"^",10)="ACTIVE" D  ; ONLY ACTIVE MEDS HAVE CODES
+   . . . N RXIEN ; IEN TO RX, EXAMPLE "~OP^13R;O^IBUPROFEN 400MG^" 13 IS IT
+   . . . S RXIEN=$$DIGITS($P($P(MEDPTMP,U,2),";",1)) ; GET JUST LEADING DIGITS
+   . . . I DEBUG W "RXIEN=",RXIEN,! ;
+   . . . D RX^PSO52API(DFN,"MEDCODE",RXIEN) ; EXTRACT THE RX RECORD TO ^TMP
+   . . . I $D(^TMP($J,"MEDCODE",DFN,RXIEN,27)) D  ; IF SUCCESS
+   . . . . S @MEDVMAP@("MEDPRODUCTNAMECODEVALUE")=^TMP($J,"MEDCODE",DFN,RXIEN,27)
+   . . . . S @MEDVMAP@("MEDPRODUCTNAMECODINGINGSYSTEM")="NDC"
    . S @MEDVMAP@("MEDBRANDNAMETEXT")=""
    . S @MEDVMAP@("MEDBRANDNAMECODEVALUE")=""
@@ -111,2 +150,8 @@
    Q
    ;
+DIGITS(INSTR) ; RETURN JUST THE LEADING DIGITS OF THE STRING
+   ; EXAMPLE: $$DIGITS("13R") RETURNS 13
+   N ALPHA ; CONTANT TO HOLD ALL ALPHA CHARACTERS
+   S ALPHA="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" ; ALPHAS
+   Q $TR(INSTR,ALPHA) ; LEAVE ONLY THE DIGITS
+   ;
Index: /ccr/trunk/p/GPLPROBS.m
===================================================================
--- /ccr/trunk/p/GPLPROBS.m	(revision 135)
+++ /ccr/trunk/p/GPLPROBS.m	(revision 136)
@@ -48,4 +48,5 @@
           . S @VMAP@("PROBLEMSTATUS")=$P(PTMP,U,2)
           . S @VMAP@("PROBLEMDESCRIPTION")=$P(PTMP,U,3)
+          . S @VMAP@("PROBLEMCODINGVERSION")=""
           . S @VMAP@("PROBLEMCODEVALUE")=$P(PTMP,U,4)
           . S @VMAP@("PROBLEMDATEOFONSET")=$P(PTMP,U,5)