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 |  Local Variables |  All
Print Page as PDF
Routine: IBCNSUR4

Package: Integrated Billing

Routine: IBCNSUR4


Information

IBCNSUR4 ;ALB/VD - SELECT MULTIPLE SUBSCRIBERS LOOK-UP UTILITY ; 14-APR-15

Source Information

Source file <IBCNSUR4.m>

Call Graph

Call Graph

Call Graph Total: 9

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Integrated Billing 8 IBCN SUBSCRIBER ACTIVE UNSELECT  IBCN SUBSCRIBER SELECT  IBCN SUBSCRIBER SELECTED  IBCN SUBSCRIBER SELECTOR  IBCN SUBSCRIBER SHOW SEL  IBCN SUBSCRIBER SORT LIST  IBCN SUBSCRIBER UNSELECT  IBCNSUR1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
HELP ;EP
; Help code
; Input: None
EXIT2 ;EP for Show Selections
; Exit code
; Input: None
MARK(WHICH,DFNY,LINE,NUMSEL)
SHOWSEL ;EP
; Protocol action used to display a listman template of the currently
; selected Subscribers
; Input: NUMSEL - Current number of selected Subscribers
; ^TMP("IBCNSUR4A",$J,DFN,Y) - Current Array of selected Subscribers
; Output: NUMSEL - Updated number of selected Subscribers
; ^TMP("IBCNSUR4A",$J,DFN,Y) - Updated Array of selected Subscribers
SELSORT ; select the way to sort the list screen
GTSREC(DFNY,SRTREC) ; Get the sort record data
SELSUB(FULL,PROMPT,DLINE,MULT,WLIST)
INIT ;EP
; Initialize variables and list array
; Input: None
; Output: ^TMP("IBCNSUR4",$J) - Body lines to display
HDR(SELECTED) ;EP
; Header code for the Subscriber Selection template
; Input: SELECTED -- 1=Showing header for selected listman
; 0=Is the default or optional value
EXIT ;EP
; Exit code
; Input: None
INIT2 ;EP for Show Selections
; Initialize variables and list array
; Input: None
; Output: ^TMP("IBCNSUR4",$J) - Body lines to display
EN(IBC1,IBP1,IBDD,IBSBID,IBVAL,IBSUBACT,IBEFDT,IBEFDT1,IBEFDT2) ; Entry Point
; Look-up Utility to Select Multiple Subscribers
; Input: IBC1 -- Pointer to the company in file #36
; IBP1 -- Pointer to the plan in file #355.3
; IBDD -- Deceased Subscribers Indicator (1 - Include
; Deceased, 0 - Ignore Deceased)
; IBSBID -- Subscriber ID Filter (1 - Use IBVAL to filter
; Subscriber IDs, 0 - Ignore Subscriber IDs)
; IBVAL -- Use the contained value to screen Subscriber IDs.
; IBSUBACT -- Subscriber Filter for Active Indicator (0 - Ignore
; Active Status, 1 - Filter Active, 2 - Filter Inactive)
; to be excluded from selection
; IBEFDT -- Effective Date Filter Indicator (1 - Use Effective
; Dates as a filter, 0 - Ignore Effective Dates.)
; IBEFDT1 -- Effective Date Filter Start Date.
; IBEFDT2 -- Effective Date Filter End Date.
BLDLN(ICTR,DFN,Y,SRTREC) ;EP
; Also called from BLD^IBCNEILK2
; Builds a line to display one Subscriber
; Input: ICTR - Selection Number
; DFN - DFN of the Subscriber to be displayed
; Y - Y of the 2.312 occurrence.
; ^TMP("IBCNSUR4A",$J,DFN,Y) - Array of currently selected Subscribers
; Output: LINE - Formatted for setting into the list display
BLD2 ; Build listman body for Show Selections
; Input: None
; Output: VALMCNT - Total number of lines displayed in the body
; ^TMP("IBCNSUR4S",$J) - Body lines to display
; ^TMP("IBCNSUR4SIX",$J) - Index of Entry DFNs by display line
BLD ; Build listman body
; Input: IBC1 -- Pointer to the company in file #36
; IBP1 -- Pointer to the plan in file #355.3
; IBDD -- Deceased Subscribers Indicator (1 - Include
; Deceased, 0 - Ignore Deceased)
; IBSBID -- Subscriber ID Filter (1 - Use IBVAL to filter
; Subscriber IDs, 0 - Ignore Subscriber IDs)
; IBVAL -- Use the contained value to screen Subscriber IDs.
; IBSUBACT -- Subscriber Filter for Active Indicator (0 - Include
; Both Active & Inactive, 1 - Include Active,
; 2 - Include Inactive) to be included in selection.
; IBACTV -- List of Active or Inactive policies.
; IBEFDT -- Effective Date Filter Indicator (1 - Use Effective
; Dates as a filter, 0 - Ignore Effective Dates.)
; IBEFDT1 -- Effective Date Filter Start Date.
; IBEFDT2 -- Effective Date Filter End Date.
; Output: VALMCNT - Total number of lines displayed in the body
; ^TMP("IBCNSUR4",$J) - Body lines to display
; ^TMP("IBCNSUR4IX",$J) - Index of Entry IENs by display line
UNSEL(SELECTED) ;EP
; Protocol Action to de-select an already selected Subscriber
; Input:
; Optional, defaults to 0
; NUMSEL - Current number of selected Subscribers
; ^TMP("IBCNSUR4",$J) - Current Array of displayed Subscribers
; ^TMP("IBCNSUR4S",$J) - Current Array of selected Insurance Companies
; ^TMP("IBCNSUR4IX",$J) - Current Index of displayed Subscribers
; ^TMP("IBCNSUR4A,$J,DFN,Y) - Current Array of selected Subscribers
SEL ;EP
; Protocol Action to de-select an already selected Subscriber
; Input: NUMSEL - Current number of selected Subscribers
; ^TMP("IBCNSUR4",$J) - Current Array of displayed Subscribers
; ^TMP("IBCNSUR4IX",$J) - Current Index of displayed Subscribers
; ^TMP("IBCNSUR4A,$J,DFN,Y) - Current Array of selected Subscribers
SELSORTX ;

External References

Name Field # of Occurrence
$$GET1^DIQ HDR+24, HDR+25, HDR+26, HDR+27, BLD+34, GTSREC+4, GTSREC+5, GTSREC+6, GTSREC+7, GTSREC+8
, GTSREC+9, GTSREC+10
^DIR SELSORT+7
$$SUBS^IBCNSJ BLD+22
$$DAT1^IBOUTL HDR+39, BLDLN+14, BLDLN+15
EN^VALM EN+19, SHOWSEL+8
$$SETSTR^VALM1 BLDLN+10, BLDLN+11, BLDLN+12, BLDLN+13, BLDLN+14, BLDLN+15, BLDLN+16, BLDLN+17
CLEAR^VALM1 EXIT+4, EXIT2+4
FULL^VALM1 HELP+3, SELSUB+21, SELSORT+3
PAUSE^VALM1 SEL+30, UNSEL+38, SELSUB+29
FLDTEXT^VALM10 MARK+22
SET^VALM10 BLD+59, BLD2+32
WRITE^VALM10 MARK+23
EN^VALM2 SELSUB+32
$$UP^XLFSTR BLD+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"A '>' after the Subscriber Selection number indicates that this Subscriber"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"has already been selected."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !,*7,">>>> # ",LINE," is currently selected."
  • Line Location: SEL+26
Function Call: WRITE
  • Prompt: !,*7,">>>> # ",LINE," is not currently selected. It cannot be de-selected."
  • Line Location: UNSEL+34
Function Call: WRITE
  • Prompt: !,*7,">>>> Only single entry selection is allowed"
  • Line Location: SELSUB+26
Function Call: WRITE
  • Prompt: !
  • Line Location: SELSORT+3
Function Call: WRITE
  • Prompt: !,"Select the item to sort the subscriber records on the subscriber list screen."
  • Line Location: SELSORT+4
Routine Call
  • VALM
  • Line Location:
    • EN+19
    • SHOWSEL+8
Routine Call
  • DIR
  • Line Location:
    • SELSORT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
2.312 GET1^DIQ
^IBA(355.3 - [#355.3] GET1^DIQ
^DIC(36 - [#36] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] HDR+26
^TMP( SELSUB+39
^TMP("IBCNSUR4" INIT+4!, BLD+24*, BLD+63*, EXIT+3!, BLD2+36*
^TMP("IBCNSUR4A" INIT+4!, BLDLN+9, SEL+25, UNSEL+33, MARK+17*, MARK+20!, BLD2+9, BLD2+11
^TMP("IBCNSUR4IX" INIT+4!, BLD+60*, EXIT+3!
^TMP("IBCNSUR4S" INIT2+4!, EXIT2+3!
^TMP("IBCNSUR4SIX" INIT2+4!, BLD2+33*, EXIT2+3!
^TMP($J BLD+27, BLD+29

Label References

Name Line Occurrences
$$BLDLN BLD+57, BLD2+30
$$SELSUB SEL+16, UNSEL+24
BLD INIT+6, SHOWSEL+9, SELSORT+12
BLD2 INIT2+5
GTSREC BLD+31, BLD2+13
HDR SEL+29, UNSEL+37, SHOWSEL+9, SELSORT+12
MARK SEL+28, UNSEL+36
SELSORTX SELSORT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTIVE BLD+20~, BLD+33*, BLD+37, BLD+38
CURCNT BLD+20~, BLD+23*, BLD+56*, BLD+57, BLD+60, BLD+61
DFN BLD+20~, BLD+26*, BLD+27*, BLD+29, BLD+30, BLD+34, BLD+55*, BLD+57, GTSREC+1~, GTSREC+3*
, GTSREC+4, GTSREC+5, GTSREC+6, GTSREC+7, GTSREC+8, GTSREC+9, GTSREC+10, BLDLN~, BLDLN+9, SEL+11~
, SEL+20*, SEL+25, UNSEL+15~, UNSEL+28*, UNSEL+33, MARK+13~, MARK+14*, MARK+17, MARK+20, BLD2+5~
, BLD2+8*, BLD2+9*, BLD2+11, BLD2+12, BLD2+28*, BLD2+30, BLD2+33
DFNS SEL+11~, SEL+16*, SEL+17, SEL+18, SEL+19, UNSEL+15~, UNSEL+24*, UNSEL+25, UNSEL+26, UNSEL+27
, SELSUB+18~, SELSUB+24*, SELSUB+40*, SELSUB+41
DFNY BLD+20~, BLD+30*, BLD+31, BLD+55*, BLD+60, GTSREC~, GTSREC+3, GTSREC+11, SEL+11~, SEL+19*
, SEL+20, SEL+21, SEL+28, UNSEL+15~, UNSEL+27*, UNSEL+28, UNSEL+29, UNSEL+36, MARK~, MARK+14
, MARK+15, SELSUB+18~, SELSUB+39*, SELSUB+40, BLD2+5~, BLD2+12*, BLD2+13, BLD2+27*, BLD2+28
DIR SEL+11~, UNSEL+15~, SELSUB+18~, SELSUB+28!, SELSORT+1~, SELSORT+7!
DIR("A" SELSORT+6*
DIR("B" SELSORT+6*
DIR(0 SELSORT+5*
DIROUT SEL+11~, UNSEL+15~, SELSUB+18~, SELSORT+1~
DIRUT SEL+11~, UNSEL+15~, SELSUB+18~, SELSORT+1~
DLINE SEL+11~, SEL+16, SEL+22, UNSEL+15~, UNSEL+24, UNSEL+30, SELSUB~, SELSUB+22*, SELSUB+23*, SELSUB+25
, SELSUB+27*, SELSUB+34*, SELSUB+38*
DT BLD+33
DTOUT SEL+11~, UNSEL+15~, SELSUB+18~, SELSORT+1~
DUOUT SEL+11~, UNSEL+15~, SELSUB+18~, SELSORT+1~
ERROR SEL+11~, SEL+12*, SEL+27*, SEL+30, UNSEL+15~, UNSEL+19*, UNSEL+35*, UNSEL+38
FULL SELSUB~, SELSUB+21
HCTR HDR+22~, HDR+30*, HDR+31, HDR+32, HDR+33*, HDR+34, HDR+35, HDR+36*, HDR+38, HDR+39
IBC1 EN~, HDR+24, HDR+25, HDR+26, BLD+22
IBDD EN~, HDR+31
>> IBDEAD BLD+34
IBEFDT EN~, HDR+37, BLD+39
IBEFDT1 EN~, HDR+39, BLD+40
IBEFDT2 EN~, HDR+39, BLD+41
>> IBFASTXT EN+20
IBP1 EN~, HDR+24, HDR+27, BLD+22
>> IBQUIT EN+20*
IBSBID EN~
IBSORT HDR+23*, HDR+29, INIT+5*, BLD+42*, BLD+43, EXIT+3!, BLD2+14, SELSORT+6, SELSORT+9*
>> IBSUB EN+21, HDR+29, BLD+22*, BLD+24, BLD+25, BLD+61*
IBSUBACT EN~, HDR+35, BLD+36, BLD+37, BLD+38
>> IBSUBID BLD+35
IBVAL EN~, HDR+32
>> IBVALUE BLD+35
ICTR BLDLN~, BLDLN+9*, BLDLN+10, BLD2+5~, BLD2+20*, BLD2+29*, BLD2+30, BLD2+33
IOF HELP+5
IX SEL+11~, SEL+18*, SEL+19, SEL+22, UNSEL+15~, UNSEL+26*, UNSEL+27, UNSEL+30, SELSUB+18~, SELSUB+34*
, SELSUB+35, SELSUB+36*, SELSUB+37, SELSUB+38, SELSUB+39
LINE BLD+57*, BLD+59, BLDLN+8~, BLDLN+10*, BLDLN+11*, BLDLN+12*, BLDLN+13*, BLDLN+14*, BLDLN+15*, BLDLN+16*
, BLDLN+17*, BLDLN+18, SEL+11~, SEL+22*, SEL+26, SEL+28, UNSEL+15~, UNSEL+30*, UNSEL+34, UNSEL+36
, MARK~, MARK+18, MARK+21, MARK+22, MARK+23, BLD2+5~, BLD2+30*, BLD2+32
LINEI BLDLN+8~
MSG UNSEL+15~, UNSEL+23*
MULT SELSUB~, SELSUB+19*, SELSUB+25
NUMSEL EN+21, HDR+29, SEL+28, UNSEL+36, MARK~, MARK+18*, MARK+21*
OMIT BLD+20~, BLD+30*, BLD+36, BLD+37*, BLD+38*, BLD+39, BLD+40*, BLD+41*
PATEFF BLD+20~, BLD+32*, BLD+40, BLD+41, GTSREC+1~, GTSREC+7*, GTSREC+11
PATEXP BLD+20~, BLD+32*, BLD+33, GTSREC+1~, GTSREC+8*, GTSREC+11
PATID BLD+20~, GTSREC+1~, GTSREC+10*, GTSREC+11
PATNAM BLD+20~, GTSREC+1~, GTSREC+4*, GTSREC+11
PATSID BLD+20~, BLD+32*, BLD+35, GTSREC+1~, GTSREC+6*, GTSREC+11
PATSSN BLD+20~, GTSREC+1~, GTSREC+5*, GTSREC+11
PATWHO BLD+20~, GTSREC+1~, GTSREC+9*, GTSREC+11
PROMPT SEL+11~, SEL+15*, SEL+16, UNSEL+15~, UNSEL+22*, UNSEL+24, SELSUB~
SELECTED HDR~, UNSEL~, UNSEL+16, UNSEL+17*
SORTED BLD+21~, BLD2+5~
SORTED( BLD+45, BLD+46*, BLD+49, BLD+51, BLD+53, BLD+54, BLD2+16, BLD2+17*, BLD2+21, BLD2+23
, BLD2+25, BLD2+26
SRTKEY1 BLD+21~, BLD+43*, BLD+45, BLD+46, BLD+48*, BLD+49*, BLD+51, BLD+53, BLD+54, BLD2+5~
, BLD2+14*, BLD2+16, BLD2+17, BLD2+20*, BLD2+21*, BLD2+23, BLD2+25, BLD2+26
SRTKEY2 BLD+21~, BLD+44*, BLD+45, BLD+46, BLD+50*, BLD+51*, BLD+53, BLD+54, BLD2+5~, BLD2+15*
, BLD2+16, BLD2+17, BLD2+22*, BLD2+23*, BLD2+25, BLD2+26
SRTKEY3 BLD+21~, BLD+45*, BLD+46, BLD+52*, BLD+53*, BLD+54, BLD2+5~, BLD2+16*, BLD2+17, BLD2+24*
, BLD2+25*, BLD2+26
SRTREC BLD+21~, BLD+31, BLD+32, BLD+43, BLD+44, BLD+46, BLD+54*, BLD+55, BLD+57, GTSREC~
, GTSREC+2*, GTSREC+11*, BLDLN~, BLDLN+11, BLDLN+12, BLDLN+13, BLDLN+14, BLDLN+15, BLDLN+16, BLDLN+17
, BLD2+13, BLD2+14, BLD2+15, BLD2+17, BLD2+26*, BLD2+27, BLD2+30
ST SELSORT+1~
STDES SELSORT+1~
TEXT MARK+13~, MARK+18*, MARK+21*, MARK+22
U EN+21, HDR+26, HDR+29, BLD+32, BLD+43, BLD+44, BLD+55, GTSREC+11, BLDLN+11, BLDLN+12
, BLDLN+13, BLDLN+14, BLDLN+15, BLDLN+16, BLDLN+17, BLD2+14, BLD2+15, BLD2+27
>> VALMBCK HELP+4*, SEL+12*, SEL+17*, UNSEL+19*, UNSEL+25*, SHOWSEL+7*, SELSORTX+1*
>> VALMBG SELSORTX+1*
>> VALMCNT BLD+23*, BLD+58*, BLD+59, BLD+62, BLD2+20*, BLD2+31*, BLD2+32, BLD2+35
>> VALMHDR( HDR+31*, HDR+32*, HDR+33, HDR+34*, HDR+35*, HDR+36, HDR+38*, HDR+39*
>> VALMHDR(1 HDR+24*
>> VALMHDR(2 HDR+25*, HDR+26*, HDR+27*
>> VALMHDR(3 HDR+29*
VALMY SELSUB+18~, SELSUB+33
VALMY( SELSUB+36
WARRAY UNSEL+15~, UNSEL+17*, UNSEL+18*, UNSEL+24
WHICH MARK~, MARK+16
WLIST SELSUB~, SELSUB+20*, SELSUB+39
X SELSUB+18~, SELSORT+1~
>> XQORNOD(0 SELSUB+22, SELSUB+32
XXN BLDLN+8~
Y BLD+21~, BLD+28*, BLD+29*, BLD+30, BLD+55*, BLD+57, GTSREC+1~, GTSREC+3*, GTSREC+6, GTSREC+7
, GTSREC+8, GTSREC+9, GTSREC+10, BLDLN~, BLDLN+9, SEL+11~, SEL+21*, SEL+25, UNSEL+15~, UNSEL+29*
, UNSEL+33, MARK+13~, MARK+15*, MARK+17, MARK+20, SELSUB+18~, BLD2+5~, BLD2+10*, BLD2+11*, BLD2+12
, BLD2+28*, BLD2+30, BLD2+33, SELSORT+1~, SELSORT+8, SELSORT+9
Y(0 SELSORT+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 |  Local Variables |  All