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

EASECDP4.m

Go to the documentation of this file.
  1. EASECDP4 ;ALB/LBD - Dependents Utilities (con't) ;19 AUG 2001
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,7**;Mar 15, 2001
  1. ; NOTE: This routine was modified from DGDEP4 for LTC Copay
  1. ;
  1. EN ; Spouse Demographics
  1. N BEG,CNT,END,FLAG,QUIT,DGERR S CNT=0
  1. I $G(DGMTI),$G(DGMTACT)="VEW" W !,"Cannot edit when viewing a LTC copay test." H 2 G ENQ
  1. I '$D(DGMTI),$G(DGRPV)=1 W !,"Not while viewing" H 2 G ENQ
  1. F S CNT=$O(DGDEP(CNT)) Q:'CNT D
  1. .I $P(DGDEP(CNT),U,2)="SPOUSE" S FLAG=$G(FLAG)+1
  1. I '$G(FLAG) W !,"There is no spouse to choose from." H 2 G ENQ
  1. I $G(FLAG)>1 D G:'$G(DGERR) EN1
  1. .S BEG=2,END=FLAG+1 D SEL^DGDEPU Q:$G(DGERR)
  1. .S DGREL("S")=$P(DGDEP(DGW),U,20)_U_$P(^DGPR(408.12,+$P(DGDEP(DGW),U,20),0),U,3)
  1. I $G(DGERR) G ENQ
  1. I '$G(DGREL("S")) S DGREL("S")=$P(DGDEP(2),U,20)_U_$P(^DGPR(408.12,+$P(DGDEP(2),U,20),0),U,3)
  1. EN1 S DGPRI=$P(DGDEP(1),U,20),DGIRI=$P(DGDEP(1),U,22) D SPOUSE1^EASECSC3
  1. ENQ D INIT^EASECDEP
  1. Q
  1. ;
  1. ;
  1. ADDEP ; Add a new dependent
  1. ;
  1. N DGANS
  1. S VALMBCK=""
  1. I $G(DGMTI),$G(DGMTACT)="VEW" W !,"Cannot edit when viewing a LTC copay test." H 2 G ADDEPQ
  1. I '$D(DGMTI),$G(DGRPV)=1 W !,"Not while viewing" H 2 G ADDEPQ
  1. S DIR(0)="S^S:Spouse;D:Dependent",DIR("A")="Do you want to add (S)pouse or (D)ependent"
  1. D ^DIR S DGANS=Y K DIR,Y I DGANS="D",$G(DGMTI) S DGANS="C"
  1. I $D(DIRUT) G ADDEPQ
  1. D GETREL^DGMTU11(DFN,"S",$S($G(DGMTD):DGMTD,1:DT))
  1. I DGANS="S",$G(DGREL("S")) W !,"An active spouse is currently on file. Use the 'ES - Edit Spouse'",!,"action to edit." H 3 G ADDEPQ
  1. I DGANS="S",$G(DGMTI) S CNT=0 F S CNT=$O(DGDEP(CNT)) Q:'CNT I $P(DGDEP(CNT),U,2)="SPOUSE" D REMOVE^EASECDP2(DFN,DGDEP(CNT),DGMTI)
  1. D CLEAR^VALM1
  1. D ADD^EASECED(DFN,DGANS,$S($G(DGMTI):$P(^DGMT(408.31,DGMTI,0),U),1:DT))
  1. S PERSON=DGPRI
  1. I DGFL=-1!(DGFL=-2) G ADDEPQ
  1. D INIT^EASECDEP
  1. I $G(DGMTI) D
  1. .N CNT
  1. .S CNT=0
  1. .F S CNT=$O(DGDEP(CNT)) Q:'CNT I $P(DGDEP(CNT),U,20)=PERSON D
  1. ..D ADD^EASECDP2(DFN,DGDEP(CNT),DGMTI)
  1. ..D EDITD^EASECDP2(DFN,DGDEP(CNT),CNT,DGMTI)
  1. ADDEPQ S VALMBCK="R"
  1. D INIT^EASECDEP
  1. K DGFL Q
  1. ;
  1. EDITDEP ; Edit dependent demo
  1. ;
  1. S VALMBCK=""
  1. N DGSAVE1,DGSAVE2,DGMTD,DGBEG,I
  1. I $G(DGMTI),$G(DGMTACT)="VEW" W !,"Cannot edit when viewing a LTC copay test." H 2 G EDITDEPQ
  1. I '$D(DGMTI),$G(DGRPV)=1 W !,"Not while viewing" H 2 G EDITDEPQ
  1. S I=0 F S I=$O(DGDEP(I)) Q:'I!($G(DGBEG)) I $P(DGDEP(I),U,2)'="SELF",$P(DGDEP(I),U,2)'="SPOUSE" S DGBEG=I
  1. S VALMBCK="",DGSAVE1=VALMBG,DGSAVE2=VALMLST,VALMBG=$S($G(DGBEG):DGBEG,1:0)
  1. S VALMLST=DGCNT D SEL^VALM2 S VALMBG=DGSAVE1,VALMLST=DGSAVE2 G EDITDEPQ:'$O(VALMY(0))
  1. N CTR S CTR=0 F S CTR=$O(VALMY(CTR)) Q:'CTR D
  1. .D EDITC(DFN,DGDEP(CTR),CTR,$G(DGMTI))
  1. EDITDEPQ S VALMBCK="R"
  1. K DGDEP D INIT^EASECDEP
  1. Q
  1. ;
  1. EDITC(DFN,DGDEP,DGW,DGMTI) ; Edit
  1. N DA,DR,DIE,DGMTDT,DEP,DGSAVE
  1. S DGMTDT=$S($G(DGMTI):$P(^DGMT(408.31,+DGMTI,0),U),1:DT)
  1. I $G(DGMTI),$G(DGMTACT)="VEW" W !,"Cannot edit when viewing a LTC copay test." H 2 G EDITCQ
  1. S DEP=$S($G(DGMTI):"C",1:"D"),DGSAVE=DGDEP
  1. D GETREL^DGMTU11(DFN,DEP,$S($G(DGMTDT):DGMTDT,1:DT),$G(DGMTI))
  1. S DGDEP=DGSAVE
  1. N CNTR
  1. S CNTR=0
  1. F S CNTR=$O(DGREL(DEP,CNTR)) Q:'CNTR I $P(DGDEP,U,20)=+DGREL(DEP,CNTR) D
  1. .D EDIT^EASECED(DGREL(DEP,CNTR),DEP)
  1. EDITCQ ;
  1. K ^TMP("DGMTEP",$J)
  1. Q