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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOQTIU4 1015 printed Dec 13, 2024@02:33:22 Page 2
PSOQTIU4 ;VAPA/ELZ - tiu utility routine ; 30 Nov 2007 8:01 AM
+1 ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
+2 ;
+3 ;
PHONE(DFN) ; -- entry point for pt's home phone number
+1 NEW VAPA
+2 DO ADD^VADPT
+3 QUIT VAPA(8)
+4 ;
ADDRESS(DFN,TARGET) ; -- entry point for pt's home address
+1 NEW LINE,DA,VAPA
+2 KILL @TARGET
SET LINE=0
+3 DO ADD^VADPT
+4 FOR DA=1:1:3
Begin DoDot:1
+5 if VAPA(DA)=""
QUIT
+6 SET LINE=LINE+1
+7 SET @TARGET@(LINE,0)=VAPA(DA)
+8 WRITE "."
End DoDot:1
+9 SET LINE=LINE+1
SET @TARGET@(LINE,0)=VAPA(4)_", "_$PIECE(VAPA(5),U,2)_" "_VAPA(6)
+10 ;dc-3/18/98
IF VAPA(9)'=""
SET LINE=LINE+1
SET @TARGET@(LINE,0)="Temporary Address Start: "_$PIECE(VAPA(9),U,2)
+11 ;dc-3/18/98
IF VAPA(10)'=""
SET LINE=LINE+1
SET @TARGET@(LINE,0)="Temporary Address Stop: "_$PIECE(VAPA(10),U,2)
+12 SET @TARGET@(0)="^^"_LINE_"^"_LINE_"^"_DT_"^^"
+13 QUIT "~@"_$NAME(@TARGET)
+14 ;
NEXTAPPT(DFN) ; -- entry point for next scheduled appointment
+1 NEW INFO
+2 DO SDA^VADPT
+3 SET INFO=$SELECT($DATA(^UTILITY("VASD",$JOB,1,"E")):$PIECE(^("E"),U)_" "_$PIECE(^("E"),U,2),1:"No Future Appointments Scheduled")
+4 KILL ^UTILITY("VASD",$JOB)
+5 QUIT INFO
