iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

output file name default includes version number 1_0_5

This commit is contained in:
george 2008-10-07 19:25:49 +00:00
parent fc6ff8490a
commit a8d671ecc0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/GPLCCR.m
View File

@ -36,7 +36,7 @@ XPAT(DFN,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
D CCRRPC(.CCRGLO,DFN,"CCR","","","") D CCRRPC(.CCRGLO,DFN,"CCR","","","")
S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1)) S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
S ONAM=FN 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")) S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
I '$D(@ODIRGLB) D ; IF NOT ODIR HAS BEEN SET I '$D(@ODIRGLB) D ; IF NOT ODIR HAS BEEN SET
. ;S @ODIRGLB="/home/glilly/CCROUT" . ;S @ODIRGLB="/home/glilly/CCROUT"