- DGYXPT ;ALB/REW - DG Post-Init Driver for 10/1 Maintenance Patch ; 6/14/94
- ;;5.3;Registration;**66,1015**;Aug 13, 1993;Build 21
- ;
- 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
- 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
- +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