IBCNSM7 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET3 ; 9-AUG-93
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
; -- print comments
;
;W !,$TR($J(" ",IOM)," ","-")
;W !?3,"COMMENTS",!?6,$P($G(IBCBUD1),U,8)
;W !!!!
;Q
;
R1Q ;
Q
;
BL2 ; -- print inpatient & outpatient info, annual benefits
;
W !,$TR($J(" ",IOM)," ","=")
W !?66-($L("* ANNUAL BENEFITS *")\2),"* ANNUAL BENEFITS *"
W !?5,$TR($J(" ",IOM-12)," ","-")
W !?6,"3.",?33-($L("** INPATIENT ANNUAL BENEFITS **")\2),"** INPATIENT ANNUAL BENEFITS **"
D VLINE W ?72,"4.",?99-($L("** OUTPATIENT ANNUAL BENEFITS **")\2),"** OUTPATIENT ANNUAL BENEFITS **"
W !?3,$J("Annual Ded ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.01,$P($G(IBCABD5),"^"),IBLINE),10) D VLINE
W ?83,$J("Annual Ded ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.01,$P($G(IBCABD2),"^"),IBLINE),10)
W !?3,$J("Per Admis Ded ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.02,$P($G(IBCABD5),"^",2),IBLINE),10) D VLINE
W ?83,$J("Per Visit Ded ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.02,$P($G(IBCABD2),"^",2),IBLINE),10)
W !?3,$J("Inpt Lifet Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.03,$P($G(IBCABD5),"^",3),IBLINE),10) D VLINE
W ?83,$J("Lifet Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.03,$P($G(IBCABD2),"^",3),IBLINE),10)
W !?3,$J("Inpt Annual Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.04,$P($G(IBCABD5),"^",4),IBLINE),10),?60 D VLINE
W ?83,$J("Annual Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.04,$P($G(IBCABD2),"^",4),IBLINE),10)
W !?3,$J("Room & Board (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.09,$P($G(IBCABD5),"^",9),IBLINE),10),?60 D VLINE
W ?83,$J("Visit (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.09,$P($G(IBCABD2),"^",9),IBLINE),10)
W !?3,$J("Drug/Alc Lifet Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.07,$P($G(IBCABD5),"^",7),IBLINE),10) D VLINE
W ?83,$J("Max Visits/Yr:",23),?108,$J($$DOL^IBCNSM6(355.4,2.15,$P($G(IBCABD2),"^",15),IBLINE),10)
W !?3,$J("Drug/Alc An Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.08,$P($G(IBCABD5),"^",8),IBLINE),10) D VLINE
W ?83,$J("Surgery (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.13,$P($G(IBCABD2),"^",13),IBLINE),10)
W !?3,$J("Nursing Home (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.1,$P($G(IBCABD5),"^",10),IBLINE),10) D VLINE
W ?83,$J("Emergency (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.10,$P($G(IBCABD2),"^",10),IBLINE),10)
W !?3,$J("Other Inpt Charges (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.12,$P($G(IBCABD5),"^",12),IBLINE),10) D VLINE
W ?83,$J("Prescription (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.12,$P($G(IBCABD2),"^",12),IBLINE),10)
W ! D VLINE W ?83,$J("Adult Day Health Care?:",23),?108,$J($$DOL^IBCNSM6(355.4,2.17,$P($G(IBCABD2),"^",17),IBLINE),10)
W ! D VLINE W ?67,$J("Dnt Cov Type (NONE/PER VIS $ / % AMT):",39)
I $P($G(IBCABD2),"^",7)="" W ?108,$J($$DOL^IBCNSM6(355.4,2.07,$P($G(IBCABD2),"^",7),IBLINE),10) G DEN
W ?(117-($L($$DOL^IBCNSM6(355.4,2.07,$P($G(IBCABD2),"^",7),IBLINE))\2)),$$DOL^IBCNSM6(355.4,2.07,$P($G(IBCABD2),"^",7),IBLINE)
;
DEN I $P(IBCABD2,"^",7)=0!('($G(IBLINE))&($P(IBCABD2,"^",7)="")) G IOQ
N IBX
S IBX=$S($P($G(IBCABD2),U,7)=1:"Dental Cov ($):",$P($G(IBCABD2),U,7)=2:"Dental Cov (%):",1:"Dental Cov $ Or %:")
W ! D VLINE W ?$S($P($G(IBCABD2),U,7)=1!2:83,1:80),$J(IBX,23),?108,$J($$DOL^IBCNSM6(355.4,2.08,$P($G(IBCABD2),"^",8),IBLINE),10)
IOQ Q
VLINE ; create a vertical line between blocks
W ?66,"|"
Q
IBCNSM7 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET3 ; 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 ;
+4 ; -- print comments
+5 ;
+6 ;W !,$TR($J(" ",IOM)," ","-")
+7 ;W !?3,"COMMENTS",!?6,$P($G(IBCBUD1),U,8)
+8 ;W !!!!
+9 ;Q
+10 ;
R1Q ;
+1 QUIT
+2 ;
BL2 ; -- print inpatient & outpatient info, annual benefits
+1 ;
+2 WRITE !,$TRANSLATE($JUSTIFY(" ",IOM)," ","=")
+3 WRITE !?66-($LENGTH("* ANNUAL BENEFITS *")\2),"* ANNUAL BENEFITS *"
+4 WRITE !?5,$TRANSLATE($JUSTIFY(" ",IOM-12)," ","-")
+5 WRITE !?6,"3.",?33-($LENGTH("** INPATIENT ANNUAL BENEFITS **")\2),"** INPATIENT ANNUAL BENEFITS **"
+6 DO VLINE
WRITE ?72,"4.",?99-($LENGTH("** OUTPATIENT ANNUAL BENEFITS **")\2),"** OUTPATIENT ANNUAL BENEFITS **"
+7 WRITE !?3,$JUSTIFY("Annual Ded ($):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.01,$PIECE($GET(IBCABD5),"^"),IBLINE),10)
DO VLINE
+8 WRITE ?83,$JUSTIFY("Annual Ded ($):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.01,$PIECE($GET(IBCABD2),"^"),IBLINE),10)
+9 WRITE !?3,$JUSTIFY("Per Admis Ded ($):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.02,$PIECE($GET(IBCABD5),"^",2),IBLINE),10)
DO VLINE
+10 WRITE ?83,$JUSTIFY("Per Visit Ded ($):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.02,$PIECE($GET(IBCABD2),"^",2),IBLINE),10)
+11 WRITE !?3,$JUSTIFY("Inpt Lifet Max ($):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.03,$PIECE($GET(IBCABD5),"^",3),IBLINE),10)
DO VLINE
+12 WRITE ?83,$JUSTIFY("Lifet Max ($):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.03,$PIECE($GET(IBCABD2),"^",3),IBLINE),10)
+13 WRITE !?3,$JUSTIFY("Inpt Annual Max ($):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.04,$PIECE($GET(IBCABD5),"^",4),IBLINE),10),?60
DO VLINE
+14 WRITE ?83,$JUSTIFY("Annual Max ($):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.04,$PIECE($GET(IBCABD2),"^",4),IBLINE),10)
+15 WRITE !?3,$JUSTIFY("Room & Board (%):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.09,$PIECE($GET(IBCABD5),"^",9),IBLINE),10),?60
DO VLINE
+16 WRITE ?83,$JUSTIFY("Visit (%):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.09,$PIECE($GET(IBCABD2),"^",9),IBLINE),10)
+17 WRITE !?3,$JUSTIFY("Drug/Alc Lifet Max ($):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.07,$PIECE($GET(IBCABD5),"^",7),IBLINE),10)
DO VLINE
+18 WRITE ?83,$JUSTIFY("Max Visits/Yr:",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.15,$PIECE($GET(IBCABD2),"^",15),IBLINE),10)
+19 WRITE !?3,$JUSTIFY("Drug/Alc An Max ($):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.08,$PIECE($GET(IBCABD5),"^",8),IBLINE),10)
DO VLINE
+20 WRITE ?83,$JUSTIFY("Surgery (%):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.13,$PIECE($GET(IBCABD2),"^",13),IBLINE),10)
+21 WRITE !?3,$JUSTIFY("Nursing Home (%):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.1,$PIECE($GET(IBCABD5),"^",10),IBLINE),10)
DO VLINE
+22 WRITE ?83,$JUSTIFY("Emergency (%):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.10,$PIECE($GET(IBCABD2),"^",10),IBLINE),10)
+23 WRITE !?3,$JUSTIFY("Other Inpt Charges (%):",23),?28,$JUSTIFY($$DOL^IBCNSM6(355.4,5.12,$PIECE($GET(IBCABD5),"^",12),IBLINE),10)
DO VLINE
+24 WRITE ?83,$JUSTIFY("Prescription (%):",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.12,$PIECE($GET(IBCABD2),"^",12),IBLINE),10)
+25 WRITE !
DO VLINE
WRITE ?83,$JUSTIFY("Adult Day Health Care?:",23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.17,$PIECE($GET(IBCABD2),"^",17),IBLINE),10)
+26 WRITE !
DO VLINE
WRITE ?67,$JUSTIFY("Dnt Cov Type (NONE/PER VIS $ / % AMT):",39)
+27 IF $PIECE($GET(IBCABD2),"^",7)=""
WRITE ?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.07,$PIECE($GET(IBCABD2),"^",7),IBLINE),10)
GOTO DEN
+28 WRITE ?(117-($LENGTH($$DOL^IBCNSM6(355.4,2.07,$PIECE($GET(IBCABD2),"^",7),IBLINE))\2)),$$DOL^IBCNSM6(355.4,2.07,$PIECE($GET(IBCABD2),"^",7),IBLINE)
+29 ;
DEN IF $PIECE(IBCABD2,"^",7)=0!('($GET(IBLINE))&($PIECE(IBCABD2,"^",7)=""))
GOTO IOQ
+1 NEW IBX
+2 SET IBX=$SELECT($PIECE($GET(IBCABD2),U,7)=1:"Dental Cov ($):",$PIECE($GET(IBCABD2),U,7)=2:"Dental Cov (%):",1:"Dental Cov $ Or %:")
+3 WRITE !
DO VLINE
WRITE ?$SELECT($PIECE($GET(IBCABD2),U,7)=1!2:83,1:80),$JUSTIFY(IBX,23),?108,$JUSTIFY($$DOL^IBCNSM6(355.4,2.08,$PIECE($GET(IBCABD2),"^",8),IBLINE),10)
IOQ QUIT
VLINE ; create a vertical line between blocks
+1 WRITE ?66,"|"
+2 QUIT
