IBCNSM6 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET, AN BEN ; 30-JUL-93
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
BL1 ; --print subscriber's employer info, policy info, insurance co.
;
W !,$TR($J(" ",IOM)," ","=")
W !?66-($L("* PLAN *")\2),"* PLAN *"
W !?5,$TR($J(" ",IOM-12)," ","-")
W !?6,"1.",?33-($L("** INSURANCE COMPANY **")\2),"** INSURANCE COMPANY **"
D VLINE^IBCNSM7
W ?72,"2.",?99-($L("** PLAN INFO, UR **")\2),"** PLAN INFO, UR **"
W !?3,$J("Company:",23),?28,$E($$DOL(36,.01,$P($G(^DIC(36,+IBCDFND,0)),"^"),IBLINE),1,22) D VLINE^IBCNSM7
W ?83,$J("Require UR?:",23),?108,$$DOL(355.3,.05,$$YN^IBCNSM($P(IBCPOLD,"^",5),1),IBLINE)
W !?3,$J("Street:",23),?28,$E($$DOL(36,.111,$P($G(IBCDFNDA),"^"),IBLINE),1,22) D VLINE^IBCNSM7
W ?83,$J("Require Pre-cert?:",23),?108,$$DOL(355.3,.06,$$YN^IBCNSM($P(IBCPOLD,"^",6),1),IBLINE)
W !?3,$J("Street 2:",23),?28,$E($$DOL(36,.112,$P($G(IBCDFNDA),"^",2),IBLINE),1,22) D VLINE^IBCNSM7
W ?83,$J("Benefits Assignable?:",23),?108,$$DOL(355.3,.08,$$YN^IBCNSM($P(IBCPOLD,"^",8),1),IBLINE)
W !?3,$J("City:",23),?28,$E($$DOL(36,.114,$P(IBCDFNDA,"^",4),IBLINE),1,22) D VLINE^IBCNSM7
W ?83,$J("Effective Date:",23),?108,$$DOL(FILE,8,$$DAT1^IBOUTL($P(IBCDFND,"^",8)),IBLINE)
W !?3,$J("State:",23),?28,$E($$DOL(36,.115,$P(IBCDFNDA,"^",5),IBLINE),1,22) D VLINE^IBCNSM7
W ?83,$J("Expiration Date:",23),?108,$$DOL(FILE,3,$$DAT1^IBOUTL($P(IBCDFND,"^",4)),IBLINE)
W !,?3,$J("Phone:",23),?28,$$DOL(36,.131,$P(IBCDFNDB,"^",1),IBLINE) D VLINE^IBCNSM7
W ?83,$J("Whose Insurance:",23),?108,$$EXPAND^IBTRE(2.312,6,$$DOL(FILE,6,$P($G(IBCDFND),"^",6),IBLINE))
W !?3,$J("Precert Phone:",23),?28,$$DOL(36,.133,$$PHONE^IBCNSC01(IBCDFNDB),IBLINE) D VLINE^IBCNSM7
W ?83,$J("Subscriber ID:",23),?108,$$DOL(FILE,1,$P($G(IBCDFND),"^",2),IBLINE)
W !?3,$J("Verification Phone:",23),?28,$$DOL(36,.134,$P(IBCDFNDB,"^",4),IBLINE) D VLINE^IBCNSM7
W ?83,$J("Insured's Name:",23),?108,$E($$DOL(FILE,17,$P($G(IBCDFND),"^",17),IBLINE),1,23)
W !,?3,$J("Filing Time Frame:",23),?28,$$DOL(36,.12,$P($G(^DIC(36,+IBCDFND,0)),"^",12),IBLINE) D VLINE^IBCNSM7
Q
;
;
DOL(FILE,FIELD,VALUE,LINE) ; -- data or line
; -- expand data if it exists or else print a blank line
; if $g(line) print a line for worksheet
N X
;S:VALUE'="" LINE=0 S X=""
I VALUE="" S X=$S(LINE:"_______________________",1:"") G DOLQ
;I VALUE=""!(LINE) G DOLQ
S X=$$EXPAND^IBTRE(FILE,FIELD,VALUE)
DOLQ Q X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNSM6 2523 printed Apr 09, 2024@21:19:35 Page 2
IBCNSM6 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET, AN BEN ; 30-JUL-93
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
BL1 ; --print subscriber's employer info, policy info, insurance co.
+1 ;
+2 WRITE !,$TRANSLATE($JUSTIFY(" ",IOM)," ","=")
+3 WRITE !?66-($LENGTH("* PLAN *")\2),"* PLAN *"
+4 WRITE !?5,$TRANSLATE($JUSTIFY(" ",IOM-12)," ","-")
+5 WRITE !?6,"1.",?33-($LENGTH("** INSURANCE COMPANY **")\2),"** INSURANCE COMPANY **"
+6 DO VLINE^IBCNSM7
+7 WRITE ?72,"2.",?99-($LENGTH("** PLAN INFO, UR **")\2),"** PLAN INFO, UR **"
+8 WRITE !?3,$JUSTIFY("Company:",23),?28,$EXTRACT($$DOL(36,.01,$PIECE($GET(^DIC(36,+IBCDFND,0)),"^"),IBLINE),1,22)
DO VLINE^IBCNSM7
+9 WRITE ?83,$JUSTIFY("Require UR?:",23),?108,$$DOL(355.3,.05,$$YN^IBCNSM($PIECE(IBCPOLD,"^",5),1),IBLINE)
+10 WRITE !?3,$JUSTIFY("Street:",23),?28,$EXTRACT($$DOL(36,.111,$PIECE($GET(IBCDFNDA),"^"),IBLINE),1,22)
DO VLINE^IBCNSM7
+11 WRITE ?83,$JUSTIFY("Require Pre-cert?:",23),?108,$$DOL(355.3,.06,$$YN^IBCNSM($PIECE(IBCPOLD,"^",6),1),IBLINE)
+12 WRITE !?3,$JUSTIFY("Street 2:",23),?28,$EXTRACT($$DOL(36,.112,$PIECE($GET(IBCDFNDA),"^",2),IBLINE),1,22)
DO VLINE^IBCNSM7
+13 WRITE ?83,$JUSTIFY("Benefits Assignable?:",23),?108,$$DOL(355.3,.08,$$YN^IBCNSM($PIECE(IBCPOLD,"^",8),1),IBLINE)
+14 WRITE !?3,$JUSTIFY("City:",23),?28,$EXTRACT($$DOL(36,.114,$PIECE(IBCDFNDA,"^",4),IBLINE),1,22)
DO VLINE^IBCNSM7
+15 WRITE ?83,$JUSTIFY("Effective Date:",23),?108,$$DOL(FILE,8,$$DAT1^IBOUTL($PIECE(IBCDFND,"^",8)),IBLINE)
+16 WRITE !?3,$JUSTIFY("State:",23),?28,$EXTRACT($$DOL(36,.115,$PIECE(IBCDFNDA,"^",5),IBLINE),1,22)
DO VLINE^IBCNSM7
+17 WRITE ?83,$JUSTIFY("Expiration Date:",23),?108,$$DOL(FILE,3,$$DAT1^IBOUTL($PIECE(IBCDFND,"^",4)),IBLINE)
+18 WRITE !,?3,$JUSTIFY("Phone:",23),?28,$$DOL(36,.131,$PIECE(IBCDFNDB,"^",1),IBLINE)
DO VLINE^IBCNSM7
+19 WRITE ?83,$JUSTIFY("Whose Insurance:",23),?108,$$EXPAND^IBTRE(2.312,6,$$DOL(FILE,6,$PIECE($GET(IBCDFND),"^",6),IBLINE))
+20 WRITE !?3,$JUSTIFY("Precert Phone:",23),?28,$$DOL(36,.133,$$PHONE^IBCNSC01(IBCDFNDB),IBLINE)
DO VLINE^IBCNSM7
+21 WRITE ?83,$JUSTIFY("Subscriber ID:",23),?108,$$DOL(FILE,1,$PIECE($GET(IBCDFND),"^",2),IBLINE)
+22 WRITE !?3,$JUSTIFY("Verification Phone:",23),?28,$$DOL(36,.134,$PIECE(IBCDFNDB,"^",4),IBLINE)
DO VLINE^IBCNSM7
+23 WRITE ?83,$JUSTIFY("Insured's Name:",23),?108,$EXTRACT($$DOL(FILE,17,$PIECE($GET(IBCDFND),"^",17),IBLINE),1,23)
+24 WRITE !,?3,$JUSTIFY("Filing Time Frame:",23),?28,$$DOL(36,.12,$PIECE($GET(^DIC(36,+IBCDFND,0)),"^",12),IBLINE)
DO VLINE^IBCNSM7
+25 QUIT
+26 ;
+27 ;
DOL(FILE,FIELD,VALUE,LINE) ; -- data or line
+1 ; -- expand data if it exists or else print a blank line
+2 ; if $g(line) print a line for worksheet
+3 NEW X
+4 ;S:VALUE'="" LINE=0 S X=""
+5 IF VALUE=""
SET X=$SELECT(LINE:"_______________________",1:"")
GOTO DOLQ
+6 ;I VALUE=""!(LINE) G DOLQ
+7 SET X=$$EXPAND^IBTRE(FILE,FIELD,VALUE)
DOLQ QUIT X
