DGPTCR1 ;ALB/MJK - Census Worklist Re-gen(cont) ; 15 APR 90
;;5.3;Registration;;Aug 13, 1993
;
ALL ; -- regen all for all census'
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
K DGCN,DGCDT Q
;
QUEALL ; -- queue regen of all census' workfile (used by v5 conversion cleanup)
W !,">>>CENSUS WORKFILE Regeneration..."
W !?2,"Please specify when to start CENSUS WORKFILE regeneration."
W !?2,"Regeneration will take 2-4 hours and should be done during"
W !?2,"off peak hours.",!
S ZTSAVE("DGPTCV5")=1,ZTRTN="ALL^DGPTCR1",ZTIO="",ZTDESC="Regenerating ALL CENSUS WORKFILES" D ^%ZTLOAD
W:$D(ZTSK) !,"Regeneration has been queued. (Task #",ZTSK,")"
K ZTSAVE,ZTSK,ZTIO,ZTRTN,ZTDESC Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPTCR1 763 printed Oct 16, 2024@18:52:28 Page 2
DGPTCR1 ;ALB/MJK - Census Worklist Re-gen(cont) ; 15 APR 90
+1 ;;5.3;Registration;;Aug 13, 1993
+2 ;
ALL ; -- regen all for all census'
+1 FOR DGCN=0:0
SET DGCN=$ORDER(^DG(45.86,DGCN))
if 'DGCN
QUIT
IF $DATA(^(DGCN,0))
SET DGCDT=+^(0)_".9"
SET DGFIRST=0
DO REGEN^DGPTCR
+2 KILL DGCN,DGCDT
QUIT
+3 ;
QUEALL ; -- queue regen of all census' workfile (used by v5 conversion cleanup)
+1 WRITE !,">>>CENSUS WORKFILE Regeneration..."
+2 WRITE !?2,"Please specify when to start CENSUS WORKFILE regeneration."
+3 WRITE !?2,"Regeneration will take 2-4 hours and should be done during"
+4 WRITE !?2,"off peak hours.",!
+5 SET ZTSAVE("DGPTCV5")=1
SET ZTRTN="ALL^DGPTCR1"
SET ZTIO=""
SET ZTDESC="Regenerating ALL CENSUS WORKFILES"
DO ^%ZTLOAD
+6 if $DATA(ZTSK)
WRITE !,"Regeneration has been queued. (Task #",ZTSK,")"
+7 KILL ZTSAVE,ZTSK,ZTIO,ZTRTN,ZTDESC
QUIT
