DPTVPR.m

DPTVPR ;alb/mjk - Patient File Specific Init Driver ; 3/26/93

 ;;5.3;Patient File;;Aug 13, 1993

 ;

EN ; -- main entry point

 S XQABT3=$H

 D H^DGUTL

 S DPTIME(104)=DGTIME D H^DGUTL S DPTIME(105)=DGTIME

 D EN^DPTV53PR

ENQ Q

DPTVPR    ;alb/mjk - Patient File Specific Init Driver ; 3/26/93

 +1       ;;5.3;Patient File;;Aug 13, 1993

 +2       ;

EN        ; -- main entry point

 +1        SET XQABT3=$HOROLOG

 +2        DO H^DGUTL

 +3        SET DPTIME(104)=DGTIME

           DO H^DGUTL

           SET DPTIME(105)=DGTIME

 +4        DO EN^DPTV53PR

ENQ        QUIT