SDVPR.m

SDVPR ;alb/mjk - SD Application Specific Init Driver ; 3/26/93

 ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 ;

EN ; -- main entry point

 S XQABT3=$H

 D H^DGUTL

 S DGVFLD=108 D TIME1^DGVPR ;insert vers specific call -- if any

 K DGTJ D LINE^DGVPP,SAV^DGVPR1("SD")

 D EN^SDV53PR

 D TIME^SDUTL S SD00=SDZ01,DGTIME=SDTIME,DGVFLD=109 D TIME1^DGVPR K SDZ01

ENQ Q

SDVPR     ;alb/mjk - SD Application Specific Init Driver ; 3/26/93

 +1       ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 +2       ;

EN        ; -- main entry point

 +1        SET XQABT3=$HOROLOG

 +2        DO H^DGUTL

 +3       ;insert vers specific call -- if any

           SET DGVFLD=108

           DO TIME1^DGVPR

 +4        KILL DGTJ

           DO LINE^DGVPP

           DO SAV^DGVPR1("SD")

 +5        DO EN^SDV53PR

 +6        DO TIME^SDUTL

           SET SD00=SDZ01

           SET DGTIME=SDTIME

           SET DGVFLD=109

           DO TIME1^DGVPR

           KILL SDZ01

ENQ        QUIT