| 1 | IBCNSM8 ;ALB/NLR - INSURANCE MANAGEMENT WORKHSEET5 ; 9-AUG-93
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | BL3 ; -- print mental health info, annual benefits
|
|---|
| 6 | ;
|
|---|
| 7 | W !?5,$TR($J(" ",IOM-12)," ","-")
|
|---|
| 8 | W !?6,"5.",?33-($L("** MENTAL HEALTH INPATIENT **")\2),"** MENTAL HEALTH INPATIENT **" D VLINE^IBCNSM7
|
|---|
| 9 | W ?72,"6.",?99-($L("** MENTAL HEALTH OUTPATIENT **")\2),"** MENTAL HEALTH OUTPATIENT **"
|
|---|
| 10 | W !?3,$J("MH Inpt Max Days/Year:",23),?28,$J($$DOL^IBCNSM6(355.4,5.14,$P($G(IBCABD5),"^",14),IBLINE),10) D VLINE^IBCNSM7
|
|---|
| 11 | W ?83,$J("MH Opt Max Days/Year:",23),?108,$J($$DOL^IBCNSM6(355.4,2.14,$P($G(IBCABD2),"^",14),IBLINE),10)
|
|---|
| 12 | W !?3,$J("MH Lifet Inpt Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.05,$P($G(IBCABD5),"^",5),IBLINE),10) D VLINE^IBCNSM7
|
|---|
| 13 | W ?83,$J("MH Lifet Opt Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.05,$P($G(IBCABD2),"^",5),IBLINE),10)
|
|---|
| 14 | W !?3,$J("MH Annual Inpt Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.06,$P($G(IBCABD5),"^",6),IBLINE),10) D VLINE^IBCNSM7
|
|---|
| 15 | W ?83,$J("MH Annual Opt Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,5.06,$P($G(IBCABD5),"^",6),IBLINE),10)
|
|---|
| 16 | W !?3,$J("MH Inpt (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.11,$P($G(IBCABD5),"^",11),IBLINE),10) D VLINE^IBCNSM7
|
|---|
| 17 | W ?83,$J("MH Opt (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.11,$P($G(IBCABD2),"^",11),IBLINE),10)
|
|---|
| 18 | ;W !?83,$J("Max Visits/Yr:",23),?108,$J($$DOL^IBCNSM6(355.4,2.16,$P($G(IBCABD2),"^",16),IBLINE),10)
|
|---|
| 19 | ;W !?83,$J("Adult Day Health Care?:",23),?108,$J($$DOL^IBCNSM6(355.4,2.17,$P($G(IBCABD2),"^",17),IBLINE),10)
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | BL4 ; -- print home health care & hospice info, annual benefits
|
|---|
| 23 | ;
|
|---|
| 24 | W !?5,$TR($J(" ",IOM-12)," ","-")
|
|---|
| 25 | W !?6,"7.",?33-($L("** HOME HEALTH CARE **")\2),"** HOME HEALTH CARE **"
|
|---|
| 26 | D VLINE^IBCNSM7 W ?72,"8.",?99-($L("** HOSPICE **")\2),"** HOSPICE **"
|
|---|
| 27 | W !?3,$J("Care Level:",23)
|
|---|
| 28 | I $P($G(IBCABD3),"^")="" W ?28,$J($$DOL^IBCNSM6(355.4,3.01,$P($G(IBCABD3),"^"),IBLINE),10) G ANDED
|
|---|
| 29 | W ?(37-($L($$DOL^IBCNSM6(355.4,3.01,$P($G(IBCABD3),"^"),IBLINE))\2)),$$DOL^IBCNSM6(355.4,3.01,$P($G(IBCABD3),"^"),IBLINE)
|
|---|
| 30 | ;
|
|---|
| 31 | ANDED D VLINE^IBCNSM7 W ?83,$J("Annual Ded ($):",23),?108,$J($$DOL^IBCNSM6(355.4,4.01,$P($G(IBCABD4),"^"),IBLINE),10)
|
|---|
| 32 | W !?3,$J("Visits/Year:",23),?28,$J($$DOL^IBCNSM6(355.4,3.02,$P($G(IBCABD3),"^",2),IBLINE),10) D VLINE^IBCNSM7
|
|---|
| 33 | W ?83,$J("Inpt Annual Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,4.02,$P($G(IBCABD4),"^",2),IBLINE),10)
|
|---|
| 34 | W !?3,$J("Max Days/Year:",23),?28,$J($$DOL^IBCNSM6(355.4,3.03,$P($G(IBCABD3),"^",3),IBLINE),10) D VLINE^IBCNSM7
|
|---|
| 35 | W ?83,$J("Inpt Lifet Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,4.03,$P($G(IBCABD4),"^",3),IBLINE),10)
|
|---|
| 36 | W !?3,$J("Med Equipment (%):",23),?28,$J($$DOL^IBCNSM6(355.4,3.04,$P($G(IBCABD3),"^",4),IBLINE),10) D VLINE^IBCNSM7
|
|---|
| 37 | W ?83,$J("Room & Board (%):",23),?108,$J($$DOL^IBCNSM6(355.4,4.04,$P($G(IBCABD4),"^",4),IBLINE),10)
|
|---|
| 38 | S IBLE=$$DOL^IBCNSM6(355.4,3.05,$P($G(IBCABD3),"^",5),IBLINE)
|
|---|
| 39 | W !?3,$J("Visit Definition:",23),?28,$$DOL^IBCNSM6(355.4,3.05,$P($G(IBCABD3),"^",5),IBLINE) D VLINE^IBCNSM7
|
|---|
| 40 | ;W $S("?"_37-($L(IBLE))\2:$L(IBLE)'>19,1:?28)_","_"that's right"
|
|---|
| 41 | W ?83,$J("Other Inpt Charges (%):",23),?108,$J($$DOL^IBCNSM6(355.4,4.05,$P($G(IBCABD4),"^",5),IBLINE),10)
|
|---|
| 42 | Q
|
|---|
