From a8d671ecc0d2c7b6c151bf031aa5e59cdc6a060f Mon Sep 17 00:00:00 2001
From: george <george>
Date: Tue, 7 Oct 2008 19:25:49 +0000
Subject: [PATCH] output file name default includes version number 1_0_5

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

diff --git a/p/GPLCCR.m b/p/GPLCCR.m
index 8b70248..68ec2ed 100644
--- a/p/GPLCCR.m
+++ b/p/GPLCCR.m
@@ -36,7 +36,7 @@ XPAT(DFN,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
        D CCRRPC(.CCRGLO,DFN,"CCR","","","")
        S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
        S ONAM=FN
-       I FN="" S ONAM="PAT_"_DFN_"_CCR_V1.xml"
+       I FN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_5.xml"
        S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
        I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
        . ;S @ODIRGLB="/home/glilly/CCROUT"