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

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

initial load of FOIAVistA 6/30/08 version

File size: 730 bytes
Line 
1DGDEPE ;ALB/CAW - Extended Display ; 1/28/92
2 ;;5.3;Registration;**45**;Aug 13, 1993
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("DGMT 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^DGDEP1(DGW)
25 Q
26 ;
27FNL ;
28 D CLEAN^VALM10
29 Q
Note: See TracBrowser for help on using the repository browser.