Changeset 282 for ccr

Timestamp:

Nov 17, 2008, 4:33:25 PM (16 years ago)

Author:

George Lilly

Message:

fixed no labs test

File:

• ccr/trunk/p/GPLLABS.m (modified) (1 diff)

ccr/trunk/p/GPLLABS.m

@@ -63 +63 @@
  D EXTRACT("C0CT",DFN,) ; FIRST CALL EXTRACT
  I '$D(@C0CV@(0)) D  Q  ; NO VARS THERE
- . S @C0CO@(0)=0 ; PASS BACK NO RESULTS INDICATOR
+ . S RTN(0)=0 ; PASS BACK NO RESULTS INDICATOR
+ I @C0CV@(0)=0 S RTN(0)=0 Q ; NO RESULTS
  S RIMVARS=$NA(^TMP("GPLRIM","VARS",DFN,"RESULTS"))
  K @RIMVARS