Routine: DPTVPT

DPTVPT ;alb/mjk - Patient File Post-Init Driver ; 3/26/93

 ;;5.3;Patient File;;Aug 13, 1993

EN ; entry point

 S XQABT4=$H

 D EN^DPTV53PT

 D H^DGUTL S DPTIME(106)=DGTIME D H^DGUTL S DPTIME(107)=DGTIME

 I DGVCUR'=DGVNEW,$D(^DG(48,+DGVREL,0)) S DIE="^DG(48,",DA=+DGVREL,DR="104////"_DPTIME(104)_";105////"_DPTIME(105)_";106////"_DPTIME(106)_";107////"_DPTIME(107) D ^DIE K DIC,DIE,DR,DA,Y,DPTIME,DGTIME

 S XQABT5=$H

 S X="DPTINITY" X ^%ZOSF("TEST") I $T D ^DPTINITY

 W !!,*7,">>> Initialization of Version ",DGVNEWVR," of DPT Complete."

ENQ G Q^DGVPP

DPTVPT    ;alb/mjk - Patient File Post-Init Driver ; 3/26/93

 +1       ;;5.3;Patient File;;Aug 13, 1993

 +2       ;

EN        ; entry point

 +1        SET XQABT4=$HOROLOG

 +2        DO EN^DPTV53PT

 +3        DO H^DGUTL

           SET DPTIME(106)=DGTIME

           DO H^DGUTL

           SET DPTIME(107)=DGTIME

 +4        IF DGVCUR'=DGVNEW

               IF $DATA(^DG(48,+DGVREL,0))

                   SET DIE="^DG(48,"

                   SET DA=+DGVREL

                   SET DR="104////"_DPTIME(104)_";105////"_DPTIME(105)_";106////"_DPTIME(106)_";107////"_DPTIME(107)

                   DO ^DIE

                   KILL DIC,DIE,DR,DA,Y,DPTIME,DGTIME

 +5        SET XQABT5=$HOROLOG

 +6        SET X="DPTINITY"

           XECUTE ^%ZOSF("TEST")

           IF $TEST

               DO ^DPTINITY

 +7        WRITE !!,*7,">>> Initialization of Version ",DGVNEWVR," of DPT Complete."

ENQ        GOTO Q^DGVPP

DPTVPT.m