IBCNEDE2 ;DAOU/DAC - eIV Appointment Extract ;23-SEP-2015
Source file <IBCNEDE2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Loop through designated cross-references for updates
|
|
| 100 | ;
; Check the insurance for the selected DFNs based on future appointments |
|
| ENQ | ;
|
|
| GETELST(FILE) | ; Returns a '^' delimited list of IENs Type of Plans or Type of
; coverages to be excluded with leading and trailing '^'s |
|
| TOP | ; Type of Plans (#355.1) to exclude
|
|
| TOC | ; Type of Coverages (#355.2) to exclude
|
|
| OKFRESH(INREC,FRESHDAY,MFRESHDAY,MFLG) | ; Identify those policies to exclude when
; verified within the "freshness days" for Medicare and non-Medicare policies. ; INPUT: ; INREC - IEN to current Insurance Plan ; FRESHDAY - Freshness Days Span ; MFRESHDAY - Medicare Freshness Days Span ; MFLG - Used to determine if the insurance plan is a Medicare Plan - 1=MEDICARE, 0=non-MEDICARE ; OUTPUT: ; OK = 0 - Exclude Policy ; = 1 - Include Policy |
|
| SET(SID,INR,PATID) | ; Set data in TQ and send to FSC
|
|
| ERRMSG | ; Send a message indicating an extract error has occurred
|
| FileNo | Call Tags |
|---|---|
| 2.312 | GET1^DIQ |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^IBE(355.12 - [#355.12] | FIND1^DIC |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| 365.121 | GET1^DIQ |
