source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGYXPT.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 720 bytes
Line 
1DGYXPT ;ALB/REW - DG Post-Init Driver for 10/1 Maintenance Patch ; 6/14/94
2 ;;5.3;Registration;**66**;Aug 13, 1993
3 ;
4EN ; -- main entry point
5 D HOME^%ZIS
6 D LINE^DGVPP,EN^DGYXCEN ; New entry to PTF CENSUS DATE File (#45.86)
7 D LINE^DGVPP
8 D ENDTIME
9ENQ Q
10 ;
11 ;
12ENDTIME ; -get stop time
13 D NOW^%DTC S DGEDT=$H W !!,">>> Initialization Complete at " S Y=% D DT^DIQ
14 I $D(DGBDT) D
15 .S DGDAY=+DGEDT-(+DGBDT)*86400 ;additional seconds of over midnight
16 .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"
17 K DGBDT,DGEDT,DGDAY,X
18 D MSG Q
19 ;
20MSG ; -- print message at end
21 W !!,?2,"You may delete DGYX* routines now."
22 Q
Note: See TracBrowser for help on using the repository browser.