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

Package: Integrated Billing

Routine: IBCNSM8


Information

IBCNSM8 ;ALB/NLR - INSURANCE MANAGEMENT WORKHSEET5 ; 9-AUG-93

Source Information

Source file <IBCNSM8.m>

Entry Points

Name Comments DBIA/ICR reference
BL3 ; -- print mental health info, annual benefits
BL4 ; -- print home health care & hospice info, annual benefits
ANDED

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL3+2
Function Call: WRITE
  • Prompt: !?6,"5.",?33-($L("** MENTAL HEALTH INPATIENT **")\2),"** MENTAL HEALTH INPATIENT **"
  • Line Location: BL3+3
Function Call: WRITE
  • Prompt: ?72,"6.",?99-($L("** MENTAL HEALTH OUTPATIENT **")\2),"** MENTAL HEALTH OUTPATIENT **"
  • Line Location: BL3+4
Function Call: WRITE
  • Prompt: !?3,$J("MH Inpt Max Days/Year:",23),?28,$J($$DOL^IBCNSM6(355.4,5.14,$P($G(IBCABD5),"^",14),IBLINE),10)
  • Line Location: BL3+5
Function Call: WRITE
  • Prompt: ?83,$J("MH Opt Max Days/Year:",23),?108,$J($$DOL^IBCNSM6(355.4,2.14,$P($G(IBCABD2),"^",14),IBLINE),10)
  • Line Location: BL3+6
Function Call: WRITE
  • Prompt: !?3,$J("MH Lifet Inpt Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.05,$P($G(IBCABD5),"^",5),IBLINE),10)
  • Line Location: BL3+7
Function Call: WRITE
  • Prompt: ?83,$J("MH Lifet Opt Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.05,$P($G(IBCABD2),"^",5),IBLINE),10)
  • Line Location: BL3+8
Function Call: WRITE
  • Prompt: !?3,$J("MH Annual Inpt Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.06,$P($G(IBCABD5),"^",6),IBLINE),10)
  • Line Location: BL3+9
Function Call: WRITE
  • Prompt: ?83,$J("MH Annual Opt Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,5.06,$P($G(IBCABD5),"^",6),IBLINE),10)
  • Line Location: BL3+10
Function Call: WRITE
  • Prompt: !?3,$J("MH Inpt (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.11,$P($G(IBCABD5),"^",11),IBLINE),10)
  • Line Location: BL3+11
Function Call: WRITE
  • Prompt: ?83,$J("MH Opt (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.11,$P($G(IBCABD2),"^",11),IBLINE),10)
  • Line Location: BL3+12
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL4+2
Function Call: WRITE
  • Prompt: !?6,"7.",?33-($L("** HOME HEALTH CARE **")\2),"** HOME HEALTH CARE **"
  • Line Location: BL4+3
Function Call: WRITE
  • Prompt: ?72,"8.",?99-($L("** HOSPICE **")\2),"** HOSPICE **"
  • Line Location: BL4+4
Function Call: WRITE
  • Prompt: !?3,$J("Care Level:",23)
  • Line Location: BL4+5
Function Call: WRITE
  • Prompt: ?28,$J($$DOL^IBCNSM6(355.4,3.01,$P($G(IBCABD3),"^"),IBLINE),10)
  • Line Location: BL4+6
Function Call: WRITE
  • Prompt: ?(37-($L($$DOL^IBCNSM6(355.4,3.01,$P($G(IBCABD3),"^"),IBLINE))\2)),$$DOL^IBCNSM6(355.4,3.01,$P($G(IBCABD3),"^"),IBLINE)
  • Line Location: BL4+7
Function Call: WRITE
  • Prompt: ?83,$J("Annual Ded ($):",23),?108,$J($$DOL^IBCNSM6(355.4,4.01,$P($G(IBCABD4),"^"),IBLINE),10)
  • Line Location: ANDED+0
Function Call: WRITE
  • Prompt: !?3,$J("Visits/Year:",23),?28,$J($$DOL^IBCNSM6(355.4,3.02,$P($G(IBCABD3),"^",2),IBLINE),10)
  • Line Location: ANDED+1
Function Call: WRITE
  • Prompt: ?83,$J("Inpt Annual Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,4.02,$P($G(IBCABD4),"^",2),IBLINE),10)
  • Line Location: ANDED+2
Function Call: WRITE
  • Prompt: !?3,$J("Max Days/Year:",23),?28,$J($$DOL^IBCNSM6(355.4,3.03,$P($G(IBCABD3),"^",3),IBLINE),10)
  • Line Location: ANDED+3
Function Call: WRITE
  • Prompt: ?83,$J("Inpt Lifet Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,4.03,$P($G(IBCABD4),"^",3),IBLINE),10)
  • Line Location: ANDED+4
Function Call: WRITE
  • Prompt: !?3,$J("Med Equipment (%):",23),?28,$J($$DOL^IBCNSM6(355.4,3.04,$P($G(IBCABD3),"^",4),IBLINE),10)
  • Line Location: ANDED+5
Function Call: WRITE
  • Prompt: ?83,$J("Room & Board (%):",23),?108,$J($$DOL^IBCNSM6(355.4,4.04,$P($G(IBCABD4),"^",4),IBLINE),10)
  • Line Location: ANDED+6
Function Call: WRITE
  • Prompt: !?3,$J("Visit Definition:",23),?28,$$DOL^IBCNSM6(355.4,3.05,$P($G(IBCABD3),"^",5),IBLINE)
  • Line Location: ANDED+8
Function Call: WRITE
  • Prompt: ?83,$J("Other Inpt Charges (%):",23),?108,$J($$DOL^IBCNSM6(355.4,4.05,$P($G(IBCABD4),"^",5),IBLINE),10)
  • Line Location: ANDED+10
Info |  Source |  Entry Points |  Interaction Calls