source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTCR1.m@ 1540

Last change on this file since 1540 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 748 bytes
Line 
1DGPTCR1 ;ALB/MJK - Census Worklist Re-gen(cont) ; 15 APR 90
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4ALL ; -- 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 ;
8QUEALL ; -- 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.