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

Timestamp:

Jan 5, 2009, 4:33:43 PM (15 years ago)

Author:

George Lilly

Message:

changes for RPMS support - set ^{TMP("GPLCCR","RPMS")=1}

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 LIST^ORQQPL3(.RPCRSLT,DFN,"") ; CALL THE PROBLEM LIST RPC
+          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 ",!