IBCNEUT5 ;DAOU/ALA - eIV MISC. UTILITIES ; 20-JUN-2002
Source file <IBCNEUT5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MSG(MGRP,XMSUB,XMTEXT,FROMFLAG,XMY) | ; Send a MailMan Message
|
|
| BFEXIST(DFN,INSNAME) | ; Function returns 1 if an Entered Ins Buffer File
; entry exists with the same DFN and INSNAME, otherwise it returns a 0 |
|
| BFEXIT | ;
|
|
| MGRP() | ; Get the Mail Group for the eIV Interface - IB Site Parameters (51.04)
|
|
| PYRAPP(APP,PAYERIEN) | ; Get the Payer Application multiple IEN
; based on the payer application name and payer ien. |
|
| PYRAPPX | ;
|
|
| ACTAPP(IEN) | ; Active payer applications
|
|
| ADDTQ(DFN,PAYER,SRVDT,FDAYS,EICDEXT) | ; Function - Returns flag (0/1)
; 1 - TQ File entry can be added as the service date for the patient ; and payer >= MAX TQ service date + Freshness Days ; 0 - otherwise |
|
| ADDTQX | ; ADDTQ exit pt
|
|
| TQUPDSV(DFN,PAYER,SRVDT) | ; Update service dates & freshness dates for TQ
; entries awaiting transmission |
|
| TQUPDSVX | ; TQUPDSV exit pt
|
|
| TQMAXSV(DFN,PAYER,EICDEXT) | ; Returns MAX(TQ Service Date) for Patient & Payer
; Input: ; DFN - Patient DFN (2) ; PAYER - Payer IEN (365.12) ; EICDEXT - 1 OR 0 (Is this from the EICD extract?) |
|
| TQMAXSVX | ; TQMAXSV exit pt
|
|
| SAVFRSH(TQIEN,DTDIFF) | ; Update TQ freshness date based on service date diff
|
|
| EPAT(MSG) | ; Check for qualified patient for EICD Identification
|
|
| EPATX | ; Exit
|
|
| EPAYR() | ; Check EICD Payer
|
|
| EPAYRX | ; Exit
|
|
| EACTPOL() | ; Check for active policy for EICD Identification
|
|
| EACTPOLX | ; Exit
|
|
| NAINSCO | ; Non-active Insurance companies
|
|
| NATPLANS | ; Non-active Type of Plans
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^IBE(355.1 - [#355.1] | FIND1^DIC |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^IBCN(365 - [#365] | GET1^DIQ |
| ^IBCN(365.1 - [#365.1] | Classic Fileman Calls, GET1^DIQ |
| ^IBE(365.13 - [#365.13] | FIND1^DIC |
| 365.16 | GET1^DIQ |
