Vitals Date Range support

This commit is contained in:
george 2009-02-26 22:42:29 +00:00
parent a5c3cc42af
commit bcbcd82558
2 changed files with 94855 additions and 1 deletions

94854
p/C0C_1_0_18_T1_CACHE.KID Normal file

File diff suppressed because it is too large Load Diff

View File

@ -39,7 +39,7 @@ XPAT(DFN,XPARMS,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR")
S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
S ONAM=UFN
I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_17.xml"
I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_18.xml"
S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
I '$D(@ODIRGLB) D ; IF NOT ODIR HAS BEEN SET
. ;S @ODIRGLB="/home/glilly/CCROUT"