DGPTCR1.m

DGPTCR1 ;ALB/MJK - Census Worklist Re-gen(cont) ; 15 APR 90

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

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

DGPTCR1   ;ALB/MJK - Census Worklist Re-gen(cont) ; 15 APR 90

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +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