Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCNSU21

Package: Integrated Billing

Routine: IBCNSU21


Information

IBCNSU21 ;ALB/TAZ - INSURANCE PLAN SELECTOR UTILITY ; 13-OCT-2021

Source Information

Source file <IBCNSU21.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
List Manager 4 EN^VALM  ($$SETFLD,$$SETSTR,CLEAR,FULL,PAUSE)^VALM1  (CLEAN,FLDTEXT,SET,WRITE)^VALM10  EN^VALM2  
Integrated Billing 1 $$YN^IBCNSM  
Kernel 1 $$UP^XLFSTR  
VA FileMan 1 ($$GET1,GETS)^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Integrated Billing 9 IBCNGP  IBCNGP1  IBCNOR1  IBCNS PLAN MULTI-DESEL  IBCNS PLAN MULTI-DESELECT  IBCNS PLAN MULTI-SELECT  IBCNS PLAN SELECTOR  IBCNS PLAN SHOW SEL  
IBCNS POLICIES SELECTED  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
LKP(IBCNS,IBIND,IBACT,IBIGN,IBFIL) ; Select Utility for Insurance Company Plans
INIT ; Build the list of plans.
HDR ; Build the list header.
EXIT ; Exit action.
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("IBCNSU21A",$J,IIEN) - Array of currently selected policies
SEL ;EP
; Protocol Action to select an unselected policy
; Input: NUMSEL - Current number of selected policies
; ^TMP("IBCNSU21",$J) - Current Array of displayed policies
; ^TMP("IBCNSU21IX",$J) - Current Index of displayed policies
; ^TMP("IBCNSU21A,$J,IIEN) - Current Array of selected policies
; Output: NUMSEL - Updated number of selected policies
; ^TMP("IBCNSU21A,$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 POL DESELECT
; 0 - Called from IBCN DESELECT
; Optional, defaults to 0
; NUMSEL - Current number of selected policies
; ^TMP("IBCNSU21",$J) - Current Array of displayed policies
; ^TMP("IBCNSU21S",$J) - Current Array of selected policies
; ^TMP("IBCNSU21IX",$J) - Current Index of displayed policies
; ^TMP("IBCNSU21A,$J,IIEN)- Current Array of selected policies
; Output: NUMSEL - Current number of selected policies
; ^TMP("IBCNSU21A,$J,IIEN)- Updated Array of selected policies
; Selected policy is removed from the worklist
; Error message displayed (potentially)
MARK(WHICH,IIEN,LINE,NUMSEL)
SELPOL(FULL,DLINE,MULT,WLIST)
SHOWSEL ;EP
; Protocol action used to display a listman template of the currently
; selected policies
; Input: NUMSEL - Current number of selected policies
; ^TMP("IBCNSU21A",$J,IEN) - Current Array of selected policies
; Output: NUMSEL - Updated number of selected policies
; ^TMP("IBCNSU21A",$J,IEN) - Updated Array of selected policies
INIT2 ;EP for Show Selections
; Initialize variables and list array
; Input: None
; Output: ^TMP("IBCNSU21S",$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("IBCNSU21S",$J) - Body lines to display
; ^TMP("IBCNSU21SIX",$J) - Index of Entry IENs by display line
EXIT2 ;EP for Show Selections
; Exit code
; Input: None
HELP
PLANOK(DATA,IBACT,IBNANU,IBFLT) ;Check to see if plan qualifies
PLANOKX ;Exit
FILTER(STR,FLT) ; Filter Group Name or Number
FILTERX ; Exit

External References

Name Field # of Occurrence
$$GET1^DIQ HDR+6, HDR+8, HDR+11, HDR+13, HDR+17, HDR+18, HDR+19
GETS^DIQ INIT+6, BLDLN+8
$$YN^IBCNSM BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20
EN^VALM LKP+30, SHOWSEL+8
$$SETFLD^VALM1 BLDLN+11, BLDLN+13, BLDLN+15, BLDLN+16, BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20
$$SETSTR^VALM1 HDR+9, HDR+15, HDR+21, HDR+25
CLEAR^VALM1 EXIT+5, EXIT2+4
FULL^VALM1 SELPOL+21
PAUSE^VALM1 SEL+26, UNSEL+33, SELPOL+29
CLEAN^VALM10 EXIT+5
FLDTEXT^VALM10 MARK+21
SET^VALM10 BLD+7, BLD2+12
WRITE^VALM10 MARK+22
EN^VALM2 SELPOL+32
$$UP^XLFSTR FILTER+14, FILTER+16, FILTER+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,">>>> # ",LINE," is currently selected."
  • Line Location: SEL+22
Function Call: WRITE
  • Prompt: !,*7,">>>> # ",LINE," is not currently selected. It cannot be deselected."
  • Line Location: UNSEL+29
Function Call: WRITE
  • Prompt: !,*7,">>>> Only single entry selection is allowed"
  • Line Location: SELPOL+26
Routine Call
  • VALM
  • Line Location:
    • LKP+30
    • SHOWSEL+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.3 - [#355.3] GETS^DIQ
^DIC(36 - [#36] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] HDR+2
^IBA(355.3 - [#355.3] INIT+4
^TMP( LKP+25!, EXIT+4!, SELPOL+39
^TMP("IBCNSU21" INIT+11*, INIT+12*, INIT+16, INIT+17*, INIT+18*
^TMP("IBCNSU21A" EXIT+3, BLDLN+10, SEL+21, UNSEL+28, MARK+16*, MARK+19!, BLD2+9
^TMP("IBCNSU21IX" INIT+14*, BLD+8*
^TMP("IBCNSU21S" INIT2+5!, BLD2+16*, EXIT2+3!
^TMP("IBCNSU21SIX" INIT2+5!, BLD2+13*, EXIT2+3!
^TMP($J EXIT+3*, BLD+4

Label References

Name Line Occurrences
$$BLDLN INIT+9, BLD+6, BLD2+11
$$FILTER PLANOK+27, PLANOK+29
$$PLANOK INIT+7
$$SELPOL SEL+14, UNSEL+21
BLD2 INIT2+6
FILTERX FILTER+20, FILTER+23, FILTER+26, FILTER+29
HDR SEL+25, UNSEL+32, SHOWSEL+9
INIT SHOWSEL+9
MARK SEL+24, UNSEL+31
PLANOKX PLANOK+21, PLANOK+22, PLANOK+24, PLANOK+26

Naked Globals

Name Field # of Occurrence
^( HDR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEG FILTER+13~, FILTER+16*, FILTER+24, FILTER+27, FILTER+31, FILTER+32, FILTER+33
CHR FILTER+13~
DATA BLDLN~, BLDLN+7~, PLANOK~
DATA( BLDLN+12, BLDLN+13, BLDLN+14, BLDLN+15, BLDLN+16, BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20, PLANOK+19
, PLANOK+20, PLANOK+27, PLANOK+29
DIR SEL+10~, UNSEL+14~, SELPOL+18~, SELPOL+28!
DIROUT SEL+10~, UNSEL+14~, SELPOL+18~
DIRUT SEL+10~, UNSEL+14~, SELPOL+18~
DLINE SEL+10~, SEL+14, SEL+18, UNSEL+14~, UNSEL+21, UNSEL+25, SELPOL~, SELPOL+22*, SELPOL+23*, SELPOL+25
, SELPOL+27*, SELPOL+34*, SELPOL+38*
DTOUT SEL+10~, UNSEL+14~, SELPOL+18~
DUOUT SEL+10~, UNSEL+14~, SELPOL+18~
END FILTER+13~, FILTER+17*, FILTER+34, FILTER+35, FILTER+36
ERROR SEL+10~, SEL+11*, SEL+23*, SEL+26, UNSEL+14~, UNSEL+18*, UNSEL+30*, UNSEL+33
FLT FILTER~, FILTER+15, FILTER+16, FILTER+17
FULL SELPOL~, SELPOL+21
IBACT LKP~, LKP+27*, INIT+7, HDR+4, HDR+24, PLANOK~, PLANOK+21, PLANOK+22
IBCNS LKP~, LKP+23, INIT+4, HDR+2, HDR+6, HDR+8, HDR+11, HDR+13, HDR+17, HDR+18
, HDR+19
IBCNS0 HDR+1~, HDR+2*
IBCNS11 HDR+1~, HDR+2*
IBCNS13 HDR+1~, HDR+2*
>> IBFASTXT SHOWSEL+9
IBFIL LKP~, LKP+28*, INIT+7
IBFLT PLANOK~, PLANOK+24, PLANOK+27, PLANOK+29
IBIGN LKP~, INIT+7
IBIND LKP~, LKP+26*, HDR+5, HDR+23
IBLEAD HDR+1~, HDR+5*, HDR+9, HDR+14, HDR+21
IBMULT LKP+24~, LKP+29*
IBNANU PLANOK~, PLANOK+26, PLANOK+28
IBP INIT+1~, INIT+3*, INIT+4*, INIT+6, INIT+9, INIT+12, INIT+14, PLANOK+17~, PLANOK+19*, PLANOK+20
, PLANOK+27, PLANOK+29
ICTR BLDLN~, BLDLN+10*, BLDLN+11
IDX LKP+24~, LKP+25*, EXIT+1~, EXIT+4*
IEN SEL+10~, UNSEL+14~
IIEN BLD+2~, BLD+3*, BLD+4*, BLD+6, BLD+8, BLDLN~, BLDLN+8, BLDLN+10, BLDLN+12, BLDLN+13
, BLDLN+14, BLDLN+15, BLDLN+16, BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20, SEL+17*, SEL+21, SEL+24
, UNSEL+24*, UNSEL+28, UNSEL+31, MARK~, MARK+16, MARK+19, SELPOL+18~, SELPOL+39*, SELPOL+40, BLD2+5~
, BLD2+8*, BLD2+9*, BLD2+11, BLD2+13
IIENS SEL+10~, SEL+14*, SEL+15, SEL+16, SEL+17, UNSEL+14~, UNSEL+21*, UNSEL+22, UNSEL+23, UNSEL+24
, SELPOL+18~, SELPOL+24*, SELPOL+40*, SELPOL+41
INACTIVE PLANOK+17~, PLANOK+20*, PLANOK+21, PLANOK+22
IX SEL+10~, SEL+16*, SEL+17, SEL+18, UNSEL+14~, UNSEL+23*, UNSEL+24, UNSEL+25, SELPOL+18~, SELPOL+34*
, SELPOL+35, SELPOL+36*, SELPOL+37, SELPOL+38, SELPOL+39
LINE BLD+2~, BLD+6*, BLD+7, SEL+10~, SEL+18*, SEL+22, SEL+24, UNSEL+14~, UNSEL+25*, UNSEL+29
, UNSEL+31, MARK~, MARK+17, MARK+20, MARK+21, MARK+22, BLD2+5~, BLD2+11*, BLD2+12
LINEVAR BLDLN+7~, BLDLN+9*, BLDLN+11*, BLDLN+12*, BLDLN+13*, BLDLN+14*, BLDLN+15*, BLDLN+16*, BLDLN+17*, BLDLN+18*
, BLDLN+19*, BLDLN+20*, BLDLN+21
MULT SELPOL~, SELPOL+19*, SELPOL+25
NUMSEL LKP+24~, LKP+29*, EXIT+3, SEL+24, UNSEL+31, MARK~, MARK+17*, MARK+20*
OK PLANOK+17~, PLANOK+18*, PLANOK+26, PLANOK+27*, PLANOK+29*, PLANOKX+1, FILTER+13~, FILTER+18*, FILTER+21*, FILTER+24*
, FILTER+27*, FILTER+32*, FILTER+35*, FILTER+37*, FILTERX+1
PLANDATA INIT+5~, INIT+7
PLANOK INIT+5~
SELECTED LKP+24~, INIT+19*, UNSEL~, UNSEL+15, UNSEL+16*, SHOWSEL+7*
STR FILTER~, FILTER+14*, FILTER+21, FILTER+24, FILTER+27, FILTER+31, FILTER+34
TEXT MARK+14~, MARK+17*, MARK+20*, MARK+21
TYPE FILTER+13~, FILTER+15*, FILTER+20, FILTER+23, FILTER+26, FILTER+29
U FILTER+15, FILTER+16, FILTER+17
VALMBCK EXIT+2!, SEL+11*, SEL+15*, UNSEL+18*, UNSEL+22*, SHOWSEL+7*, INIT2+4*
VALMBG LKP+24~, INIT+2*
VALMCNT LKP+24~, INIT+2*, INIT+8*, INIT+9, INIT+11, INIT+12, INIT+14, INIT+17*, BLD+3*, BLD+5*
, BLD+6, BLD+7, BLD+8, BLD2+8*, BLD2+10*, BLD2+11, BLD2+12, BLD2+13, BLD2+15
VALMHDR LKP+24~
VALMHDR(1 HDR+9*
VALMHDR(2 HDR+15*
VALMHDR(3 HDR+21*
VALMHDR(4 HDR+25*
VALMY LKP+24~, SELPOL+18~, SELPOL+33
VALMY( SELPOL+36
WARRAY UNSEL+14~, UNSEL+16*, UNSEL+17*, UNSEL+21
WHICH MARK~, MARK+15
WLIST SELPOL~, SELPOL+20*, SELPOL+39
X INIT+1~, INIT+9*, INIT+11, HDR+1~, HDR+7*, HDR+9, HDR+14*, HDR+15, HDR+17*, HDR+20*
, HDR+21, HDR+23*, HDR+24*, HDR+25, SELPOL+18~
X1 HDR+1~, HDR+12*, HDR+15, HDR+18*, HDR+20
X2 HDR+1~, HDR+4*, HDR+5, HDR+6*, HDR+7, HDR+8*, HDR+9, HDR+11*, HDR+12, HDR+13*
, HDR+14, HDR+19*, HDR+20
>> XQORNOD(0 SELPOL+22, SELPOL+32
XX HDR+1~, FILTER+30~, FILTER+31*, FILTER+32, FILTER+33, FILTER+34*, FILTER+35, FILTER+36
Y SELPOL+18~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All