- 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 Feb 18, 2025@23:43:56 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
