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

fixed XPAT^GPLCCR so it defaults last two parameters D XPAT^GPLCCR(dfn) works

This commit is contained in:
george 2008-09-21 22:27:21 +00:00
parent 0c12f244f2
commit 83cefeca24
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/GPLCCR.m
View File

@ -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") ; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("GPLCCR","ODIR")
; FN IS FILE NAME, DEFAULTS IF NULL ; FN IS FILE NAME, DEFAULTS IF NULL
N CCRGLO N CCRGLO
I '$D(DIR) S DIR=""
I '$D(FN) S FN=""
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