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