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

Package: Integrated Billing

Routine: IBCNRDV1


Information

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

Source Information

Source file <IBCNRDV1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
List Manager 4 EN^VALM  ($$SETFLD,CLEAR,FULL,PAUSE,WAIT)^VALM1  (FLDTEXT,SET,WRITE)^VALM10  EN^VALM2  
Kernel 2 $$FMTE^XLFDT  DISP^XQORM1  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Integrated Billing 1 $$ADDSTF^IBCNBES  
Registration 1 PID^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Integrated Billing 7 IBCN RDV DESELECT  IBCN RDV POL DESELECT  IBCN RDV POL SELECTED  IBCN RDV SELECT  IBCN RDV SELECTOR  IBCN RDV SHOW SELECTED  IBCNRDV  

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

External References

Name Field # of Occurrence
$$GET1^DIQ HDR+2, HDR+4, BLDLN+14
^DIR EXIT+5
$$ADDSTF^IBCNBES EXIT+11
PID^VADPT HDR+3
EN^VALM EN+3, SHOWSEL+8
$$SETFLD^VALM1 BLDLN+11, BLDLN+12, BLDLN+13, BLDLN+14
CLEAR^VALM1 EXIT2+4
FULL^VALM1 SELINS+22
PAUSE^VALM1 SEL+27, UNSEL+34, SELINS+30
WAIT^VALM1 EXIT+13
FLDTEXT^VALM10 MARK+21
SET^VALM10 BLD+7, BLD2+12
WRITE^VALM10 MARK+22
EN^VALM2 SELINS+33
$$FMTE^XLFDT HDR+4
DISP^XQORM1 HELP+1

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
Routine Call
  • DIR
  • Line Location:
    • EXIT+5
Routine Call
  • VALM
  • Line Location:
    • EN+3
    • SHOWSEL+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP( SELINS+40
^TMP("IBCNRDVA" BLDLN+10, EXIT+2, EXIT+9, EXITQ+1!, SEL+22, UNSEL+29, MARK+16*, MARK+19!, BLD2+9
^TMP("IBCNRDVIX" BLD+8*, EXITQ+1!
^TMP("IBCNRDVS" INIT2+5!, BLD2+16*, EXIT2+3!
^TMP("IBCNRDVSIX" INIT2+5!, BLD2+13*, EXIT2+3!
^TMP($J BLD+4, BLDLN+8, EXIT+10

Label References

Name Line Occurrences
$$BLDLN BLD+6, BLD2+11
$$SELINS SEL+15, UNSEL+22
BLD INIT+3, SHOWSEL+9
BLD2 INIT2+6
EXITQ EXIT+2
HDR SEL+26, UNSEL+33, SHOWSEL+9
MARK SEL+25, UNSEL+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATA INIT+1~, BLDLN~, BLDLN+7~, BLDLN+8*
DATA( BLDLN+12, BLDLN+13, BLDLN+14
>> DFN HDR+2, HDR+4, EXIT+11
DIR EXIT+5!, SEL+10~, UNSEL+14~, SELINS+19~, SELINS+29!
DIR("A" EXIT+4*
DIR("B" EXIT+4*
DIR(0 EXIT+4*
DIROUT SEL+10~, UNSEL+14~, SELINS+19~
DIRUT SEL+10~, UNSEL+14~, SELINS+19~
DLINE SEL+10~, SEL+15, SEL+19, UNSEL+14~, UNSEL+22, UNSEL+26, SELINS~, SELINS+23*, SELINS+24*, SELINS+26
, SELINS+28*, SELINS+35*, SELINS+39*
DTOUT SEL+10~, UNSEL+14~, SELINS+19~
DUOUT SEL+10~, UNSEL+14~, SELINS+19~
ERROR SEL+10~, SEL+11*, SEL+24*, SEL+27, UNSEL+14~, UNSEL+18*, UNSEL+31*, UNSEL+34
FULL SELINS~, SELINS+22
IBB EXIT+7~, EXIT+10*, EXIT+11*
IBB( EXIT+11
>> IBFASTXT EXIT+2, SHOWSEL+9
ICTR BLDLN~, BLDLN+10*, BLDLN+11
IEN SEL+10~, UNSEL+14~
IIEN BLD+2~, BLD+3*, BLD+4*, BLD+6, BLD+8, BLDLN~, BLDLN+8, BLDLN+10, EXIT+7~, EXIT+8*
EXIT+9*, EXIT+10, SEL+18*, SEL+22, SEL+25, UNSEL+25*, UNSEL+29, UNSEL+32, MARK~, MARK+16
, MARK+19, SELINS+19~, SELINS+40*, SELINS+41, BLD2+5~, BLD2+8*, BLD2+9*, BLD2+11, BLD2+13
IIENS SEL+10~, SEL+15*, SEL+16, SEL+17, SEL+18, UNSEL+14~, UNSEL+22*, UNSEL+23, UNSEL+24, UNSEL+25
, SELINS+19~, SELINS+25*, SELINS+41*, SELINS+42
IX SEL+10~, SEL+17*, SEL+18, SEL+19, UNSEL+14~, UNSEL+24*, UNSEL+25, UNSEL+26, SELINS+19~, SELINS+35*
, SELINS+36, SELINS+37*, SELINS+38, SELINS+39, SELINS+40
LINE INIT+1~, BLD+2~, BLD+6*, BLD+7, SEL+10~, SEL+19*, SEL+23, SEL+25, UNSEL+14~, UNSEL+26*
, UNSEL+30, UNSEL+32, MARK~, MARK+17, MARK+20, MARK+21, MARK+22, BLD2+5~, BLD2+11*, BLD2+12
LINEVAR INIT+1~, BLDLN+7~, BLDLN+9*, BLDLN+11*, BLDLN+12*, BLDLN+13*, BLDLN+14*, BLDLN+15
MULT SELINS~, SELINS+20*, SELINS+26
NUMSEL EN+1~, EN+2*, HDR+5, EXIT+12, SEL+25, UNSEL+32, MARK~, MARK+17*, MARK+20*
PATNAM HDR+1~, HDR+2*, HDR+4
PROMPT SEL+10~, SEL+14*, SEL+15, UNSEL+14~, UNSEL+21*, UNSEL+22, SELINS~
SELECTED UNSEL~, UNSEL+15, UNSEL+16*
TEXT MARK+14~, MARK+17*, MARK+20*, MARK+21
VA HDR+1~
VA("BID" HDR+4
>> VALM("TITLE" HDR+6*
>> VALMAR INIT+2, EXITQ+1
>> VALMBCK SEL+11*, SEL+16*, UNSEL+18*, UNSEL+23*, SHOWSEL+7*, INIT2+4*
>> VALMCNT BLD+3*, BLD+5*, BLD+6, BLD+7, BLD+8, BLD2+8*, BLD2+10*, BLD2+11, BLD2+12, BLD2+13
BLD2+15
>> VALMHDR(1 HDR+4*
>> VALMHDR(2 HDR+5*
VALMY SELINS+19~, SELINS+34
VALMY( SELINS+37
WARRAY UNSEL+14~, UNSEL+16*, UNSEL+17*, UNSEL+22
WHICH MARK~, MARK+15
WLIST SELINS~, SELINS+21*, SELINS+40
X HELP+1*, EXIT+3~, SELINS+19~
>> XQORNOD(0 SELINS+23, SELINS+33
Y EXIT+3~, EXIT+6, 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