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

added comment to C0CCCR

This commit is contained in:
george 2009-03-24 01:46:12 +00:00
parent f86810d384
commit 2dccdced72
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/C0CCCR.m
View File

@ -34,7 +34,7 @@ XPAT(DFN,XPARMS,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
N CCRGLO,UDIR,UFN N CCRGLO,UDIR,UFN
I '$D(DIR) S UDIR="" I '$D(DIR) S UDIR=""
E S UDIR=DIR E S UDIR=DIR
I '$D(FN) S UFN="" I '$D(FN) S UFN="" ; IF FILENAME IS NOT PASSED
E S UFN=FN E S UFN=FN
I '$D(XPARMS) S XPARMS="" I '$D(XPARMS) S XPARMS=""
D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR") D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR")