Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Integrated Billing 2 $$DOL^IBCNSM6  VLINE^IBCNSM7  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCNSM5  

Entry Points

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

External References

Name Field # of Occurrence
$$DOL^IBCNSM6 BL3+5, BL3+6, BL3+7, BL3+8, BL3+9, BL3+10, BL3+11, BL3+12, BL4+6, BL4+7
, ANDED, ANDED+1, ANDED+2, ANDED+3, ANDED+4, ANDED+5, ANDED+6, ANDED+7, ANDED+8, ANDED+10
VLINE^IBCNSM7 BL3+3, BL3+5, BL3+7, BL3+9, BL3+11, BL4+4, ANDED, ANDED+1, ANDED+3, ANDED+5
, ANDED+8

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

Label References

Name Line Occurrences
ANDED BL4+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> IBCABD2 BL3+6, BL3+8, BL3+12
>> IBCABD3 BL4+6, BL4+7, ANDED+1, ANDED+3, ANDED+5, ANDED+7, ANDED+8
>> IBCABD4 ANDED, ANDED+2, ANDED+4, ANDED+6, ANDED+10
>> IBCABD5 BL3+5, BL3+7, BL3+9, BL3+10, BL3+11
>> IBLE ANDED+7*
>> IBLINE BL3+5, BL3+6, BL3+7, BL3+8, BL3+9, BL3+10, BL3+11, BL3+12, BL4+6, BL4+7
, ANDED, ANDED+1, ANDED+2, ANDED+3, ANDED+4, ANDED+5, ANDED+6, ANDED+7, ANDED+8, ANDED+10
IOM BL3+2, BL4+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All