Routine: IBCNILK

Information

IBCNILK ;ALB/FA - Insurance Company Selection ; 02-OCT-2015

Package	Total	Call Graph
List Manager	4	EN^VALM ($$SETSTR,CLEAR,FULL,PAUSE)^VALM1 (FLDTEXT,SET,WRITE)^VALM10 EN^VALM2
Integrated Billing	2	$$GETFILT^IBCNILK1 $$FILTER^IBCNINSU
VA FileMan	2	$$GET1^DIQ ^DIR
Kernel	1	$$UP^XLFSTR

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

Package	Total	Caller Graph
Integrated Billing	14	IBCMDT IBCN INS CO ACTIVE UNSELECT IBCN INS CO CHOOSE ALL IBCN INS CO NEW SEARCH IBCN INS CO SELECT IBCN INS CO SELECTED IBCN INS CO SELECTOR IBCN INS CO SHOW SEL IBCN INS CO UNSELECT IBCNERPF IBCNGP IBCNOR1 IBCOMDT IBCOPP
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN(WHICH,PIEN,FILTER)	;EP ; Main entry point for the Insurance Company Selection template ; Input: WHICH - 1 - Only Show Active Insurance Companies ; 0 - Only Show Inactive Insurance Companies ; 2 - Show Both Active and Inactive Insurance Companies ; PIEN - IEN of the Payer to use to filter Insurance Company ; lookups. Optional, defaults to "". ; FILTER - A^B^C Where: ; A - 1 - Search for Insurance Companies that begin with ; the specified text (case insensitive) ; 2 - Search for Insurance Companies that contain ; the specified text (case insensitive) ; 3 - Search for Insurance Companies in a specified ; range (inclusive, case insensitive) ; 4 - Search for Name(s) that are blank (null) ; 5 - Filter by Selected Payer only
NEWSRCH()	; EP ; Protocol action to get new filter criteria and redisplay the listman ; template body and header ; Input: FILTER - Current Insurance Company Filter (See EN for details) ; Output: FILTER - Update Insurance Company Filter (See EN for details)
GETFILT()	; Gets the Insurance company filter ; Input: None ; Returns: A^B^C Where: ; A - 1 - Search for Insurance Companies that begin with ; the specified text (case insensitive) ; 2 - Search for Insurance Companies that contain ; the specified text (case insensitive) ; 3 - Search for Insurance Companies in a specified ; range (inclusive, case insensitive) ; B - Begin with text if A=1, Contains Text if A=2 or ; the range start if A=3 ; C - Range End text (only present when A=3) ; -1 if a valid filter was not selected ; ^ if user wants to exit
HDR(SELECTED)	;EP ; Header code for the Insurance Company Selection template ; Input: SELECTED - 1 - Showing header for selected listman ; Optional, defaults to 0 ; NUMSEL - Current # of Insurance Companies Selected ; FILTER - Current Insurance Company Filter (See EN for details) ; WHICH - Active/Inactive/Both filter option ; Output: VALMHDR - Header information to display
INIT	;EP ; Initialize variables and list array ; Input: None ; Output: ^TMP("IBCNILK",$J) - Body lines to display
BLD	; Build listman body ; Input: FILTER - Current Insurance Company Filter (See EN for details) ; WHICH - 1 - Only Show Active Insurance Companies ; 0 - Only Show Inactive Insurance Companies ; 2 - Show Both Active and Inactive Insurance Companies ; Output: VALMCNT - Total number of lines displayed in the body ; ^TMP("IBCNILK",$J) - Body lines to display ; ^TMP("IBCNILKIX",$J) - Index of Entry IENs by display line
BLDLN(ICTR,IIEN)	;EP ; Builds a line to display one insurance company ; Input: ICTR - Selection Number ; IIEN - IEN of the insurance company to be ; displayed ; ^TMP("IBCNILKA",$J,IIEN) - Array of currently selected ; Insurance Companies ; Output: LINE - Formatted for setting into the list display
HELP	;EP ; Help code ; Input: None
EXIT	;EP ; Exit code ; Input: None
SEL	;EP ; Protocol Action to select insurance companies ; Input: NUMSEL - Current number of selected insurance ; companies ; ^TMP("IBCNILK",$J) - Current Array of displayed Ins Cos ; ^TMP("IBCNILKIX",$J) - Current Index of displayed Ins Cos ; ^TMP("IBCNILKA,$J,IIEN)- Current Array of selected Ins Cos ; Output: NUMSEL - Updated number of selected insurance ; companies ; ^TMP("IBCNILKA,$J,IIEN)- Updated Array of selected Ins Cos ; Selected Insurance Company is added to the worklist ; Error message displayed (potentially)
SELALL	; EP
UNSEL(SELECTED)	;EP ; Protocol Action to deselect an already selected insurance company ; Input: SELECTED - 1 - Called from IBCN INS CO ACTIVE UNSELECT ; 0 - Called from IBCN INS CO UNSELECT ; Optional, defaults to 0 ; NUMSEL - Current number of selected insurance ; companies ; ^TMP("IBCNILK",$J) - Current Array of displayed Ins Cos ; ^TMP("IBCNILKS",$J) - Current Array of selected Ins Cos ; ^TMP("IBCNILKIX",$J) - Current Index of displayed Ins Cos ; ^TMP("IBCNILKA,$J,IIEN)- Current Array of selected Ins Cos ; Output: NUMSEL - Current number of selected insurance ; companies ; ^TMP("IBCNILKA,$J,IIEN)- Updated Array of selected Ins Cos ; Selected Insurance Company is removed from the worklist ; Error message displayed (potentially)
MARK(WHICH,IIEN,LINE,NUMSEL)
SHOWSEL	;EP ; Protocol action used to display a listman template of the currently ; selected Insurance companies ; Input: NUMSEL - Current number of selected insurance ; companies ; ^TMP("IBCNILKA",$J,IEN) - Current Array of selected insurance ; companies ; Output: NUMSEL - Updated number of selected insurance companies ; ^TMP("IBCNILKA",$J,IEN) - Updated Array of selected insurance ; companies
SELINS(FULL,PROMPT,DLINE,MULT,WLIST)
INIT2	;EP for Show Selections ; Initialize variables and list array ; Input: None ; Output: ^TMP("IBCNILK",$J) - Body lines to display
BLD2	; Build listman body for Show Selections ; Input: None ; Output: VALMCNT - Total number of lines displayed in the body ; ^TMP("IBCNILKS",$J) - Body lines to display ; ^TMP("IBCNILKSIX",$J) - Index of Entry IENs by display line
EXIT2	;EP for Show Selections ; Exit code ; Input: None

External References

Name	Field # of Occurrence
$$GET1^DIQ	HDR+23, BLD+34, BLD+36, BLDLN+11, BLDLN+13, BLDLN+16, BLDLN+18, BLDLN+20, BLDLN+21, BLDLN+23 , BLD2+12
^DIR	HELP+12
$$GETFILT^IBCNILK1	GETFILT+21
$$FILTER^IBCNINSU	BLD+25
EN^VALM	EN+33, SHOWSEL+11
$$SETSTR^VALM1	HDR+25, BLDLN+10, BLDLN+12, BLDLN+15, BLDLN+17, BLDLN+19, BLDLN+22, BLDLN+24
CLEAR^VALM1	EXIT+4, EXIT2+4
FULL^VALM1	NEWSRCH+9, HELP+3, SELINS+22
PAUSE^VALM1	NEWSRCH+15, NEWSRCH+18, SEL+29, SELALL+25, UNSEL+36, SELINS+30
FLDTEXT^VALM10	MARK+21
SET^VALM10	BLD+42, BLD2+27
WRITE^VALM10	MARK+22
EN^VALM2	SELINS+33
$$UP^XLFSTR	BLD+11, BLD+12, BLD+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: NEWSRCH+12
Function Call: WRITE	Prompt: *7,"Invalid Filter - nothing done" Line Location: NEWSRCH+17
Function Call: WRITE	Prompt: !!,"After the Insurance Company selection number, an '>' indicates that this" Line Location: HELP+5
Function Call: WRITE	Prompt: !," Insurance Company has already been selected.",! Line Location: HELP+6
Function Call: WRITE	Prompt: !,*7,">>>> # ",LINE," is currently selected." Line Location: SEL+25
Function Call: WRITE	Prompt: !,*7,">>>> # ",LINE," is not currently selected. It cannot be deselected." Line Location: UNSEL+32
Function Call: WRITE	Prompt: !,*7,">>>> Only single entry selection is allowed" Line Location: SELINS+27
Routine Call	DIR Line Location: HELP+12
Routine Call	VALM Line Location: EN+33 SHOWSEL+11

FileNo	Call Tags
^DIC(36 - [#36]	GET1^DIQ
^IBE(365.12 - [#365.12]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	BLD+21, BLD+29, BLD+31
^TMP(	SELINS+40
^TMP("IBCNILK"	NEWSRCH+11!, INIT+4!, BLD+46, EXIT+3!, BLD2+31
^TMP("IBCNILKA"	EN+32!, INIT+4!, BLDLN+9, SEL+24, UNSEL+31, MARK+16*, MARK+19!, BLD2+10
^TMP("IBCNILKIX"	NEWSRCH+11!, INIT+4!, BLD+43*, EXIT+3!, SELALL+21, SELALL+22
^TMP("IBCNILKS"	INIT2+4!, EXIT2+3!
^TMP("IBCNILKSIX"	INIT2+4!, BLD2+28*, EXIT2+3!

Label References

Name	Line Occurrences
$$BLDLN	BLD+40, BLD2+25
$$GETFILT	EN+27, NEWSRCH+13
$$SELINS	SEL+17, UNSEL+24
BLD	NEWSRCH+21, INIT+5, SHOWSEL+12
BLD2	INIT2+5
HDR	NEWSRCH+21, SEL+28, SELALL+24, UNSEL+35, SHOWSEL+12
MARK	SEL+27, SELALL+23, UNSEL+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	HELP+10~, HELP+13!, SEL+12~, SELALL+16~, UNSEL+16~, SELINS+19~, SELINS+29!
DIR("A"	HELP+11*
DIR(0	HELP+11*
DIROUT	SEL+12~, SELALL+16~, UNSEL+16~, SELINS+19~
DIRUT	SEL+12~, SELALL+16~, UNSEL+16~, SELINS+19~
DLINE	SEL+12~, SEL+17, SEL+21, SELALL+16~, UNSEL+16~, UNSEL+24, UNSEL+28, SELINS~, SELINS+23, SELINS+24 , SELINS+26, SELINS+28, SELINS+35, SELINS+39*
DTOUT	SEL+12~, SELALL+16~, UNSEL+16~, SELINS+19~
DUOUT	SEL+12~, SELALL+16~, UNSEL+16~, SELINS+19~
ERROR	SEL+12~, SEL+13, SEL+26, SEL+29, SELALL+16~, SELALL+17, SELALL+25, UNSEL+16~, UNSEL+20, UNSEL+33* , UNSEL+36
FILTER	EN~, EN+27, EN+29, EN+30, NEWSRCH+19, GETFILT+14~, GETFILT+21*, GETFILT+22, HDR+11, HDR+12 , HDR+13, HDR+14, HDR+15, HDR+16, BLD+10, BLD+11, BLD+12, BLD+25
FTEXT1	BLD+8~, BLD+11, BLD+14, BLD+15
FTEXT2	BLD+8~, BLD+12*, BLD+16
FTYPE	BLD+8~, BLD+10*, BLD+14, BLD+15, BLD+16
FULL	SELINS~, SELINS+22
ICTR	BLD+8~, BLD+17, BLD+39, BLD+40, BLD+43, BLDLN~, BLDLN+9, BLDLN+10, BLD2+16, BLD2+24* , BLD2+25, BLD2+28
IEN	SEL+12~, SELALL+16~, UNSEL+16~
IIEN	BLD+8~, BLD+27, BLD+28, BLD+29, BLD+30, BLD+31, BLD+34, BLD+36, BLD+40, BLD+43 , BLDLN~, BLDLN+9, BLDLN+11, BLDLN+13, BLDLN+16, BLDLN+18, BLDLN+20, BLDLN+23, SEL+20, SEL+24 , SEL+27, SELALL+22, SELALL+23, UNSEL+27, UNSEL+31, UNSEL+34, MARK~, MARK+16, MARK+19, SELINS+19~ , SELINS+40, SELINS+41, BLD2+5~, BLD2+8, BLD2+9, BLD2+10, BLD2+11, BLD2+12, BLD2+13, BLD2+20* , BLD2+21, BLD2+22*, BLD2+23, BLD2+25, BLD2+28
IIENS	SEL+12~, SEL+17, SEL+18, SEL+19, SEL+20, SELALL+16~, UNSEL+16~, UNSEL+24, UNSEL+25, UNSEL+26 , UNSEL+27, SELINS+19~, SELINS+25, SELINS+41, SELINS+42
INACT	BLD+8~, BLD+36*, BLD+37, BLD+38
INM	BLD+8~, BLD+17, BLD+20, BLD+21, BLD+22, BLD+23, BLD+25, BLD+29
INMU	BLD+8~, BLD+23*
IX	SEL+12~, SEL+19, SEL+20, SEL+21, SELALL+16~, UNSEL+16~, UNSEL+26, UNSEL+27, UNSEL+28, SELINS+19~ , SELINS+35, SELINS+36, SELINS+37, SELINS+38, SELINS+39, SELINS+40
LINE	BLD+8~, BLD+40, BLD+42, BLDLN+8~, BLDLN+10, BLDLN+12, BLDLN+15, BLDLN+17, BLDLN+19, BLDLN+22* , BLDLN+24, BLDLN+25, SEL+12~, SEL+21, SEL+25, SEL+27, SELALL+16~, SELALL+21, SELALL+22, SELALL+23 , UNSEL+16~, UNSEL+28, UNSEL+32, UNSEL+34, MARK~, MARK+17, MARK+20, MARK+21, MARK+22, BLD2+5~ , BLD2+25*, BLD2+27
LINEI	BLDLN+8~
MULT	SELINS~, SELINS+20*, SELINS+26
NM	BLD2+5~, BLD2+12, BLD2+13, BLD2+16, BLD2+17, BLD2+18*, BLD2+19, BLD2+22
NUMSEL	EN+25~, EN+31, HDR+27, SEL+27, SELALL+19, SELALL+23, UNSEL+34, MARK~, MARK+17, MARK+20
PIEN	EN~, EN+26*, HDR+22, HDR+23, BLD+33, BLD+35
PLA	BLD+9~
PLEN	BLD+8~, BLD+15, BLD+16
PNM	HDR+8~, HDR+23, HDR+24, HDR+25
PROMPT	SEL+12~, SEL+16, SEL+17, SELALL+16~, UNSEL+16~, UNSEL+23, UNSEL+24, SELINS~
SELECTED	HDR~, HDR+9, HDR+10, UNSEL~, UNSEL+17, UNSEL+18, UNSEL+35
SKIP	BLD+8~, BLD+32, BLD+33, BLD+35
SORTED	BLD2+5~
SORTED(	BLD2+13*, BLD2+18, BLD2+22
START	BLD+8~
STOP	BLD+8~, BLD+17*, BLD+20
TEXT	MARK+14~, MARK+17, MARK+20, MARK+21
>> VALMANS	HELP+9
>> VALMBCK	NEWSRCH+6, HELP+14, SEL+13, SEL+18, SELALL+17, UNSEL+20, UNSEL+25, SHOWSEL+10
>> VALMBG	NEWSRCH+8*
>> VALMCNT	BLD+17, BLD+41, BLD+42, BLD+45, BLD2+16, BLD2+26, BLD2+27, BLD2+30
>> VALMHDR(1	HDR+11, HDR+13, HDR+15, HDR+17
>> VALMHDR(2	HDR+26*
>> VALMHDR(3	HDR+27*
VALMY	SELINS+19~, SELINS+34
VALMY(	SELINS+37
WARRAY	UNSEL+16~, UNSEL+18, UNSEL+19, UNSEL+24
WHICH	EN~, HDR+18, BLD+37, BLD+38, MARK~, MARK+15
WLIST	SELINS~, SELINS+21*, SELINS+40
X	HELP+10~, HELP+13!, SELINS+19~
>> XQORNOD(0	SELINS+23, SELINS+33
XX	NEWSRCH+5~, NEWSRCH+13, NEWSRCH+15, NEWSRCH+16, NEWSRCH+19, HDR+8~, HDR+16, HDR+17, HDR+18, HDR+19 , HDR+25, HDR+26, BLD+8~, BLD+34, BLD+35, BLDLN+8~, BLDLN+11, BLDLN+12, BLDLN+13, BLDLN+14* , BLDLN+15, BLDLN+16, BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20, BLDLN+21, BLDLN+22, BLDLN+23*, BLDLN+24
Y	HELP+10~, HELP+13!, SELINS+19~

Customize PDF page

Package: Integrated Billing

Routine: IBCNILK

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: