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