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