Routine: IBCNSP

Information

IBCNSP ;ALB/AAS - INSURANCE MANAGEMENT - EXPANDED POLICY ; 05-MAR-1993

Source Information

Source file <IBCNSP.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Integrated Billing	4	(CONTACT,INS,POLICY)^IBCNSP0 ^IBCNSP01 $$DAT1^IBOUTL $$EXPAND^IBTRE
Registration	3	EN^VALM ($$SETSTR,CLEAR)^VALM1 (CLEAN,CNTRL,KILL,SET)^VALM10
Kernel	1	DISP^XQORM1
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 18

Package	Total	Caller Graph
Integrated Billing	18	IBCNSA0 IBCNSA1 IBCNSC IBCNSC0 IBCNSC01 IBCNSC1 IBCNSD IBCNSP01 IBCNSP1 IBCNSP3 IBTRCD IBTRCD0 IBTRDD IBTRED IBTRED0 IBTRED01 IBTRVD IBTRVD0

Entry Points

Name	Comments	DBIA/ICR reference
COMMENT	; -- Comment region
EN	; -- main entry point for IBCNS EXPANDED POLICY
HDR	; -- header code
PPOLQ
EFFECT	; -- Effective date region
UR	; -- UR of insurance region
PPOL	; -- select patient, select policy
SET(LINE,COL,TEXT,ON,OFF)	; -- set display info in array
INIT	; -- init variables and list array
EXIT	; -- exit code
EMP	; -- Insurance Employer Region
EMPQ
BLD	; -- list builder
BLANK(LINE)	; -- Build blank line
EXPND	; -- expand code
HELP	; -- help code

External References

Name	Field # of Occurrence
^DIC	PPOL+2, PPOL+9
CONTACT^IBCNSP0	BLD+12
INS^IBCNSP0	BLD+12
POLICY^IBCNSP0	BLD+12
^IBCNSP01	BLD+12
$$DAT1^IBOUTL	EFFECT+4, EFFECT+5
$$EXPAND^IBTRE	UR+4, UR+5, UR+6, UR+7
EN^VALM	EN+3
$$SETSTR^VALM1	SET+2
CLEAR^VALM1	EXIT+2
CLEAN^VALM10	EXIT+2
CNTRL^VALM10	SET+3
KILL^VALM10	BLD+2
SET^VALM10	BLANK+1, SET+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"If ROI applies, make sure current consent is signed.",!! Line Location: EMP+5
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"Patient doesn't have Insurance" Line Location: PPOL+6
Routine Call	VALM Line Location: EN+3
Routine Call	DIC Line Location: PPOL+2 PPOL+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	HDR+2
^DIC(5 - [#5]	EMP+11
^DPT - [#2]	HDR+1, BLD+6, BLD+7, BLD+8, PPOL+6, PPOL+11
^IBA(355.3 - [#355.3]	BLD+10, BLD+11, COMMENT+6, COMMENT+8
^TMP("IBCNSVP"	INIT+4!, BLD+1!
^TMP("IBCNSVPDX"	BLD+1!

Label References

Name	Line Occurrences
BLANK	BLD+3, SET+1
BLD	INIT+5
COMMENT	BLD+12
EFFECT	BLD+12
EMP	BLD+12
HDR	INIT+5
PPOL	INIT+3, PPOL+6
PPOLQ	PPOL+1, PPOL+4, PPOL+10
SET	COMMENT+3, COMMENT+4, COMMENT+5, COMMENT+8, COMMENT+9, EFFECT+3, EFFECT+4, EFFECT+5, UR+3, UR+4 , UR+5, UR+6, UR+7, EMP+3, EMP+4, EMP+7, EMP+8, EMP+9, EMP+10, EMP+11 , EMP+12
UR	BLD+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COL	SET~, SET+2, SET+3
DFN	HDR+1, BLD+6, BLD+7, BLD+8, PPOL+1, PPOL+3*, PPOL+4, PPOL+6!, PPOL+8, PPOL+11
DIC	PPOL+2, PPOL+8, PPOLQ!
DIC("A"	PPOL+8*
DIC(0	PPOL+2, PPOL+8
>> I	BLD+3*
IBADD	EMP+1~, EMP+8, EMP+9, EMP+10*, EMP+11, EMP+12
>> IBCDFN	BLD+9*
IBCDFND	BLD+5~, BLD+6*, BLD+9, BLD+10, BLD+11, EFFECT+4, EFFECT+5, EXIT+1!
IBCDFND1	BLD+5~, BLD+7*, COMMENT+4, EXIT+1!
IBCDFND2	BLD+5~, BLD+8*, EMP+4, EMP+7, EMP+8, EMP+9, EMP+10, EMP+11, EMP+12, EXIT+1!
IBCNS	BLD+6, BLD+9, EXIT+1!
IBCPOL	BLD+9*, COMMENT+6, COMMENT+8, EXIT+1!
IBCPOLD	BLD+10*, UR+4, UR+5, UR+6, UR+7, EXIT+1!
IBCPOLD1	BLD+11*, EXIT+1!
>> IBI	COMMENT+6*, COMMENT+8
>> IBLCNT	COMMENT+6, COMMENT+7, COMMENT+8, COMMENT+9*
IBPPOL	EN+1!, HDR+2, INIT+3, BLD+6, BLD+7, BLD+8, BLD+9, EXIT+1!, PPOL+11*
>> IBTOP	EN+2*
>> IORVOFF	COMMENT+3, COMMENT+5, EFFECT+3, UR+3, EMP+3
>> IORVON	COMMENT+3, COMMENT+5, EFFECT+3, UR+3, EMP+3
LINE	BLANK~, BLANK+1, SET~, SET+1, SET+2, SET+3, SET+4
OFF	SET~, SET+3
OFFSET	COMMENT+1~, COMMENT+2, COMMENT+3, COMMENT+4, COMMENT+5, COMMENT+8, COMMENT+9, EFFECT+1~, EFFECT+2, EFFECT+3 , EFFECT+4, EFFECT+5, UR+1~, UR+2, UR+3, UR+4, UR+5, UR+6, UR+7, EMP+1~ , EMP+2, EMP+3, EMP+4, EMP+7, EMP+8, EMP+9, EMP+10, EMP+11, EMP+12
ON	SET~, SET+3
START	COMMENT+1~, COMMENT+2, COMMENT+3, COMMENT+4, COMMENT+5, COMMENT+8, COMMENT+9, EFFECT+1~, EFFECT+2, EFFECT+3 , EFFECT+4, EFFECT+5, UR+1~, UR+2, UR+3, UR+4, UR+5, UR+6, UR+7, EMP+1~ , EMP+2, EMP+3, EMP+4, EMP+7, EMP+8, EMP+9, EMP+10, EMP+11, EMP+12
TEXT	SET~, SET+2, SET+3
>> VALMAR	SET+1, SET+2
>> VALMBG	INIT+2*
>> VALMCNT	INIT+2, BLD+4, SET+1*
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
VALMQUIT	EN+1!, INIT+1!, INIT+3, EXIT+1!, PPOL+1, PPOL+4, PPOL+9, PPOL+10
>> X	HELP+1*
>> Y	PPOL+3, PPOL+9, PPOL+11

Customize PDF page

Package: Integrated Billing

Routine: IBCNSP

Call Graph Total: 9

Caller Graph Total: 18