|
Last change
on this file since 1580 was 1544, checked in by Sam Habiel, 12 years ago |
|
Merged Routines in OHUM branch back in main tree
|
|
File size:
602 bytes
|
| Line | |
|---|
| 1 | C0CSQMB ; SQMCCR/ELN - BATCH PROGRAM ;16/11/2010
|
|---|
| 2 | ;;1.2;C0C;;May 11, 2012;Build 47
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;Traverse the DPT global and export CCR xml for each DFN
|
|---|
| 5 | ;and write to directory set in ^TMP("C0CCCR","ODIR")=
|
|---|
| 6 | ;
|
|---|
| 7 | I '$D(DUZ) Q
|
|---|
| 8 | S U="^",DT=$$DT^XLFDT
|
|---|
| 9 | D DUZ^XUP(DUZ)
|
|---|
| 10 | ; Get the output directory and filename prefix from env
|
|---|
| 11 | S ^TMP("C0CCCR","ODIR")=$ZTRNLNM("ccrodir")
|
|---|
| 12 | S ^TMP("C0CCCR","OFNP")=$ZTRNLNM("ccrofnprefix")
|
|---|
| 13 | N ZDFN
|
|---|
| 14 | ;F ZDFN=0:0 S ZDFN=$O(^DPT(ZDFN)) Q:'ZDFN!((ZDFN="+1,")!(ZDFN>10)) D
|
|---|
| 15 | F ZDFN=0:0 S ZDFN=$O(^DPT(ZDFN)) Q:'ZDFN!(ZDFN="+1,") D
|
|---|
| 16 | . ;I ZDFN<350 S ZDFN=349
|
|---|
| 17 | . D XPAT^C0CCCR(ZDFN)
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
