Routine: IBCNSM6

Information

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

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Integrated Billing	5	$$PHONE^IBCNSC01 $$YN^IBCNSM VLINE^IBCNSM7 $$DAT1^IBOUTL $$EXPAND^IBTRE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Integrated Billing	4	IBCNSM5 IBCNSM7 IBCNSM8 IBCNSM9

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

External References

Name	Field # of Occurrence
$$PHONE^IBCNSC01	BL1+20
$$YN^IBCNSM	BL1+9, BL1+11, BL1+13
VLINE^IBCNSM7	BL1+6, BL1+8, BL1+10, BL1+12, BL1+14, BL1+16, BL1+18, BL1+20, BL1+22, BL1+24
$$DAT1^IBOUTL	BL1+15, BL1+17
$$EXPAND^IBTRE	BL1+19, DOL+7

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	BL1+8, BL1+24

Label References

Name	Line Occurrences
$$DOL	BL1+8, BL1+9, BL1+10, BL1+11, BL1+12, BL1+13, BL1+14, BL1+15, BL1+16, BL1+17 , BL1+18, BL1+19, BL1+20, BL1+21, BL1+22, BL1+23, BL1+24
DOLQ	DOL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
FIELD	DOL~, DOL+7
FILE	BL1+15, BL1+17, BL1+19, BL1+21, BL1+23, DOL~, DOL+7
>> IBCDFND	BL1+8, BL1+15, BL1+17, BL1+19, BL1+21, BL1+23, BL1+24
>> IBCDFNDA	BL1+10, BL1+12, BL1+14, BL1+16
>> IBCDFNDB	BL1+18, BL1+20, BL1+22
>> IBCPOLD	BL1+9, BL1+11, BL1+13
>> IBLINE	BL1+8, BL1+9, BL1+10, BL1+11, BL1+12, BL1+13, BL1+14, BL1+15, BL1+16, BL1+17 , BL1+18, BL1+19, BL1+20, BL1+21, BL1+22, BL1+23, BL1+24
IOM	BL1+2, BL1+4
LINE	DOL~, DOL+5
VALUE	DOL~, DOL+5, DOL+7
X	DOL+3~, DOL+5, DOL+7, DOLQ

Customize PDF page

Package: Integrated Billing