source: FOIAVistA/tag/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHS1.m@ 1424

Last change on this file since 1424 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1023 bytes
Line 
1DVBHS1 ;ALB/JLU;Print screen for screen 1;1/24/92
2 ;;V4.0;HINQ;**11**;03/25/92
3 ;
4 N Y
5 K DVBX(1)
6 F LP2=.111,.112,.113,.114,.115,.116,.117,.1112 S X="DVBDIQ(2,"_DFN_","_LP2_")" K @X
7 I $D(X(1)) S DVBX(1)=X(1)
8 S DIC="^DPT(",DA=DFN,DIQ(0)="E",DIQ="DVBDIQ("
9 S DR=".111;.112;.113;.114;.115;.116;.117;.1112"
10 D EN^DIQ1
11 I $D(DVBX(1)) S X(1)=DVBX(1) K DVBX(1)
12 ;
13 S DVBSCRN=1 D SCRHD^DVBHUTIL
14 S DVBJS=11
15 K Y
16 W !,DVBON,"[1]",DVBOFF X DVBLIT1
17 W ?5,"Address: ",DVBDIQ(2,DFN,.111,"E") I $D(DVBADR(1)) W ?49,DVBADR(1)
18 W !,?14,DVBDIQ(2,DFN,.112,"E") I $D(DVBADR(2)) W ?49,DVBADR(2)
19 W !,?14,DVBDIQ(2,DFN,.113,"E") I $D(DVBADR(3)) W ?49,DVBADR(3)
20 W !,?5," City: ",?14,DVBDIQ(2,DFN,.114,"E") I $D(DVBADR(4)) W ?49,DVBADR(4)
21 W !,?5," State: ",?14,DVBDIQ(2,DFN,.115,"E") I $D(DVBADR(5)) W ?49,DVBADR(5)
22 I $D(DVBADR(6)) W !,?49,DVBADR(6)
23 W !,?5," ZIP+4: ",?14,DVBDIQ(2,DFN,.1112,"E")
24 W !,?5," Zip: ",?14,DVBDIQ(2,DFN,.116,"E") I $D(DVBZIP),DVBZIP'?9" " W ?49,DVBZIP
25 W !,?5," County: ",?14,DVBDIQ(2,DFN,.117,"E")
26 Q
27 ;
Note: See TracBrowser for help on using the repository browser.