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

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

initial load of WorldVistAEHR

File size: 877 bytes
Line 
1DGENLCD ;ALB/CJM - Enrollment Catastophic Disability - List Manager Screen;12 JUN 1997 10:00 am
2 ;;5.3;Registration;**121**;08/13/93
3 ;
4EN(DFN) ;Entry point for the DGENCD CATASTROPHIC DISABILTY List Template
5 ; Input -- DFN Patient IEN
6 ; Output -- None
7 ;
8 Q:'$G(DFN)
9 D WAIT^DICD
10 D EN^VALM("DGENCD CATASTROPHIC DISABILITY")
11 Q
12 ;
13INIT ;Init variables and list array
14 D CLEAN^VALM10
15 S VALMCNT=0
16 D EN^DGENLCD1("DGEN CD",DFN,.VALMCNT)
17 Q
18 ;
19HELP ;Help code
20 S X="?" D DISP^XQORM1 W !!
21 Q
22 ;
23EXIT ;Exit code
24 D CLEAN^VALM10
25 D CLEAR^VALM1
26 Q
27 ;
28EXPND ;Expand code
29 Q
30 ;
31HDR ;Header code
32 N DGPREFNM,X,VA,VAERR
33 D PID^VADPT
34 S VALMHDR(1)=$E("Patient: "_$P($G(^DPT(DFN,0)),U),1,30)_" ("_VA("BID")_")"
35 S X=$S('$D(^DPT(DFN,"TYPE")):"PATIENT TYPE UNKNOWN",$D(^DG(391,+^("TYPE"),0)):$P(^(0),U,1),1:"PATIENT TYPE UNKNOWN")
36 S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),60,80)
37 Q
Note: See TracBrowser for help on using the repository browser.