Changeset 134 for ccr/trunk/p/GPLCCD.m
- Timestamp:
- Sep 3, 2008, 6:26:54 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLCCD.m
r123 r134 25 25 I Y<1 Q ; EXIT 26 26 S DFN=$P(Y,U,1) ; SET THE PATIENT 27 D XPAT(DFN,"","") ; EXPORT TO A FILE 28 Q 29 ; 30 XPAT(DFN,DIR,FN) ; EXPORT ONE PATIENT TO A FILE 31 ; DIR IS THE DIRECTORY, DEFAULTS IF NULL TO ^TMP("GPLCCR","ODIR") 32 ; FN IS FILE NAME, DEFAULTS IF NULL 27 33 ; N CCDGLO 28 34 D CCDRPC(.CCDGLO,DFN,"CCD","","","") 29 35 S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCD",1)) 30 S ONAM="PAT_"_DFN_"_CCD_V1.xml" 36 S ONAM=FN 37 I FN="" S ONAM="PAT_"_DFN_"_CCD_V1.xml" 31 38 S ODIRGLB=$NA(^TMP("GPLCCR","ODIR")) 32 39 I '$D(@ODIRGLB) D ; IF NOT ODIR HAS BEEN SET … … 34 41 . ;S @ODIRGLB="/home/cedwards/" 35 42 . ;S @ODIRGLB="/opt/wv/p/" 36 S ODIR=@ODIRGLB 37 D OUTPUT^GPLXPATH(OARY,ONAM,ODIR) 43 S ODIR=DIR 44 I DIR="" S ODIR=@ODIRGLB 45 N ZY 46 S ZY=$$OUTPUT^GPLXPATH(OARY,ONAM,ODIR) 47 W $P(ZY,U,2) 38 48 Q 39 49 ; … … 49 59 ; "TO" VARIABLES 50 60 ; IF NULL WILL DEFAULT TO "FROM" ORGANIZATION AND "TO" DFN 51 S DEBUG=061 I '$D(DEBUG) S DEBUG=0 52 62 N CCD S CCD=0 ; FLAG FOR PROCESSING A CCD 53 63 I CCRPART="CCD" S CCD=1 ; WE ARE PROCESSING A CCD
Note:
See TracChangeset
for help on using the changeset viewer.