Changeset 147 for ccr/trunk/p/GPLCCR.m

Timestamp:

Sep 9, 2008, 7:18:06 PM (16 years ago)

Author:

George Lilly

Message:

added command DCCR^{GPLCCR(dfn) to display just extracted CCR}

File:

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

ccr/trunk/p/GPLCCR.m

@@ -48 +48 @@
        Q
        ;
+DCCR(DFN) ; DISPLAY A CCR THAT HAS JUST BEEN EXTRACTED
+    ;
+    N G1
+    S G1=$NA(^TMP("GPLCCR",$J,DFN,"CCR"))
+    I $D(@G1@(0)) D  ; CCR EXISTS
+    D PARY^GPLXPATH(G1)
+    Q
+    ;
 CCRRPC(CCRGRTN,DFN,CCRPART,TIME1,TIME2,HDRARY)  ;RPC ENTRY POINT FOR CCR OUTPUT
     ; CCRGRTN IS RETURN ARRAY PASSED BY NAME