PSOQTIU4 ;VAPA/ELZ - tiu utility routine ; 30 Nov 2007  8:01 AM
 ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
 ;
 ;
PHONE(DFN) ; -- entry point for pt's home phone number
 N VAPA
 D ADD^VADPT
 Q VAPA(8)
 ;
ADDRESS(DFN,TARGET) ; -- entry point for pt's home address
 N LINE,DA,VAPA
 K @TARGET S LINE=0
 D ADD^VADPT
 F DA=1:1:3 D
 . Q:VAPA(DA)=""
 . S LINE=LINE+1
 . S @TARGET@(LINE,0)=VAPA(DA)
 . W "."
 S LINE=LINE+1,@TARGET@(LINE,0)=VAPA(4)_", "_$P(VAPA(5),U,2)_"  "_VAPA(6)
 I VAPA(9)'="" S LINE=LINE+1,@TARGET@(LINE,0)="Temporary Address Start: "_$P(VAPA(9),U,2)  ;dc-3/18/98
 I VAPA(10)'="" S LINE=LINE+1,@TARGET@(LINE,0)="Temporary Address Stop: "_$P(VAPA(10),U,2)  ;dc-3/18/98
 S @TARGET@(0)="^^"_LINE_"^"_LINE_"^"_DT_"^^"
 Q "~@"_$NA(@TARGET)
 ;
NEXTAPPT(DFN) ; -- entry point for next scheduled appointment
 N INFO
 D SDA^VADPT
 S INFO=$S($D(^UTILITY("VASD",$J,1,"E")):$P(^("E"),U)_" "_$P(^("E"),U,2),1:"No Future Appointments Scheduled")
 K ^UTILITY("VASD",$J)
 Q INFO