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

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

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1DGENLEH ;ALB/RMO - Patient Enrollment History - List Manager Screen;12 JUN 1997 10:00 am
2 ;;5.3;Registration;**121**;08/13/93
3 ;
4EN(DFN,DGENRIEN) ;Main entry point to invoke the DGEN PATIENT ENROLL HISTORY protocol
5 ; Input -- DFN Patient IEN
6 ; DGENRIEN Enrollment IEN
7 ; Output -- None
8 D WAIT^DICD
9 D EN^VALM("DGEN PATIENT ENROLL HISTORY")
10 Q
11 ;
12HDR ;Header code
13 N DGPREFNM,X,VA,VAERR
14 D PID^VADPT
15 S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30)_" ("_VA("BID")_")"
16 S X=$S('$D(^DPT(DFN,"TYPE")):"PATIENT TYPE UNKNOWN",$D(^DG(391,+^("TYPE"),0)):$P(^(0),U,1),1:"PATIENT TYPE UNKNOWN")
17 S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80)
18 I $$PREF^DGENPTA(DFN,.DGPREFNM)
19 S VALMHDR(2)="Preferred Facility: "_$G(DGPREFNM)
20 S VALMHDR(2)=$$SETSTR^VALM1("Prior Enrollment",VALMHDR(2),60,80)
21 Q
22 ;
23INIT ;Init variables and list array
24 D BLD
25 Q
26 ;
27BLD ;Build patient enrollment screen
28 D CLEAN^VALM10
29 K ^TMP("DGENEHIDX",$J)
30 ;
31 ;Build header
32 D HDR
33 ;
34 ;Build list area for select enrollment history
35 D EN^DGENL1("DGENEH",DFN,DGENRIEN,.VALMCNT)
36 Q
37 ;
38HELP ;Help code
39 S X="?" D DISP^XQORM1 W !!
40 Q
41 ;
42EXIT ;Exit code
43 D CLEAN^VALM10
44 D CLEAR^VALM1
45 K ^TMP("DGENEHIDX",$J)
46 Q
47 ;
48EXPND ;Expand code
49 Q
50 ;
Note: See TracBrowser for help on using the repository browser.