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

DGMTU23.m

Go to the documentation of this file. 
  1. DGMTU23 ;ALB/CAW/LD,LBD - Display means test information 12/20/01
  1.  ;;5.3;Registration;**33,182,254,272,420,435,456,624,1015**;Aug 13, 1993;Build 21
  1.  ;
  1.  ;
  1. DISPLAY(DGMTI,DGMTYPT) ;Display means test data
  1.  ;          Input:  DGMTI - IEN of MT
  1.  ;                  DGMTYPT - Type of Test
  1.  ;         Output:  None
  1.  N DGFCOL,DGSCOL,DGMTDIS,DGMTDI2,DGMTWP,WP,X,X1,Y,Y1,Z,DGSOURCE
  1.  S (DGMTWP,WP)=0,DGFCOL=24,DGSCOL=65
  1.  S DGMTDIS=^DGMT(408.31,DGMTI,0) I $D(^("C")) F  S DGMTWP=$O(^DGMT(408.31,DGMTI,"C",DGMTWP)) Q:'DGMTWP  S DGMTDIS(DGMTWP)=^(DGMTWP,0)
  1.  S X="",X=$$SETSTR^VALM1("Patient:",X,15,8)
  1.  S X=$$SETSTR^VALM1($P(^DPT($P(DGMTDIS,U,2),0),U),X,DGFCOL,25)
  1.  S X=$$SETSTR^VALM1("Date of Test:",X,51,13)
  1.  S X=$$SETSTR^VALM1($$FTIME^DGMTUTL($P(DGMTDIS,U)),X,DGSCOL,15)
  1.  W !!,X
  1.  S X="",X=$$SETSTR^VALM1("Total Dependents:",X,6,17)
  1.  S X=$$SETSTR^VALM1($P(DGMTDIS,U,18),X,DGFCOL,25)
  1.  S X=$$SETSTR^VALM1("Type Of Test:",X,51,13)
  1.  S X=$$SETSTR^VALM1($P($G(^DG(408.33,+$P(DGMTDIS,U,19),0)),U),X,DGSCOL,15)
  1.  W !,X
  1.  S X="",X=$$SETSTR^VALM1("Status:",X,16,7)
  1.  S X=$$SETSTR^VALM1($P(^DG(408.32,$P(DGMTDIS,U,3),0),U),X,DGFCOL,25)
  1.  S X=$$SETSTR^VALM1("Date/Time Completed:",X,44,20)
  1.  S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,7)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,7)),1:""),X,DGSCOL,15)
  1.  W !,X
  1.  S X="",X=$$SETSTR^VALM1("Primary Test For Year:",X,1,22)
  1.  S X1=$G(^DGMT(408.31,DGMTI,"PRIM")),X=$$SETSTR^VALM1($S(X1=1:"YES",X1=0:"NO",1:"UNKNOWN"),X,DGFCOL,25)
  1.  S X=$$SETSTR^VALM1("Source Of Test:",X,49,15)
  1.  S DGSOURCE=$$SR^DGMTAUD1(DGMTDIS)
  1.  I DGSOURCE="OTHER FACILITY" S DGSOURCE=$P($G(^DGMT(408.31,DGMTI,2)),"^",5)
  1.  S X=$$SETSTR^VALM1(DGSOURCE,X,DGSCOL,15)
  1.  W !,X
  1.  S X="",X=$$SETSTR^VALM1("Income:",X,16,7)
  1.  S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,4)'="":"$"_$P(DGMTDIS,U,4),1:""),X,DGFCOL,25)
  1.  S X=$$SETSTR^VALM1("Completed By:",X,51,13)
  1.  S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(DGMTDIS,U,6),0)),U),X,DGSCOL,15)
  1.  W !,X
  1.  S X=""
  1.  I DGMTYPT=1 D
  1.  .S X=$$SETSTR^VALM1("Net Worth:",X,13,10)
  1.  .S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,5)'="":"$"_$P(DGMTDIS,U,5),1:""),X,DGFCOL,25)
  1.  .S X=$$SETSTR^VALM1("Date/Time Category Changed:",X,37,28)
  1.  .S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,9)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,9)),1:""),X,DGSCOL,15)
  1.  .W !,X
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("Deductible Expenses:",X,3,20)
  1.  S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,15)'="":$$AMT^DGMTSCU1($P(DGMTDIS,U,15)),1:""),X,DGFCOL,25)
  1.  I DGMTYPT=1 D
  1.  .S X=$$SETSTR^VALM1("Category Changed By:",X,44,25)
  1.  .S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(DGMTDIS,U,8),0)),U),X,DGSCOL,15)
  1.  W !,X
  1.  S X=""
  1.  I DGMTYPT=1 D
  1.  .S X=$$SETSTR^VALM1("Agreed to Pay Deduct.:",X,1,22)
  1.  .S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,11)=1:"YES",$P(DGMTDIS,U,11)=0:"NO",1:""),X,DGFCOL,25)
  1.  .S X=$$SETSTR^VALM1("Adjudicated Date/Time:",X,42,28)
  1.  .S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,10)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,10)),1:""),X,DGSCOL,15)
  1.  .W !,X
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("Declines Income Info:",X,2,21)
  1.  S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,14)=1:"YES",$P(DGMTDIS,U,14)=0:"NO",1:""),X,DGFCOL,25)
  1.  S Y=$S(DGMTYPT=1:"No Longer Required Date:",1:"No Longer Applicable Date:"),Z=$S(DGMTYPT=1:40,1:38)
  1.  S X=$$SETSTR^VALM1(Y,X,Z,28)
  1.  S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,17)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,17)),1:""),X,DGSCOL,15)
  1.  W !,X
  1.  S (X,Y)=""
  1.  I DGMTYPT=1 D
  1.  .S X=$$SETSTR^VALM1("MT Threshold:",X,10,13)
  1.  .S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,12)'="":"$"_$P(DGMTDIS,U,12),1:""),X,DGFCOL,25)
  1.  .I $P(DGMTDIS,U,20) D
  1.  ..S X=$$SETSTR^VALM1("Hardship Review Date:",X,43,21)
  1.  ..S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,21)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,21)),1:""),X,DGSCOL,15)
  1.  .W !,X
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("GMT Threshold:",X,9,14)
  1.  S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,27)'="":"$"_$P(DGMTDIS,U,27),1:""),X,DGFCOL,25)
  1.  W !,X
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("Date Vet Signed Test:",X,2,21)
  1.  S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,24)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,24)),1:""),X,DGFCOL,25)
  1.  I $G(^DGMT(408.31,DGMTI,"PURGE"))'="" D
  1.  .S X=$$SETSTR^VALM1("Income Data Purged:",X,45,19)
  1.  .S X1=^DGMT(408.31,DGMTI,"PURGE")
  1.  .S X=$$SETSTR^VALM1($$FTIME^DGMTUTL(X1),X,DGSCOL,15)
  1.  W !,X
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("Means Test Signed?:",X,4,19)
  1.  S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,29)=1:"YES",$P(DGMTDIS,U,29)=0:"NO",$P(DGMTDIS,U,29)=9:"DELETED",1:""),X,DGFCOL,25)
  1.  W !,X
  1.  ;
  1.  S (X,Y,Y1,Z)=""
  1.  I DGMTYPT=1 D
  1.  .I $P($G(^DG(408.34,+$P(DGMTDIS,U,23),0)),U)="IVM" D
  1.  ..;S X=$$SETSTR^VALM1("Date Vet Signed Test:",X,2,21)
  1.  ..;S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,24)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,24)),1:""),X,DGFCOL,25)
  1.  ..S Y=$$SETSTR^VALM1("Refused to Sign:",Y,7,16)
  1.  ..S Y=$$SETSTR^VALM1($S($P(DGMTDIS,U,26)=1:"YES",$P(DGMTDIS,U,26)=0:"NO",1:""),Y,DGFCOL,25)
  1.  ..S Z=$$SETSTR^VALM1("Date IVM MT Completed:",Z,1,22)
  1.  ..S Z=$$SETSTR^VALM1($S($P(DGMTDIS,U,25)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,25)),1:""),Z,DGFCOL,25)
  1.  .I $P(DGMTDIS,U,21) D
  1.  ..S DGMTDI2=$G(^DGMT(408.31,DGMTI,2))
  1.  ..S X=$$SETSTR^VALM1("Hardship Approved By:",X,43,21)
  1.  ..I +$P(DGMTDI2,U,4)=$$INST^DGENU() D
  1.  ...S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(DGMTDIS,U,22),0)),U),X,DGSCOL,15)
  1.  ..E  S X=$$SETSTR^VALM1("OTHER VAMC",X,DGSCOL,15)
  1.  ..S Y=$$SETSTR^VALM1("Hardship Review Site:",Y,43,21)
  1.  ..S Y=$$SETSTR^VALM1($P($G(^DIC(4,+$P(DGMTDI2,"^",4),0)),"^"),Y,DGSCOL,15)
  1.  ..S Y1=$$SETSTR^VALM1("Hardship Reason:",Y1,7,16)
  1.  ..S Y1=$$SETSTR^VALM1($P(DGMTDI2,U,9),Y1,DGFCOL,80)
  1.  .W !,X,!,Y,!,Y1,!,Z
  1.  W !,"COMMENT(S):" F  S WP=$O(DGMTDIS(WP)) Q:'WP  D
  1.  .W !,DGMTDIS(WP)
  1.  Q