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

Package: Integrated Billing

Routine: IBCNRDV1


Information

IBCNRDV1 ;AITC/TAZ - INSURANCE INFORMATION EXCHANGE VIA RDV ;11-MAR-2020

Source Information

Source file <IBCNRDV1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for IBCN RDV SELECTION
HDR ; -- header code
INIT ; -- init variables and list array
BLD ;
BLDLN(ICTR,IIEN,DATA) ;EP
; Builds a line to display one insurance company
; Input: ICTR - Selection Number
; IIEN - IEN of the Policy to be displayed
; ^TMP("IBCNRDVA",$J,IIEN) - Array of currently selected policies
HELP ; -- help code
EXIT ; -- exit code
EXITQ ;
EXPND ; -- expand code
SEL ;EP
; Protocol Action to select an unselected policy
; Input: NUMSEL - Current number of selected policies
; ^TMP("IBCNRDV1",$J) - Current Array of displayed policies
; ^TMP("IBCNRDVIX",$J) - Current Index of displayed policies
; ^TMP("IBCNRDVA,$J,IIEN) - Current Array of selected policies
; Output: NUMSEL - Updated number of selected policies
; ^TMP("IBCNRDVA,$J,IIEN)- Updated Array of selected policies
; Selected Insurance Company is added to the worklist
; Error message displayed (potentially)
UNSEL(SELECTED) ;EP
; Protocol Action to deselect an already selected policy
; Input: SELECTED - 1 - Called from IBCN RDV POL DESELECT
; 0 - Called from IBCN RDV DESELECT
; Optional, defaults to 0
; NUMSEL - Current number of selected policies
; ^TMP("IBCNRDV",$J) - Current Array of displayed policies
; ^TMP("IBCNRDVS",$J) - Current Array of selected policies
; ^TMP("IBCNRDVIX",$J) - Current Index of displayed policies
; ^TMP("IBCNRDVA,$J,IIEN)- Current Array of selected policies
; Output: NUMSEL - Current number of selected policies
; ^TMP("IBCNRDVA,$J,IIEN)- Updated Array of selected policies
; Selected policy 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 policies
; Input: NUMSEL - Current number of selected policies
; ^TMP("IBCNRDVA",$J,IEN) - Current Array of selected policies
; Output: NUMSEL - Updated number of selected policies
; ^TMP("IBCNRDVA",$J,IEN) - Updated Array of selected policies
SELINS(FULL,PROMPT,DLINE,MULT,WLIST)
INIT2 ;EP for Show Selections
; Initialize variables and list array
; Input: None
; Output: ^TMP("IBCNRDV",$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("IBCNRDVS",$J) - Body lines to display
; ^TMP("IBCNRDVSIX",$J) - Index of Entry IENs by display line
EXIT2 ;EP for Show Selections
; Exit code
; Input: None

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,NUMSEL," entr",$S(NUMSEL=1:"y has",1:"ies have")," been added to the Insurance Buffer File."
  • Line Location: EXIT+12
Function Call: WRITE
  • Prompt: !,*7,">>>> # ",LINE," is currently selected."
  • Line Location: SEL+23
Function Call: WRITE
  • Prompt: !,*7,">>>> # ",LINE," is not currently selected. It cannot be deselected."
  • Line Location: UNSEL+30
Function Call: WRITE
  • Prompt: !,*7,">>>> Only single entry selection is allowed"
  • Line Location: SELINS+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call