| [613] | 1 | EASECU23 ;ALB/PHH,LBD - Display LTC Co-Pay test information; 17 AUG 2001
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,7,34**;Mar 15, 2001
|
|---|
| 3 | ;
|
|---|
| 4 | DISPLAY(DGMTI,DGMTYPT) ;Display LTC Co-Pay test data
|
|---|
| 5 | ; Input: DGMTI - IEN of LTC Co-Pay
|
|---|
| 6 | ; DGMTYPT - Type of Test
|
|---|
| 7 | ; Output: None
|
|---|
| 8 | N DGFCOL,DGSCOL,DGMTDIS,DGMTWP,WP,X,X1,Y,Z,DGSOURCE
|
|---|
| 9 | S (DGMTWP,WP)=0,DGFCOL=24,DGSCOL=65
|
|---|
| 10 | 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)
|
|---|
| 11 | S X="",X=$$SETSTR^VALM1("Patient:",X,15,8)
|
|---|
| 12 | S X=$$SETSTR^VALM1($P(^DPT($P(DGMTDIS,U,2),0),U),X,DGFCOL,25)
|
|---|
| 13 | S X=$$SETSTR^VALM1("Date of Test:",X,51,13)
|
|---|
| 14 | S X=$$SETSTR^VALM1($$FTIME^DGMTUTL($P(DGMTDIS,U)),X,DGSCOL,15)
|
|---|
| 15 | W !!,X
|
|---|
| 16 | S X="",X=$$SETSTR^VALM1("Total Dependents:",X,6,17)
|
|---|
| 17 | S X=$$SETSTR^VALM1($P(DGMTDIS,U,18),X,DGFCOL,25)
|
|---|
| 18 | S X=$$SETSTR^VALM1("Type Of Test:",X,51,13)
|
|---|
| 19 | S X=$$SETSTR^VALM1($P($G(^DG(408.33,+$P(DGMTDIS,U,19),0)),U),X,DGSCOL,15)
|
|---|
| 20 | W !,X
|
|---|
| 21 | S X="",X=$$SETSTR^VALM1("Status:",X,16,7)
|
|---|
| 22 | S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,3)'="":$P(^DG(408.32,$P(DGMTDIS,U,3),0),U),1:"In Process"),X,DGFCOL,25)
|
|---|
| 23 | S X=$$SETSTR^VALM1("Date/Time Completed:",X,44,20)
|
|---|
| 24 | S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,7)'="":$$FTIME^DGMTUTL($P(DGMTDIS,U,7)),1:""),X,DGSCOL,15)
|
|---|
| 25 | W !,X
|
|---|
| 26 | I $P(DGMTDIS,U,3)=12 D
|
|---|
| 27 | .N EXERSN
|
|---|
| 28 | .S X="",X=$$SETSTR^VALM1("Reason:",X,16,7),EXERSN=$P($G(^DGMT(408.31,DGMTI,2)),U,7)
|
|---|
| 29 | .S X=$$SETSTR^VALM1($S(EXERSN'="":$P(^EAS(714.1,EXERSN,0),"^"),1:""),X,DGFCOL,56)
|
|---|
| 30 | .W !,X
|
|---|
| 31 | S X="",X=$$SETSTR^VALM1("Source Of Test:",X,49,15)
|
|---|
| 32 | S DGSOURCE=$$SR^DGMTAUD1(DGMTDIS)
|
|---|
| 33 | I DGSOURCE="OTHER FACILITY" S DGSOURCE=$P($G(^DGMT(408.31,DGMTI,2)),"^",5)
|
|---|
| 34 | S X=$$SETSTR^VALM1(DGSOURCE,X,DGSCOL,15)
|
|---|
| 35 | W !,X
|
|---|
| 36 | S X="",X=$$SETSTR^VALM1("Income:",X,16,7)
|
|---|
| 37 | S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,4)'="":"$"_$P(DGMTDIS,U,4),1:""),X,DGFCOL,25)
|
|---|
| 38 | S X=$$SETSTR^VALM1("Completed By:",X,51,13)
|
|---|
| 39 | S X=$$SETSTR^VALM1($P($G(^VA(200,+$P(DGMTDIS,U,6),0)),U),X,DGSCOL,15)
|
|---|
| 40 | W !,X
|
|---|
| 41 | S X="",X=$$SETSTR^VALM1("Assets:",X,16,7)
|
|---|
| 42 | S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,5)'="":"$"_$P(DGMTDIS,U,5),1:""),X,DGFCOL,25)
|
|---|
| 43 | W !,X
|
|---|
| 44 | S X="",X=$$SETSTR^VALM1("Deductible Expenses:",X,3,20)
|
|---|
| 45 | S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,15)'="":"$"_$P(DGMTDIS,U,15),1:""),X,DGFCOL,25)
|
|---|
| 46 | W !,X
|
|---|
| 47 | S X=""
|
|---|
| 48 | S X=$$SETSTR^VALM1("Declines Income Info:",X,2,21)
|
|---|
| 49 | S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,14)=1:"YES",$P(DGMTDIS,U,14)=0:"NO",1:""),X,DGFCOL,25)
|
|---|
| 50 | S X=$$SETSTR^VALM1("Agrees to Pay Copayments:",X,39,25)
|
|---|
| 51 | S X=$$SETSTR^VALM1($S($P(DGMTDIS,U,11)=1:"YES",$P(DGMTDIS,U,11)=0:"NO *INELIGIBLE*",1:""),X,DGSCOL,15)
|
|---|
| 52 | W !,X
|
|---|
| 53 | S (X,Y)=""
|
|---|
| 54 | I $G(^DGMT(408.31,DGMTI,"PURGE"))'="" D
|
|---|
| 55 | .S X=$$SETSTR^VALM1("Income Data Purged:",X,45,19)
|
|---|
| 56 | .S X1=^DGMT(408.31,DGMTI,"PURGE")
|
|---|
| 57 | .S X=$$SETSTR^VALM1($$FTIME^DGMTUTL(X1),X,DGSCOL,15)
|
|---|
| 58 | W !,X
|
|---|
| 59 | ;
|
|---|
| 60 | S (X,Y,Z)=""
|
|---|
| 61 | W !,"Comment(s):" F S WP=$O(DGMTDIS(WP)) Q:'WP D
|
|---|
| 62 | .W !,DGMTDIS(WP)
|
|---|
| 63 | W !
|
|---|
| 64 | Q
|
|---|
