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

Package: Integrated Billing

Routine: IBCNSM7


Information

IBCNSM7 ;ALB/NLR - INSURANCE MANAGEMENT WORKSHEET3 ; 9-AUG-93

Source Information

Source file <IBCNSM7.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Integrated Billing 1 $$DOL^IBCNSM6  

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

Package Total Caller Graph
Integrated Billing 4 IBCNSM5  IBCNSM6  IBCNSM8  IBCNSM9  

Entry Points

Name Comments DBIA/ICR reference
R1Q ;
BL2 ; -- print inpatient & outpatient info, annual benefits
DEN
IOQ
VLINE ; create a vertical line between blocks

External References

Name Field # of Occurrence
$$DOL^IBCNSM6 BL2+7, BL2+8, BL2+9, BL2+10, BL2+11, BL2+12, BL2+13, BL2+14, BL2+15, BL2+16
BL2+17, BL2+18, BL2+19, BL2+20, BL2+21, BL2+22, BL2+23, BL2+24, BL2+25, BL2+27
BL2+28, DEN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","=")
  • Line Location: BL2+2
Function Call: WRITE
  • Prompt: !?66-($L("* ANNUAL BENEFITS *")\2),"* ANNUAL BENEFITS *"
  • Line Location: BL2+3
Function Call: WRITE
  • Prompt: !?5,$TR($J(" ",IOM-12)," ","-")
  • Line Location: BL2+4
Function Call: WRITE
  • Prompt: !?6,"3.",?33-($L("** INPATIENT ANNUAL BENEFITS **")\2),"** INPATIENT ANNUAL BENEFITS **"
  • Line Location: BL2+5
Function Call: WRITE
  • Prompt: ?72,"4.",?99-($L("** OUTPATIENT ANNUAL BENEFITS **")\2),"** OUTPATIENT ANNUAL BENEFITS **"
  • Line Location: BL2+6
Function Call: WRITE
  • Prompt: !?3,$J("Annual Ded ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.01,$P($G(IBCABD5),"^"),IBLINE),10)
  • Line Location: BL2+7
Function Call: WRITE
  • Prompt: ?83,$J("Annual Ded ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.01,$P($G(IBCABD2),"^"),IBLINE),10)
  • Line Location: BL2+8
Function Call: WRITE
  • Prompt: !?3,$J("Per Admis Ded ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.02,$P($G(IBCABD5),"^",2),IBLINE),10)
  • Line Location: BL2+9
Function Call: WRITE
  • Prompt: ?83,$J("Per Visit Ded ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.02,$P($G(IBCABD2),"^",2),IBLINE),10)
  • Line Location: BL2+10
Function Call: WRITE
  • Prompt: !?3,$J("Inpt Lifet Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.03,$P($G(IBCABD5),"^",3),IBLINE),10)
  • Line Location: BL2+11
Function Call: WRITE
  • Prompt: ?83,$J("Lifet Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.03,$P($G(IBCABD2),"^",3),IBLINE),10)
  • Line Location: BL2+12
Function Call: WRITE
  • Prompt: !?3,$J("Inpt Annual Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.04,$P($G(IBCABD5),"^",4),IBLINE),10),?60
  • Line Location: BL2+13
Function Call: WRITE
  • Prompt: ?83,$J("Annual Max ($):",23),?108,$J($$DOL^IBCNSM6(355.4,2.04,$P($G(IBCABD2),"^",4),IBLINE),10)
  • Line Location: BL2+14
Function Call: WRITE
  • Prompt: !?3,$J("Room & Board (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.09,$P($G(IBCABD5),"^",9),IBLINE),10),?60
  • Line Location: BL2+15
Function Call: WRITE
  • Prompt: ?83,$J("Visit (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.09,$P($G(IBCABD2),"^",9),IBLINE),10)
  • Line Location: BL2+16
Function Call: WRITE
  • Prompt: !?3,$J("Drug/Alc Lifet Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.07,$P($G(IBCABD5),"^",7),IBLINE),10)
  • Line Location: BL2+17
Function Call: WRITE
  • Prompt: ?83,$J("Max Visits/Yr:",23),?108,$J($$DOL^IBCNSM6(355.4,2.15,$P($G(IBCABD2),"^",15),IBLINE),10)
  • Line Location: BL2+18
Function Call: WRITE
  • Prompt: !?3,$J("Drug/Alc An Max ($):",23),?28,$J($$DOL^IBCNSM6(355.4,5.08,$P($G(IBCABD5),"^",8),IBLINE),10)
  • Line Location: BL2+19
Function Call: WRITE
  • Prompt: ?83,$J("Surgery (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.13,$P($G(IBCABD2),"^",13),IBLINE),10)
  • Line Location: BL2+20
Function Call: WRITE
  • Prompt: !?3,$J("Nursing Home (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.1,$P($G(IBCABD5),"^",10),IBLINE),10)
  • Line Location: BL2+21
Function Call: WRITE
  • Prompt: ?83,$J("Emergency (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.10,$P($G(IBCABD2),"^",10),IBLINE),10)
  • Line Location: BL2+22
Function Call: WRITE
  • Prompt: !?3,$J("Other Inpt Charges (%):",23),?28,$J($$DOL^IBCNSM6(355.4,5.12,$P($G(IBCABD5),"^",12),IBLINE),10)
  • Line Location: BL2+23
Function Call: WRITE
  • Prompt: ?83,$J("Prescription (%):",23),?108,$J($$DOL^IBCNSM6(355.4,2.12,$P($G(IBCABD2),"^",12),IBLINE),10)
  • Line Location: BL2+24
Function Call: WRITE
  • Prompt: !
  • Line Location: BL2+25
Function Call: WRITE
  • Prompt: ?83,$J("Adult Day Health Care?:",23),?108,$J($$DOL^IBCNSM6(355.4,2.17,$P($G(IBCABD2),"^",17),IBLINE),10)
  • Line Location: BL2+25
Function Call: WRITE
  • Prompt: !
  • Line Location: BL2+26
Function Call: WRITE
  • Prompt: ?67,$J("Dnt Cov Type (NONE/PER VIS $ / % AMT):",39)
  • Line Location: BL2+26
Function Call: WRITE
  • Prompt: ?108,$J($$DOL^IBCNSM6(355.4,2.07,$P($G(IBCABD2),"^",7),IBLINE),10)
  • Line Location: BL2+27
Function Call: WRITE
  • Prompt: ?(117-($L($$DOL^IBCNSM6(355.4,2.07,$P($G(IBCABD2),"^",7),IBLINE))\2)),$$DOL^IBCNSM6(355.4,2.07,$P($G(IBCABD2),"^",7),IBLINE)
  • Line Location: BL2+28
Function Call: WRITE
  • Prompt: !
  • Line Location: DEN+3
Function Call: WRITE
  • Prompt: ?$S($P($G(IBCABD2),U,7)=1!2:83,1:80),$J(IBX,23),?108,$J($$DOL^IBCNSM6(355.4,2.08,$P($G(IBCABD2),"^",8),IBLINE),10)
  • Line Location: DEN+3
Function Call: WRITE
  • Prompt: ?66,"|"
  • Line Location: VLINE+1

Label References

Name Line Occurrences
DEN BL2+27
IOQ DEN
VLINE BL2+6, BL2+7, BL2+9, BL2+11, BL2+13, BL2+15, BL2+17, BL2+19, BL2+21, BL2+23
BL2+25, BL2+26, DEN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> IBCABD2 BL2+8, BL2+10, BL2+12, BL2+14, BL2+16, BL2+18, BL2+20, BL2+22, BL2+24, BL2+25
BL2+27, BL2+28, DENDEN+2, DEN+3
>> IBCABD5 BL2+7, BL2+9, BL2+11, BL2+13, BL2+15, BL2+17, BL2+19, BL2+21, BL2+23
>> IBLINE BL2+7, BL2+8, BL2+9, BL2+10, BL2+11, BL2+12, BL2+13, BL2+14, BL2+15, BL2+16
BL2+17, BL2+18, BL2+19, BL2+20, BL2+21, BL2+22, BL2+23, BL2+24, BL2+25, BL2+27
BL2+28, DENDEN+3
IBX DEN+1~, DEN+2*, DEN+3
IOM BL2+2, BL2+4
U DEN+2, DEN+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All