Routine: IBCNSP

Information

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

Package	Total	Call Graph
Integrated Billing	8	$$GETONEC^IBCNCH2 $$ZND^IBCNS1 LIMBLD^IBCNSC41 (INS,POLICY,SPON)^IBCNSP0 (ID,PRV,RIDER,SUBSC,VER)^IBCNSP01 $$PT^IBEFUNC $$DAT1^IBOUTL $$EXPAND^IBTRE
Kernel	3	$$FMTE^XLFDT $$RJ^XLFSTR DISP^XQORM1
List Manager	3	EN^VALM ($$SETSTR,CLEAR)^VALM1 (CLEAN,CNTRL,KILL,SET)^VALM10
VA FileMan	2	^DIC $$GET1^DIQ

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

Package	Total	Caller Graph
Integrated Billing	29	IBCNE JT COVERAGE LIMIT DATE RANGE IBCNS EXPANDED POLICY IBCNS VIEW EXP POL IBCNSA0 IBCNSA1 IBCNSC IBCNSC0 IBCNSC01 IBCNSC02 IBCNSC1 IBCNSD IBCNSJ1 IBCNSJ2 IBCNSJ5 IBCNSP PATIENT POLICY COMMENTS ADD/EDIT IBCNSP01 IBCNSP1 IBCNSP11 IBCNSP3 IBJTNA IBJTNB IBTRCD IBTRCD0 IBTRDD IBTRED IBTRED0 IBTRED01 IBTRVD IBTRVD0
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for IBCNS EXPANDED POLICY
HDR	; -- header code
INIT	; -- init variables and list array
BLD	; -- list builder
COMMENT	; -- Comment region ; Input: DFN - IEN of the currently selected patient ; IBCPOL - ; IBPPOL - O node of the selected Patient Policy ; ^TMP("IBCNSVP",$J) - Current global Array of display lines ; Output: IB1ST("COMMENT") - 1st line of comments display ; ^TMP("IBCNSVP",$J) - Updated global Array of display lines
DISPPPC(IBL,DFN,IBIIEN,COMIEN)	; Display one Patient Policy Comment
EFFECT	; -- Effective date region
UR	; -- UR of insurance region
EMP	; -- Insurance Employer Region ; ib2497 move employer lines around
EMPQ
PLIM	; plan coverage limitations/plan limitation category display
PLIMX	;
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
PPOL	; -- select patient, select policy
PPOLQ
BLANK(LINE)	; -- Build blank line
SET(LINE,COL,TEXT,ON,OFF)	; -- set display info in array

External References

Name	Field # of Occurrence
^DIC	PPOL+2, PPOL+9
$$GET1^DIQ	HDR+10
$$GETONEC^IBCNCH2	DISPPPC+13
$$ZND^IBCNS1	BLD+6
LIMBLD^IBCNSC41	PLIM+3
INS^IBCNSP0	BLD+12
POLICY^IBCNSP0	BLD+13
SPON^IBCNSP0	BLD+19
ID^IBCNSP01	BLD+20
PRV^IBCNSP01	BLD+18
RIDER^IBCNSP01	BLD+27
SUBSC^IBCNSP01	BLD+16
VER^IBCNSP01	BLD+22
$$PT^IBEFUNC	HDR+7
$$DAT1^IBOUTL	EFFECT+5, EFFECT+6, EMP+18
$$EXPAND^IBTRE	EFFECT+7, UR+4, UR+5, UR+6, UR+7, UR+8, EMP+5
EN^VALM	EN+4
$$SETSTR^VALM1	HDR+19, SET+2
CLEAR^VALM1	EXIT+2
CLEAN^VALM10	EXIT+2
CNTRL^VALM10	SET+3
KILL^VALM10	BLD+2
SET^VALM10	BLANK+1, SET+2
$$FMTE^XLFDT	HDR+7, HDR+12
$$RJ^XLFSTR	EMP+5, EMP+7, EMP+8, EMP+9, EMP+10, EMP+11, EMP+12
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"Patient doesn't have Insurance" Line Location: PPOL+6
Routine Call	DIC Line Location: PPOL+2 PPOL+9
Routine Call	VALM Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	HDR+17
^DIC(5 - [#5]	EMP+11
^DPT - [#2]	HDR+2, HDR+15, BLD+4, COMMENT+32, COMMENT+36, EFFECT+11, PPOL+6, PPOL+11
^IBA(355.3 - [#355.3]	HDR+16, BLD+8, BLD+9, BLD+10, COMMENT+18, COMMENT+20
^TMP("IBCNSVP"	BLD+1!, BLD+29, COMMENT+12, EFFECT+2, UR+2, EMP+3, PLIM+1, PLIM+4
^TMP("IBCNSVPDX"	BLD+1!

Label References

Name	Line Occurrences
BLANK	SET+1
BLD	INIT+4
COMMENT	BLD+26
DISPPPC	COMMENT+43
EFFECT	BLD+15
EMP	BLD+17
HDR	INIT+4
PLIM	BLD+21
PPOL	INIT+3, PPOL+6
PPOLQ	PPOL+1, PPOL+4, PPOL+10
SET	COMMENT+16, COMMENT+20, COMMENT+22, COMMENT+26, COMMENT+29, COMMENT+42, COMMENT+47, COMMENT+49, DISPPPC+19, DISPPPC+21 , EFFECT+4, EFFECT+5, EFFECT+6, EFFECT+7, EFFECT+11, UR+3, UR+4, UR+5, UR+6, UR+7 , UR+8, UR+9, EMP+4, EMP+5, EMP+7, EMP+8, EMP+9, EMP+10, EMP+11, EMP+12 , EMP+13, EMP+16, EMP+17, EMP+18, PLIM+5, PLIM+6
UR	BLD+14

Naked Globals

Name	Field # of Occurrence
^(1	BLD+4, BLD+8
^(2	BLD+4
^(4	BLD+4
^(5	BLD+4
^(7	BLD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COL	SET~, SET+2, SET+3
COL2	EMP+2~, EMP+6*, EMP+15
COMCTR	COMMENT+11~, COMMENT+30, COMMENT+38, COMMENT+39, COMMENT+40
COMDATA	DISPPPC+12~, DISPPPC+13*, DISPPPC+14, DISPPPC+15, DISPPPC+17, DISPPPC+18, DISPPPC+20
COMDT	COMMENT+11~, COMMENT+30, COMMENT+31, COMMENT+32, COMMENT+33, COMMENT+36
COMIEN	COMMENT+11~, COMMENT+34, COMMENT+35, COMMENT+36, COMMENT+37, COMMENT+43, DISPPPC~, DISPPPC+13
COMSTOP	COMMENT+11~, COMMENT+30, COMMENT+31, COMMENT+35, COMMENT+39
DFN	HDR+2, HDR+7, HDR+10, HDR+15, BLD+4, BLD+6, COMMENT+32, COMMENT+36, COMMENT+43, DISPPPC~ , DISPPPC+13, EFFECT+11, 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
DOD	HDR+1~, HDR+10, HDR+11, HDR+12, HDR+14
END	PLIM+1~, PLIM+4*, PLIM+5, PLIM+6
IB1ST	EN+1~
IB1ST("COMMENT"	COMMENT+13*
IB1ST("PLIM"	PLIM+2*
IBADD	EMP+2~, EMP+8, EMP+9, EMP+10*, EMP+11, EMP+12, EMP+13
IBCDFN	BLD+7*, EFFECT+11, EXIT+1!
IBCDFND	BLD+3~, BLD+4, BLD+6, BLD+7, BLD+8, EFFECT+5, EFFECT+6, EXIT+1!
IBCDFND1	BLD+3~, BLD+4*, EFFECT+7, EXIT+1!
IBCDFND2	BLD+3~, BLD+4*, EMP+5, EMP+7, EMP+8, EMP+9, EMP+10, EMP+11, EMP+12, EMP+16 , EMP+17, EMP+18, EXIT+1!
IBCDFND4	BLD+3~, BLD+4*
IBCDFND5	BLD+3~, BLD+4*
IBCDFND7	BLD+3~, BLD+4*
IBCNS	BLD+7*, EXIT+1!
IBCPOL	BLD+7*, BLD+9, BLD+10, COMMENT+18, COMMENT+20, EXIT+1!
IBCPOLD	BLD+8*, UR+4, UR+5, UR+6, UR+7, UR+8, EXIT+1!
IBCPOLD1	BLD+8*, EXIT+1!
IBCPOLD2	BLD+9*, EXIT+1!
IBCPOLDL	BLD+10*, EXIT+1!
IBDOB	HDR+1~, HDR+3*, HDR+7
IBI	COMMENT+11~, COMMENT+17, COMMENT+18, COMMENT+20
IBIIEN	COMMENT+11~, COMMENT+25*, COMMENT+32, COMMENT+36, COMMENT+43, DISPPPC~, DISPPPC+13
IBL	COMMENT+11~, COMMENT+12, COMMENT+13, COMMENT+16, COMMENT+19, COMMENT+20, COMMENT+21, COMMENT+22, COMMENT+25, COMMENT+26 , COMMENT+27, COMMENT+29, COMMENT+41, COMMENT+42, COMMENT+43, COMMENT+46, COMMENT+47, COMMENT+48, COMMENT+49, DISPPPC~ , DISPPPC+18, DISPPPC+19, DISPPPC+20, DISPPPC+21
IBNAME	HDR+1~, HDR+2, HDR+3, HDR+4, HDR+7
IBPPOL	EN+2!, HDR+15, INIT+3, BLD+4, BLD+6, BLD+7, COMMENT+25, EXIT+1!, PPOL+11*
IBTOP	EN+2!, EN+3*
IBVPCLBG	EXIT+1!
IBVPCLEN	EXIT+1!
>> IORVOFF	COMMENT+16, COMMENT+26, EFFECT+4, UR+3, EMP+4
>> IORVON	COMMENT+16, COMMENT+26, EFFECT+4, UR+3, EMP+4
>> IOUOFF	COMMENT+29
>> IOUON	COMMENT+29
LINE	DISPPPC+12~, DISPPPC+14, DISPPPC+16, DISPPPC+18, DISPPPC+19, DISPPPC+20, DISPPPC+21, BLANK~, BLANK+1, SET~ , SET+1, SET+2, SET+3, SET+4
OFF	SET~, SET+3
OFFSET	COMMENT+11~, COMMENT+12, COMMENT+16, COMMENT+20, COMMENT+22, COMMENT+26, COMMENT+29, COMMENT+42, COMMENT+47, COMMENT+49 , DISPPPC+19, DISPPPC+21, EFFECT+1~, EFFECT+3, EFFECT+4, EFFECT+5, EFFECT+6, EFFECT+7, EFFECT+11, UR+1~ , UR+2, UR+3, UR+4, UR+5, UR+6, UR+7, UR+8, EMP+2~, EMP+3, EMP+4 , EMP+5, EMP+7, EMP+8, EMP+9, EMP+10, EMP+11, EMP+12, EMP+13, EMP+15*, EMP+16 , EMP+17, EMP+18
ON	SET~, SET+3
START	EFFECT+1~, EFFECT+2, EFFECT+4, EFFECT+5, EFFECT+6, EFFECT+7, EFFECT+11, UR+1~, UR+2, UR+3 , UR+4, UR+5, UR+6, UR+7, UR+8, UR+9, EMP+2~, EMP+3, EMP+4, EMP+5 , EMP+6, EMP+7, EMP+8, EMP+9, EMP+10, EMP+11, EMP+12, EMP+13, EMP+15, EMP+16 , EMP+17, EMP+18, PLIM+1~*, PLIM+2, PLIM+3
TEXT	SET~, SET+2, SET+3
U	HDR+4, HDR+7, HDR+15, HDR+16, HDR+17, BLD+4, BLD+6, BLD+7, BLD+8, EFFECT+5 , EFFECT+6, EFFECT+7, UR+4, UR+5, UR+6, UR+7, UR+8, EMP+5, EMP+7, EMP+8 , EMP+9, EMP+10, EMP+11, EMP+12, EMP+16, EMP+18, PPOL+11
>> VALMAR	SET+1, SET+2
>> VALMBG	INIT+2*
>> VALMCNT	INIT+2, BLD+29, SET+1*
>> VALMHDR(1	HDR+7, HDR+14
>> VALMHDR(2	HDR+19*
VALMQUIT	EN+2!, INIT+1!, INIT+3, EXIT+1!, PPOL+1, PPOL+4, PPOL+9, PPOL+10
W	HDR+1~, HDR+16*, HDR+18
X	HDR+1~, HDR+18, HDR+19, HELP+1
XX	COMMENT+11~, COMMENT+27, COMMENT+28, COMMENT+29, DISPPPC+12~, DISPPPC+15, DISPPPC+16, DISPPPC+17, DISPPPC+18
Y	HDR+1~, HDR+17*, HDR+19, PPOL+3, PPOL+9, PPOL+11
Z	HDR+1~, HDR+15*, HDR+16, HDR+17
ZZ	DISPPPC+12~, DISPPPC+15, DISPPPC+16, DISPPPC+17, DISPPPC+18

Customize PDF page

Package: Integrated Billing