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

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

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

Package Total Caller Graph
Integrated Billing 11 IBCNGP  IBCNGP1  IBCNOR1  IBCNS PLAN CHOOSE ALL  IBCNS PLAN MULTI-DESEL  IBCNS PLAN MULTI-DESELECT  IBCNS PLAN MULTI-SELECT  IBCNS PLAN SELECTOR  
IBCNS PLAN SHOW SEL  IBCNS PLAN SHOW SELECTED  IBCOPP  
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 group/plan
; Input: ICTR - Selection Number
; IIEN - IEN of the Plan to be displayed
; ^TMP("IBCNSU21A",$J,IIEN) - Array of currently selected plans
SEL ;EP
; Protocol Action to select an unselected plans
; Input: NUMSEL - Current number of selected plans
; ^TMP("IBCNSU21",$J) - Current Array of displayed plans
; ^TMP("IBCNSU21IX",$J) - Current Index of displayed plans
; ^TMP("IBCNSU21A,$J,IIEN) - Current Array of selected plans
; Output: NUMSEL - Updated number of selected plans
; ^TMP("IBCNSU21A,$J,IIEN)- Updated Array of selected plans
; Selected Group/Plan is added to the worklist
; Error message displayed (potentially)
SELALL ;EP
UNSEL(SELECTED) ;EP
; Protocol Action to deselect an already selected plan
; Input: SELECTED - 1 - Called from IBCN POL DESELECT
; 0 - Called from IBCN DESELECT
; Optional, defaults to 0
; NUMSEL - Current number of selected plans
; ^TMP("IBCNSU21",$J) - Current Array of displayed plans
; ^TMP("IBCNSU21S",$J) - Current Array of selected plans
; ^TMP("IBCNSU21IX",$J) - Current Index of displayed plans
; ^TMP("IBCNSU21A,$J,IIEN)- Current Array of selected plans
; Output: NUMSEL - Current number of selected plans
; ^TMP("IBCNSU21A,$J,IIEN)- Updated Array of selected plans
; Selected Group/Plan 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 group/plans
; Input: NUMSEL - Current number of selected plans
; ^TMP("IBCNSU21A",$J,IEN) - Current Array of selected plans
; Output: NUMSEL - Updated number of selected plans
; ^TMP("IBCNSU21A",$J,IEN) - Updated Array of selected plans
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
; IB*822/DW added description for existing input parameter IBFLT
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, BLDLN+24, BLDLN+25, BLDLN+26
GETS^DIQ INIT+6, BLDLN+8
^DIR HELP+8
$$YN^IBCNSM BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20
EN^VALM LKP+32, SHOWSEL+10
$$SETFLD^VALM1 BLDLN+11, BLDLN+13, BLDLN+15, BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20, BLDLN+28
$$SETSTR^VALM1 HDR+9, HDR+15, HDR+21, HDR+25
CLEAR^VALM1 EXIT+5, EXIT2+4
FULL^VALM1 SELPOL+21, HELP+2
PAUSE^VALM1 SEL+26, SELALL+22, UNSEL+37, 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+17, FILTER+19, FILTER+20

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+33
Function Call: WRITE
  • Prompt: !,*7,">>>> Only single entry selection is allowed"
  • Line Location: SELPOL+26
Function Call: WRITE
  • Prompt: !!,"After the Plan selection number, an '>' indicates that this Group/Plan "
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !," has already been selected.",!
  • Line Location: HELP+4
Routine Call
  • DIR
  • Line Location:
    • HELP+8
Routine Call
  • VALM
  • Line Location:
    • LKP+32
    • SHOWSEL+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(355.1 - [#355.1] GET1^DIQ
^IBA(355.3 - [#355.3] GET1^DIQ,  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+27!, 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+32, MARK+16*, MARK+19!, BLD2+9
^TMP("IBCNSU21IX" INIT+14*, BLD+8*, SELALL+18, SELALL+19
^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+37, PLANOK+39
$$PLANOK INIT+7
$$SELPOL SEL+14, UNSEL+25
BLD2 INIT2+6
FILTERX FILTER+23, FILTER+25, FILTER+28, FILTER+31, FILTER+34
HDR SEL+25, SELALL+21, UNSEL+36, SHOWSEL+11
INIT SHOWSEL+11
MARK SEL+24, SELALL+20, UNSEL+35
PLANOKX PLANOK+31, PLANOK+32, PLANOK+34, PLANOK+36

Naked Globals

Name Field # of Occurrence
^( HDR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEG FILTER+16~, FILTER+19*, FILTER+29, FILTER+32, FILTER+36, FILTER+37, FILTER+38
CHR FILTER+16~
DATA BLDLN~, BLDLN+7~, PLANOK~
DATA( BLDLN+12, BLDLN+13, BLDLN+14, BLDLN+15, BLDLN+17, BLDLN+18, BLDLN+19, BLDLN+20, PLANOK+29, PLANOK+30
, PLANOK+37, PLANOK+39
DIR SEL+10~, SELALL+13~, UNSEL+14~, SELPOL+18~, SELPOL+28!, HELP+6~, HELP+9!
DIR("A" HELP+7*
DIR(0 HELP+7*
DIROUT SEL+10~, SELALL+13~, UNSEL+14~, SELPOL+18~
DIRUT SEL+10~, SELALL+13~, UNSEL+14~, SELPOL+18~
DLINE SEL+10~, SEL+14, SEL+18, SELALL+13~, UNSEL+14~, UNSEL+25, UNSEL+29, SELPOL~, SELPOL+22*, SELPOL+23*
, SELPOL+25, SELPOL+27*, SELPOL+34*, SELPOL+38*
DTOUT SEL+10~, SELALL+13~, UNSEL+14~, SELPOL+18~
DUOUT SEL+10~, SELALL+13~, UNSEL+14~, SELPOL+18~
END FILTER+16~, FILTER+20*, FILTER+39, FILTER+40, FILTER+41
ERROR SEL+10~, SEL+11*, SEL+23*, SEL+26, SELALL+13~, SELALL+14*, SELALL+22, UNSEL+14~, UNSEL+22*, UNSEL+34*
, UNSEL+37
FLT FILTER~, FILTER+18, FILTER+19, FILTER+20
FULL SELPOL~, SELPOL+21
IB3551IEN BLDLN+23~, BLDLN+24*, BLDLN+25, BLDLN+26
IBACT LKP~, LKP+29*, INIT+7, HDR+4, HDR+24, PLANOK~, PLANOK+31, PLANOK+32
IBCNS LKP~, LKP+25, 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+11
IBFIL LKP~, LKP+30*, INIT+7
IBFLT PLANOK~, PLANOK+34, PLANOK+37, PLANOK+39
IBIGN LKP~, INIT+7
IBIND LKP~, LKP+28*, HDR+5, HDR+23
IBLEAD HDR+1~, HDR+5*, HDR+9, HDR+14, HDR+21
IBMULT LKP+26~, LKP+31*
IBNANU PLANOK~, PLANOK+36, PLANOK+38
IBP INIT+1~, INIT+3*, INIT+4*, INIT+6, INIT+9, INIT+12, INIT+14, PLANOK+27~, PLANOK+29*, PLANOK+30
, PLANOK+37, PLANOK+39
IBTYPA BLDLN+23~, BLDLN+26*, BLDLN+27
IBTYPN BLDLN+23~, BLDLN+25*, BLDLN+27
IBTYPO BLDLN+23~, BLDLN+27*, BLDLN+28
ICTR BLDLN~, BLDLN+10*, BLDLN+11
IDX LKP+26~, LKP+27*, EXIT+1~, EXIT+4*
IEN SEL+10~, SELALL+13~, 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+17, BLDLN+18, BLDLN+19, BLDLN+20, BLDLN+24, SEL+17*, SEL+21, SEL+24
, SELALL+19*, SELALL+20, UNSEL+28*, UNSEL+32, UNSEL+35, 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, SELALL+13~, UNSEL+14~, UNSEL+25*, UNSEL+26, UNSEL+27
, UNSEL+28, SELPOL+18~, SELPOL+24*, SELPOL+40*, SELPOL+41
INACTIVE PLANOK+27~, PLANOK+30*, PLANOK+31, PLANOK+32
IX SEL+10~, SEL+16*, SEL+17, SEL+18, SELALL+13~, UNSEL+14~, UNSEL+27*, UNSEL+28, UNSEL+29, 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, SELALL+13~, SELALL+18*, SELALL+19
, SELALL+20, UNSEL+14~, UNSEL+29*, UNSEL+33, UNSEL+35, 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+17*, BLDLN+18*, BLDLN+19*
, BLDLN+20*, BLDLN+28*, BLDLN+30
MULT SELPOL~, SELPOL+19*, SELPOL+25
NUMSEL LKP+26~, LKP+31*, EXIT+3, SEL+24, SELALL+16*, SELALL+20, UNSEL+35, MARK~, MARK+17*, MARK+20*
OK PLANOK+27~, PLANOK+28*, PLANOK+36, PLANOK+37*, PLANOK+39*, PLANOKX+1, FILTER+16~, FILTER+21*, FILTER+23*, FILTER+26*
, FILTER+29*, FILTER+32*, FILTER+37*, FILTER+40*, FILTER+42*, FILTERX+1
PLANDATA INIT+5~, INIT+7
PLANOK INIT+5~
SELECTED LKP+26~, INIT+19*, UNSEL~, UNSEL+20*, UNSEL+21, SHOWSEL+7*
STR FILTER~, FILTER+17*, FILTER+26, FILTER+29, FILTER+32, FILTER+36, FILTER+39
TEXT MARK+14~, MARK+17*, MARK+20*, MARK+21
TYPE FILTER+16~, FILTER+18*, FILTER+23, FILTER+25, FILTER+28, FILTER+31, FILTER+34
U FILTER+18, FILTER+19, FILTER+20
>> VALMANS HELP+5
VALMBCK EXIT+2!, SEL+11*, SEL+15*, SELALL+14*, UNSEL+22*, UNSEL+26*, SHOWSEL+7*, INIT2+4*, HELP+10*
VALMBG LKP+26~, INIT+2*
VALMCNT LKP+26~, 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+26~
VALMHDR(1 HDR+9*
VALMHDR(2 HDR+15*
VALMHDR(3 HDR+21*
VALMHDR(4 HDR+25*
VALMY LKP+26~, SELPOL+18~, SELPOL+33
VALMY( SELPOL+36
WARRAY UNSEL+14~, UNSEL+21*, UNSEL+25
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~, HELP+6~, HELP+9!
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+35~, FILTER+36*, FILTER+37, FILTER+38, FILTER+39*, FILTER+40, FILTER+41
Y SELPOL+18~, HELP+6~, HELP+9!
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