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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBHS1 1050 printed Oct 16, 2024@17:59:54 Page 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 ;
