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

Package: Integrated Billing

Routine: IBCNILK


Information

IBCNILK ;ALB/FA - Insurance Company Selection ; 02-OCT-2015

Source Information

Source file <IBCNILK.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
List Manager 4 EN^VALM  ($$SETSTR,CLEAR,FULL,PAUSE)^VALM1  (FLDTEXT,SET,WRITE)^VALM10  EN^VALM2  
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: 11

Package Total Caller Graph
Integrated Billing 10 IBCMDT  IBCN INS CO ACTIVE UNSELECT  IBCN INS CO NEW SEARCH  IBCN INS CO SELECT  IBCN INS CO SELECTED  IBCN INS CO SELECTOR  IBCN INS CO SHOW SEL  IBCN INS CO UNSELECT  
IBCNERPF  IBCOPP  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
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)
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)
HELP ;EP
; Help code
; Input: None
EXIT2 ;EP for Show Selections
; Exit code
; Input: None
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
EXIT ;EP
; Exit code
; Input: None
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
INIT ;EP
; Initialize variables and list array
; Input: None
; Output: ^TMP("IBCNILK",$J) - Body lines to display
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
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 - Filter by Selected Payer only
; 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)
; Optional, if not passed, user is prompted for filter
; selection
; Output: ^TMP("IBCNILKA,$J,IIEN) - Array of selected insurance companies
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
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
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)
MARK(WHICH,IIEN,LINE,NUMSEL)
SELINS(FULL,PROMPT,DLINE,MULT,WLIST)

External References

Name Field # of Occurrence
$$GET1^DIQ HDR+23, BLD+36, BLD+38, BLDLN+11, BLDLN+13, BLDLN+16, BLDLN+18, BLDLN+20, BLDLN+21, BLDLN+23
, BLD2+12
^DIR GETFILT+32, GETFILT+48, GETFILT+60
EN^VALM EN+27, SHOWSEL+11
$$SETSTR^VALM1 HDR+25, BLDLN+10, BLDLN+12, BLDLN+15, BLDLN+17, BLDLN+19, BLDLN+22, BLDLN+24
CLEAR^VALM1 EXIT+4, EXIT2+4
FULL^VALM1 NEWSRCH+7, HELP+3, SELINS+22
PAUSE^VALM1 NEWSRCH+12, SEL+29, UNSEL+36, SELINS+30
FLDTEXT^VALM10 MARK+21
SET^VALM10 BLD+44, BLD2+27
WRITE^VALM10 MARK+22
EN^VALM2 SELINS+33
$$UP^XLFSTR BLD+10, BLD+11, BLD+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWSRCH+8
Function Call: WRITE
  • Prompt: *7,"Invalid Filter - nothing done"
  • Line Location: NEWSRCH+11
Function Call: WRITE
  • Prompt: !
  • Line Location: GETFILT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: GETFILT+37
Function Call: WRITE
  • Prompt: !
  • Line Location: GETFILT+54
Function Call: WRITE
  • Prompt: @IOF,"A '>' after the Insurance Company Selection number indicates that this Insurance"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"Company has already been selected."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !,*7,">>>> # ",LINE," is currently selected."
  • Line Location: SEL+25
Function Call: WRITE
  • Prompt: !,*7,">>>> # ",LINE," is not currently selected. It cannot be deselected."
  • Line Location: UNSEL+32
Function Call: WRITE
  • Prompt: !,*7,">>>> Only single entry selection is allowed"
  • Line Location: SELINS+27
Routine Call
  • VALM
  • Line Location:
    • EN+27
    • SHOWSEL+11
Routine Call
  • DIR
  • Line Location:
    • GETFILT+32
    • GETFILT+48
    • GETFILT+60

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] GET1^DIQ
^IBE(365.12 - [#365.12] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] BLD+16, BLD+18, BLD+31, BLD+33
^TMP( SELINS+40
^TMP("IBCNILK" NEWSRCH+14!, INIT+4!, BLD+48*, EXIT+3!, BLD2+31*
^TMP("IBCNILKA" EN+26!, INIT+4!, BLDLN+9, SEL+24, UNSEL+31, MARK+16*, MARK+19!, BLD2+10
^TMP("IBCNILKIX" NEWSRCH+14!, INIT+4!, BLD+45*, EXIT+3!
^TMP("IBCNILKS" INIT2+4!, EXIT2+3!
^TMP("IBCNILKSIX" INIT2+4!, BLD2+28*, EXIT2+3!

Label References

Name Line Occurrences
$$BLDLN BLD+42, BLD2+25
$$GETFILT EN+23, NEWSRCH+9
$$SELINS SEL+17, UNSEL+24
BLD NEWSRCH+15, INIT+5, SHOWSEL+12
BLD2 INIT2+5
HDR NEWSRCH+15, SEL+28, UNSEL+35, SHOWSEL+12
MARK SEL+27, UNSEL+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR GETFILT+13~, GETFILT+38!, GETFILT+48!, GETFILT+55!, SEL+12~, UNSEL+16~, SELINS+19~, SELINS+29!
DIR("?" GETFILT+23*, GETFILT+24*, GETFILT+25*, GETFILT+26*, GETFILT+27*, GETFILT+28*, GETFILT+29*, GETFILT+30*, GETFILT+43*, GETFILT+45*
, GETFILT+47*, GETFILT+59*
DIR("A" GETFILT+18*, GETFILT+19*, GETFILT+20*, GETFILT+21*, GETFILT+41*, GETFILT+57*
DIR("B" GETFILT+22*, GETFILT+58*
DIR(0 GETFILT+17*, GETFILT+39*, GETFILT+56*
DIROUT GETFILT+13~, SEL+12~, UNSEL+16~, SELINS+19~
DIRUT GETFILT+13~, SEL+12~, UNSEL+16~, SELINS+19~
DLINE SEL+12~, SEL+17, SEL+21, UNSEL+16~, UNSEL+24, UNSEL+28, SELINS~, SELINS+23*, SELINS+24*, SELINS+26
, SELINS+28*, SELINS+35*, SELINS+39*
DTOUT GETFILT+13~, GETFILT+33, GETFILT+49, GETFILT+61, SEL+12~, UNSEL+16~, SELINS+19~
DUOUT GETFILT+13~, GETFILT+33, GETFILT+49, GETFILT+61, SEL+12~, UNSEL+16~, SELINS+19~
ERROR SEL+12~, SEL+13*, SEL+26*, SEL+29, UNSEL+16~, UNSEL+20*, UNSEL+33*, UNSEL+36
FILTER EN~, EN+23*, EN+24, NEWSRCH+13*, GETFILT+13~, GETFILT+34*, GETFILT+40, GETFILT+42, GETFILT+44, GETFILT+46
, GETFILT+50*, GETFILT+51, GETFILT+58, GETFILT+62*, GETFILT+63, HDR+11, HDR+12, HDR+13, HDR+14, HDR+15
, HDR+16, BLD+9, BLD+10, BLD+11
FTEXT1 BLD+8~, BLD+10*, BLD+12*, BLD+13, BLD+16, BLD+21, BLD+22, BLD+24, BLD+25
FTEXT2 BLD+8~, BLD+11*, BLD+14, BLD+27
FTYPE BLD+8~, BLD+9*, BLD+12, BLD+13, BLD+14, BLD+16, BLD+21, BLD+22, BLD+23
FULL SELINS~, SELINS+22
ICTR BLD+8~, BLD+15*, BLD+41*, BLD+42, BLD+45, BLDLN~, BLDLN+9*, BLDLN+10, BLD2+16*, BLD2+24*
, BLD2+25, BLD2+28
IEN SEL+12~, UNSEL+16~
IIEN BLD+8~, BLD+29*, BLD+30, BLD+31*, BLD+32, BLD+33, BLD+36, BLD+38, BLD+42, BLD+45
, BLDLN~, BLDLN+9, BLDLN+11, BLDLN+13, BLDLN+16, BLDLN+18, BLDLN+20, BLDLN+23, SEL+20*, SEL+24
, SEL+27, UNSEL+27*, UNSEL+31, UNSEL+34, MARK~, MARK+16, MARK+19, SELINS+19~, SELINS+40*, SELINS+41
, BLD2+5~, BLD2+8*, BLD2+9, BLD2+10*, BLD2+11, BLD2+12, BLD2+13, BLD2+20*, BLD2+21, BLD2+22*
, BLD2+23, BLD2+25, BLD2+28
IIENS SEL+12~, SEL+17*, SEL+18, SEL+19, SEL+20, UNSEL+16~, UNSEL+24*, UNSEL+25, UNSEL+26, UNSEL+27
, SELINS+19~, SELINS+25*, SELINS+41*, SELINS+42
INACT BLD+8~, BLD+38*, BLD+39, BLD+40
INM BLD+8~, BLD+15*, BLD+16*, BLD+17, BLD+18*, BLD+19, BLD+20, BLD+31
INMU BLD+8~, BLD+20*, BLD+21, BLD+22, BLD+25, BLD+27
IOF HELP+5
IX SEL+12~, SEL+19*, SEL+20, SEL+21, UNSEL+16~, UNSEL+26*, UNSEL+27, UNSEL+28, SELINS+19~, SELINS+35*
, SELINS+36, SELINS+37*, SELINS+38, SELINS+39, SELINS+40
LINE BLD+8~, BLD+42*, BLD+44, BLDLN+8~, BLDLN+10*, BLDLN+12*, BLDLN+15*, BLDLN+17*, BLDLN+19*, BLDLN+22*
, BLDLN+24*, BLDLN+25, SEL+12~, SEL+21*, SEL+25, SEL+27, UNSEL+16~, UNSEL+28*, UNSEL+32, UNSEL+34
, MARK~, MARK+17, MARK+20, MARK+21, MARK+22, BLD2+5~, BLD2+25*, BLD2+27
LINEI BLDLN+8~
MULT SELINS~, SELINS+20*, SELINS+26
NM BLD2+5~, BLD2+12*, BLD2+13, BLD2+16*, BLD2+17, BLD2+18*, BLD2+19, BLD2+22
NUMSEL EN+21~, EN+25*, HDR+27, SEL+27, UNSEL+34, MARK~, MARK+17*, MARK+20*
PIEN EN~, EN+22*, HDR+22, HDR+23, BLD+35, BLD+37
PLEN BLD+8~, BLD+13*, BLD+14*, BLD+21, BLD+27
PNM HDR+8~, HDR+23*, HDR+24*, HDR+25
PROMPT SEL+12~, SEL+16*, SEL+17, UNSEL+16~, UNSEL+23*, UNSEL+24, SELINS~
SELECTED HDR~, HDR+9*, HDR+10, UNSEL~, UNSEL+17, UNSEL+18*, UNSEL+35
SKIP BLD+8~, BLD+34*, BLD+35, BLD+37*
SORTED BLD2+5~
SORTED( BLD2+13*, BLD2+18, BLD2+22
START BLD+8~, BLD+24*, BLD+26
STOP BLD+8~, BLD+15*, BLD+17, BLD+21*, BLD+23, BLD+28*
TEXT MARK+14~, MARK+17*, MARK+20*, MARK+21
>> VALMBCK NEWSRCH+6*, HELP+4*, SEL+13*, SEL+18*, UNSEL+20*, UNSEL+25*, SHOWSEL+10*
>> VALMCNT BLD+15*, BLD+43*, BLD+44, BLD+47, BLD2+16*, BLD2+26*, BLD2+27, BLD2+30
>> VALMHDR(1 HDR+11*, HDR+13*, HDR+15*, HDR+17*
>> VALMHDR(2 HDR+26*
>> VALMHDR(3 HDR+27*
VALMY SELINS+19~, SELINS+34
VALMY( SELINS+37
WARRAY UNSEL+16~, UNSEL+18*, UNSEL+19*, UNSEL+24
WHICH EN~, HDR+18, BLD+39, BLD+40, MARK~, MARK+15
WLIST SELINS~, SELINS+21*, SELINS+40
X GETFILT+13~, SELINS+19~
>> XQORNOD(0 SELINS+23, SELINS+33
XX NEWSRCH+5~, NEWSRCH+9*, NEWSRCH+10, NEWSRCH+13, GETFILT+13~, GETFILT+31*, GETFILT+40*, GETFILT+41, HDR+8~, HDR+16*
, HDR+17, HDR+18*, HDR+19*, HDR+25*, HDR+26, BLD+8~, BLD+25*, BLD+26, BLD+36*, BLD+37
, BLDLN+8~, BLDLN+11*, BLDLN+12, BLDLN+13*, BLDLN+14*, BLDLN+15, BLDLN+16*, BLDLN+17, BLDLN+18*, BLDLN+19
, BLDLN+20*, BLDLN+21*, BLDLN+22, BLDLN+23*, BLDLN+24
Y GETFILT+13~, GETFILT+34, GETFILT+50, GETFILT+62, SELINS+19~
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