Routine: IBCNBLL

Information

IBCNBLL ;ALB/ARH - Ins Buffer: LM main screen, list buffer entries ;1 Jun 97

Package	Total	Call Graph
Integrated Billing	4	$$SUBCLNCK^IBCNBLA (HDR,HELP)^IBCNBLL1 $$INSERROR^IBCNEUT3 ($$INSURED,ALL)^IBCNS1
List Manager	2	EN^VALM ($$SETSTR,CLEAR)^VALM1
Registration	2	$$LST^DGMTU (DEM,INP)^VADPT
VA FileMan	1	$$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: 22

Package	Total	Caller Graph
Integrated Billing	21	IBCN INSURANCE BUFFER PROCESS IBCNB INSURANCE BUFFER LIST IBCNB LIST BUFFER REFRESH IBCNB LIST COMPLETE VIEW IBCNB LIST EPHARMACY VIEW IBCNB LIST FAILURE VIEW IBCNB LIST MEDICARE VIEW IBCNB LIST NEGATIVE VIEW IBCNB LIST POSITIVE VIEW IBCNB LIST TRICARE/CHAMPVA VIEW IBCNBAR IBCNBLA IBCNBLA1 IBCNBLE1 IBCNEDE1 IBCNEDE3 IBCNEDST IBCNERP8 IBCNERTQ IBCNEUT4 IBCNOR2
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; - main entry point for screen
EN1(V)	; entry point from view changing actions
HDR	; header code for list manager display
INIT	; initialization for list manager list
HELP	; list manager help
EXIT	; exit list manager option and clean up
BLD	; build screen display
BLDLN(IBBUFDA,IBCNT,DFLG)	; build line to display on List screen for one Buffer entry
BLDLNQ	; IB2506/taz Tag added
FLAGS(DFN,IBY,IBBUFSN)	;Build flag set for line ; IB*806/DTG added additional var for 'P'otential flag
SET(LINE,CNT)	; set up list manager screen display array
SORT	; set up sort for list screen ; IB2.0737/DTG remove "8^Verified" reference ; Line below is the relationship between the sort order and the external description. ; 1^Patient Name, 2^Ins Name, 3^Source Of Info, 4^Date Entered, 5^Inpatient (Y/N), 6^Means Test (Y/N), 7^On Hold, 8^Verified, 9^eIV Status, 10^Positive Response ; 1^Patient Name, 2^Ins Name, 3^Source Of Info, 4^Date Entered, 5^Inpatient (Y/N), 6^Means Test (Y/N), 7^On Hold, 8^eIV Status, 10^Positive Response
INCL(VIEW,SYM,IB0)	;
INCLQ	;
DATE(X)	;
HOLD(DFN)	; returns true if patient has bills On Hold	ICR #5307 Status: Active Usage: Private
SYMBOL(IBBUFDA)	; Returns the symbol for this buffer entry	ICR #5307 Status: Active Usage: Private
UPDLN(IBBUFDA,ACTION)	; *** called by any action that modifies a buffer entry, so list screen can be updated if screen not recompiled ; modifies a single line in the display array for a buffer entry that has been modified in some way ; ACTION = REJECTED, ACCEPTED, EDITED
SRCCNV(SRC)	; convert Source of Info acronym from field 355.12/.03 into 1 char code ; IB2595/DM T,U,B,O,N,S,A,K,J translations added ; IB2664/DW updated "U" for Community Care Network - should be CCN and not PCC ; IB2664/VD added "W" for Electronic Health Record ; IB2668/DW added "G" for Adv Med Cost Mgmt Solution
GETKEYS(DUZ)	;
ACTIVE(DFN)	;Check for active insurance
GTMFLG(IBBUFDA)	;Check if Medicare ; IB2.0549 Added method
REFRESH	; IB*794/DJW Refresh the buffer data but keep the selected view and sort

External References

Name	Field # of Occurrence
$$LST^DGMTU	FLAGS+15, SORT+27
$$GET1^DIQ	BLDLN+30
$$SUBCLNCK^IBCNBLA	FLAGS+20, SORT+18
HDR^IBCNBLL1	HDR+2
HELP^IBCNBLL1	HELP+2
$$INSERROR^IBCNEUT3	GTMFLG+6
$$INSURED^IBCNS1	FLAGS+12
ALL^IBCNS1	ACTIVE+2
DEM^VADPT	BLDLN+5, FLAGS+11
INP^VADPT	BLDLN+5, FLAGS+11, SORT+26
EN^VALM	EN+4
$$SETSTR^VALM1	BLDLN+13, BLDLN+21, BLDLN+22, BLDLN+23, BLDLN+26, BLDLN+28, BLDLN+30, BLDLN+32, BLDLN+35
CLEAR^VALM1	EXIT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Building display " Line Location: BLD+7
Function Call: WRITE	Prompt: !,"Gathering and sorting the records " Line Location: SORT+12
Function Call: WRITE	Prompt: "\|" Line Location: SORT+56
Routine Call	VALM Line Location: EN+4

FileNo	Call Tags
^IBE(355.12 - [#355.12]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19.1 - [#19.1]	GETKEYS+4, GETKEYS+5
^DPT - [#2]	BLDLN+21, SORT+17
^IB("AH"	HOLD+1
^IBA(355.33 - [#355.33]	BLDLN+3, BLDLN+4, SORT+13, SORT+14, SORT+16, SYMBOL+2
^IBE(350.9 - [#350.9]	GTMFLG+4
^IBE(365.15 - [#365.15]	SYMBOL+3
^TMP("IBCNBLL"	INIT+1!, EXIT+1!, SET+2, SET+3, UPDLN+6, UPDLN+13, UPDLN+19
^TMP("IBCNBLLSP"	INIT+2!, EXIT+2!, BLD+12, SORT+9!, SORT+52*
^TMP("IBCNBLLX"	INIT+1!, EXIT+1!, SET+4*
^TMP("IBCNBLLY"	INIT+1!, EXIT+1!, SET+5*, UPDLN+5
^TMP("IBCNERTQ"	EN+3!
^TMP($J	INIT+1!, EXIT+1!, BLD+8, BLD+9, BLD+10, BLD+11, SORT+8!, SORT+51*
^VA(200 - [#200]	GETKEYS+4, GETKEYS+5

Label References

Name	Line Occurrences
$$ACTIVE	BLDLN+11
$$BLDLN	BLD+14, UPDLN+18
$$DATE	BLDLN+32
$$GETKEYS	INIT+8
$$GTMFLG	BLDLN+3, INCL+4
$$HOLD	FLAGS+17, SORT+28
$$INCL	SORT+50
$$SRCCNV	BLDLN+30
$$SYMBOL	BLDLN+18, SORT+35
BLD	INIT+9
BLDLNQ	BLDLN+11
FLAGS	BLDLN+35
HDR	EN1+2, REFRESH+1
INCLQ	INCL+5, INCL+6, INCL+7, INCL+8, INCL+9, INCL+10, INCL+11, INCL+12, INCL+13, INCL+14
INIT	EN1+2, REFRESH+1
SET	BLD+15, BLD+17
SORT	BLD+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	UPDLN~, UPDLN+10, UPDLN+12, UPDLN+17
APPTNUM	SORT+5~
AVIEW	EN+1~, EN+2, EN1+1
CNT	SET~, SET+2, SET+3, SET+4, SET+5
CODE	SRCCNV+8~, SRCCNV+11*, SRCCNV+12
DFLG	EN+1~, BLD+11, BLD+14, BLDLN~, BLDLN+22, SORT+48, SORT+51
DFN	EXIT+3!, BLDLN+1~, BLDLN+5, BLDLN+11, BLDLN+21, BLDLN+35, FLAGS~, FLAGS+12, FLAGS+15, FLAGS+17 , FLAGS+20, SORT+5~, SORT+26, HOLD~, HOLD+1, ACTIVE~, ACTIVE+2
DT	FLAGS+12, SORT+47, ACTIVE+2
DUZ	INIT+8, GETKEYS~, GETKEYS+4, GETKEYS+5
IB0	BLDLN+1~, BLDLN+4, BLDLN+30, BLDLN+32, SORT+5~, SORT+16, SORT+24, SORT+25, SORT+39, SORT+50 , INCL~, INCL+8, INCL+9, SYMBOL+1~, SYMBOL+2*, SYMBOL+3
IB20	BLDLN+1~, BLDLN+4, BLDLN+26, SORT+5~, SORT+16, SORT+20
IB40	BLDLN+1~, BLDLN+3*
IB60	BLDLN+1~, BLDLN+4, BLDLN+5, BLDLN+28, SORT+5~, SORT+16, SORT+17
IBARRN	UPDLN+3~, UPDLN+5*, UPDLN+6, UPDLN+13, UPDLN+18, UPDLN+19
IBBUFDA	EXIT+3!, BLD+1~, BLD+5, BLD+10, BLD+11, BLD+12, BLD+14, BLDLN~, BLDLN+2, BLDLN+3 , BLDLN+4, BLDLN+18, BLDLN+35, SET+4, SET+5, SORT+5~, SORT+14, SORT+16, SORT+18, SORT+35 , SORT+51, SORT+52, INCL+4, SYMBOL~, SYMBOL+2, UPDLN~, UPDLN+5, UPDLN+18, GTMFLG~, GTMFLG+6
IBBUFSN	FLAGS~, FLAGS+18*, FLAGS+20
IBCNDFN	SORT+5~, SORT+17*, SORT+18, SORT+26, SORT+27, SORT+28, SORT+47
IBCNDT	SORT+5~, SORT+13*, SORT+14
IBCNPAT	SORT+5~, SORT+17*, SORT+22, SORT+41, SORT+43, SORT+45
IBCNS1	BLD+1~, BLD+8*, BLD+9, BLD+10, BLD+11, BLD+12
IBCNS2	BLD+1~, BLD+9*, BLD+10, BLD+11, BLD+12
IBCNSCRN	EXIT+3!
IBCNSORT	INIT+7, EXIT+3!, SORT+8, SORT+22, SORT+23, SORT+24, SORT+25, SORT+26, SORT+27, SORT+28 , SORT+39, SORT+41, SORT+43
IBCNSORT(1	SORT+39
IBCNT	BLD+1~, BLD+5, BLD+13, BLD+14, BLD+15, BLDLN~, BLDLN+13, SORT+5~, SORT+6, SORT+15*
IBCSORT1	SORT+5~, SORT+22, SORT+23, SORT+24, SORT+25, SORT+26, SORT+27, SORT+28, SORT+39, SORT+41* , SORT+43, SORT+45, SORT+51, SORT+52, SORT+53!
IBCSORT2	SORT+5~, SORT+41, SORT+43, SORT+45*, SORT+51, SORT+52, SORT+53!
IBEBI	INCL+1~
IBFASTXT	EXIT+3!
IBINSCO	ACTIVE+1~
IBINSCO(0	ACTIVE+3
IBINSDA	EXIT+3!
IBKEYS	EN+1~, INIT+8*, BLDLN+11, INCL+5
IBLINE	BLD+1~, BLD+14, BLD+15, BLDLN+1~, BLDLN+2, BLDLN+13, BLDLN+21, BLDLN+22, BLDLN+23, BLDLN+26* , BLDLN+28, BLDLN+30, BLDLN+32, BLDLN+35, BLDLNQ+1
IBMTS	BLDLN+1~, FLAGS+10~, FLAGS+15*, FLAGS+16
IBN	UPDLN+3~*, UPDLN+12
IBNEW	UPDLN+3~, UPDLN+12, UPDLN+13, UPDLN+18, UPDLN+19
IBO	UPDLN+3~*, UPDLN+12
IBOLD	UPDLN+3~, UPDLN+6*, UPDLN+12, UPDLN+18
IBSBSAVA	BLD+3~, BLD+12, FLAGS+19, FLAGS+20
IBSDA	SORT+5~
IBSDA("FLDS"	SORT+47*
IBSDA(1	SORT+47*
IBSDA(3	SORT+47*
IBSDA(4	SORT+47*
IBSUBSAV	BLD+3~, SORT+18, SORT+43, SORT+52
IBX	SORT+5~, SORT+27, SORT+28
IBY	BLDLN+1~, BLDLN+13, BLDLN+18, BLDLN+21, BLDLN+23, BLDLN+26, BLDLN+28, BLDLN+30, BLDLN+32, BLDLN+35* , FLAGS~, FLAGS+12, FLAGS+13, FLAGS+14, FLAGS+16, FLAGS+17, FLAGS+19, FLAGS+20*
IENS	INCL+1~
INAME	SORT+5~, SORT+20*, SORT+23, INCL+7
INCL	INCL+1~, INCL+2, INCL+6, INCL+7, INCL+8, INCL+10, INCL+12, INCL+13, INCL+14, INCLQ+1
KEY1	GETKEYS+3~, GETKEYS+4*, GETKEYS+6
KEY2	GETKEYS+3~, GETKEYS+5*, GETKEYS+6
LINE	SET~, SET+2
MCFLAG	BLDLN+1~, BLDLN+3, BLDLN+11, INCL+1~, INCL+4, INCL+5, INCL+10, INCL+11
MWNRFLG	GTMFLG+2~, GTMFLG+3, GTMFLG+5, GTMFLG+6*, GTMFLG+7
MWNRIEN	GTMFLG+2~, GTMFLG+4*, GTMFLG+6
SRC	SRCCNV~, SRCCNV+9, SRCCNV+11
SRCSTR	SRCCNV+8~, SRCCNV+10*, SRCCNV+11
SYM	SORT+5~, SORT+35, SORT+39, SORT+41, SORT+50, INCL~, INCL+5, INCL+12, INCL+13, INCL+14 , SYMBOL+1~, SYMBOL+2, SYMBOL+3, SYMBOL+6, SYMBOL+7
U	BLDLN+21, BLDLN+26, BLDLN+28, BLDLN+30, FLAGS+15, SET+4, SET+5, SORT+17, SORT+20, SORT+24 , SORT+27, INCL+8, INCL+9, SYMBOL+3, UPDLN+18, SRCCNV+11, GTMFLG+4, GTMFLG+6
V	EN1~, EN1+1
VA	BLDLN+1~, FLAGS+10~, SORT+5~
VA("BID"	BLDLN+23
VADM	BLDLN+1~, FLAGS+10~
VADM(6	FLAGS+14
VAERR	BLDLN+1~, FLAGS+10~, SORT+5~
VAIN	BLDLN+1~, FLAGS+10~, SORT+5~, SORT+53!
VAIN(1	FLAGS+13, SORT+26
>> VALMBCK	EN1+3, REFRESH+2
>> VALMBG	EN1+3, REFRESH+2
>> VALMCNT	BLD+5, BLD+17, SET+1, SET+2, SET+3, SET+4, SET+5
VIEW	EN+1~, EN+2, EN1+1, SORT+50, INCL~, INCL+6, INCL+7, INCL+8, INCL+10, INCL+12 , INCL+13, INCL+14
X	BLDLN+1~, SORT+5~, DATE~, DATE+1
Y	BLDLN+1~, SORT+5~
>> ZTQUEUED	BLD+7, BLD+13, SORT+12, SORT+15

Customize PDF page

Package: Integrated Billing