|
Last change
on this file since 1235 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
