Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
985 bytes
|
Line | |
---|
1 | PSOQTIU4 ;VAPA/ELZ - tiu utility routine ; 30 Nov 2007 8:01 AM
|
---|
2 | ;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
|
---|
3 | ;
|
---|
4 | ;
|
---|
5 | PHONE(DFN) ; -- entry point for pt's home phone number
|
---|
6 | N VAPA
|
---|
7 | D ADD^VADPT
|
---|
8 | Q VAPA(8)
|
---|
9 | ;
|
---|
10 | ADDRESS(DFN,TARGET) ; -- entry point for pt's home address
|
---|
11 | N LINE,DA,VAPA
|
---|
12 | K @TARGET S LINE=0
|
---|
13 | D ADD^VADPT
|
---|
14 | F DA=1:1:3 D
|
---|
15 | . Q:VAPA(DA)=""
|
---|
16 | . S LINE=LINE+1
|
---|
17 | . S @TARGET@(LINE,0)=VAPA(DA)
|
---|
18 | . W "."
|
---|
19 | S LINE=LINE+1,@TARGET@(LINE,0)=VAPA(4)_", "_$P(VAPA(5),U,2)_" "_VAPA(6)
|
---|
20 | I VAPA(9)'="" S LINE=LINE+1,@TARGET@(LINE,0)="Temporary Address Start: "_$P(VAPA(9),U,2) ;dc-3/18/98
|
---|
21 | I VAPA(10)'="" S LINE=LINE+1,@TARGET@(LINE,0)="Temporary Address Stop: "_$P(VAPA(10),U,2) ;dc-3/18/98
|
---|
22 | S @TARGET@(0)="^^"_LINE_"^"_LINE_"^"_DT_"^^"
|
---|
23 | Q "~@"_$NA(@TARGET)
|
---|
24 | ;
|
---|
25 | NEXTAPPT(DFN) ; -- entry point for next scheduled appointment
|
---|
26 | N INFO
|
---|
27 | D SDA^VADPT
|
---|
28 | S INFO=$S($D(^UTILITY("VASD",$J,1,"E")):$P(^("E"),U)_" "_$P(^("E"),U,2),1:"No Future Appointments Scheduled")
|
---|
29 | K ^UTILITY("VASD",$J)
|
---|
30 | Q INFO
|
---|
Note:
See
TracBrowser
for help on using the repository browser.