IBCMDT2 ;ALB/VD - INSURANCE PLANS MISSING DATA REPORT (COMPILE) ; 10-APR-15
Source file <IBCMDT2.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 2 | $$FTFGP^IBCNEUT7 $$DAT1^IBOUTL |
| VA FileMan | 1 | $$GET1^DIQ |
| 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.
; Required variable input: FLTRS,IBAI, IBAPL, IBGRN, IBPTY, IBTFT, IBEPT, ; IBCLM, IBBIN, IBNMSPC,IBPCN ; ^TMP("IBCMDT",IBNMSPC) required if all companies and plans not selected |
|
| GATH | ; Gather all data for a company.
|
|
| PLAN | ; Gather Insurance Plan information, if necessary
; Input: IBCNS -- Pointer to the insurance company in file #36 ; initialized counters, plus the 'Plan' array (^TMP("IBINC",$J)) |
|
| COMPINF(IBCNS) | ; Return formatted Insurance Company information
; Input: IBCNS -- Pointer to the insurance company in file #36 ; Output: company name ^ addr ^ city/st/zip |
|
| PLANINF(PLAN,POSWT) | ; Return formatted Insurance Plan information.
; Input: PLAN - Pointer to the plan in file #355.3 ; POSWT - PRESCRIPTION ONLY indicator ; Returns: A1^A2^A3^...^A8 Where ; A1 - -2 if inactive plan, -1 if no missing data found, else 0 ; A2 - Plan Number ; A3 - Plan Name ; A4 - Type of Plan (Group or Individual ; A5 - Electronic Plan Type ; A6 - Timely filing Time Frame ; A7 - Banking Identification Number ; A8 - Process Control Number |
|
| GCVLIMS(IBI,PLAN,RECIND) | ; Obtain Plans that may have Coverage Limits missing.
; Input: IBI -- Line counter ; IBCNS -- Pointer to the insurance company in file #36 ; RECIND -- Indicator to determine if header record for plan is already set ; 0 means ^TMP($J,"PR",IBI,IBPTR) is already set. ; 1 means ^TMP($J,"PR",IBI,IBPTR) is not set yet. ; Output: This will create the ^TMP($J,"PR",IBI,IBPTR,IBCVLM) node ; FOUND -- 0 means a missing data coverage limitation was not found. ; 1 means a missing data coverage limitation was found. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^IBE(355.31 - [#355.31] | GET1^DIQ |
| ^IBA(355.32 - [#355.32] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | COMPINF+6 |
| ^IBA(355.3 - [#355.3] | PLAN+7 |
| ^IBA(355.32 - [#355.32] | GCVLIMS+12, GCVLIMS+20, GCVLIMS+26, GCVLIMS+28, GCVLIMS+30 |
| ^IBE(355.31 - [#355.31] | GCVLIMS+18 |
| ^TMP("IBCMDT" | EN+11, EN+13 |
| ^TMP($J | EN+8!, GATH+7*, PLAN+14*, PLAN+20!, GCVLIMS+16*, GCVLIMS+25*, GCVLIMS+41* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BIN | PLANINF+13~, PLANINF+29*, PLANINF+32*, PLANINF+33, PLANINF+39 |
| >> CRT | EN+10, GATH+3, PLAN+8, GCVLIMS+13, GCVLIMS+19, GCVLIMS+31 |
| EPT | PLANINF+13~, PLANINF+24*, PLANINF+25*, PLANINF+26, PLANINF+39 |
| FNDONE | PLAN+4~, PLAN+16*, PLAN+20 |
| FOUND | GCVLIMS+10~, GCVLIMS+11*, GCVLIMS+12, GCVLIMS+15*, GCVLIMS+23*, GCVLIMS+39*, GCVLIMS+41, GCVLIMS+42 |
| IBCAT | GCVLIMS+10~, GCVLIMS+17*, GCVLIMS+18*, GCVLIMS+20, GCVLIMS+21, GCVLIMS+26*, GCVLIMS+28, GCVLIMS+30 |
| IBCNS | EN+6~, EN+12*, EN+13*, GATH+7, PLAN+6, PLAN+7, COMPINF~, COMPINF+5, COMPINF+6, COMPINF+7 , COMPINF+8 |
| IBCOV | GCVLIMS+10~, GCVLIMS+21*, GCVLIMS+23, GCVLIMS+34*, GCVLIMS+35*, GCVLIMS+38 |
| IBCPS | GATH+1~, GATH+2*, GATH+7 |
| IBCPT | GATH+1~, GATH+2*, GATH+7 |
| IBCPTR | GCVLIMS+10~, GCVLIMS+11*, GCVLIMS+15*, GCVLIMS+16, GCVLIMS+24*, GCVLIMS+25, GCVLIMS+40*, GCVLIMS+41 |
| IBCST | GATH+1~, GATH+2* |
| IBCSTA | GCVLIMS+10~, GCVLIMS+22*, GCVLIMS+23, GCVLIMS+36*, GCVLIMS+37*, GCVLIMS+38 |
| IBCVDAT | GCVLIMS+10~, GCVLIMS+23*, GCVLIMS+25, GCVLIMS+38*, GCVLIMS+39, GCVLIMS+41 |
| IBEFDT | GCVLIMS+10~, GCVLIMS+22*, GCVLIMS+23, GCVLIMS+32*, GCVLIMS+33*, GCVLIMS+38 |
| IBI | EN+6~, EN+8*, GATH+2*, GATH+7, PLAN+14, PLAN+16, PLAN+20, GCVLIMS~, GCVLIMS+16, GCVLIMS+25 , GCVLIMS+41 |
| IBIC1 | EN+6~, EN+9*, EN+11*, EN+13 |
| IBLINCT | EN+7~*, GATH+3*, PLAN+8*, GCVLIMS+13*, GCVLIMS+19*, GCVLIMS+31* |
| >> IBMDTSPC("IBBIN" | PLANINF+33 |
| >> IBMDTSPC("IBCLM" | PLAN+13, PLAN+15, GCVLIMS+14, GCVLIMS+33, GCVLIMS+35, GCVLIMS+37 |
| >> IBMDTSPC("IBEPT" | PLANINF+26 |
| >> IBMDTSPC("IBGRN" | PLANINF+20 |
| >> IBMDTSPC("IBPCN" | PLANINF+38 |
| >> IBMDTSPC("IBPTY" | PLANINF+23 |
| >> IBMDTSPC("IBTFT" | PLANINF+28 |
| >> IBNMSPC | EN+11, EN+13 |
| IBPTR | PLAN+4~, PLAN+5*, PLAN+7*, PLAN+9, PLAN+14, PLAN+16, PLAN+20, GCVLIMS+16, GCVLIMS+25, GCVLIMS+41 |
| IBREC | GCVLIMS+10~ |
| IBRECDT | GCVLIMS+10~, GCVLIMS+27*, GCVLIMS+28*, GCVLIMS+30 |
| IBRECN | GCVLIMS+10~, GCVLIMS+29*, GCVLIMS+30*, GCVLIMS+32, GCVLIMS+34, GCVLIMS+36 |
| NAME | PLANINF+13~, PLANINF+17*, PLANINF+39 |
| NUM | PLANINF+13~, PLANINF+18*, PLANINF+19*, PLANINF+20, PLANINF+39 |
| PCN | PLANINF+13~, PLANINF+34*, PLANINF+37*, PLANINF+38, PLANINF+39 |
| PLAN | PLANINF~, PLANINF+15, PLANINF+17, PLANINF+18, PLANINF+21, PLANINF+24, PLANINF+27, PLANINF+29, PLANINF+34, GCVLIMS~ , GCVLIMS+12, GCVLIMS+20, GCVLIMS+26, GCVLIMS+28, GCVLIMS+30 |
| PLNDATA | PLAN+4~, PLAN+9*, PLAN+10, PLAN+13, PLAN+14, PLAN+20 |
| POSWT | PLAN+4~, PLAN+6*, PLAN+9, COMPINF+4~, COMPINF+5*, COMPINF+7, PLANINF~, PLANINF+32, PLANINF+33, PLANINF+37 , PLANINF+38 |
| RECIND | GCVLIMS~ |
| ST | COMPINF+4~, COMPINF+6*, COMPINF+8 |
| TFTF | PLANINF+13~, PLANINF+27*, PLANINF+28, PLANINF+39 |
| TYP | PLANINF+13~, PLANINF+21*, PLANINF+22*, PLANINF+23, PLANINF+39 |
| U | COMPINF+6, COMPINF+7, COMPINF+8, PLANINF+39, GCVLIMS+23, GCVLIMS+38 |
| VAL | PLANINF+13~, PLANINF+14*, PLANINF+15, PLANINF+16*, PLANINF+20*, PLANINF+23*, PLANINF+26*, PLANINF+28*, PLANINF+33*, PLANINF+38* , PLANINF+39, GCVLIMS+10~ |
| X | COMPINF+4~, COMPINF+7*, COMPINF+8*, COMPINF+9 |