source: ccr/trunk/p/C0CSQMB.m@ 1638

Last change on this file since 1638 was 1586, checked in by Sam Habiel, 12 years ago

Changed license to AGPL. Some clean-up for XINDEX

File size: 1.3 KB
Line 
1C0CSQMB ; SQMCCR/ELN - BATCH PROGRAM ;16/11/2010
2 ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
3 ; (C) 2010 ELN
4 ;
5 ; This program is free software: you can redistribute it and/or modify
6 ; it under the terms of the GNU Affero General Public License as
7 ; published by the Free Software Foundation, either version 3 of the
8 ; License, or (at your option) any later version.
9 ;
10 ; This program is distributed in the hope that it will be useful,
11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 ; GNU Affero General Public License for more details.
14 ;
15 ; You should have received a copy of the GNU Affero General Public License
16 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
17 ;
18EN ;Traverse the DPT global and export CCR xml for each DFN
19 ;and write to directory set in ^TMP("C0CCCR","ODIR")=
20 ;
21 I '$D(DUZ) Q
22 S U="^",DT=$$DT^XLFDT
23 D DUZ^XUP(DUZ)
24 ; Get the output directory and filename prefix from env
25 S ^TMP("C0CCCR","ODIR")=$ZTRNLNM("ccrodir")
26 S ^TMP("C0CCCR","OFNP")=$ZTRNLNM("ccrofnprefix")
27 N ZDFN
28 ;F ZDFN=0:0 S ZDFN=$O(^DPT(ZDFN)) Q:'ZDFN!((ZDFN="+1,")!(ZDFN>10)) D
29 F ZDFN=0:0 S ZDFN=$O(^DPT(ZDFN)) Q:'ZDFN!(ZDFN="+1,") D
30 . ;I ZDFN<350 S ZDFN=349
31 . D XPAT^C0CCCR(ZDFN)
32 Q
33 ;
Note: See TracBrowser for help on using the repository browser.