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"