IBCOPP2 ;ALB/NLR - LIST INS. PLANS BY CO. (COMPILE) ; 20-OCT-2015
Source file <IBCOPP2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| ^%ZISC | PRINT+5 |
| $$GET1^DIQ | COMP+59, COMP+62, COMP+74, PLANINF+15, PLANINF+17, PLANINF+19, PLANINF+22, PLANINF+26, PLANINF+29 |
| $$FTFGP^IBCNEUT7 | PLANINF+25 |
| $$FTFIC^IBCNEUT7 | COMPINF+19 |
| $$ZND^IBCNS1 | COMP+39 |
| ^IBCOPP3 | PRINT+1 |
| $$PT^IBEFUNC | COMP+53 |
| $$FMTE^XLFDT | COMP+63, COMP+66, COMP+68 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | EN+37, EN+39, COMPINF+11, COMPINF+12 |
| ^DIC(5 - [#5] | COMPINF+14 |
| ^DPT("AB" | COMP+29, COMP+34 |
| ^IBA(355.3 - [#355.3] | EN+40, EN+41, PLAN+25 |
| ^TMP("IBINC" | EN+44*, EN+48, EN+50, PRINT+2!, COMP+46, PLAN+29 |
| ^TMP($J | EN+32!, PRINT+2!, GATH+31*, GATH+32!, COMP+48*, COMP+77*, PLAN+31* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | COMP+27~, COMP+28*, COMP+29*, COMP+34, COMP+39, COMP+53, COMP+55, COMP+59, COMP+62, COMP+74 , COMP+77 |
| GIEN | EN+30~, EN+41*, EN+44 |
| IBAI | EN+35, PRINT+6! |
| IBAIA | PRINT+6! |
| IBAIPA | PRINT+6! |
| IBAO | PRINT+6! |
| IBAPA | PRINT+6!, COMP+49 |
| IBAPL | EN+35, PRINT+6!, COMP+46, PLAN+29 |
| IBCDFN | COMP+27~, COMP+30*, COMP+34*, COMP+39, COMP+74, COMP+77 |
| IBCNS | EN+38*, EN+39*, EN+40, EN+41, EN+44, EN+49*, EN+50*, PRINT+6!, GATH+29, COMP+29 , COMP+34, COMP+40, COMP+46, PLAN+25, PLAN+29, COMPINF~, COMPINF+11, COMPINF+12, COMPINF+19 |
| IBCPS | PRINT+6!, GATH+22~, GATH+23*, GATH+30, PLAN+30* |
| IBCPT | PRINT+6!, GATH+22~, GATH+23*, GATH+30, PLAN+26* |
| IBCSS | GATH+22~, GATH+23*, GATH+30, COMP+47* |
| IBCST | PRINT+6!, GATH+22~, GATH+23*, GATH+30, COMP+43* |
| IBI | EN+31*, PRINT+6!, GATH+23*, GATH+31, COMP+77, PLAN+31 |
| IBIC | EN+47*, EN+48*, EN+50, PRINT+6!, COMP+46, PLAN+29 |
| IBIC1 | EN+36*, EN+37*, EN+39, EN+44, PRINT+6! |
| IBIND | COMP+27~, COMP+39*, COMP+40, COMP+41, COMP+64, COMP+66, COMP+68, COMP+72 |
| IBNAM | COMP+27~, COMP+54*, COMP+55*, COMP+56, COMP+77 |
| IBPTR | COMP+27~, COMP+41*, COMP+42, COMP+46, COMP+48, COMP+77, PLAN+23~, PLAN+24*, PLAN+25*, PLAN+29 , PLAN+31 |
| IBX | COMP+27~, COMP+56*, COMP+61*, COMP+63*, COMP+65*, COMP+67*, COMP+69*, COMP+73*, COMP+75*, COMP+77 |
| LENEP | GATH+22~, GATH+24*, GATH+26, GATH+30, PLAN~, PLAN+31, PLANINF~, PLANINF+27*, PLANINF+31* |
| LENPID | GATH+22~, GATH+24*, GATH+25, GATH+30, COMP~, COMP+76* |
| LENPT | GATH+22~, GATH+24*, GATH+26, GATH+30, PLAN~, PLAN+31, PLANINF~ |
| NAME | PLANINF+14~, PLANINF+22*, PLANINF+23*, PLANINF+24 |
| NUM | PLANINF+14~, PLANINF+15*, PLANINF+16*, PLANINF+21 |
| PLAN | PLANINF~, PLANINF+15, PLANINF+17, PLANINF+19, PLANINF+22, PLANINF+25, PLANINF+26, PLANINF+29 |
| PTLEN | COMP+27~ |
| ST | COMPINF+10~, COMPINF+14*, COMPINF+18 |
| VA | COMP+27~ |
| VAERR | COMP+27~ |
| VAOA | COMP+27~ |
| X | COMP+27~, COMP+53*, COMP+54, COMPINF+10~, COMPINF+16*, COMPINF+17*, COMPINF+18*, COMPINF+19*, COMPINF+20 |
| X0 | COMPINF+10~, COMPINF+11*, COMPINF+15, COMPINF+16 |
| X11 | COMPINF+10~, COMPINF+12*, COMPINF+13, COMPINF+14, COMPINF+17, COMPINF+18 |
| XX | EN+30~, GATH+22~, GATH+29*, GATH+30*, GATH+31, COMP+27~, COMP+59*, COMP+60*, COMP+61, COMP+62* , COMP+63, COMP+64*, COMP+65, COMP+66*, COMP+67, COMP+68*, COMP+69, COMP+72*, COMP+73, COMP+74* , COMP+75, COMP+76, PLANINF+14~, PLANINF+17*, PLANINF+18*, PLANINF+20, PLANINF+21*, PLANINF+24*, PLANINF+25*, PLANINF+28* , PLANINF+32*, PLANINF+33, COMPINF+10~, COMPINF+15*, COMPINF+16 |
| Y | COMP+27~ |
| Z | COMPINF+10~, COMPINF+13*, COMPINF+18 |
| >> ZTQUEUED | PRINT+4 |
| >> ZTREQ | PRINT+4* |
| ZZ | PLANINF+14~, PLANINF+19*, PLANINF+20*, PLANINF+21, PLANINF+26*, PLANINF+27, PLANINF+28, PLANINF+29*, PLANINF+30*, PLANINF+31 , PLANINF+32, COMPINF+10~ |
