- 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 Jan 18, 2025@04:01:47 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