DPTZZ.m

DPTZZ ; IHS/DSD/ENM - OUTPATIENT ENVIRONMENT CHECK [ 05/13/1999  2:45 PM ]

 ;;5.0;PATIENT FILE;**1**;MAY 13, 1999

EP ;ENTRY POINT

 S DGVCUR=4.2,DGVREQ=4.2,DGVREL=5,DGVNEW=5,SDVCUR=3.62

 Q

DPTZZ     ; IHS/DSD/ENM - OUTPATIENT ENVIRONMENT CHECK [ 05/13/1999  2:45 PM ]

 +1       ;;5.0;PATIENT FILE;**1**;MAY 13, 1999

EP        ;ENTRY POINT

 +1        SET DGVCUR=4.2

           SET DGVREQ=4.2

           SET DGVREL=5

           SET DGVNEW=5

           SET SDVCUR=3.62

 +2        QUIT