Routine: IBCNRDV1

Package	Total	Call Graph
List Manager	4	EN^VALM ($$SETFLD,CLEAR,FULL,PAUSE,WAIT)^VALM1 (FLDTEXT,SET,WRITE)^VALM10 EN^VALM2
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
VA FileMan	2	$$GET1^DIQ ^DIR
Integrated Billing	1	$$ADDSTF^IBCNBES
Registration	1	PID^VADPT

Package	Total	Caller Graph
Integrated Billing	7	IBCN RDV DESELECT IBCN RDV POL DESELECT IBCN RDV POL SELECTED IBCN RDV SELECT IBCN RDV SELECTOR IBCN RDV SHOW SELECTED IBCNRDV
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for IBCN RDV SELECTION
HDR	; -- header code
INIT	; -- init variables and list array
BLD	;
BLDLN(ICTR,IIEN,DATA)	;EP ; Builds a line to display one insurance company ; Input: ICTR - Selection Number ; IIEN - IEN of the Policy to be displayed ; ^TMP("IBCNRDVA",$J,IIEN) - Array of currently selected policies
HELP	; -- help code
EXIT	; -- exit code
EXITQ	;
EXPND	; -- expand code
SEL	;EP ; Protocol Action to select an unselected policy ; Input: NUMSEL - Current number of selected policies ; ^TMP("IBCNRDV1",$J) - Current Array of displayed policies ; ^TMP("IBCNRDVIX",$J) - Current Index of displayed policies ; ^TMP("IBCNRDVA,$J,IIEN) - Current Array of selected policies ; Output: NUMSEL - Updated number of selected policies ; ^TMP("IBCNRDVA,$J,IIEN)- Updated Array of selected policies ; Selected Insurance Company is added to the worklist ; Error message displayed (potentially)
UNSEL(SELECTED)	;EP ; Protocol Action to deselect an already selected policy ; Input: SELECTED - 1 - Called from IBCN RDV POL DESELECT ; 0 - Called from IBCN RDV DESELECT ; Optional, defaults to 0 ; NUMSEL - Current number of selected policies ; ^TMP("IBCNRDV",$J) - Current Array of displayed policies ; ^TMP("IBCNRDVS",$J) - Current Array of selected policies ; ^TMP("IBCNRDVIX",$J) - Current Index of displayed policies ; ^TMP("IBCNRDVA,$J,IIEN)- Current Array of selected policies ; Output: NUMSEL - Current number of selected policies ; ^TMP("IBCNRDVA,$J,IIEN)- Updated Array of selected policies ; Selected policy 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 policies ; Input: NUMSEL - Current number of selected policies ; ^TMP("IBCNRDVA",$J,IEN) - Current Array of selected policies ; Output: NUMSEL - Updated number of selected policies ; ^TMP("IBCNRDVA",$J,IEN) - Updated Array of selected policies
SELINS(FULL,PROMPT,DLINE,MULT,WLIST)
INIT2	;EP for Show Selections ; Initialize variables and list array ; Input: None ; Output: ^TMP("IBCNRDV",$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("IBCNRDVS",$J) - Body lines to display ; ^TMP("IBCNRDVSIX",$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+2, HDR+4, BLDLN+14
^DIR	EXIT+5
$$ADDSTF^IBCNBES	EXIT+11
PID^VADPT	HDR+3
EN^VALM	EN+3, SHOWSEL+8
$$SETFLD^VALM1	BLDLN+11, BLDLN+12, BLDLN+13, BLDLN+14
CLEAR^VALM1	EXIT2+4
FULL^VALM1	SELINS+22
PAUSE^VALM1	SEL+27, UNSEL+34, SELINS+30
WAIT^VALM1	EXIT+13
FLDTEXT^VALM10	MARK+21
SET^VALM10	BLD+7, BLD2+12
WRITE^VALM10	MARK+22
EN^VALM2	SELINS+33
$$FMTE^XLFDT	HDR+4
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,NUMSEL," entr",$S(NUMSEL=1:"y has",1:"ies have")," been added to the Insurance Buffer File." Line Location: EXIT+12
Function Call: WRITE	Prompt: !,*7,">>>> # ",LINE," is currently selected." Line Location: SEL+23
Function Call: WRITE	Prompt: !,*7,">>>> # ",LINE," is not currently selected. It cannot be deselected." Line Location: UNSEL+30
Function Call: WRITE	Prompt: !,*7,">>>> Only single entry selection is allowed" Line Location: SELINS+27
Routine Call	DIR Line Location: EXIT+5
Routine Call	VALM Line Location: EN+3 SHOWSEL+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP(	SELINS+40
^TMP("IBCNRDVA"	BLDLN+10, EXIT+2, EXIT+9, EXITQ+1!, SEL+22, UNSEL+29, MARK+16*, MARK+19!, BLD2+9
^TMP("IBCNRDVIX"	BLD+8*, EXITQ+1!
^TMP("IBCNRDVS"	INIT2+5!, BLD2+16*, EXIT2+3!
^TMP("IBCNRDVSIX"	INIT2+5!, BLD2+13*, EXIT2+3!
^TMP($J	BLD+4, BLDLN+8, EXIT+10

Label References

Name	Line Occurrences
$$BLDLN	BLD+6, BLD2+11
$$SELINS	SEL+15, UNSEL+22
BLD	INIT+3, SHOWSEL+9
BLD2	INIT2+6
EXITQ	EXIT+2
HDR	SEL+26, UNSEL+33, SHOWSEL+9
MARK	SEL+25, UNSEL+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DATA	INIT+1~, BLDLN~, BLDLN+7~, BLDLN+8*
DATA(	BLDLN+12, BLDLN+13, BLDLN+14
>> DFN	HDR+2, HDR+4, EXIT+11
DIR	EXIT+5!, SEL+10~, UNSEL+14~, SELINS+19~, SELINS+29!
DIR("A"	EXIT+4*
DIR("B"	EXIT+4*
DIR(0	EXIT+4*
DIROUT	SEL+10~, UNSEL+14~, SELINS+19~
DIRUT	SEL+10~, UNSEL+14~, SELINS+19~
DLINE	SEL+10~, SEL+15, SEL+19, UNSEL+14~, UNSEL+22, UNSEL+26, SELINS~, SELINS+23, SELINS+24, SELINS+26 , SELINS+28, SELINS+35, SELINS+39*
DTOUT	SEL+10~, UNSEL+14~, SELINS+19~
DUOUT	SEL+10~, UNSEL+14~, SELINS+19~
ERROR	SEL+10~, SEL+11, SEL+24, SEL+27, UNSEL+14~, UNSEL+18, UNSEL+31, UNSEL+34
FULL	SELINS~, SELINS+22
IBB	EXIT+7~, EXIT+10, EXIT+11
IBB(	EXIT+11
>> IBFASTXT	EXIT+2, SHOWSEL+9
ICTR	BLDLN~, BLDLN+10*, BLDLN+11
IEN	SEL+10~, UNSEL+14~
IIEN	BLD+2~, BLD+3, BLD+4, BLD+6, BLD+8, BLDLN~, BLDLN+8, BLDLN+10, EXIT+7~, EXIT+8* , EXIT+9, EXIT+10, SEL+18, SEL+22, SEL+25, UNSEL+25, UNSEL+29, UNSEL+32, MARK~, MARK+16 , MARK+19, SELINS+19~, SELINS+40, SELINS+41, BLD2+5~, BLD2+8, BLD2+9, BLD2+11, BLD2+13
IIENS	SEL+10~, SEL+15, SEL+16, SEL+17, SEL+18, UNSEL+14~, UNSEL+22, UNSEL+23, UNSEL+24, UNSEL+25 , SELINS+19~, SELINS+25, SELINS+41, SELINS+42
IX	SEL+10~, SEL+17, SEL+18, SEL+19, UNSEL+14~, UNSEL+24, UNSEL+25, UNSEL+26, SELINS+19~, SELINS+35* , SELINS+36, SELINS+37*, SELINS+38, SELINS+39, SELINS+40
LINE	INIT+1~, BLD+2~, BLD+6, BLD+7, SEL+10~, SEL+19, SEL+23, SEL+25, UNSEL+14~, UNSEL+26* , UNSEL+30, UNSEL+32, MARK~, MARK+17, MARK+20, MARK+21, MARK+22, BLD2+5~, BLD2+11*, BLD2+12
LINEVAR	INIT+1~, BLDLN+7~, BLDLN+9, BLDLN+11, BLDLN+12, BLDLN+13, BLDLN+14*, BLDLN+15
MULT	SELINS~, SELINS+20*, SELINS+26
NUMSEL	EN+1~, EN+2, HDR+5, EXIT+12, SEL+25, UNSEL+32, MARK~, MARK+17, MARK+20*
PATNAM	HDR+1~, HDR+2*, HDR+4
PROMPT	SEL+10~, SEL+14, SEL+15, UNSEL+14~, UNSEL+21, UNSEL+22, SELINS~
SELECTED	UNSEL~, UNSEL+15, UNSEL+16*
TEXT	MARK+14~, MARK+17, MARK+20, MARK+21
VA	HDR+1~
VA("BID"	HDR+4
>> VALM("TITLE"	HDR+6*
>> VALMAR	INIT+2, EXITQ+1
>> VALMBCK	SEL+11, SEL+16, UNSEL+18, UNSEL+23, SHOWSEL+7, INIT2+4
>> VALMCNT	BLD+3, BLD+5, BLD+6, BLD+7, BLD+8, BLD2+8, BLD2+10, BLD2+11, BLD2+12, BLD2+13 , BLD2+15
>> VALMHDR(1	HDR+4*
>> VALMHDR(2	HDR+5*
VALMY	SELINS+19~, SELINS+34
VALMY(	SELINS+37
WARRAY	UNSEL+14~, UNSEL+16, UNSEL+17, UNSEL+22
WHICH	MARK~, MARK+15
WLIST	SELINS~, SELINS+21*, SELINS+40
X	HELP+1*, EXIT+3~, SELINS+19~
>> XQORNOD(0	SELINS+23, SELINS+33
Y	EXIT+3~, EXIT+6, SELINS+19~

Customize PDF page

Package: Integrated Billing

Routine: IBCNRDV1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: