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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDPTVPT 563 printed Dec 13, 2024@03:01:08 Page 2
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
