Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
650 bytes
|
Rev | Line | |
---|
[628] | 1 | DGENPT ;ALB/CJM - Patient Protocols; 13 JUN 1997
|
---|
| 2 | ;;5.3;Registration;**121,147**;08/13/93
|
---|
| 3 | ;
|
---|
| 4 | PF ;Entry point for DGENPT PREFERRED FACILITY protocol
|
---|
| 5 | ; Input -- DFN Patient IEN
|
---|
| 6 | ; Output -- VALMBCK R =Refresh screen
|
---|
| 7 | S VALMBCK=""
|
---|
| 8 | D FULL^VALM1
|
---|
| 9 | D PREFER(DFN)
|
---|
| 10 | D HDR^DGENL
|
---|
| 11 | D MESSAGE^DGENL(DFN)
|
---|
| 12 | S VALMBCK="R"
|
---|
| 13 | Q
|
---|
| 14 | ;
|
---|
| 15 | PREFER(DFN) ;
|
---|
| 16 | ;Description: Enter/Edit patient's preferred facility.
|
---|
| 17 | ;Input: DFN - patient ien
|
---|
| 18 | ;Output: none
|
---|
| 19 | ;
|
---|
| 20 | Q:'$G(DFN)
|
---|
| 21 | Q:'$D(^DPT(DFN,0))
|
---|
| 22 | ;
|
---|
| 23 | N PREFAC,RESPONSE
|
---|
| 24 | S PREFAC=$$PREF^DGENPTA(DFN)
|
---|
| 25 | S:'PREFAC PREFAC=$P($$SITE^VASITE(),"^")
|
---|
| 26 | W !
|
---|
| 27 | I $$PROMPT^DGENU(2,27.02,PREFAC,.RESPONSE),$$STOREPRE^DGENPTA1(DFN,RESPONSE)
|
---|
| 28 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.