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

Package: Integrated Billing

Routine: IBCNOR4


Information

IBCNOR4 ;AITC/DTG - IBCN DUP GROUP TO INS USAGE ;12/14/23

Source Information

Source file <IBCNOR4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
ENTYP ; get type equal or contain or all
ENRK ; come here if continue from ^ response
ENR ; ask question return point.
ENAQ ;
CON ; continue if all
RE ; report or excel
EXIT ; quit point
ISET ; if item save and set flag
OUT ; Prompt to allow users to select output format
; Returns: E - Output to excel
; R - Output to report
; IBSTOP=1 - No Selection made
OUTQ ;
DEVICE ;
COMPILE ; build output of payers
PRINT ; out put the compile in insurance co name order
EXITC ; compile section exit
NOD ; no info to print
QLINE ; cr to continue
WALK(IBINDX,IBLS) ; get subscribers
RUN ; go through 355.3
RSET ; update TMP to prep for subscriber check
HDRE ; excel header
HDRR ; report header
STOP() ; Determine if user wants to exit out of the whole option
; Initialize Variables
STOPX ; STOP Exit Point

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report can help identify potential duplicate group plans by group"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"number in one or more insurance companies. Search through the entire"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"database for duplicate groups or narrow down the search by a specific"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"group number."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTYP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENR+1
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: ENAQ+3
Function Call: WRITE
  • Prompt: !!!,"WARNING: You have selected to run this report for all duplicate groups."
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !,"In doing so, this report will take a long time to run.",!
  • Line Location: CON+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+5
Function Call: WRITE
  • Prompt: !!,"***This report is 132 characters wide.***",!
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,"For CSV output, turn logging or capture on now.",!
  • Line Location: DEVICE+4
Function Call: WRITE
  • Prompt: "To avoid undesired wrapping of the data, please"
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !," enter '0;256;99999'.",!
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !,"Checking for Duplicate Group Number(s)",!
  • Line Location: COMPILE+28
Function Call: WRITE
  • Prompt: !,$P(IBA,U,4),U,IBNM,U,IBGNAM,U,IBINS,U,IBADDR,U,$P(IBA,U,2),U,$P(IBA,U,3)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,IBNM
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,?2,$P(IBA,U,6),?6,IBINS,?38,IBADDR,?74,$P(IBW,U,1),?83,$P(IBW,U,2),?107,$E($P(IBW,U,3),1,24)
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,IBNM," (continued)"
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !,IBEORMSG
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !,IBNONEMSG,!,IBEORMSG
  • Line Location: NOD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QLINE+3
Function Call: WRITE
  • Prompt: !,"Gathering Subscriber Counts: ",!,"."
  • Line Location: WALK+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: WALK+8
Function Call: WRITE
  • Prompt: !,"Placing Subscriber Totals: ",!,"."
  • Line Location: WALK+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: WALK+20
Function Call: WRITE
  • Prompt: "."
  • Line Location: RUN+4
Function Call: WRITE
  • Prompt: !,IBHDRNAME,U,IBHDRDATE
  • Line Location: HDRE+2
Function Call: WRITE
  • Prompt: !,IBFILTER
  • Line Location: HDRE+3
Function Call: WRITE
  • Prompt: ", + Indicates individual group plan * Indicates inactive group plan"
  • Line Location: HDRE+4
Function Call: WRITE
  • Prompt: !,"A/I^GROUP NUMBER^GROUP NAME^INSURANCE COMPANY^ADDRESS^TYPE OF PLAN^TOTAL SUBSCRIBERS"
  • Line Location: HDRE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRR+4
Function Call: WRITE
  • Prompt: IBHDRNAME,?92,IBHDRDATE,?119,"Page: ",IBA,!
  • Line Location: HDRR+6
Function Call: WRITE
  • Prompt: IBFILTER,?57,"+ Indicates individual group plan",?99,"* Indicates inactive group plan",!!
  • Line Location: HDRR+8
Function Call: WRITE
  • Prompt: "GROUP NUMBER",!
  • Line Location: HDRR+9
Function Call: WRITE
  • Prompt: ?2,"A/I",?6,"INSURANCE COMPANY",?38,"ADDRESS",?72,"TOTAL SUB",?83,"GROUP NAME",?107,"TYPE OF PLAN"
  • Line Location: HDRR+10
Function Call: WRITE
  • Prompt: !,$E(IBDASHES,1,132)
  • Line Location: HDRR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.312 GET1^DIQ
^IBE(355.1 - [#355.1] GET1^DIQ
^IBA(355.3 - [#355.3] GET1^DIQ,  GETS^DIQ
^DIC(36 - [#36] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call