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

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

initial load of WorldVistAEHR

File size: 814 bytes
RevLine 
[613]1DGYKPT ;ALB/REW - DG Post-Init Driver for 10/1 Maintenance Patch ; 6/14/94
2 ;;5.3;Registration;**31**;Aug 13, 1993
3 ;
4EN ; -- main entry point
5 D HOME^%ZIS
6 D LINE^DGVPP,EN^DGYKCEN ; New entry to PTF CENSUS DATE File (#45.86)
7 D LINE^DGVPP,EN^DGYKREL ; Religion File (#13) Update
8 D LINE^DGVPP
9 D ENDTIME
10ENQ Q
11 ;
12 ;
13ENDTIME ; -get stop time
14 D NOW^%DTC S DGEDT=$H W !!,">>> Initialization Complete at " S Y=% D DT^DIQ
15 I $D(DGBDT) D
16 .S DGDAY=+DGEDT-(+DGBDT)*86400 ;additional seconds of over midnight
17 .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"
18 K DGBDT,DGEDT,DGDAY,X
19 D MSG Q
20 ;
21MSG ; -- print message at end
22 W !!,?2,"Remember to recompile the DG701 Input Template using ^DIEZ on all systems."
23 Q
Note: See TracBrowser for help on using the repository browser.