DGVPT ;ALB/MRL - DG POST-INIT DRIVER ; 05 JUN 87
;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
;
EN ; -- main entry point
S XQABT4=$H
I '$D(DGVREL) D VERS^DGVPP G ENQ:'$D(DGVREL)
S DGVFLD=102 D TIME^DGVPR
;
D LINE^DGVPP,EVTS ; protocols
D LINE^DGVPP,LISTS ; list templates
D EN^DGV53PT ; current version specific tasks
D LINE^DGVPP,TASKS ; restore queued times
D LINE^DGVPP,STAN ; std output defaults
D LINE^DGVPP,^DGVPT2 ; file protection
D LINE^DGVPP,COMP^DGVPT3 ; re-compile note
D LINE^DGVPP,OBS ; obsolete routine note
D LINE^DGVPP,CENSUS ; annual PTF census dates
; -- delete options
S DGPACK="DG" D LINE^DGVPP,^DGVPT1
S DGPACK="VA" D ^DGVPT1
S DGPACK="EDR" D ^DGVPT1
;
S DGVFLD=103 D TIME^DGVPR S ^DG(43,1,"VERSION")=DGVNEW
S XQABT5=$H
S X="DGINITY" X ^%ZOSF("TEST") I $T D ^DGINITY
W !!,*7,">>> Initialization of Version ",DGVNEWVR," of DG Complete."
W !!,"After you've been up and running for about a week or so we would appreciate"
W !,"it if you would utilize the 'Transmit/Generate Release Comments' option"
W !,"of the PIMS package to provide us with your (and your users) initial"
W !,"impression of this release. Thank you.",!!
ENQ G Q^DGVPP
;
EVTS ;Move DG Options to Protocol File
S X="" D ^DGONIT
Q
;
LISTS ; -- load list templates
W !!,">>> List Template installation..."
D ^DGVLT
Q
;
TASKS ; -- requeue tasked jobs
I $O(DGTJ(0))'="" W !!,">>> Restoring queued jobs to original state...",! S DGEDIT=1 D RES^DGVPR1 K DGTJ
K DA,DGI,DIC,DIE,DR,X,Y,DGEDIT
Q
;
STAN ;Set-up standard output template defaults
W !!,">>> Setting standard output template defaults...",! D STAN^DGTEMP
Q
;
;
OBS ;List Obsolete Routines
Q:'$O(^DG(48,DGVREL,"DR",0))
W !!,">>> The following routines are considered obsolete with this release and may",!?4,"be removed from your system when time permits. They are no longer",!?4,"supported by the development ISC.",!!?4
S C=0 F I=0:0 S I=$O(^DG(48,DGVREL,"DR",I)) Q:'I S X=$P(^(I,0),"^",1),X=$E(X_" ",1,10),C=C+1 W:'(C#7) !?4 W X
W !!,"NOTE: If you would like to have the module automatically delete these routines,",!?7,"you can call DEL^DGVPT1 after initialization of this version is",!?7,"completed."
Q
;
CENSUS ;--- add new census date
; These dates should be update each year per MAS VACO.
;
N CENDATE,CLOSDATE,OKTOXM,ACTIVE,CPSTART
;
;-- ALL DATES ARE FOR '93 CENSUS
;
;-- Census Date 9-30-93
S CENDATE=2930930
;-- Close-out Date 11-1-93
S CLOSDATE=2931101
;-- ok to x-mit PTF date 11-22-93
S OKTOXM=2931122
;-- currently active
S ACTIVE=1
;-- Census Period Start Date 10-1-92
S CPSTART=2921001
;
W !!,">>> Updating Census Dates..."
;
S X=$O(^DG(45.86,"AC",0)) I X S X=$O(^DG(45.86,"AC",X,0)),DIE="^DG(45.86,",DA=X,DR=".04////0" D ^DIE K DIE,DR,DA
S DIC="^DG(45.86,",X=CENDATE,DIC(0)="L" K DD,DO D ^DIC K DIC
S DIE="^DG(45.86,",DA=+Y,DR=".02////"_CLOSDATE_";.03////"_OKTOXM_";.04////"_ACTIVE_";.05////"_CPSTART
D ^DIE K DIE,DR,DA
;
W "Done."
Q
;
DGVPT ;ALB/MRL - DG POST-INIT DRIVER ; 05 JUN 87
+1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
+2 ;
EN ; -- main entry point
+1 SET XQABT4=$HOROLOG
+2 IF '$DATA(DGVREL)
DO VERS^DGVPP
IF '$DATA(DGVREL)
GOTO ENQ
+3 SET DGVFLD=102
DO TIME^DGVPR
+4 ;
+5 ; protocols
DO LINE^DGVPP
DO EVTS
+6 ; list templates
DO LINE^DGVPP
DO LISTS
+7 ; current version specific tasks
DO EN^DGV53PT
+8 ; restore queued times
DO LINE^DGVPP
DO TASKS
+9 ; std output defaults
DO LINE^DGVPP
DO STAN
+10 ; file protection
DO LINE^DGVPP
DO ^DGVPT2
+11 ; re-compile note
DO LINE^DGVPP
DO COMP^DGVPT3
+12 ; obsolete routine note
DO LINE^DGVPP
DO OBS
+13 ; annual PTF census dates
DO LINE^DGVPP
DO CENSUS
+14 ; -- delete options
+15 SET DGPACK="DG"
DO LINE^DGVPP
DO ^DGVPT1
+16 SET DGPACK="VA"
DO ^DGVPT1
+17 SET DGPACK="EDR"
DO ^DGVPT1
+18 ;
+19 SET DGVFLD=103
DO TIME^DGVPR
SET ^DG(43,1,"VERSION")=DGVNEW
+20 SET XQABT5=$HOROLOG
+21 SET X="DGINITY"
XECUTE ^%ZOSF("TEST")
IF $TEST
DO ^DGINITY
+22 WRITE !!,*7,">>> Initialization of Version ",DGVNEWVR," of DG Complete."
+23 WRITE !!,"After you've been up and running for about a week or so we would appreciate"
+24 WRITE !,"it if you would utilize the 'Transmit/Generate Release Comments' option"
+25 WRITE !,"of the PIMS package to provide us with your (and your users) initial"
+26 WRITE !,"impression of this release. Thank you.",!!
ENQ GOTO Q^DGVPP
+1 ;
EVTS ;Move DG Options to Protocol File
+1 SET X=""
DO ^DGONIT
+2 QUIT
+3 ;
LISTS ; -- load list templates
+1 WRITE !!,">>> List Template installation..."
+2 DO ^DGVLT
+3 QUIT
+4 ;
TASKS ; -- requeue tasked jobs
+1 IF $ORDER(DGTJ(0))'=""
WRITE !!,">>> Restoring queued jobs to original state...",!
SET DGEDIT=1
DO RES^DGVPR1
KILL DGTJ
+2 KILL DA,DGI,DIC,DIE,DR,X,Y,DGEDIT
+3 QUIT
+4 ;
STAN ;Set-up standard output template defaults
+1 WRITE !!,">>> Setting standard output template defaults...",!
DO STAN^DGTEMP
+2 QUIT
+3 ;
+4 ;
OBS ;List Obsolete Routines
+1 IF '$ORDER(^DG(48,DGVREL,"DR",0))
QUIT
+2 WRITE !!,">>> The following routines are considered obsolete with this release and may",!?4,"be removed from your system when time permits. They are no longer",!?4,"supported by the development ISC.",!!?4
+3 SET C=0
FOR I=0:0
SET I=$ORDER(^DG(48,DGVREL,"DR",I))
IF 'I
QUIT
SET X=$PIECE(^(I,0),"^",1)
SET X=$EXTRACT(X_" ",1,10)
SET C=C+1
IF '(C#7)
WRITE !?4
WRITE X
+4 WRITE !!,"NOTE: If you would like to have the module automatically delete these routines,",!?7,"you can call DEL^DGVPT1 after initialization of this version is",!?7,"completed."
+5 QUIT
+6 ;
CENSUS ;--- add new census date
+1 ; These dates should be update each year per MAS VACO.
+2 ;
+3 NEW CENDATE,CLOSDATE,OKTOXM,ACTIVE,CPSTART
+4 ;
+5 ;-- ALL DATES ARE FOR '93 CENSUS
+6 ;
+7 ;-- Census Date 9-30-93
+8 SET CENDATE=2930930
+9 ;-- Close-out Date 11-1-93
+10 SET CLOSDATE=2931101
+11 ;-- ok to x-mit PTF date 11-22-93
+12 SET OKTOXM=2931122
+13 ;-- currently active
+14 SET ACTIVE=1
+15 ;-- Census Period Start Date 10-1-92
+16 SET CPSTART=2921001
+17 ;
+18 WRITE !!,">>> Updating Census Dates..."
+19 ;
+20 SET X=$ORDER(^DG(45.86,"AC",0))
IF X
SET X=$ORDER(^DG(45.86,"AC",X,0))
SET DIE="^DG(45.86,"
SET DA=X
SET DR=".04////0"
DO ^DIE
KILL DIE,DR,DA
+21 SET DIC="^DG(45.86,"
SET X=CENDATE
SET DIC(0)="L"
KILL DD,DO
DO ^DIC
KILL DIC
+22 SET DIE="^DG(45.86,"
SET DA=+Y
SET DR=".02////"_CLOSDATE_";.03////"_OKTOXM_";.04////"_ACTIVE_";.05////"_CPSTART
+23 DO ^DIE
KILL DIE,DR,DA
+24 ;
+25 WRITE "Done."
+26 QUIT
+27 ;
