IBCNILK ;ALB/FA - Insurance Company Selection ; 02-OCT-2015
Source file <IBCNILK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(WHICH,PIEN,FILTER) | ;EP
; Main entry point for the Insurance Company Selection template ; Input: WHICH - 1 - Only Show Active Insurance Companies ; 0 - Only Show Inactive Insurance Companies ; 2 - Show Both Active and Inactive Insurance Companies ; PIEN - IEN of the Payer to use to filter Insurance Company ; lookups. Optional, defaults to "". ; FILTER - A^B^C Where: ; A - 1 - Search for Insurance Companies that begin with ; the specified text (case insensitive) ; 2 - Search for Insurance Companies that contain ; the specified text (case insensitive) ; 3 - Search for Insurance Companies in a specified ; range (inclusive, case insensitive) ; 4 - Search for Name(s) that are blank (null) ; 5 - Filter by Selected Payer only |
|
| NEWSRCH() | ; EP
; Protocol action to get new filter criteria and redisplay the listman ; template body and header ; Input: FILTER - Current Insurance Company Filter (See EN for details) ; Output: FILTER - Update Insurance Company Filter (See EN for details) |
|
| GETFILT() | ; Gets the Insurance company filter
; Input: None ; Returns: A^B^C Where: ; A - 1 - Search for Insurance Companies that begin with ; the specified text (case insensitive) ; 2 - Search for Insurance Companies that contain ; the specified text (case insensitive) ; 3 - Search for Insurance Companies in a specified ; range (inclusive, case insensitive) ; B - Begin with text if A=1, Contains Text if A=2 or ; the range start if A=3 ; C - Range End text (only present when A=3) ; -1 if a valid filter was not selected ; ^ if user wants to exit |
|
| HDR(SELECTED) | ;EP
; Header code for the Insurance Company Selection template ; Input: SELECTED - 1 - Showing header for selected listman ; Optional, defaults to 0 ; NUMSEL - Current # of Insurance Companies Selected ; FILTER - Current Insurance Company Filter (See EN for details) ; WHICH - Active/Inactive/Both filter option ; Output: VALMHDR - Header information to display |
|
| INIT | ;EP
; Initialize variables and list array ; Input: None ; Output: ^TMP("IBCNILK",$J) - Body lines to display |
|
| BLD | ; Build listman body
; Input: FILTER - Current Insurance Company Filter (See EN for details) ; WHICH - 1 - Only Show Active Insurance Companies ; 0 - Only Show Inactive Insurance Companies ; 2 - Show Both Active and Inactive Insurance Companies ; Output: VALMCNT - Total number of lines displayed in the body ; ^TMP("IBCNILK",$J) - Body lines to display ; ^TMP("IBCNILKIX",$J) - Index of Entry IENs by display line |
|
| BLDLN(ICTR,IIEN) | ;EP
; Builds a line to display one insurance company ; Input: ICTR - Selection Number ; IIEN - IEN of the insurance company to be ; displayed ; ^TMP("IBCNILKA",$J,IIEN) - Array of currently selected ; Insurance Companies ; 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 insurance company ; Input: NUMSEL - Current number of selected insurance ; companies ; ^TMP("IBCNILK",$J) - Current Array of displayed Ins Cos ; ^TMP("IBCNILKIX",$J) - Current Index of displayed Ins Cos ; ^TMP("IBCNILKA,$J,IIEN)- Current Array of selected Ins Cos ; Output: NUMSEL - Updated number of selected insurance ; companies ; ^TMP("IBCNILKA,$J,IIEN)- Updated Array of selected Ins Cos ; Selected Insurance Company is removed from the worklist ; Error message displayed (potentially) |
|
| UNSEL(SELECTED) | ;EP
; Protocol Action to deselect an already selected insurance company ; Input: SELECTED - 1 - Called from IBCN INS CO ACTIVE UNSELECT ; 0 - Called from IBCN INS CO UNSELECT ; Optional, defaults to 0 ; NUMSEL - Current number of selected insurance ; companies ; ^TMP("IBCNILK",$J) - Current Array of displayed Ins Cos ; ^TMP("IBCNILKS",$J) - Current Array of selecte Ins Cos ; ^TMP("IBCNILKIX",$J) - Current Index of displayed Ins Cos ; ^TMP("IBCNILKA,$J,IIEN)- Current Array of selected Ins Cos ; Output: NUMSEL - Current number of selected insurance ; companies ; ^TMP("IBCNILKA,$J,IIEN)- Updated Array of selected Ins Cos ; Selected Insurance Company is removed from the worklist ; Error message displayed (potentially) |
|
| MARK(WHICH,IIEN,LINE,NUMSEL) | ||
| SHOWSEL | ;EP
; Protocol action used to display a listman template of the currently ; selected Insurance companies ; Input: NUMSEL - Current number of selected insurance ; companies ; ^TMP("IBCNILKA",$J,IEN) - Current Array of selected insurance ; companies ; Output: NUMSEL - Updated number of selected insurance companies ; ^TMP("IBCNILKA",$J,IEN) - Updated Array of selected insurance ; companies |
|
| SELINS(FULL,PROMPT,DLINE,MULT,WLIST) | ||
| INIT2 | ;EP for Show Selections
; Initialize variables and list array ; Input: None ; Output: ^TMP("IBCNILK",$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("IBCNILKS",$J) - Body lines to display ; ^TMP("IBCNILKSIX",$J) - Index of Entry IENs by display line |
|
| EXIT2 | ;EP for Show Selections
; Exit code ; Input: None |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBE(365.12 - [#365.12] | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
