From 2dccdced72858562e97a3280c74e45f4c8aeedd6 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Tue, 24 Mar 2009 01:46:12 +0000
Subject: [PATCH] added comment to C0CCCR

---
 p/C0CCCR.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/p/C0CCCR.m b/p/C0CCCR.m
index def59e5..0945005 100644
--- a/p/C0CCCR.m
+++ b/p/C0CCCR.m
@@ -34,7 +34,7 @@ XPAT(DFN,XPARMS,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
  N CCRGLO,UDIR,UFN
  I '$D(DIR) S UDIR=""
  E  S UDIR=DIR
- I '$D(FN) S UFN=""
+ I '$D(FN) S UFN="" ; IF FILENAME IS NOT PASSED
  E  S UFN=FN
  I '$D(XPARMS) S XPARMS=""
  D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR")