Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
877 bytes
|
Line | |
---|
1 | DGENLCD ;ALB/CJM - Enrollment Catastophic Disability - List Manager Screen;12 JUN 1997 10:00 am
|
---|
2 | ;;5.3;Registration;**121**;08/13/93
|
---|
3 | ;
|
---|
4 | EN(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 | ;
|
---|
13 | INIT ;Init variables and list array
|
---|
14 | D CLEAN^VALM10
|
---|
15 | S VALMCNT=0
|
---|
16 | D EN^DGENLCD1("DGEN CD",DFN,.VALMCNT)
|
---|
17 | Q
|
---|
18 | ;
|
---|
19 | HELP ;Help code
|
---|
20 | S X="?" D DISP^XQORM1 W !!
|
---|
21 | Q
|
---|
22 | ;
|
---|
23 | EXIT ;Exit code
|
---|
24 | D CLEAN^VALM10
|
---|
25 | D CLEAR^VALM1
|
---|
26 | Q
|
---|
27 | ;
|
---|
28 | EXPND ;Expand code
|
---|
29 | Q
|
---|
30 | ;
|
---|
31 | HDR ;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.