DGYXPT.m

DGYXPT ;ALB/REW - DG Post-Init Driver for 10/1 Maintenance Patch ; 6/14/94

 ;;5.3;Registration;**66**;Aug 13, 1993

 ;

EN ; -- main entry point

 D HOME^%ZIS

 D LINE^DGVPP,EN^DGYXCEN ; New entry to PTF CENSUS DATE File (#45.86)

 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,"You may delete DGYX* routines now."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGYXPT   742     printed  Apr 09, 2024@21:46:01                                                                                                                                                                                                       Page 2

DGYXPT    ;ALB/REW - DG Post-Init Driver for 10/1 Maintenance Patch ; 6/14/94

 +1       ;;5.3;Registration;**66**;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^DGYXCEN

 +3        DO LINE^DGVPP

 +4        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,"You may delete DGYX* routines now."

 +2        QUIT