DGYKPT ;ALB/REW - DG Post-Init Driver for 10/1 Maintenance Patch ; 6/14/94
;;5.3;Registration;**31**;Aug 13, 1993
;
EN ; -- main entry point
D HOME^%ZIS
D LINE^DGVPP,EN^DGYKCEN ; New entry to PTF CENSUS DATE File (#45.86)
D LINE^DGVPP,EN^DGYKREL ; Religion File (#13) Update
D LINE^DGVPP
D ENDTIME
ENQ Q
;
;
ENDTIME ; -get stop time
D NOW^%DTC S DGEDT=$H W !!,">>> Initialization Complete at " S Y=% D DT^DIQ
I $D(DGBDT) D
.S DGDAY=+DGEDT-(+DGBDT)*86400 ;additional seconds of over midnight
.S X=DGDAY+$P(DGEDT,",",2)-$P(DGBDT,",",2) W !," Elapse time for initialization was: ",X\3600," Hours, ",X\60-(X\3600*60)," Minutes, ",X#60," Seconds"
K DGBDT,DGEDT,DGDAY,X
D MSG Q
;
MSG ; -- print message at end
W !!,?2,"Remember to recompile the DG701 Input Template using ^DIEZ on all systems."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYKPT 837 printed Dec 13, 2024@03:00:12 Page 2
DGYKPT ;ALB/REW - DG Post-Init Driver for 10/1 Maintenance Patch ; 6/14/94
+1 ;;5.3;Registration;**31**;Aug 13, 1993
+2 ;
EN ; -- main entry point
+1 DO HOME^%ZIS
+2 ; New entry to PTF CENSUS DATE File (#45.86)
DO LINE^DGVPP
DO EN^DGYKCEN
+3 ; Religion File (#13) Update
DO LINE^DGVPP
DO EN^DGYKREL
+4 DO LINE^DGVPP
+5 DO ENDTIME
ENQ QUIT
+1 ;
+2 ;
ENDTIME ; -get stop time
+1 DO NOW^%DTC
SET DGEDT=$HOROLOG
WRITE !!,">>> Initialization Complete at "
SET Y=%
DO DT^DIQ
+2 IF $DATA(DGBDT)
Begin DoDot:1
+3 ;additional seconds of over midnight
SET DGDAY=+DGEDT-(+DGBDT)*86400
+4 SET X=DGDAY+$PIECE(DGEDT,",",2)-$PIECE(DGBDT,",",2)
WRITE !," Elapse time for initialization was: ",X\3600," Hours, ",X\60-(X\3600*60)," Minutes, ",X#60," Seconds"
End DoDot:1
+5 KILL DGBDT,DGEDT,DGDAY,X
+6 DO MSG
QUIT
+7 ;
MSG ; -- print message at end
+1 WRITE !!,?2,"Remember to recompile the DG701 Input Template using ^DIEZ on all systems."
+2 QUIT
