- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNSM7 3437 printed Feb 18, 2025@23:43:57 Page 2
- 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
