DGVPR.m

DGVPR ;ALB/MRL - DG PRE-INIT DRIVER ; 05 JUN 87

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

 ;

EN ;begin initialization routine

 S XQABT3=$H

 Q:'DGVCUR  ;if installing fresh, skip pre-init

 S DGVFLD=100 D TIME1 ; set start time for DGINIT

 D DD

 D LINE^DGVPP,SAV^DGVPR1("DG")

 D EN^DGV53PR

 D LINE^DGVPP

 S DGVFLD=101 D TIME

ENQ Q

 ;

TIME ; -- stuff start and end times

 ;Q:DGVCUR=DGVNEW&(SDVCUR=DGVNEW)  D H^DGUTL

 D H^DGUTL

TIME1 ; -- DGTIME defined

 S X=DGVREL,DIC="^DG(48,",DIC(0)="M" D ^DIC K DIC

 I Y>0 S DA=+Y,DIE="^DG(48,",DR=DGVFLD_"////"_DGTIME D ^DIE

 K DGVFLD,DE,DQ,DIE,DR

 Q

 ;

DD ;Kill 405.2 with data per fileman problem

 S DIU=405.2,DIU(0)="D" D EN^DIU2

 K DIU

 Q

DGVPR     ;ALB/MRL - DG PRE-INIT DRIVER ; 05 JUN 87

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

 +2       ;

EN        ;begin initialization routine

 +1        SET XQABT3=$HOROLOG

 +2       ;if installing fresh, skip pre-init

           IF 'DGVCUR

               QUIT 

 +3       ; set start time for DGINIT

           SET DGVFLD=100

           DO TIME1

 +4        DO DD

 +5        DO LINE^DGVPP

           DO SAV^DGVPR1("DG")

 +6        DO EN^DGV53PR

 +7        DO LINE^DGVPP

 +8        SET DGVFLD=101

           DO TIME

ENQ        QUIT 

 +1       ;

TIME      ; -- stuff start and end times

 +1       ;Q:DGVCUR=DGVNEW&(SDVCUR=DGVNEW)  D H^DGUTL

 +2        DO H^DGUTL

TIME1     ; -- DGTIME defined

 +1        SET X=DGVREL

           SET DIC="^DG(48,"

           SET DIC(0)="M"

           DO ^DIC

           KILL DIC

 +2        IF Y>0

               SET DA=+Y

               SET DIE="^DG(48,"

               SET DR=DGVFLD_"////"_DGTIME

               DO ^DIE

 +3        KILL DGVFLD,DE,DQ,DIE,DR

 +4        QUIT 

 +5       ;

DD        ;Kill 405.2 with data per fileman problem

 +1        SET DIU=405.2

           SET DIU(0)="D"

           DO EN^DIU2

 +2        KILL DIU

 +3        QUIT