Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBCNSM6

Package: Integrated Billing

Routine: IBCNSM6


Information

IBCNSM6 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET, AN BEN ; 30-JUL-93

Source Information

Source file <IBCNSM6.m>

Entry Points

Name Comments DBIA/ICR reference
BL1 ; --print subscriber's employer info, policy info, insurance co.
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
DOLQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: BL1+2
Function Call: WRITE
  • Prompt: !?66-($L("* PLAN *")\2),"* PLAN *"
  • Line Location: BL1+3
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL1+4
Function Call: WRITE
  • Prompt: !?6,"1.",?33-($L("** INSURANCE COMPANY **")\2),"** INSURANCE COMPANY **"
  • Line Location: BL1+5
Function Call: WRITE
  • Prompt: ?72,"2.",?99-($L("** PLAN INFO, UR **")\2),"** PLAN INFO, UR **"
  • Line Location: BL1+7
Function Call: WRITE
  • Prompt: !?3,$J("Company:",23),?28,$E($$DOL(36,.01,$P($G(^DIC(36,+IBCDFND,0)),"^"),IBLINE),1,22)
  • Line Location: BL1+8
Function Call: WRITE
  • Prompt: ?83,$J("Require UR?:",23),?108,$$DOL(355.3,.05,$$YN^IBCNSM($P(IBCPOLD,"^",5),1),IBLINE)
  • Line Location: BL1+9
Function Call: WRITE
  • Prompt: !?3,$J("Street:",23),?28,$E($$DOL(36,.111,$P($G(IBCDFNDA),"^"),IBLINE),1,22)
  • Line Location: BL1+10
Function Call: WRITE
  • Prompt: ?83,$J("Require Pre-cert?:",23),?108,$$DOL(355.3,.06,$$YN^IBCNSM($P(IBCPOLD,"^",6),1),IBLINE)
  • Line Location: BL1+11
Function Call: WRITE
  • Prompt: !?3,$J("Street 2:",23),?28,$E($$DOL(36,.112,$P($G(IBCDFNDA),"^",2),IBLINE),1,22)
  • Line Location: BL1+12
Function Call: WRITE
  • Prompt: ?83,$J("Benefits Assignable?:",23),?108,$$DOL(355.3,.08,$$YN^IBCNSM($P(IBCPOLD,"^",8),1),IBLINE)
  • Line Location: BL1+13
Function Call: WRITE
  • Prompt: !?3,$J("City:",23),?28,$E($$DOL(36,.114,$P(IBCDFNDA,"^",4),IBLINE),1,22)
  • Line Location: BL1+14
Function Call: WRITE
  • Prompt: ?83,$J("Effective Date:",23),?108,$$DOL(FILE,8,$$DAT1^IBOUTL($P(IBCDFND,"^",8)),IBLINE)
  • Line Location: BL1+15
Function Call: WRITE
  • Prompt: !?3,$J("State:",23),?28,$E($$DOL(36,.115,$P(IBCDFNDA,"^",5),IBLINE),1,22)
  • Line Location: BL1+16
Function Call: WRITE
  • Prompt: ?83,$J("Expiration Date:",23),?108,$$DOL(FILE,3,$$DAT1^IBOUTL($P(IBCDFND,"^",4)),IBLINE)
  • Line Location: BL1+17
Function Call: WRITE
  • Prompt: !,?3,$J("Phone:",23),?28,$$DOL(36,.131,$P(IBCDFNDB,"^",1),IBLINE)
  • Line Location: BL1+18
Function Call: WRITE
  • Prompt: ?83,$J("Whose Insurance:",23),?108,$$EXPAND^IBTRE(2.312,6,$$DOL(FILE,6,$P($G(IBCDFND),"^",6),IBLINE))
  • Line Location: BL1+19
Function Call: WRITE
  • Prompt: !?3,$J("Precert Phone:",23),?28,$$DOL(36,.133,$$PHONE^IBCNSC01(IBCDFNDB),IBLINE)
  • Line Location: BL1+20
Function Call: WRITE
  • Prompt: ?83,$J("Subscriber ID:",23),?108,$$DOL(FILE,1,$P($G(IBCDFND),"^",2),IBLINE)
  • Line Location: BL1+21
Function Call: WRITE
  • Prompt: !?3,$J("Verification Phone:",23),?28,$$DOL(36,.134,$P(IBCDFNDB,"^",4),IBLINE)
  • Line Location: BL1+22
Function Call: WRITE
  • Prompt: ?83,$J("Insured's Name:",23),?108,$E($$DOL(FILE,17,$P($G(IBCDFND),"^",17),IBLINE),1,23)
  • Line Location: BL1+23
Function Call: WRITE
  • Prompt: !,?3,$J("Filing Time Frame:",23),?28,$$DOL(36,.12,$P($G(^DIC(36,+IBCDFND,0)),"^",12),IBLINE)
  • Line Location: BL1+24
Info |  Source |  Entry Points |  Interaction Calls