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

DGDEP5.m

Go to the documentation of this file.
  1. DGDEP5 ;ALB/CAW - Delete Duplicate Dependents ;12/15/94
  1. ;;5.3;Registration;**45**;Aug 13, 1993
  1. EN ;
  1. N BEG,DATE
  1. I $G(DGMTI),$G(DGMTACT)="VEW" W !,"Cannot edit when viewing a means test." H 2 G ENQ
  1. I '$D(DGMTI),$G(DGRPV)=1 W !,"Not while viewing" H 2 G ENQ
  1. I '$D(^XUSEC("DG DEPDELETE",+DUZ)) W !!,"Access to this option requires a security key.",*7 H 2 G ENQ
  1. S BEG=2 D SEL^DGDEPU G ENQ:$G(DGERR)
  1. S DATE="" F S DATE=$O(DGDEP(DGW,DATE)) Q:'DATE I $P(DGDEP(DGW,DATE),U,3) W !!,"Dependent has been uploaded by IVM. Cannot delete." H 2 G ENQ
  1. I '$$ASSOC(DFN,DGDEP(DGW)) D DEL(DFN,DGDEP(DGW),DGDEP(1),$G(DGMTI))
  1. ENQ S VALMBCK="R"
  1. D INIT^DGDEP
  1. Q
  1. ;
  1. DEL(DFN,DGDEP,DGVDEP,DGMTI) ;Delete Dependent
  1. ;
  1. N DGPRI,DGINC,DGINP,DGINR,DGMTP,DGMTA,DGMTACT,DGMTINF
  1. I $G(DGMTI) S DGMTACT="DDP",DGMTINF=1 D PRIOR^DGMTEVT
  1. S DGPRI=$P(DGDEP,U,20)
  1. S DGINP=+$P($G(^DGPR(408.12,+DGPRI,0)),U,3)
  1. S DGINC=0 F S DGINC=$O(^DGMT(408.21,"C",DGPRI,DGINC)) Q:'DGINC D D DIK(DGINC,"^DGMT(408.21,")
  1. .S DGINR=0 F S DGINR=$O(^DGMT(408.22,"AIND",DGINC,DGINR)) Q:'DGINR D DIK(DGINR,"^DGMT(408.22,")
  1. D DIK(DGPRI,"^DGPR(408.12,")
  1. D DIK(DGINP,"^DGPR(408.13,")
  1. I $G(DGMTI) D
  1. .S DGVIRI=$P(DGVDEP,U,22) D DEP^DGMTSC1,AFTER^DGMTEVT
  1. .D SET^DGMTAUD
  1. W !,"...deleting ANNUAL INCOME..."
  1. W !,"...deleting INCOME RELATION..."
  1. W !,"...deleting PERSON..."
  1. W !,"...deleting INCOME PERSON..."
  1. K DA,DIK
  1. Q Q
  1. ;
  1. DIK(DA,DIK) ;Delete file entries
  1. ;
  1. D ^DIK
  1. Q
  1. ;
  1. ASSOC(DFN,DGDEP) ; Find out if dependent is associated with any MT
  1. ;
  1. N DGPER,DGINCP,DGX,DGY,DGZ
  1. S (DGX,DGZ)=0
  1. F S DGX=$O(^DGMT(408.31,"ADFN"_DFN,DGX)) Q:'DGX!(DGZ) S MTIEN=$O(^DGMT(408.31,"ADFN"_DFN,DGX,"")) I MTIEN D
  1. .S DGY=0
  1. .F S DGY=$O(^DGMT(408.22,"AMT",MTIEN,DFN,DGY)) Q:'DGY!(DGZ) D
  1. ..S DGPER=$P($G(^DGMT(408.21,+DGY,0)),U,2)
  1. ..I DGPER=$P(DGDEP,U,20) D
  1. ...W !,"This dependent is associated with a means test. You must remove the"
  1. ...W !,"dependent from ALL means/co-pay tests prior to deleting. Use the 'RE' action." H 2 S DGZ=1 Q
  1. ASSOCQ Q DGZ