DGVPTDV2.m

DGVPTDV2 ;alb/mjk - DVBHS1 for export with PIMS v5.3; 4/21/93

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

DVBHS1 ;ALB/JLU;Print screen for screen 1;1/24/92

 ;;V4.0;HINQ;**11**;03/25/92 

 ;

 N Y

 K DVBX(1)

 F LP2=.111,.112,.113,.114,.115,.116,.117,.1112 S X="DVBDIQ(2,"_DFN_","_LP2_")" K @X

 I $D(X(1)) S DVBX(1)=X(1)

 S DIC="^DPT(",DA=DFN,DIQ(0)="E",DIQ="DVBDIQ("

 S DR=".111;.112;.113;.114;.115;.116;.117;.1112"

 D EN^DIQ1

 I $D(DVBX(1)) S X(1)=DVBX(1) K DVBX(1)

 ;

 S DVBSCRN=1 D SCRHD^DVBHUTIL

 S DVBJS=11

 K Y

 W !,DVBON,"[1]",DVBOFF X DVBLIT1

 W ?5,"Address: ",DVBDIQ(2,DFN,.111,"E") I $D(DVBADR(1)) W ?49,DVBADR(1)

 W !,?14,DVBDIQ(2,DFN,.112,"E") I $D(DVBADR(2)) W ?49,DVBADR(2)

 W !,?14,DVBDIQ(2,DFN,.113,"E") I $D(DVBADR(3)) W ?49,DVBADR(3)

 W !,?5,"   City: ",?14,DVBDIQ(2,DFN,.114,"E") I $D(DVBADR(4)) W ?49,DVBADR(4)

 W !,?5,"  State: ",?14,DVBDIQ(2,DFN,.115,"E") I $D(DVBADR(5)) W ?49,DVBADR(5)

 I $D(DVBADR(6)) W !,?49,DVBADR(6)

 W !,?5,"  ZIP+4: ",?14,DVBDIQ(2,DFN,.1112,"E")

 W !,?5,"    Zip: ",?14,DVBDIQ(2,DFN,.116,"E") I $D(DVBZIP),DVBZIP'?9" " W ?49,DVBZIP

 W !,?5," County: ",?14,DVBDIQ(2,DFN,.117,"E")

 Q

 ;

DGVPTDV2  ;alb/mjk - DVBHS1 for export with PIMS v5.3; 4/21/93

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

DVBHS1    ;ALB/JLU;Print screen for screen 1;1/24/92

 +1       ;;V4.0;HINQ;**11**;03/25/92 

 +2       ;

 +3        NEW Y

 +4        KILL DVBX(1)

 +5        FOR LP2=.111,.112,.113,.114,.115,.116,.117,.1112

               SET X="DVBDIQ(2,"_DFN_","_LP2_")"

               KILL @X

 +6        IF $DATA(X(1))

               SET DVBX(1)=X(1)

 +7        SET DIC="^DPT("

           SET DA=DFN

           SET DIQ(0)="E"

           SET DIQ="DVBDIQ("

 +8        SET DR=".111;.112;.113;.114;.115;.116;.117;.1112"

 +9        DO EN^DIQ1

 +10       IF $DATA(DVBX(1))

               SET X(1)=DVBX(1)

               KILL DVBX(1)

 +11      ;

 +12       SET DVBSCRN=1

           DO SCRHD^DVBHUTIL

 +13       SET DVBJS=11

 +14       KILL Y

 +15       WRITE !,DVBON,"[1]",DVBOFF

           XECUTE DVBLIT1

 +16       WRITE ?5,"Address: ",DVBDIQ(2,DFN,.111,"E")

           IF $DATA(DVBADR(1))

               WRITE ?49,DVBADR(1)

 +17       WRITE !,?14,DVBDIQ(2,DFN,.112,"E")

           IF $DATA(DVBADR(2))

               WRITE ?49,DVBADR(2)

 +18       WRITE !,?14,DVBDIQ(2,DFN,.113,"E")

           IF $DATA(DVBADR(3))

               WRITE ?49,DVBADR(3)

 +19       WRITE !,?5,"   City: ",?14,DVBDIQ(2,DFN,.114,"E")

           IF $DATA(DVBADR(4))

               WRITE ?49,DVBADR(4)

 +20       WRITE !,?5,"  State: ",?14,DVBDIQ(2,DFN,.115,"E")

           IF $DATA(DVBADR(5))

               WRITE ?49,DVBADR(5)

 +21       IF $DATA(DVBADR(6))

               WRITE !,?49,DVBADR(6)

 +22       WRITE !,?5,"  ZIP+4: ",?14,DVBDIQ(2,DFN,.1112,"E")

 +23       WRITE !,?5,"    Zip: ",?14,DVBDIQ(2,DFN,.116,"E")

           IF $DATA(DVBZIP)

               IF DVBZIP'?9" "

                   WRITE ?49,DVBZIP

 +24       WRITE !,?5," County: ",?14,DVBDIQ(2,DFN,.117,"E")

 +25       QUIT 

 +26      ;