DPTVPP ;alb/mjk - Patient File Pre-Init Driver; 3/26/93
;;5.3;Patient File;;Aug 13, 1993
;
EN ; -- main entry point
S XQABT1=$H
D USER^DGVPP,VERS^DGVPP:$D(DIFQ),ROU^DGVPP:$D(DIFQ)
I $D(DIFQ) D EN^DPTV53PP
S XQABT2=$H
ENQ Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDPTVPP 238 printed Dec 13, 2024@03:01:06 Page 2
DPTVPP ;alb/mjk - Patient File Pre-Init Driver; 3/26/93
+1 ;;5.3;Patient File;;Aug 13, 1993
+2 ;
EN ; -- main entry point
+1 SET XQABT1=$HOROLOG
+2 DO USER^DGVPP
if $DATA(DIFQ)
DO VERS^DGVPP
if $DATA(DIFQ)
DO ROU^DGVPP
+3 IF $DATA(DIFQ)
DO EN^DPTV53PP
+4 SET XQABT2=$HOROLOG
ENQ QUIT
