DPTVPP.m

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

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