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

DGMTSC31.m

Go to the documentation of this file.
  1. DGMTSC31 ;ALB/RMO,ERC - Means Test Screen Deductible Expenses Cont. ; 13 MAR 92
  1. ;;5.3;Registration;**45,688**;Aug 13, 1993;Build 29
  1. ;
  1. ; Input -- DFN Patient IEN
  1. ; DGMTDT Date of Test
  1. ; DGMTPAR Annual Means Test Parameter Array
  1. ; Output -- None
  1. ;
  1. EN ;Entry point for dependent children
  1. S DGFL=0 K DGDCS D SET
  1. W !!,"Enter: R to REDISPLAY information on dependent children"
  1. I DGDEP W !?8,"1-",DGDEP," to edit information for the child listed after that number"
  1. R !,"Enter CHOICE: ",X:DTIME I '$T!(X["^") S DGFL=$S(X["^":-1,1:-2) G Q
  1. G:X']"" Q I X["?" G EN
  1. ;DG*5.3*688 - removing code to set X to $E(X), as we can
  1. ;have >9 dependent children now
  1. D UP^DGHELP
  1. I X="R" D DIS G EN:'DGFL,Q
  1. I 'X!'$D(DGDCS(X)) G EN ; not numeric or bad answer
  1. S DGINI=+$G(DGINC("C",DGDCS(X)))
  1. I $G(^DGMT(408.21,DGINI,0)),($P(^(0),"^",14)-$P(DGMTPAR,"^",17))'>0 W !!?8,"Post-secondary education expenses are not applicable for this child." G EN
  1. D EDT:DGINI G EN:'DGFL
  1. Q I DGFL<0 S DGMTOUT=1
  1. K DGDCS,DGDEP,DGFL,DGINC,DGINR,DGINI,DGREL,DTOUT,DUOUT,X
  1. Q
  1. ;
  1. SET ;Set variables for selectable dependent children ;DGMTP also calls
  1. N DGCNT,Y
  1. D ALL^DGMTU21(DFN,"C",DGMTDT,"IPR",$S($G(DGMTI):DGMTI,1:""))
  1. I $P(DGMTPAR,"^",17)']"" G SETQ ;quit if no child's income exclusion
  1. S (DGCNT,DGDEP)=0 F S DGCNT=$O(DGREL("C",DGCNT)) Q:'DGCNT D
  1. .D CHK I Y S DGDEP=DGDEP+1,DGDCS(DGDEP)=DGCNT
  1. SETQ Q
  1. ;
  1. DIS ;Display dependent children with employment income
  1. N DGLP
  1. W !!?8,"Child's",?24,"Employment",?36,"Post-secondary"
  1. W !?8,"First Name",?24,"Income",?36,"Education Expenses"
  1. W !?8,"------------",?24,"----------",?36,"------------------"
  1. S DGLP=0 F S DGLP=$O(DGDCS(DGLP)) Q:'DGLP S DGCNT=DGDCS(DGLP) D CHILD
  1. Q
  1. ;
  1. CHILD ;Display employment income and expenses for a dependent child
  1. N DGIN0,DGIN1
  1. S DGIN0=$G(^DGMT(408.21,+$G(DGINC("C",DGCNT)),0)),DGIN1=$G(^(1))
  1. W !?4,DGLP,".",?8,$E($P($$NAME^DGMTU1(+DGREL("C",DGCNT)),",",2),1,12)
  1. W ?24,$J($$AMT^DGMTSCU1($P(DGIN0,"^",14)),10)
  1. W ?44,$J($S(($P(DGIN0,"^",14)-$P(DGMTPAR,"^",17))>0:$$AMT^DGMTSCU1($P(DGIN1,"^",3)),1:"N/A"),10)
  1. Q
  1. ;
  1. CHK ;Check if child has income available to the veteran and his/her own
  1. ;employment income
  1. S Y=0
  1. I $D(^DGMT(408.22,+$G(DGINR("C",DGCNT)),0)),$P(^(0),"^",11),$P(^(0),"^",12),$P($G(^DGMT(408.21,+$G(DGINC("C",DGCNT)),0)),"^",14) S Y=1
  1. Q
  1. ;
  1. EDT ;Edit dependent child expenses
  1. N DA,DGFIN,DGIN1,DIE,DR
  1. S DGIN1=$G(^DGMT(408.21,DGINI,1))
  1. S DA=DGINI,DIE="^DGMT(408.21,",DR="[DGMT ENTER/EDIT CHILD EXPENSES]" D ^DIE
  1. S:'$D(DGFIN) DGFL=$S($D(DTOUT):-2,$D(DUOUT):-1,1:0)
  1. I DGIN1'=$G(^DGMT(408.21,DGINI,1)) S DR="103////^S X=DUZ;104///^S X=""NOW""" D ^DIE
  1. Q