Last change
on this file since 1789 was 1586, checked in by Sam Habiel, 12 years ago |
Changed license to AGPL. Some clean-up for XINDEX
|
File size:
1.3 KB
|
Rev | Line | |
---|
[1544] | 1 | C0CSQMB ; SQMCCR/ELN - BATCH PROGRAM ;16/11/2010
|
---|
[1586] | 2 | ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
|
---|
| 3 | ; (C) 2010 ELN
|
---|
[1544] | 4 | ;
|
---|
[1586] | 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 | ;
|
---|
[1544] | 18 | EN ;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.