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: IBCMDT2

Package: Integrated Billing

Routine: IBCMDT2


Information

IBCMDT2 ;ALB/VD - INSURANCE PLANS MISSING DATA REPORT (COMPILE) ; 10-APR-15

Source Information

Source file <IBCMDT2.m>

Entry Points

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.

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call