Changeset 314 for ccr/trunk/p/GPLPROBS.m

Timestamp:

Jan 6, 2009, 12:07:27 PM (15 years ago)

Author:

George Lilly

Message:

update for RPMS operations

File:

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

ccr/trunk/p/GPLPROBS.m

@@ -33 +33 @@
           S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))
           K @TVMAP,@TARYTMP ; KILL OLD ARRAY VALUES
-          ;D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
-          D GET^BGOPROB(.RPCRSLT,DFN) ; CALL THE PROBLEM LIST RPC
+          I $D(^TMP("GPLCCR","RPMS")) D  ; IF IN RPMS
+          . D LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
+          E  D GET^BGOPROB(.RPCRSLT,DFN) ; CALL THE PROBLEM LIST RPC
           I '$D(RPCRSLT(1)) D  Q  ; RPC RETURNS NULL
           . W "NULL RESULT FROM LIST^ORQQPL3 ",!