source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASECDPE.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 765 bytes
Line 
1EASECDPE ;ALB/LBD - Dependents Extended Display ;22 AUG 2001
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5**;Mar 15, 2001
3 ;
4EN ; Selection of dependent
5 G ENQ:'$D(DGW)!$G(DGERR)=1
6 K DGDEP("DGMTEP",$J)
7 S VALMBCK=""
8 N DGWIDTH,DGPT,DGSC
9 W ! D WAIT^DICD,EN^VALM("EASEC EXPAND PROFILE")
10ENQ S VALMBCK="R" Q
11 ;
12HDR ; Header
13 N VA,VAERR
14 D PID^VADPT
15 S VALMHDR(1)=$E($P("Patient: "_$G(^DPT(DFN,0)),"^",1),1,30)_" ("_VA("BID")_")"
16 S X=$S($D(^DPT(DFN,.1)):"Ward: "_^(.1),1:"Outpatient")
17 S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),81-$L(X),$L(X))
18 S X="",VALMHDR(2)=$$SETSTR^VALM1(X,"Dependent #: "_DGW_" "_$P(DGDEP(DGW),U)_"("_$P(DGDEP(DGW),U,2)_")",81-$L(X),$L(X))
19 Q
20 ;
21INIT ;
22 N VA,VAERR,DGFSTCOL,DGSECCOL
23 D PID^VADPT
24 D ONE^EASECDP1(DGW)
25 Q
26 ;
27FNL ;
28 D CLEAN^VALM10
29 Q
Note: See TracBrowser for help on using the repository browser.