Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
748 bytes
|
Rev | Line | |
---|
[613] | 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.