Index: /ccr/trunk/p/GPLCCR.m
===================================================================
--- /ccr/trunk/p/GPLCCR.m	(revision 156)
+++ /ccr/trunk/p/GPLCCR.m	(revision 157)
@@ -32,4 +32,6 @@
        ; 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,3 +224,3 @@
  ;;>>>D CCRRPC^GPLCCR(.GPL,"2","ALERTS","","","")
  ;;>>?@GPL@(@GPL@(0))["</Alerts>"
-  
+