|
Last change
on this file since 1093 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
748 bytes
|
| Line | |
|---|
| 1 | DGPTCR1 ;ALB/MJK - Census Worklist Re-gen(cont) ; 15 APR 90
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ALL ; -- regen all for all census'
|
|---|
| 5 | F DGCN=0:0 S DGCN=$O(^DG(45.86,DGCN)) Q:'DGCN I $D(^(DGCN,0)) S DGCDT=+^(0)_".9",DGFIRST=0 D REGEN^DGPTCR
|
|---|
| 6 | K DGCN,DGCDT Q
|
|---|
| 7 | ;
|
|---|
| 8 | QUEALL ; -- queue regen of all census' workfile (used by v5 conversion cleanup)
|
|---|
| 9 | W !,">>>CENSUS WORKFILE Regeneration..."
|
|---|
| 10 | W !?2,"Please specify when to start CENSUS WORKFILE regeneration."
|
|---|
| 11 | W !?2,"Regeneration will take 2-4 hours and should be done during"
|
|---|
| 12 | W !?2,"off peak hours.",!
|
|---|
| 13 | S ZTSAVE("DGPTCV5")=1,ZTRTN="ALL^DGPTCR1",ZTIO="",ZTDESC="Regenerating ALL CENSUS WORKFILES" D ^%ZTLOAD
|
|---|
| 14 | W:$D(ZTSK) !,"Regeneration has been queued. (Task #",ZTSK,")"
|
|---|
| 15 | K ZTSAVE,ZTSK,ZTIO,ZTRTN,ZTDESC Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
