Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
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.
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
INIT ;EP
; Initialize variables and list array
; Input: None
; Output: ^TMP("IBCNSUR4",$J) - Body lines to display
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
GTSREC(DFNY,SRTREC) ; Get the sort record data
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
HELP ;EP
; Help code
; Input: None
EXIT ;EP
; Exit code
; Input: None
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
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
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
SELSUB(FULL,PROMPT,DLINE,MULT,WLIST)
INIT2 ;EP for Show Selections
; Initialize variables and list array
; Input: None
; Output: ^TMP("IBCNSUR4",$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("IBCNSUR4S",$J) - Body lines to display
; ^TMP("IBCNSUR4SIX",$J) - Index of Entry DFNs by display line
EXIT2 ;EP for Show Selections
; Exit code
; Input: None
SELSORT ; select the way to sort the list screen
SELSORTX ;

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call