IBCMDT2 ;ALB/VD - INSURANCE PLANS MISSING DATA REPORT (COMPILE) ; 10-APR-15
Source file <IBCMDT2.m>
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. |
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 |