IBCNSUR4 ;ALB/VD - SELECT MULTIPLE SUBSCRIBERS LOOK-UP UTILITY ; 14-APR-15
Source file <IBCNSUR4.m>
| 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 | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
