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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCOPP2

Package: Integrated Billing

Routine: IBCOPP2


Information

IBCOPP2 ;ALB/NLR - LIST INS. PLANS BY CO. (COMPILE) ; 20-OCT-2015

Source Information

Source file <IBCOPP2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Queued Entry Point for Report.
; Input: IBAI - 0 - User selected Insurance Companies
; 1 - Run report for all Insurance Companies with Plans
; IBAIA - 0 - Only select Inactive Insurance Companies
; 1 - Only select Active Insurance Companies
; 2 - Select both Active and Inactive Insurance Companies
; IBAIPA 0 - Only select Inactive Insurance Company Plans
; 1 - Only select Active Insurance Company Plans
; 2 - Select both Active and Inactive Insurance Company Plans
; IBAO= E - Output to Excel
; R - Report
; IBAPA - 0 - List Insurance Plans by Insurance Company
; 1 - List Insurance Plans by Insurance Company
; with Subscriber information
; IBAPA - 0 - List Insurance Plans by Insurance Company
; 1 - List Insurance Plans by Insurance Company with Subscriber
; information
; IBAPL - 0 - User selected Group Plans
; 1 - Run report for all Group Plans for each Ins. Co
; NOTE: only used if IBAI=1, otherwise, some Insurance
; companies may select all Group Plans and some
; may be use selected Group Plans
; ^TMP("IBINC",$J,IBIC,IBCNS,IBPTR)="" - Selected Ins Cos/Plans
; Required if all Insurance Companies and all Group Plans
; not selected Where:
; IBIC - Insurance Company Name
; IBCNS - IEN of the selected Insurance Company, file 36
; IBPTR - IEN of the selected Group Plan, file 355.3
PRINT ; Print report
GATH ; Gather all data for an Insurance Company.
; Input: IBI - Current Insurance Company Counter
; IBIC - Insurance Company Name
; IBSNS - IEN of the Insurance Company, file 36
; ^TMP("IBINC",$J,IBIC,IBCNS,IBPTR) - See EN for detail
; Output: IBI - Updated Insurance Company Counter
; ^TMP($J,"PR",IBI)=A1^A2^...^A11 Where:
; IBI - Counter of # of Insurance Companies included
; (starts at 1)
; A1 - Ins. Co. Name (1st 25 characters)
; Leading '*' if inactive
; A2 - Street Address Line 1
; A3 - City, State Zip Code (up to 9 digits + dash)
; A4 - Timely Filing Timeframe
; A5 - # of total plans for the Insurance Company
; A6 - # of total subscribers per Insurance Company
; A7 - # of selected Plans per Insurance Company
; A8 - # of subscribers per selected plans
; A9 - Max length of Electronic Plan Type for Ins Co
; A10 - Max length of Plan Type for Ins Co
; A11 - Max length of Patient ID for Ins Co
COMP(LENPID) ; Gather Company counts and subscription information, if necessary
; Input: IBPA - 0 - List Insurance Plans by Insurance Company
; 1 - List Insurance Plans by Insurance Company
; with Subscriber information
; IBAPL - 0 - User selected Group Plans
; 1 - All Group Plans selected
; IBCNS - IEN of the insurance company, file #36
; ^TMP("IBINC",$J,IBIC,ICBNS)) - See EN for details
; Output: LENPID - Maximum length of Patient ID field for subscribers of
; this Insurance Company
; IBCSS - Total # of Subscribers in selected Group Plans
; IBCST - Total # of Subscribers
; ^TMP($J,"PR",IBI,IBPTR,IBNAM_"@@"_DFN_"@@"_IBCDFN)=B1^B2^...^B10 Where
; DFN - IEN of the patient, file 2
; IBCDFN- Insurance Company multiple
; IBI - Insurance counter
; IBNAM - Patient's Name (B1)
; IBPTR - IEN of the Group Plan, file 355.3
; B1 - Patient's Name (1st 22 chars)
; B2 - Last 4 Patient's SSN (with trailing 'P' if pseudo)
; B3 - Patient's DOB (mm/dd/yy)
; B4 - Subscriber ID (20 chars max)
; B5 - Effective Date (mm/dd/yy)
; B6 - Expiration Date (mm/dd/yy)
; B7 - Whose Insurance (5 chars max)
; B8 - Patient ID (30 chars max)
;
PLAN(LENEP,LENPT) ; Gather Group Insurance Plan information
; Input: LENEP - Current Maximum Electronic Plan length for Ins Co
; LENPT - Current Maximum Plan Type length for Ins Co
; IBAPL - 0 - User selected Group Plans
; 1 - All Group Plans
; IBCNS - IEN of the Insurance Company, file #36
; IBPTR - IEN of the Group Insurance Plan, file 355.3
; ^TMP("IBINC",$J,IBIC,ICBNS,IBPTR)) - See EN for details
; ^TMP($J,"PL",IBPTR) - Total # Subscribers for Group Plan
; Output: LENEP - Updated Maximum Electronic Plan length for Ins Co
; LENPT - Updated Maximum Plan Type length for Ins Co
; IBCPS - Total Number of Selected Group Plans for Ins. Co.
; IBCPT - Total # of Group Plans for Insurance Company
; ^TMP($J,"PR",IBI,IBPTR)) - B1^B2^..^B6 where
; IBI - Counter of # of Insurance Companies included
; IBPTR- Group Plan IEN
; B1 - Group Number, field 355.3,2.02
; B2 - Group Name, field 355.3,2.01
; B3 - Group Plan Timely Filing Time frame (max len 21)
; B4 - Electronic Plan Type (max length 26)
; B5 - Type of Plan (max length 34)
; B6 - Total # of subscribers for this Group Plan
PLANINF(PLAN,LENEP,LENPT) ; Return formatted Group Insurance Plan information.
; Input: PLAN - IEN of the Group Insurance Plan, file #355.3
; LENEP - Current Maximum Electronic Plan length for Ins Co
; LENPT - Current Maximum Plan Type length for Ins Co
; Output: LENEP - Updated Maximum Electronic Plan length for Ins Co
; LENPT - Updated Maximum Plan Type length for Ins Co
; Returns: A1^A2^A3^...^AN Where:
; A1 - Group Plan Number
; A2 - Group Plan Name (leading '*' if Inactive)
; A3 - Group Plan Timely Filing Time frame (max len 21)
; A4 - Electronic Plan Type (max length 26)
; A5 - Type of Plan (max length 34)
COMPINF(IBCNS) ; Return formatted Insurance Company information
; Input: IBCNS - IEN of the Insurance Company, file #36
; Output: A1^A2^A3^A4 Where:
; A1 - Insurance Company name (first 25 chars)
; with leading '*' if inactive
; A2 - Street Address Line 1
; A3 - City, ST ZIP
; A4 - Timely Filing

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
2.312 GET1^DIQ
^IBA(355.3 - [#355.3] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call