31 lines
985 B
Mathematica
31 lines
985 B
Mathematica
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
|