IBCOPP2 ;ALB/NLR - LIST INS. PLANS BY CO. (COMPILE) ; 20-OCT-2015
Source file <IBCOPP2.m>
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 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 |
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
2.312 | GET1^DIQ |
^IBA(355.3 - [#355.3] | GET1^DIQ |