From 83cefeca24edb1d1824d2d23b93a3f11dbeeac5e Mon Sep 17 00:00:00 2001
From: george <george@1bcf3343-bbc7-4d28-9858-dce3e5f44ddd>
Date: Sun, 21 Sep 2008 22:27:21 +0000
Subject: [PATCH] fixed XPAT^GPLCCR so it defaults last two parameters D
 XPAT^GPLCCR(dfn) works

---
 p/GPLCCR.m | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/p/GPLCCR.m b/p/GPLCCR.m
index ef2fa44..27e2074 100644
--- a/p/GPLCCR.m
+++ b/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>"
-  
+