Changeset 157 for ccr

Timestamp:

Sep 21, 2008, 6:27:21 PM (16 years ago)

Author:

George Lilly

Message:

fixed XPAT^{GPLCCR so it defaults last two parameters D XPAT}GPLCCR(dfn) works

File:

• ccr/trunk/p/GPLCCR.m (modified) (2 diffs)

ccr/trunk/p/GPLCCR.m

@@ -32 +32 @@
        ; FN IS FILE NAME, DEFAULTS IF NULL
        N CCRGLO
+       I '$D(DIR) S DIR=""
+       I '$D(FN) S FN=""
        D CCRRPC(.CCRGLO,DFN,"CCR","","","")
        S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
@@ -222 +224 @@
  ;;>>>D CCRRPC^GPLCCR(.GPL,"2","ALERTS","","","")
  ;;>>?@GPL@(@GPL@(0))["</Alerts>"
-  
+