IBCNSM8 ;ALB/NLR - INSURANCE MANAGEMENT WORKHSEET5 ; 9-AUG-93
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
BL3 ; -- print mental health info, annual benefits
;
W !?5,$TR($J(" ",IOM-12)," ","-")
W !?6,"5.",?33-($L("** MENTAL HEALTH INPATIENT **")\2),"** MENTAL HEALTH INPATIENT **" D VLINE^IBCNSM7
W ?72,"6.",?99-($L("** MENTAL HEALTH OUTPATIENT **")\2),"** MENTAL HEALTH OUTPATIENT **"
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
W ?83,$J("MH Opt Max Days/Year:",23),?108,$J($$DOL^IBCNSM6(355.4,2.14,$P($G(IBCABD2),"^",14),IBLINE),10)
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
W ?83,$J("MH Lifet Opt Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.05,$P($G(IBCABD2),"^",5),IBLINE),10)
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
W ?83,$J("MH Annual Opt Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,5.06,$P($G(IBCABD5),"^",6),IBLINE),10)
W !?3,$J("MH Inpt (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.11,$P($G(IBCABD5),"^",11),IBLINE),10) D VLINE^IBCNSM7
W ?83,$J("MH Opt (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.11,$P($G(IBCABD2),"^",11),IBLINE),10)
;W !?83,$J("Max Visits/Yr:",23),?108,$J($$DOL^IBCNSM6(355.4,2.16,$P($G(IBCABD2),"^",16),IBLINE),10)
;W !?83,$J("Adult Day Health Care?:",23),?108,$J($$DOL^IBCNSM6(355.4,2.17,$P($G(IBCABD2),"^",17),IBLINE),10)
Q
;
BL4 ; -- print home health care & hospice info, annual benefits
;
W !?5,$TR($J(" ",IOM-12)," ","-")
W !?6,"7.",?33-($L("** HOME HEALTH CARE **")\2),"** HOME HEALTH CARE **"
D VLINE^IBCNSM7 W ?72,"8.",?99-($L("** HOSPICE **")\2),"** HOSPICE **"
W !?3,$J("Care Level:",23)
I $P($G(IBCABD3),"^")="" W ?28,$J($$DOL^IBCNSM6(355.4,3.01,$P($G(IBCABD3),"^"),IBLINE),10) G ANDED
W ?(37-($L($$DOL^IBCNSM6(355.4,3.01,$P($G(IBCABD3),"^"),IBLINE))\2)),$$DOL^IBCNSM6(355.4,3.01,$P($G(IBCABD3),"^"),IBLINE)
;
ANDED D VLINE^IBCNSM7 W ?83,$J("Annual Ded ($):",23),?108,$J($$DOL^IBCNSM6(355.4,4.01,$P($G(IBCABD4),"^"),IBLINE),10)
W !?3,$J("Visits/Year:",23),?28,$J($$DOL^IBCNSM6(355.4,3.02,$P($G(IBCABD3),"^",2),IBLINE),10) D VLINE^IBCNSM7
W ?83,$J("Inpt Annual Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,4.02,$P($G(IBCABD4),"^",2),IBLINE),10)
W !?3,$J("Max Days/Year:",23),?28,$J($$DOL^IBCNSM6(355.4,3.03,$P($G(IBCABD3),"^",3),IBLINE),10) D VLINE^IBCNSM7
W ?83,$J("Inpt Lifet Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,4.03,$P($G(IBCABD4),"^",3),IBLINE),10)
W !?3,$J("Med Equipment (%):",23),?28,$J($$DOL^IBCNSM6(355.4,3.04,$P($G(IBCABD3),"^",4),IBLINE),10) D VLINE^IBCNSM7
W ?83,$J("Room & Board (%):",23),?108,$J($$DOL^IBCNSM6(355.4,4.04,$P($G(IBCABD4),"^",4),IBLINE),10)
S IBLE=$$DOL^IBCNSM6(355.4,3.05,$P($G(IBCABD3),"^",5),IBLINE)
W !?3,$J("Visit Definition:",23),?28,$$DOL^IBCNSM6(355.4,3.05,$P($G(IBCABD3),"^",5),IBLINE) D VLINE^IBCNSM7
;W $S("?"_37-($L(IBLE))\2:$L(IBLE)'>19,1:?28)_","_"that's right"
W ?83,$J("Other Inpt Charges (%):",23),?108,$J($$DOL^IBCNSM6(355.4,4.05,$P($G(IBCABD4),"^",5),IBLINE),10)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNSM8 3232 printed Dec 13, 2024@02:17:34 Page 2
IBCNSM8 ;ALB/NLR - INSURANCE MANAGEMENT WORKHSEET5 ; 9-AUG-93
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
BL3 ; -- print mental health info, annual benefits
+1 ;
+2 WRITE !?5,$TRANSLATE($JUSTIFY(" ",IOM-12)," ","-")
+3 WRITE !?6,"5.",?33-($LENGTH("** MENTAL HEALTH INPATIENT **")\2),"** MENTAL HEALTH INPATIENT **"
DO VLINE^IBCNSM7
+4 WRITE ?72,"6.",?99-($LENGTH("** MENTAL HEALTH OUTPATIENT **")\2),"** MENTAL HEALTH OUTPATIENT **"
+5 WRITE !?3,$JUSTIFY("MH Inpt Max Days/Year:",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.14,$PIECE($GET(IBCABD5),"^",14),IBLINE),10)
DO VLINE^IBCNSM7
+6 WRITE ?83,$JUSTIFY("MH Opt Max Days/Year:",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.14,$PIECE($GET(IBCABD2),"^",14),IBLINE),10)
+7 WRITE !?3,$JUSTIFY("MH Lifet Inpt Max ($):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.05,$PIECE($GET(IBCABD5),"^",5),IBLINE),10)
DO VLINE^IBCNSM7
+8 WRITE ?83,$JUSTIFY("MH Lifet Opt Max ($):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.05,$PIECE($GET(IBCABD2),"^",5),IBLINE),10)
+9 WRITE !?3,$JUSTIFY("MH Annual Inpt Max ($):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.06,$PIECE($GET(IBCABD5),"^",6),IBLINE),10)
DO VLINE^IBCNSM7
+10 WRITE ?83,$JUSTIFY("MH Annual Opt Max ($):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,5.06,$PIECE($GET(IBCABD5),"^",6),IBLINE),10)
+11 WRITE !?3,$JUSTIFY("MH Inpt (%):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.11,$PIECE($GET(IBCABD5),"^",11),IBLINE),10)
DO VLINE^IBCNSM7
+12 WRITE ?83,$JUSTIFY("MH Opt (%):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.11,$PIECE($GET(IBCABD2),"^",11),IBLINE),10)
+13 ;W !?83,$J("Max Visits/Yr:",23),?108,$J($$DOL^IBCNSM6(355.4,2.16,$P($G(IBCABD2),"^",16),IBLINE),10)
+14 ;W !?83,$J("Adult Day Health Care?:",23),?108,$J($$DOL^IBCNSM6(355.4,2.17,$P($G(IBCABD2),"^",17),IBLINE),10)
+15 QUIT
+16 ;
BL4 ; -- print home health care & hospice info, annual benefits
+1 ;
+2 WRITE !?5,$TRANSLATE($JUSTIFY(" ",IOM-12)," ","-")
+3 WRITE !?6,"7.",?33-($LENGTH("** HOME HEALTH CARE **")\2),"** HOME HEALTH CARE **"
+4 DO VLINE^IBCNSM7
WRITE ?72,"8.",?99-($LENGTH("** HOSPICE **")\2),"** HOSPICE **"
+5 WRITE !?3,$JUSTIFY("Care Level:",23)
+6 IF $PIECE($GET(IBCABD3),"^")=""
WRITE ?28,$JUSTIFY($$DOL^IBCNSM6(355.4,3.01,$PIECE($GET(IBCABD3),"^"),IBLINE),10)
GOTO ANDED
+7 WRITE ?(37-($LENGTH($$DOL^IBCNSM6(355.4,3.01,$PIECE($GET(IBCABD3),"^"),IBLINE))\2)),$$DOL^IBCNSM6(355.4,3.01,$PIECE($GET(IBCABD3),"^"),IBLINE)
+8 ;
ANDED DO VLINE^IBCNSM7
WRITE ?83,$JUSTIFY("Annual Ded ($):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,4.01,$PIECE($GET(IBCABD4),"^"),IBLINE),10)
+1 WRITE !?3,$JUSTIFY("Visits/Year:",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,3.02,$PIECE($GET(IBCABD3),"^",2),IBLINE),10)
DO VLINE^IBCNSM7
+2 WRITE ?83,$JUSTIFY("Inpt Annual Max ($):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,4.02,$PIECE($GET(IBCABD4),"^",2),IBLINE),10)
+3 WRITE !?3,$JUSTIFY("Max Days/Year:",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,3.03,$PIECE($GET(IBCABD3),"^",3),IBLINE),10)
DO VLINE^IBCNSM7
+4 WRITE ?83,$JUSTIFY("Inpt Lifet Max ($):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,4.03,$PIECE($GET(IBCABD4),"^",3),IBLINE),10)
+5 WRITE !?3,$JUSTIFY("Med Equipment (%):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,3.04,$PIECE($GET(IBCABD3),"^",4),IBLINE),10)
DO VLINE^IBCNSM7
+6 WRITE ?83,$JUSTIFY("Room & Board (%):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,4.04,$PIECE($GET(IBCABD4),"^",4),IBLINE),10)
+7 SET IBLE=$$DOL^IBCNSM6(355.4,3.05,$PIECE($GET(IBCABD3),"^",5),IBLINE)
+8 WRITE !?3,$JUSTIFY("Visit Definition:",23),?28,$$DOL^IBCNSM6(355.4,3.05,$PIECE($GET(IBCABD3),"^",5),IBLINE)
DO VLINE^IBCNSM7
+9 ;W $S("?"_37-($L(IBLE))\2:$L(IBLE)'>19,1:?28)_","_"that's right"
+10 WRITE ?83,$JUSTIFY("Other Inpt Charges (%):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,4.05,$PIECE($GET(IBCABD4),"^",5),IBLINE),10)
+11 QUIT
