From cebb2cf02781e6fe7216eb62fa0ec5df97d83623 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Wed, 12 Nov 2008 14:33:41 +0000
Subject: [PATCH] fix for MAP

---
 p/GPLLABS.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/p/GPLLABS.m b/p/GPLLABS.m
index b88eff2..6bab1ad 100644
--- a/p/GPLLABS.m
+++ b/p/GPLLABS.m
@@ -47,7 +47,7 @@ RPCMAP(RTN,DFN,RMIVAR,RMIXML) ; RPC ENTRY POINT FOR MAPPING RESULTS
  . S C0CT="C0CT0R" ; NAME OF EXTRACTED RESULTS TEMPLATE
  E  S C0CT=RMIXML ; WE ARE PASSED THE RESULTS PART OF THE TEMPLATE
  I RMIVAR="" D  ; LOCATION OF VARIABLES NOT PASSED
- . S C0CV=$NA(^TMP("GPLRIM","VARS",DFN,"RESULTS")) ;DEFAULT VARIABLE LOCATION
+ . S C0CV=$NA(^TMP("GPLCCR",$J,"RESULTS")) ;DEFAULT VARIABLE LOCATION
  E  S C0CV=RMIVAR ; PASSED LOCATIONS OF VARS
  D CP^GPLXPATH(C0CT,"C0CRT") ; START MAKING TEST REQUEST TEMPLATE
  D REPLACE^GPLXPATH("C0CRT","","//Results/Result/Test") ; DELETE TEST FROM REQ