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

Package: Integrated Billing

Routine: IBCOMDT


Information

IBCOMDT ;ALB/CKB - INSURANCE COMPANY MISSING DATA REPORT (DRIVER/PROMPTS) ; 12-APR-2023

Source Information

Source file <IBCOMDT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 2 EN^IBCNILK  PAUSE^IBCOMDT1  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 EN^XUTMDEVQ  

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

Package Total Caller Graph
Integrated Billing 1 IBCN INS COMPANY MISSING DATA  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main Entry point.
; Initialize variables.
C0 ; Start of filters, allowing users to go back to first prompt
O10 ; Report or CSV output
C10 ; User select ALL/Selected Insurance Companies
C20 ; If ALL Insurance Companies, add to ^TMP(IBCNRTN
C30 ; If SELECTED Insurance Company(s), add to ^TMP(IBCNRTN
; Insurance Company look-up ListMan template to allow user selection
F0 ; Start of Filters
F10
F20
F30
F40
F50
F60
F70
F80
WARN ;
D10 ; Select Device (ie., queue, print to screen...)
EXIT ; Exit point
SELINS ; Prompt user to select all or subset of insurance companies
; Count insurance companies with plans
; Returns: 0 - User selects insurance companies
; 1 - Run report for all insurance companies with plans
; STOP=1 - No selection made
SELINSQ ;
OUTPUT ; Prompt to allow users to select output format
; Returns: E - Output to excel
; R - Output to report
; STOP=1 - No Selection made
OUTQ ;
DEVICE(IBCNRTN,IBCOMDT) ; Device Handler and possible TaskManager calls
; Input params:
; IBCNRTN = Routine name for ^TMP(IBCNRTN,IBCOMDT("$J"),...
; IBCOMDT = Array passed by ref of the report params
; Output params:
; STOP = Flag to stop routine, exit option
DEVICEX ; DEVICE exit pt
STOP() ; Determine if user wants to exit out of the whole option
; Initialize Variables
STOPX ; STOP Exit Point
SELSL1 ; Prompt user to report missing Street Line 1
SELSL1Q ;
SELSL2 ; Prompt user to report missing Street Line 2
SELSL2Q ;
SELSL3 ; Prompt user to report missing Street Line 3
SELSL3Q ;
SELCTY ; Prompt user to report missing City
SELCTYQ ;
SELST ; Prompt user to report missing State
SELSTQ ;
SELZIP ; Prompt user to report missing Zip+4
SELZIPQ ;
SELCOV ; Prompt user to report missing Type of Coverage
SELCOVQ ;
SELFTF ; Prompt user to report missing Filing Time Frame
SELFTFQ ;

External References

Name Field # of Occurrence
$$GET1^DIQ C20+8, C30+8
^DIR SELINS+18, OUTPUT+11, STOP+9, SELSL1+10, SELSL2+10, SELSL3+10, SELCTY+10, SELST+10, SELZIP+10, SELCOV+10
, SELFTF+10
EN^IBCNILK C30+4
PAUSE^IBCOMDT1 C30+13, F80+8
EN^XUTMDEVQ DEVICE+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"INSURANCE COMPANY MISSING DATA REPORT"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!?5,"This report will generate a list of ACTIVE insurance companies"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !?5,"that are missing the data that you select to be reported upon.",!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"No Insurance Companies selected!",!!
  • Line Location: C30+13
Function Call: WRITE
  • Prompt: !!,"** No Filters were selected **",!
  • Line Location: F80+7
Function Call: WRITE
  • Prompt: !!,?14,"*** WARNING ***",!
  • Line Location: WARN+1
Function Call: WRITE
  • Prompt: " This report may take a little while to compile!",!
  • Line Location: WARN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SELINS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+5
Function Call: WRITE
  • Prompt: !!,"For CSV output, turn logging or capture on now. To avoid undesired wrapping"
  • Line Location: DEVICE+9
Function Call: WRITE
  • Prompt: !,"of the data saved to the file, please enter ""0;256;99999"" at the ""DEVICE:"""
  • Line Location: DEVICE+10
Function Call: WRITE
  • Prompt: !,"prompt.",!
  • Line Location: DEVICE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELSL1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELSL2+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELSL3+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELCTY+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELST+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELZIP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELCOV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFTF+10
Routine Call
  • DIR
  • Line Location:
    • SELINS+18
    • OUTPUT+11
    • STOP+9
    • SELSL1+10
    • SELSL2+10
    • SELSL3+10
    • SELCTY+10
    • SELST+10
    • SELZIP+10
    • SELCOV+10
    • SELFTF+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] C20+5, C20+7
^IBA(355.3 - [#355.3] SELINS+8
^TMP( C0+2!, C20+9*, C30+9*, C30+13, EXIT+1!, EXIT+2!
^TMP("IBCNILKA" C30+5, C30+6, C30+10!

Label References

Name Line Occurrences
$$STOP C10+1, F10+1, F20+1, F30+1, F40+1, F50+1, F60+1, F70+1, F80+1
C10 F10+1
DEVICE D10+1
EXIT O10+1, C10+1, C30+13, F10+1, F20+1, F30+1, F40+1, F50+1, F60+1, F70+1
, F80+1, F80+6, D10+2
F0 F80+6
F10 F20+1
F20 F30+1
F30 F40+1
F40 F50+1
F50 F60+1
F60 F70+1
F70 F80+1
O10 C10+1
OUTPUT O10+1
OUTQ OUTPUT+12
SELCOV F70
SELCOVQ SELCOV+11
SELCTY F40
SELCTYQ SELCTY+11
SELFTF F80
SELFTFQ SELFTF+11
SELINS C10+1
SELINSQ SELINS+19
SELSL1 F10
SELSL1Q SELSL1+11
SELSL2 F20
SELSL2Q SELSL2+11
SELSL3 F30
SELSL3Q SELSL3+11
SELST F50
SELSTQ SELST+11
SELZIP F60
SELZIPQ SELZIP+11
STOPX STOP+10
WARN C30+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+2~
A SELINS+6~, SELINS+7*, SELINS+8*
B SELINS+6~, SELINS+7*, SELINS+8*, SELINS+12, SELINS+13
DIR SELINS+10~, SELINS+18!, OUTPUT+4~, OUTPUT+11!, STOP+2~, STOP+9!, SELSL1+10!, SELSL2+10!, SELSL3+10!, SELCTY+10!
, SELST+10!, SELZIP+10!, SELCOV+10!, SELFTF+10!
DIR("?" SELINS+16*, SELINS+17*, OUTPUT+9*, OUTPUT+10*, STOP+7*, STOP+8*, SELSL1+8*, SELSL1+9*, SELSL2+8*, SELSL2+9*
, SELSL3+8*, SELSL3+9*, SELCTY+8*, SELCTY+9*, SELST+8*, SELST+9*, SELZIP+8*, SELZIP+9*, SELCOV+8*, SELCOV+9*
, SELFTF+8*, SELFTF+9*
DIR("A" SELINS+13*, SELINS+14*, SELINS+15*, OUTPUT+7*, STOP+5*, SELSL1+6*, SELSL2+6*, SELSL3+6*, SELCTY+6*, SELST+6*
, SELZIP+6*, SELCOV+6*, SELFTF+6*
DIR("B" OUTPUT+8*, STOP+6*, SELSL1+7*, SELSL2+7*, SELSL3+7*, SELCTY+7*, SELST+7*, SELZIP+7*, SELCOV+7*, SELFTF+7*
DIR(0 SELINS+12*, OUTPUT+6*, STOP+4*, SELSL1+5*, SELSL2+5*, SELSL3+5*, SELCTY+5*, SELST+5*, SELZIP+5*, SELCOV+5*
, SELFTF+5*
DIROUT SELINS+10~, SELINS+19, OUTPUT+4~, OUTPUT+12, STOP+10, SELSL1+11, SELSL2+11, SELSL3+11, SELCTY+11, SELST+11
, SELZIP+11, SELCOV+11, SELFTF+11
DIRUT SELINS+10~, SELINS+19, OUTPUT+4~, OUTPUT+12, STOP+2~, STOP+10, SELSL1+11, SELSL2+11, SELSL3+11, SELCTY+11
, SELST+11, SELZIP+11, SELCOV+11, SELFTF+11
DTOUT SELINS+10~, SELINS+19, OUTPUT+4~, OUTPUT+12, STOP+10, SELSL1+11, SELSL2+11, SELSL3+11, SELCTY+11, SELST+11
, SELZIP+11, SELCOV+11, SELFTF+11
DUOUT F80+6, SELINS+10~, SELINS+19, OUTPUT+4~, OUTPUT+12, STOP+10, SELSL1+11, SELSL2+11, SELSL3+11, SELCTY+11
, SELST+11, SELZIP+11, SELCOV+11, SELFTF+11
IBCNRTN C0+1*, C0+2, C20+9, C30+9, C30+13, D10+1, EXIT+1, DEVICE~
IBCNS C20+2~, C20+6*, C20+7*, C20+8, C20+9, C30+3~, C30+6*, C30+8, C30+9
IBCOMDT EN+2~, D10+1, DEVICE~
IBCOMDT("$J" C0+1*, C0+2, C20+9, C30+5, C30+6, C30+9, C30+10, C30+13, EXIT+1, EXIT+2
IBCOMDT("IBCOV" F70+2, SELCOV+12*
IBCOMDT("IBCTY" F40+2, SELCTY+12*
IBCOMDT("IBFTF" F80+2, SELFTF+12*
IBCOMDT("IBI" C20+1, C30+2, SELINS+20*
IBCOMDT("IBOUT" C30+16, OUTPUT+13*, DEVICE+8
IBCOMDT("IBSL1" F10+2, SELSL1+12*
IBCOMDT("IBSL2" F20+2, SELSL2+12*
IBCOMDT("IBSL3" F30+2, SELSL3+12*
IBCOMDT("IBST" F50+2, SELST+12*
IBCOMDT("IBZIP" F60+2, SELZIP+12*
IBCOMDT("SUBHD" F0+1*, F10+3*, F20+3*, F30+3*, F40+3*, F50+3*, F60+3*, F70+3*, F80+3*, F80+6
IBI EN+2~
IBIC C20+2~, C20+4*, C20+5*, C20+7, C20+9, C30+3~, C30+8*, C30+9
IBOUT EN+2~, C0+3*
IBQUIT EN+2~, C0+3*, F80+6
IOF EN+5
POP EN+2~, DEVICE+14~, DEVICE+21
STOP EN+2~, C0+3*, O10+1, C10+1, F10+1, F20+1, F30+1, F40+1, F50+1, F60+1
, F70+1, F80+1, D10+2, SELINS+19*, OUTPUT+12*, DEVICE+21*, STOP+10*, STOP+11*, SELSL1+11*, SELSL2+11*
, SELSL3+11*, SELCTY+11*, SELST+11*, SELZIP+11*, SELCOV+11*, SELFTF+11*
X SELINS+10~, OUTPUT+4~, STOP+2~
Y SELINS+10~, SELINS+20!, OUTPUT+4~, OUTPUT+13, STOP+2~, STOP+10*, STOP+11, STOPX+1, SELSL1+12!, SELSL2+12!
, SELSL3+12!, SELCTY+12!, SELST+12!, SELZIP+12!, SELCOV+12!, SELFTF+12!
ZTDESC EN+2~, DEVICE+14~, DEVICE+16*, DEVICE+20
ZTDEXC EN+2~
ZTRTN EN+2~, DEVICE+14~, DEVICE+15*, DEVICE+20
ZTSAVE EN+2~, DEVICE+14~, DEVICE+20
ZTSAVE("IBCNRTN" DEVICE+19*
ZTSAVE("IBCOMDT(" DEVICE+18*
ZTSAVE("^TMP(IBCNRTN,IBCOMDT(""$J"")," DEVICE+17*
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