DGMTU23 ;ALB/CAW,LD,LBD,LMD,HM - Display means test information ;4/20/20 10:22am
;;5.3;Registration;**33,182,254,272,420,435,456,624,904,996,997**;Aug 13, 1993;Build 42
;
;
DISPLAY(DGMTI,DGMTYPT) ;Display means test data
; Input: DGMTI - IEN of MT
; DGMTYPT - Type of Test
; Output: None
N DGFCOL,DGSCOL,DGMTDIS,DGMTDI2,DGMTWP,WP,X,X1,X2,X3,Y,Y1,Z,DGSOURCE,DGMTI4 ;DG*503*904,DG*5.3*997
S (DGMTWP,WP)=0,DGFCOL=24,DGSCOL=65
I $D(^DGMT(408.31,DGMTI,4)) S DGMTI4=^DGMT(408.31,DGMTI,4) ;DG*503*904
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)
S DGMTDI2=$G(^DGMT(408.31,DGMTI,2)) ;DG*5.3*997
S X="",X=$$SETSTR^VALM1("Patient:",X,15,8)
S X=$$SETSTR^VALM1($P(^DPT($P(DGMTDIS,U,2),0),U),X,DGFCOL,25)
S X=$$SETSTR^VALM1("Date of Test:",X,51,13)
S X=$$SETSTR^VALM1($$FTIME^DGMTUTL($P(DGMTDIS,U)),X,DGSCOL,15)
W !!,X
S X="",X=$$SETSTR^VALM1("Total Dependents:",X,6,17)
S X=$$SETSTR^VALM1($P(DGMTDIS,U,18),X,DGFCOL,25)
S X=$$SETSTR^VALM1("Type Of Test:",X,51,13)
S X=$$SETSTR^VALM1($P($G(^DG(408.33,+$P(DGMTDIS,U,19),0)),U),X,DGSCOL,15)
W !,X
S X="",X=$$SETSTR^VALM1("Status:",X,16,7)
S X=$$SETSTR^VALM1($P(^DG(408.32,$P(DGMTDIS,U,3),0),U),X,DGFCOL,25)
S X=$$SETSTR^VALM1("Date/Time Completed:",X,44,20)
S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,7)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,7)),1:""),X,DGSCOL,15)
W !,X
S X="",X=$$SETSTR^VALM1("Primary Test For Year:",X,1,22)
S X1=$G(^DGMT(408.31,DGMTI,"PRIM")),X=$$SETSTR^VALM1($S(X1=1:"YES",X1=0:"NO",1:"UNKNOWN"),X,DGFCOL,25)
S X=$$SETSTR^VALM1("Source Of Test:",X,49,15)
S DGSOURCE=$$SR^DGMTAUD1(DGMTDIS)
I DGSOURCE="OTHER FACILITY" S DGSOURCE=$P($G(^DGMT(408.31,DGMTI,2)),"^",5)
S X=$$SETSTR^VALM1(DGSOURCE,X,DGSCOL,15)
W !,X
S X="",X=$$SETSTR^VALM1("Income:",X,16,7)
S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,4)'="":"$"_$P(DGMTDIS,U,4),1:""),X,DGFCOL,25)
S X=$$SETSTR^VALM1("Completed By:",X,51,13)
S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(DGMTDIS,U,6),0)),U),X,DGSCOL,15)
W !,X
S X=""
I DGMTYPT=1 D
.S X=$$SETSTR^VALM1("Net Worth:",X,13,10)
.S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,5)'="":"$"_$P(DGMTDIS,U,5),1:""),X,DGFCOL,25)
.S X=$$SETSTR^VALM1("Date/Time Category Changed:",X,37,28)
.S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,9)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,9)),1:""),X,DGSCOL,15)
.W !,X
S X=""
S X=$$SETSTR^VALM1("Deductible Expenses:",X,3,20)
S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,15)'="":$$AMT^DGMTSCU1($P(DGMTDIS,U,15)),1:""),X,DGFCOL,25)
I DGMTYPT=1 D
.S X=$$SETSTR^VALM1("Category Changed By:",X,44,25)
.S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(DGMTDIS,U,8),0)),U),X,DGSCOL,15)
W !,X
S X=""
I DGMTYPT=1 D
.S X=$$SETSTR^VALM1("Agreed to Pay Deduct.:",X,1,22)
.S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,11)=1:"YES",$P(DGMTDIS,U,11)=0:"NO",1:""),X,DGFCOL,25)
.S X=$$SETSTR^VALM1("Adjudicated Date/Time:",X,42,28)
.S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,10)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,10)),1:""),X,DGSCOL,15)
.W !,X
S X=""
S X=$$SETSTR^VALM1("Declines Income Info:",X,2,21)
S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,14)=1:"YES",$P(DGMTDIS,U,14)=0:"NO",1:""),X,DGFCOL,25)
S Y=$S(DGMTYPT=1:"No Longer Required Date:",1:"No Longer Applicable Date:"),Z=$S(DGMTYPT=1:40,1:38)
S X=$$SETSTR^VALM1(Y,X,Z,28)
S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,17)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,17)),1:""),X,DGSCOL,15)
W !,X
S (X,Y)=""
I DGMTYPT=1 D
.S X=$$SETSTR^VALM1("MT Threshold:",X,10,13)
.S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,12)'="":"$"_$P(DGMTDIS,U,12),1:""),X,DGFCOL,25)
.S X=$$SETSTR^VALM1("Hardship Review Date:",X,43,21)
.I $P(DGMTDIS,U,20) D
..S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,21)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,21)),1:""),X,DGSCOL,15)
.W !,X
;
S X=""
S X=$$SETSTR^VALM1("GMT Threshold:",X,9,14)
S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,27)'="":"$"_$P(DGMTDIS,U,27),1:""),X,DGFCOL,25)
S X=$$SETSTR^VALM1("BT Financial Indicator:",X,41,23) ;DG*5.3*904
I $D(DGMTI4) S X=$$SETSTR^VALM1($S($P(DGMTI4,U,1)=1:"YES",$P(DGMTI4,U,1)=0:"NO",1:""),X,DGSCOL,3) ;DG*503*904
W !,X
;
S X=""
S X=$$SETSTR^VALM1("Date Vet Signed Test:",X,2,21)
S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,24)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,24)),1:""),X,DGFCOL,25)
S X=$$SETSTR^VALM1("Hardship:",X,55,9) ;DG*5.3*997
S X=$$SETSTR^VALM1($S($P(DGMTDI2,U,12)=1:"EXPIRED",$P(DGMTDIS,U,20)=1:"YES",$P(DGMTDIS,U,20)=0:"NO",1:""),X,DGSCOL,15) ;DG*5.3*997
W !,X
;
S X=""
S X=$$SETSTR^VALM1("Means Test Signed?:",X,4,19)
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)
S X=$$SETSTR^VALM1("Hardship Expiration Date:",X,39,25) ;DG*5.3*997
S X=$$SETSTR^VALM1($S($P(DGMTDI2,U,13)'="":$$FTIME^DGMTUTL($P(DGMTDI2,U,13)),1:""),X,DGSCOL,15) ;DG*5.3*997
W !,X
;
S (X,X2,X3,Y,Y1,Z)="" ;DG*5.3*997
I DGMTYPT=1 D
.I $P($G(^DG(408.34,+$P(DGMTDIS,U,23),0)),U)="IVM" D
..;S X=$$SETSTR^VALM1("Date Vet Signed Test:",X,2,21)
..;S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,24)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,24)),1:""),X,DGFCOL,25)
..S Y=$$SETSTR^VALM1("Refused to Sign:",Y,7,16)
..S Y=$$SETSTR^VALM1($S($P(DGMTDIS,U,26)=1:"YES",$P(DGMTDIS,U,26)=0:"NO",1:""),Y,DGFCOL,25)
..S Z=$$SETSTR^VALM1("Date IVM MT Completed:",Z,1,22)
..S Z=$$SETSTR^VALM1($S($P(DGMTDIS,U,25)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,25)),1:""),Z,DGFCOL,25)
.;DG*5.3*997 MOVED FOR HARDSHIP TEXT
.I $G(^DGMT(408.31,DGMTI,"PURGE"))'="" D
..S X=$$SETSTR^VALM1("Income Data Purged:",X,4,19)
..S X3=^DGMT(408.31,DGMTI,"PURGE")
..S X=$$SETSTR^VALM1($$FTIME^DGMTUTL(X3),X,DGSCOL,15)
.I $P(DGMTDIS,U,21) D
..S DGMTDI2=$G(^DGMT(408.31,DGMTI,2))
..S X=$$SETSTR^VALM1("Hardship Approved By:",X,43,21)
..I +$P(DGMTDI2,U,4)=$$INST^DGENU() D
...S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(DGMTDIS,U,22),0)),U),X,DGSCOL,15)
..E S X=$$SETSTR^VALM1("OTHER VAMC",X,DGSCOL,15)
..S Y=$$SETSTR^VALM1("Hardship Review Site:",Y,43,21)
..S Y=$$SETSTR^VALM1($P(DGMTDI2,U,4),Y,DGSCOL,15) ;DG*5.3*996
..S Y1=$$SETSTR^VALM1("Hardship Reason:",Y1,7,16)
..S Y1=$$SETSTR^VALM1($P(DGMTDI2,U,9),Y1,DGFCOL,80)
.W !,X,!,Y,!,Z,!,Y1
W !,"COMMENT(S):" F S WP=$O(DGMTDIS(WP)) Q:'WP D
.W !,DGMTDIS(WP)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTU23 6293 printed Apr 09, 2024@21:53:27 Page 2
DGMTU23 ;ALB/CAW,LD,LBD,LMD,HM - Display means test information ;4/20/20 10:22am
+1 ;;5.3;Registration;**33,182,254,272,420,435,456,624,904,996,997**;Aug 13, 1993;Build 42
+2 ;
+3 ;
DISPLAY(DGMTI,DGMTYPT) ;Display means test data
+1 ; Input: DGMTI - IEN of MT
+2 ; DGMTYPT - Type of Test
+3 ; Output: None
+4 ;DG*503*904,DG*5.3*997
NEW DGFCOL,DGSCOL,DGMTDIS,DGMTDI2,DGMTWP,WP,X,X1,X2,X3,Y,Y1,Z,DGSOURCE,DGMTI4
+5 SET (DGMTWP,WP)=0
SET DGFCOL=24
SET DGSCOL=65
+6 ;DG*503*904
IF $DATA(^DGMT(408.31,DGMTI,4))
SET DGMTI4=^DGMT(408.31,DGMTI,4)
+7 SET DGMTDIS=^DGMT(408.31,DGMTI,0)
IF $DATA(^("C"))
FOR
SET DGMTWP=$ORDER(^DGMT(408.31,DGMTI,"C",DGMTWP))
if 'DGMTWP
QUIT
SET DGMTDIS(DGMTWP)=^(DGMTWP,0)
+8 ;DG*5.3*997
SET DGMTDI2=$GET(^DGMT(408.31,DGMTI,2))
+9 SET X=""
SET X=$$SETSTR^VALM1("Patient:",X,15,8)
+10 SET X=$$SETSTR^VALM1($PIECE(^DPT($PIECE(DGMTDIS,U,2),0),U),X,DGFCOL,25)
+11 SET X=$$SETSTR^VALM1("Date of Test:",X,51,13)
+12 SET X=$$SETSTR^VALM1($$FTIME^DGMTUTL($PIECE(DGMTDIS,U)),X,DGSCOL,15)
+13 WRITE !!,X
+14 SET X=""
SET X=$$SETSTR^VALM1("Total Dependents:",X,6,17)
+15 SET X=$$SETSTR^VALM1($PIECE(DGMTDIS,U,18),X,DGFCOL,25)
+16 SET X=$$SETSTR^VALM1("Type Of Test:",X,51,13)
+17 SET X=$$SETSTR^VALM1($PIECE($GET(^DG(408.33,+$PIECE(DGMTDIS,U,19),0)),U),X,DGSCOL,15)
+18 WRITE !,X
+19 SET X=""
SET X=$$SETSTR^VALM1("Status:",X,16,7)
+20 SET X=$$SETSTR^VALM1($PIECE(^DG(408.32,$PIECE(DGMTDIS,U,3),0),U),X,DGFCOL,25)
+21 SET X=$$SETSTR^VALM1("Date/Time Completed:",X,44,20)
+22 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,7)'="":$$FTIME^DGMTUTL($PIECE(DGMTDIS,U,7)),1:""),X,DGSCOL,15)
+23 WRITE !,X
+24 SET X=""
SET X=$$SETSTR^VALM1("Primary Test For Year:",X,1,22)
+25 SET X1=$GET(^DGMT(408.31,DGMTI,"PRIM"))
SET X=$$SETSTR^VALM1($SELECT(X1=1:"YES",X1=0:"NO",1:"UNKNOWN"),X,DGFCOL,25)
+26 SET X=$$SETSTR^VALM1("Source Of Test:",X,49,15)
+27 SET DGSOURCE=$$SR^DGMTAUD1(DGMTDIS)
+28 IF DGSOURCE="OTHER FACILITY"
SET DGSOURCE=$PIECE($GET(^DGMT(408.31,DGMTI,2)),"^",5)
+29 SET X=$$SETSTR^VALM1(DGSOURCE,X,DGSCOL,15)
+30 WRITE !,X
+31 SET X=""
SET X=$$SETSTR^VALM1("Income:",X,16,7)
+32 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,4)'="":"$"_$PIECE(DGMTDIS,U,4),1:""),X,DGFCOL,25)
+33 SET X=$$SETSTR^VALM1("Completed By:",X,51,13)
+34 SET X=$$SETSTR^VALM1($PIECE($GET(^VA(200,+$PIECE(DGMTDIS,U,6),0)),U),X,DGSCOL,15)
+35 WRITE !,X
+36 SET X=""
+37 IF DGMTYPT=1
Begin DoDot:1
+38 SET X=$$SETSTR^VALM1("Net Worth:",X,13,10)
+39 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,5)'="":"$"_$PIECE(DGMTDIS,U,5),1:""),X,DGFCOL,25)
+40 SET X=$$SETSTR^VALM1("Date/Time Category Changed:",X,37,28)
+41 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,9)'="":$$FTIME^DGMTUTL($PIECE(DGMTDIS,U,9)),1:""),X,DGSCOL,15)
+42 WRITE !,X
End DoDot:1
+43 SET X=""
+44 SET X=$$SETSTR^VALM1("Deductible Expenses:",X,3,20)
+45 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,15)'="":$$AMT^DGMTSCU1($PIECE(DGMTDIS,U,15)),1:""),X,DGFCOL,25)
+46 IF DGMTYPT=1
Begin DoDot:1
+47 SET X=$$SETSTR^VALM1("Category Changed By:",X,44,25)
+48 SET X=$$SETSTR^VALM1($PIECE($GET(^VA(200,+$PIECE(DGMTDIS,U,8),0)),U),X,DGSCOL,15)
End DoDot:1
+49 WRITE !,X
+50 SET X=""
+51 IF DGMTYPT=1
Begin DoDot:1
+52 SET X=$$SETSTR^VALM1("Agreed to Pay Deduct.:",X,1,22)
+53 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,11)=1:"YES",$PIECE(DGMTDIS,U,11)=0:"NO",1:""),X,DGFCOL,25)
+54 SET X=$$SETSTR^VALM1("Adjudicated Date/Time:",X,42,28)
+55 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,10)'="":$$FTIME^DGMTUTL($PIECE(DGMTDIS,U,10)),1:""),X,DGSCOL,15)
+56 WRITE !,X
End DoDot:1
+57 SET X=""
+58 SET X=$$SETSTR^VALM1("Declines Income Info:",X,2,21)
+59 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,14)=1:"YES",$PIECE(DGMTDIS,U,14)=0:"NO",1:""),X,DGFCOL,25)
+60 SET Y=$SELECT(DGMTYPT=1:"No Longer Required Date:",1:"No Longer Applicable Date:")
SET Z=$SELECT(DGMTYPT=1:40,1:38)
+61 SET X=$$SETSTR^VALM1(Y,X,Z,28)
+62 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,17)'="":$$FTIME^DGMTUTL($PIECE(DGMTDIS,U,17)),1:""),X,DGSCOL,15)
+63 WRITE !,X
+64 SET (X,Y)=""
+65 IF DGMTYPT=1
Begin DoDot:1
+66 SET X=$$SETSTR^VALM1("MT Threshold:",X,10,13)
+67 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,12)'="":"$"_$PIECE(DGMTDIS,U,12),1:""),X,DGFCOL,25)
+68 SET X=$$SETSTR^VALM1("Hardship Review Date:",X,43,21)
+69 IF $PIECE(DGMTDIS,U,20)
Begin DoDot:2
+70 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,21)'="":$$FTIME^DGMTUTL($PIECE(DGMTDIS,U,21)),1:""),X,DGSCOL,15)
End DoDot:2
+71 WRITE !,X
End DoDot:1
+72 ;
+73 SET X=""
+74 SET X=$$SETSTR^VALM1("GMT Threshold:",X,9,14)
+75 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,27)'="":"$"_$PIECE(DGMTDIS,U,27),1:""),X,DGFCOL,25)
+76 ;DG*5.3*904
SET X=$$SETSTR^VALM1("BT Financial Indicator:",X,41,23)
+77 ;DG*503*904
IF $DATA(DGMTI4)
SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTI4,U,1)=1:"YES",$PIECE(DGMTI4,U,1)=0:"NO",1:""),X,DGSCOL,3)
+78 WRITE !,X
+79 ;
+80 SET X=""
+81 SET X=$$SETSTR^VALM1("Date Vet Signed Test:",X,2,21)
+82 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,24)'="":$$FTIME^DGMTUTL($PIECE(DGMTDIS,U,24)),1:""),X,DGFCOL,25)
+83 ;DG*5.3*997
SET X=$$SETSTR^VALM1("Hardship:",X,55,9)
+84 ;DG*5.3*997
SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDI2,U,12)=1:"EXPIRED",$PIECE(DGMTDIS,U,20)=1:"YES",$PIECE(DGMTDIS,U,20)=0:"NO",1:""),X,DGSCOL,15)
+85 WRITE !,X
+86 ;
+87 SET X=""
+88 SET X=$$SETSTR^VALM1("Means Test Signed?:",X,4,19)
+89 SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,29)=1:"YES",$PIECE(DGMTDIS,U,29)=0:"NO",$PIECE(DGMTDIS,U,29)=9:"DELETED",1:""),X,DGFCOL,25)
+90 ;DG*5.3*997
SET X=$$SETSTR^VALM1("Hardship Expiration Date:",X,39,25)
+91 ;DG*5.3*997
SET X=$$SETSTR^VALM1($SELECT($PIECE(DGMTDI2,U,13)'="":$$FTIME^DGMTUTL($PIECE(DGMTDI2,U,13)),1:""),X,DGSCOL,15)
+92 WRITE !,X
+93 ;
+94 ;DG*5.3*997
SET (X,X2,X3,Y,Y1,Z)=""
+95 IF DGMTYPT=1
Begin DoDot:1
+96 IF $PIECE($GET(^DG(408.34,+$PIECE(DGMTDIS,U,23),0)),U)="IVM"
Begin DoDot:2
+97 ;S X=$$SETSTR^VALM1("Date Vet Signed Test:",X,2,21)
+98 ;S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,24)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,24)),1:""),X,DGFCOL,25)
+99 SET Y=$$SETSTR^VALM1("Refused to Sign:",Y,7,16)
+100 SET Y=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,26)=1:"YES",$PIECE(DGMTDIS,U,26)=0:"NO",1:""),Y,DGFCOL,25)
+101 SET Z=$$SETSTR^VALM1("Date IVM MT Completed:",Z,1,22)
+102 SET Z=$$SETSTR^VALM1($SELECT($PIECE(DGMTDIS,U,25)'="":$$FTIME^DGMTUTL($PIECE(DGMTDIS,U,25)),1:""),Z,DGFCOL,25)
End DoDot:2
+103 ;DG*5.3*997 MOVED FOR HARDSHIP TEXT
+104 IF $GET(^DGMT(408.31,DGMTI,"PURGE"))'=""
Begin DoDot:2
+105 SET X=$$SETSTR^VALM1("Income Data Purged:",X,4,19)
+106 SET X3=^DGMT(408.31,DGMTI,"PURGE")
+107 SET X=$$SETSTR^VALM1($$FTIME^DGMTUTL(X3),X,DGSCOL,15)
End DoDot:2
+108 IF $PIECE(DGMTDIS,U,21)
Begin DoDot:2
+109 SET DGMTDI2=$GET(^DGMT(408.31,DGMTI,2))
+110 SET X=$$SETSTR^VALM1("Hardship Approved By:",X,43,21)
+111 IF +$PIECE(DGMTDI2,U,4)=$$INST^DGENU()
Begin DoDot:3
+112 SET X=$$SETSTR^VALM1($PIECE($GET(^VA(200,+$PIECE(DGMTDIS,U,22),0)),U),X,DGSCOL,15)
End DoDot:3
+113 IF '$TEST
SET X=$$SETSTR^VALM1("OTHER VAMC",X,DGSCOL,15)
+114 SET Y=$$SETSTR^VALM1("Hardship Review Site:",Y,43,21)
+115 ;DG*5.3*996
SET Y=$$SETSTR^VALM1($PIECE(DGMTDI2,U,4),Y,DGSCOL,15)
+116 SET Y1=$$SETSTR^VALM1("Hardship Reason:",Y1,7,16)
+117 SET Y1=$$SETSTR^VALM1($PIECE(DGMTDI2,U,9),Y1,DGFCOL,80)
End DoDot:2
+118 WRITE !,X,!,Y,!,Z,!,Y1
End DoDot:1
+119 WRITE !,"COMMENT(S):"
FOR
SET WP=$ORDER(DGMTDIS(WP))
if 'WP
QUIT
Begin DoDot:1
+120 WRITE !,DGMTDIS(WP)
End DoDot:1
+121 QUIT
