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

p/GPLCCR.m

@@ -31,6 +31,8 @@ XPAT(DFN,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
        ; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("GPLCCR","ODIR")
        ; 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))
        S ONAM=FN
@@ -221,4 +223,4 @@ TLIST  ; LIST THE TESTS
  ;;>>>K GPL S GPL=""
  ;;>>>D CCRRPC^GPLCCR(.GPL,"2","ALERTS","","","")
  ;;>>?@GPL@(@GPL@(0))["</Alerts>"
-  
+