Routine: IBJPS6

Information

IBJPS6 ;ALB/WCJ - IB Site Parameters, Administrative Contractors ; 27-AUG-2015

Package	Total	Call Graph
VA FileMan	5	($$FIND1,FIND)^DIC UPDATE^DIE ^DIK $$EXTERNAL^DILFD ^DIR
List Manager	4	EN^VALM ($$SETSTR,CLEAR,FULL,PAUSE)^VALM1 SET^VALM10 EN^VALM2
Kernel	2	$$UP^XLFSTR DISP^XQORM1

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

Package	Total	Caller Graph
Integrated Billing	7	IBJP ADMIN CONTRACTOR COM IBJP ADMIN CONTRACTOR COM ADD TYPE IBJP ADMIN CONTRACTOR COM DEL TYPE IBJP ADMIN CONTRACTOR MED IBJP ADMIN CONTRACTOR MED ADD TYPE IBJP ADMIN CONTRACTOR MED DEL TYPE IBJPS
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN(WHICH)	; -- main entry point for IBJP ALT PRIM PAYER ID TYP ; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED ; 2 - Using template IBJP ADMIN CONTRACTOR COM
HDR(WHICH)	; -- header code ; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED ; 2 - Using template IBJP ADMIN CONTRACTOR COM
INIT(WHICH)	; Initialize variables and list array ; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED ; 2 - Using template IBJP ADMIN CONTRACTOR COM ; Output: ^TMP("IBJPS6",$J) - Body lines to display for specified template
BLD(WHICH)	; Build screen array, no variables required for input ; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED ; 2 - Using template IBJP ADMIN CONTRACTOR COM ; Output: ^TMP("IBJPS6",$J) - Body lines to display for specified template
BLDLN(CTR,NAME,IEN)	; Builds a line to display and insurance ; Input: CTR - Current Line Counter ; NAME - Insurance Company Name ; IEN - IEN of the insurance to be displayed ; Output: LINE - Formatted for settng into the list display
SETL(LINE,DATA,LABEL,COL,LNG)	; Creates a line of data to be set into the body ; of the worklist ; Input: LINE - Current line being created ; DATA - Information to be added to the end of the current line ; LABEL - Label to describe the information being added ; COL - Column position in line to add information add ; LNG - Maximum length of data information to include on the line ; Returns: Line updated with added information
HELP(WHICH)	; -- help code ; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED ; 2 - Using template IBJP ADMIN CONTRACTOR COM
EXIT(WHICH)	; Exit code ; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED ; 2 - Using template IBJP ADMIN CONTRACTOR COM
EXPND	; -- expand code
ADD(WHICH)	; Listman Protocol Action to add an entry to the specified Site Parameter node ; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED ; 2 - Using template IBJP ADMIN CONTRACTOR COM
DEL(WHICH)	; Listman Protocol Action to delete an entry from the specified Site Parameter node ; Input: WHICH - 1 - Using template IBJP ADMIN CONTRACTOR MED ; 2 - Using template IBJP ADMIN CONTRACTOR COM
ENTSEL(NODE,IENS,WHICHF)
LOCK(NODE)
UNLOCK(NODE)	;EP ; Unlocks the Site Parameter node that is being worked ; Input: NODE - Site Parameter node where the data resides
SELEVENT(FULL,PROMPT,DLINE,MULT,WLIST)

External References

Name	Field # of Occurrence
$$FIND1^DIC	ADD+19
FIND^DIC	ENTSEL+24
UPDATE^DIE	ADD+21, ENTSEL+56
^DIK	DEL+36
$$EXTERNAL^DILFD	BLD+14, DEL+21
^DIR	DEL+53, ENTSEL+18, ENTSEL+33, ENTSEL+44, ENTSEL+52
EN^VALM	EN+5
$$SETSTR^VALM1	BLDLN+6, BLDLN+7
CLEAR^VALM1	EXIT+4
FULL^VALM1	ADD+8, DEL+10, SELEVENT+18
PAUSE^VALM1	LOCK+13, SELEVENT+27
SET^VALM10	BLD+28
EN^VALM2	SELEVENT+30
$$UP^XLFSTR	ENTSEL+21
DISP^XQORM1	HELP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+3
Function Call: WRITE	Prompt: $E($G(TARGET("DILIST",1,1)),$L(IBSAVEX)+1,99) Line Location: ENTSEL+31
Function Call: WRITE	Prompt: !,I,?3,TARGET("DILIST",1,I) Line Location: ENTSEL+42
Function Call: WRITE	Prompt: @IOF,"Someone else is editing the "_TEXT Line Location: LOCK+11
Function Call: WRITE	Prompt: !,"Please Try again later" Line Location: LOCK+12
Function Call: WRITE	Prompt: !,*7,">>>> Only single entry selection is allowed" Line Location: SELEVENT+24
Routine Call	DIC Line Location: ADD+19
Routine Call	DIC Line Location: ENTSEL+24
Routine Call	DIE Line Location: ADD+21 ENTSEL+56
Routine Call	DIR Line Location: DEL+53 ENTSEL+18 ENTSEL+33 ENTSEL+44 ENTSEL+52
Routine Call	VALM Line Location: EN+5

FileNo	Call Tags
^IBA(355.98 - [#355.98]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	DEL+29
^IBA(355.98 - [#355.98]	ENTSEL+27, ENTSEL+47
^IBE(350.9 - [#350.9]	BLD+10, BLD+12, DEL+20, DEL+29, LOCK+7, UNLOCK+3
^TMP("IBJPS6"	INIT+4!, BLD+19*, EXIT+3!
^TMP($J	INIT+4!, BLD+29*, EXIT+3!, SELEVENT+37

Label References

Name	Line Occurrences
$$BLDLN	BLD+27
$$ENTSEL	ADD+10
$$LOCK	ADD+7, DEL+9
$$SELEVENT	DEL+11
$$SETL	BLD+18
BLD	INIT+5
INIT	ADD+24, DEL+55
UNLOCK	ADD+12, ADD+22, DEL+16, DEL+54

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	BLD+5~, BLD+8, BLD+14, BLD+16, DEL+4~, DEL+26, DEL+33, DEL+43, DEL+44
CNT2	DEL+4~, DEL+26, DEL+30, DEL+47, DEL+48
COL	SETL~, SETL+8
CTR	BLDLN~, BLDLN+6
DA	DEL+4~, DEL+26, DEL+28, DEL+29, DEL+31, DEL+34, ENTSEL+8~, LOCK+6~
DA(1	DEL+26*, DEL+35
DATA	SETL~, SETL+8
DELETED	DEL+5~, DEL+34*, DEL+45
DIC	ENTSEL+8~
DIK	DEL+4~, DEL+35*
DILIST	ENTSEL+20!
DIR	ADD+3~, DEL+4~, ENTSEL+8~, ENTSEL+15!, ENTSEL+32!, ENTSEL+51!, LOCK+6~, SELEVENT+16~, SELEVENT+26!
DIR("A"	DEL+38, DEL+39, DEL+44, DEL+45, DEL+48, DEL+49, DEL+50, DEL+51, DEL+52, ENTSEL+17 , ENTSEL+33, ENTSEL+52
DIR("B"	ENTSEL+33, ENTSEL+52
DIR(0	DEL+37, ENTSEL+16, ENTSEL+33, ENTSEL+43, ENTSEL+52*
DIROUT	ADD+3~, DEL+4~, ENTSEL+8~, LOCK+6~, SELEVENT+16~
DIRUT	ADD+3~, DEL+4~, ENTSEL+8~, ENTSEL+19, ENTSEL+34, ENTSEL+53, LOCK+6~, SELEVENT+16~
DLINE	SELEVENT~, SELEVENT+19, SELEVENT+20, SELEVENT+23, SELEVENT+25, SELEVENT+32, SELEVENT+36*
DTOUT	ADD+3~, DEL+4~, ENTSEL+8~, LOCK+6~, SELEVENT+16~
DUOUT	ADD+3~, DEL+4~, ENTSEL+8~, ENTSEL+45, LOCK+6~, SELEVENT+16~
EIEN	SELEVENT+16~, SELEVENT+37*, SELEVENT+38
EIENS	SELEVENT+16~, SELEVENT+21, SELEVENT+38, SELEVENT+39
ENTRIES	BLD+5~, BLD+17
ENTRIES(	BLD+16*, BLD+23, BLD+25, BLD+27, BLD+29
ERROR	ENTSEL+9~, ENTSEL+20!
FDA	ADD+3~, ENTSEL+9~, ENTSEL+20!
FDA("350.9"	ADD+20*
FDA("355.98"	ENTSEL+55*
FDAIEN	ENTSEL+9~, ENTSEL+20!
FDAIEN(1	ENTSEL+57
FULL	SELEVENT~, SELEVENT+18
>> I	ENTSEL+42*
IBNODE	ENTSEL+9~, ENTSEL+11*
IBSAVEX	ENTSEL+9~, ENTSEL+22*, ENTSEL+27, ENTSEL+31, ENTSEL+37, ENTSEL+47, ENTSEL+52, ENTSEL+55
IEN	BLDLN~, ADD+3~, ADD+15, ADD+16, ADD+17, ADD+18, ADD+19, ADD+20
IENS	ADD+3~, ADD+10, ENTSEL~, ENTSEL+10!, ENTSEL+61
IENS(	ADD+17, ENTSEL+38, ENTSEL+46, ENTSEL+57*
INSM	ADD+3~
INSMC	ADD+3~
IOF	LOCK+11
IX	ENTSEL+8~, SELEVENT+16~, SELEVENT+32, SELEVENT+33, SELEVENT+34, SELEVENT+35, SELEVENT+36, SELEVENT+37
LABEL	SETL~, SETL+8
LINE	BLD+5~, BLD+18, BLD+19, BLD+27, BLD+28, BLDLN+5~, BLDLN+6, BLDLN+7, BLDLN+8, SETL~ , SETL+8*, SETL+9
LIST	DEL+4~, DEL+41
LIST(	DEL+22, DEL+23, DEL+28, DEL+29, DEL+31, DEL+34
LNG	SETL~, SETL+8
MULT	SELEVENT~, SELEVENT+23
NAME	BLD+5~, BLD+14, BLD+15, BLD+16, BLD+21, BLD+22, BLD+23, BLD+25, BLD+27, BLD+29 , BLDLN~, BLDLN+7, ADD+4~, DEL+4~, DEL+21, DEL+22
NAMEIEN	BLD+5~, BLD+12*, BLD+13, BLD+14, BLD+16
NAMEU	ADD+4~
NODE	BLD+5~, BLD+7, BLD+10, BLD+12, BLD+14, ADD+4~, ADD+5, ADD+7, ADD+10, ADD+12 , ADD+19, ADD+20, ADD+22, DEL+5~, DEL+6*, DEL+7, DEL+9, DEL+16, DEL+20, DEL+21 , DEL+35, DEL+54, ENTSEL~, LOCK~, LOCK+7, LOCK+9, LOCK+10, UNLOCK~, UNLOCK+3
NODE0	BLD+5~, BLD+12, ADD+4~, DEL+5~, DEL+20, DEL+21, DEL+23
OTHER	DEL+5~, DEL+7*, DEL+29
PROMPT	SELEVENT~
SCREEN	ENTSEL+9~, ENTSEL+23*, ENTSEL+24
SELSTR	DEL+5~, DEL+11
SKIPPED	DEL+5~, DEL+27, DEL+31, DEL+49
STOP	ENTSEL+8~, ENTSEL+12, ENTSEL+14, ENTSEL+19, ENTSEL+30, ENTSEL+34, ENTSEL+37, ENTSEL+41, ENTSEL+45, ENTSEL+47 , ENTSEL+53*
STOP2	ENTSEL+8~
STR	DEL+5~, DEL+11*, DEL+13, DEL+18, DEL+19, DEL+20, DEL+39, DEL+40, DEL+55
TARGET	ENTSEL+9~, ENTSEL+20!, ENTSEL+37!, ENTSEL+41, ENTSEL+47!, ENTSEL+52
TARGET("DILIST"	ENTSEL+27, ENTSEL+30, ENTSEL+31, ENTSEL+37, ENTSEL+38, ENTSEL+41, ENTSEL+42, ENTSEL+43, ENTSEL+46, ENTSEL+50
TEMPLATE	EN+3~, EN+4*, EN+5
TEXT	LOCK+6~, LOCK+9, LOCK+10, LOCK+11
U	BLD+12
>> VALMBCK	ADD+6, DEL+8, DEL+15*
>> VALMCNT	BLD+6, BLD+26, BLD+27, BLD+28, BLD+29
>> VALMHDR(1	HDR+4, HDR+5
>> VALMSG	ADD+11, ADD+25, DEL+14*
VALMY	SELEVENT+16~, SELEVENT+31
VALMY(	SELEVENT+34
WHICH	EN~, EN+4, HDR~, HDR+4, HDR+5, INIT~, INIT+5, BLD~, BLD+7, HELP~ , EXIT~, ADD~, ADD+5, ADD+10, ADD+24, DEL~, DEL+6, DEL+55
WHICHF	ENTSEL~, ENTSEL+11
WLIST	SELEVENT~, SELEVENT+17*, SELEVENT+37
X	HELP+3, ADD+4~, DEL+5~, ENTSEL+8~, ENTSEL+21, ENTSEL+22, ENTSEL+24, ENTSEL+46, ENTSEL+47, LOCK+6~ , SELEVENT+16~
>> XQORNOD(0	SELEVENT+19, SELEVENT+30
XX	BLDLN+5~, ADD+4~, DEL+5~, ENTSEL+8~
Y	ADD+4~, DEL+5~, ENTSEL+8~, ENTSEL+30, ENTSEL+37, ENTSEL+54, LOCK+6~, SELEVENT+16~
Z	BLD+5~, BLD+8, BLD+9, BLD+10, BLD+11, BLD+12, BLD+16, BLD+24, BLD+25, BLD+27 , BLD+29, ADD+4~, DEL+5~, DEL+19, DEL+20, DEL+37, DEL+38, DEL+39, DEL+44, DEL+45 , DEL+48, DEL+49, DEL+50, DEL+51
Z1	ADD+4~, DEL+5~, DEL+20, DEL+22, DEL+23, DEL+42

Customize PDF page

Package: Integrated Billing