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: IBCNSM9

Package: Integrated Billing

Routine: IBCNSM9


Information

IBCNSM9 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET7 ; 15-NOV-93

Source Information

Source file <IBCNSM9.m>

Entry Points

Name Comments DBIA/ICR reference
BL5 ; -- print rehab & iv mgmt info
BL6 ; -- print rider info
GETRDRS ; -- get personal riders
DISPRQ
BL7 ; -- print benefits used

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL5+1
Function Call: WRITE
  • Prompt: !?6,"9.",?33-($L("** REHABILITATION **")\2),"** REHABILITATION **"
  • Line Location: BL5+2
Function Call: WRITE
  • Prompt: ?71,"10.",?99-($L("** IV MANAGEMENT **")\2),"** IV MANAGEMENT **"
  • Line Location: BL5+3
Function Call: WRITE
  • Prompt: !?3,$J("OT Visits/Yr:",23),?28,$J($$DOL^IBCNSM6(355.4,3.06,$P($G(IBCABD3),"^",6),IBLINE),10)
  • Line Location: BL5+4
Function Call: WRITE
  • Prompt: ?83,$J("IV Infusion Opt?:",23),?108,$J($$DOL^IBCNSM6(355.4,4.06,$P($G(IBCABD4),"^",6),IBLINE),10)
  • Line Location: BL5+5
Function Call: WRITE
  • Prompt: !?3,$J("PT Visits/Yr:",23),?28,$J($$DOL^IBCNSM6(355.4,3.07,$P($G(IBCABD3),"^",7),IBLINE),10)
  • Line Location: BL5+6
Function Call: WRITE
  • Prompt: ?83,$J("IV Infusion Inpt?:",23),?108,$J($$DOL^IBCNSM6(355.4,4.07,$P($G(IBCABD4),"^",7),IBLINE),10)
  • Line Location: BL5+7
Function Call: WRITE
  • Prompt: !?3,$J("ST Visits/Yr:",23),?28,$J($$DOL^IBCNSM6(355.4,3.08,$P($G(IBCABD3),"^",8),IBLINE),10)
  • Line Location: BL5+8
Function Call: WRITE
  • Prompt: ?83,$J("IV Antibiotics Opt?:",23),?108,$J($$DOL^IBCNSM6(355.4,4.08,$P($G(IBCABD4),"^",8),IBLINE),10)
  • Line Location: BL5+9
Function Call: WRITE
  • Prompt: !?3,$J("Med Cnslg Visits/Yr:",23),?28,$J($$DOL^IBCNSM6(355.4,3.09,$P($G(IBCABD3),"^",9),IBLINE),10)
  • Line Location: BL5+10
Function Call: WRITE
  • Prompt: ?83,$J("IV Antibiotics Inpt?:",23),?108,$J($$DOL^IBCNSM6(355.4,4.09,$P($G(IBCABD4),"^",9),IBLINE),10)
  • Line Location: BL5+11
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL5+12
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL6+3
Function Call: WRITE
  • Prompt: !?5,"11.",?33-($L("** CURRENT PERSONAL RIDERS **")\2),"** CURRENT PERSONAL RIDERS **"
  • Line Location: GETRDRS+4
Function Call: WRITE
  • Prompt: !?9,"None Indicated"
  • Line Location: GETRDRS+8
Function Call: WRITE
  • Prompt: !!?10,$TR($J(" ",(IOM-20))," ","_")
  • Line Location: GETRDRS+9
Function Call: WRITE
  • Prompt: !!?10,$TR($J(" ",(IOM-20))," ","_")
  • Line Location: GETRDRS+9
Function Call: WRITE
  • Prompt: !!?10,$TR($J(" ",(IOM-20))," ","_")
  • Line Location: GETRDRS+9
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: BL7+4
Function Call: WRITE
  • Prompt: !?66-($L("* BENEFITS USED *")\2),"* BENEFITS USED *"
  • Line Location: BL7+5
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL7+6
Function Call: WRITE
  • Prompt: !?5,"12.",?33-($L("** POLICY **")\2),"** POLICY **"
  • Line Location: BL7+7
Function Call: WRITE
  • Prompt: ?71,"13.",?99-($L("** OPT DEDUCTIBLES **")\2),"** OPT DEDUCTIBLES **"
  • Line Location: BL7+8
Function Call: WRITE
  • Prompt: !?3,$J("Ded Met?:",23),?28,$E($$DOL^IBCNSM6(355.5,.04,$$YN^IBCNSM($P($G(IBCBUD),"^",4),1),IBLINE),1,22)
  • Line Location: BL7+9
Function Call: WRITE
  • Prompt: ?83,$J("Ded Met?:",23),?108,$E($$DOL^IBCNSM6(355.5,.08,$$YN^IBCNSM($P($G(IBCBUD),"^",8),1),IBLINE),1,22)
  • Line Location: BL7+10
Function Call: WRITE
  • Prompt: !?3,$J("Amt of Ded Met ($):",23),?28,$E($$DOL^IBCNSM6(355.5,.05,$P($G(IBCBUD),"^",5),IBLINE),1,22)
  • Line Location: BL7+11
Function Call: WRITE
  • Prompt: ?83,$J("Amt of Ded Met ($):",23),?108,$E($$DOL^IBCNSM6(355.5,.09,$P($G(IBCBUD),"^",9),IBLINE),1,22)
  • Line Location: BL7+12
Function Call: WRITE
  • Prompt: !?3,$J("Pre-exist Cond:",23),?28,$E($$DOL^IBCNSM6(355.5,.15,$P($G(IBCBUD),"^",15),IBLINE),1,22)
  • Line Location: BL7+13
Function Call: WRITE
  • Prompt: ?83,$J("MH Ded (Opt) Met?:",23),?108,$E($$DOL^IBCNSM6(355.5,.13,$$YN^IBCNSM($P($G(IBCBUD),"^",13),1),IBLINE),1,22)
  • Line Location: BL7+14
Function Call: WRITE
  • Prompt: !?3,$J("Coord of Ben Data:",23),?28,$E($$DOL^IBCNSM6(355.5,.16,$P($G(IBCBUD),"^",16),IBLINE),1,22)
  • Line Location: BL7+15
Function Call: WRITE
  • Prompt: ?83,$J("Amt of MH Ded Met ($):",23),?108,$E($$DOL^IBCNSM6(355.5,.14,$P($G(IBCBUD),"^",14),IBLINE),1,22)
  • Line Location: BL7+16
Function Call: WRITE
  • Prompt: !
  • Line Location: BL7+17
Function Call: WRITE
  • Prompt: ?83,$J("Amt Lifet Max Used ($):",23),?108,$E($$DOL^IBCNSM6(355.5,.1,$P($G(IBCBUD),"^",10),IBLINE),1,22)
  • Line Location: BL7+17
Function Call: WRITE
  • Prompt: !
  • Line Location: BL7+18
Function Call: WRITE
  • Prompt: ?80,"Amt MH Lifet Max Used ($):",?108,$E($$DOL^IBCNSM6(355.5,.2,$P($G(IBCBUD),"^",20),IBLINE),1,22)
  • Line Location: BL7+18
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL7+22
Function Call: WRITE
  • Prompt: !?5,"14.",?33-($L("** INPT DEDUCTIBLES **")\2),"** INPT DEDUCTIBLES **"
  • Line Location: BL7+23
Function Call: WRITE
  • Prompt: !?3,$J("Ded Met?:",23),?28,$E($$DOL^IBCNSM6(355.5,.11,$$YN^IBCNSM($P($G(IBCBUD),"^",6),1),IBLINE),1,22)
  • Line Location: BL7+24
Function Call: WRITE
  • Prompt: !?3,$J("Amt of Ded Met ($):",23),?28,$$DOL^IBCNSM6(355.5,.07,$P($G(IBCBUD),"^",7),IBLINE)
  • Line Location: BL7+25
Function Call: WRITE
  • Prompt: !?3,$J("MH Ded (Inpt) Met?:",23),?28,$E($$DOL^IBCNSM6(355.5,.11,$$YN^IBCNSM($P($G(IBCBUD),"^",11),1),IBLINE),1,22)
  • Line Location: BL7+26
Function Call: WRITE
  • Prompt: !?3,$J("Amt of MH Ded Met ($):",23),?28,$E($$DOL^IBCNSM6(355.5,.12,$P($G(IBCBUD),"^",12),IBLINE),1,22)
  • Line Location: BL7+27
Function Call: WRITE
  • Prompt: !?3,$J("Amt Lifet Max Used ($):",23),?28,$E($$DOL^IBCNSM6(355.5,.19,$P($G(IBCBUD),"^",19),IBLINE),1,22)
  • Line Location: BL7+28
Function Call: WRITE
  • Prompt: !,"Amt MH Lifet Max Used ($):",?28,$E($$DOL^IBCNSM6(355.5,.18,$P($G(IBCBUD),"^",18),IBLINE),1,22)
  • Line Location: BL7+29
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: BL7+30
Info |  Source |  Entry Points |  Interaction Calls