|
Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
985 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
