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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDPTVPR 231 printed Nov 22, 2024@18:11:06 Page 2
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
