Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGDEPE

DGDEPE.m

Go to the documentation of this file.
  1. DGDEPE ;ALB/CAW,ARF - Extended Display ; 1/28/92
  1. ;;5.3;Registration;**45,1014**;Aug 13, 1993;Build 42
  1. ;
  1. EN ; Selection of dependent
  1. G ENQ:'$D(DGW)!$G(DGERR)=1
  1. K DGDEP("DGMTEP",$J)
  1. S VALMBCK=""
  1. N DGWIDTH,DGPT,DGSC
  1. W ! D WAIT^DICD,EN^VALM("DGMT EXPAND PROFILE")
  1. ENQ S VALMBCK="R" Q
  1. ;
  1. HDR ; Header
  1. N VA,VAERR
  1. D LISTHDR^DGRPU(1) ;DG*5.3*1014 - ARF - sets patient data in the 1st and 2nd entries in VALMHDR array
  1. S X="",VALMHDR(3)=$$SETSTR^VALM1(X,"Dependent #: "_DGW_" "_$P(DGDEP(DGW),U)_"("_$P(DGDEP(DGW),U,2)_")",81-$L(X),$L(X)) ;DG*5.3*1014 begin
  1. ;D PID^VADPT
  1. ;S VALMHDR(1)=$E($P("Patient: "_$G(^DPT(DFN,0)),"^",1),1,30)_" ("_VA("BID")_")"
  1. ;S X=$S($D(^DPT(DFN,.1)):"Ward: "_^(.1),1:"Outpatient") ;Ward is no longer included in banners
  1. ;S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),81-$L(X),$L(X))
  1. ;S X="",VALMHDR(2)=$$SETSTR^VALM1(X,"Dependent #: "_DGW_" "_$P(DGDEP(DGW),U)_"("_$P(DGDEP(DGW),U,2)_")",81-$L(X),$L(X)) ;DG*5.3*1014 end
  1. Q
  1. ;
  1. INIT ;
  1. N VA,VAERR,DGFSTCOL,DGSECCOL
  1. D PID^VADPT
  1. D ONE^DGDEP1(DGW)
  1. Q
  1. ;
  1. FNL ;
  1. D CLEAN^VALM10
  1. Q