source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGENPT.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 650 bytes
Line 
1DGENPT ;ALB/CJM - Patient Protocols; 13 JUN 1997
2 ;;5.3;Registration;**121,147**;08/13/93
3 ;
4PF ;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 ;
15PREFER(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.