Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGYXPT

DGYXPT.m

Go to the documentation of this file.
  1. DGYXPT ;ALB/REW - DG Post-Init Driver for 10/1 Maintenance Patch ; 6/14/94
  1. ;;5.3;Registration;**66,1015**;Aug 13, 1993;Build 21
  1. ;
  1. EN ; -- main entry point
  1. D HOME^%ZIS
  1. D LINE^DGVPP,EN^DGYXCEN ; New entry to PTF CENSUS DATE File (#45.86)
  1. D LINE^DGVPP
  1. D ENDTIME
  1. ENQ Q
  1. ;
  1. ;
  1. ENDTIME ; -get stop time
  1. D NOW^%DTC S DGEDT=$H W !!,">>> Initialization Complete at " S Y=% D DT^DIQ
  1. I $D(DGBDT) D
  1. .S DGDAY=+DGEDT-(+DGBDT)*86400 ;additional seconds of over midnight
  1. .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"
  1. K DGBDT,DGEDT,DGDAY,X
  1. D MSG Q
  1. ;
  1. MSG ; -- print message at end
  1. W !!,?2,"You may delete DGYX* routines now."
  1. Q