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
; This function will return 1 if any of the payer applications for ; this payer (being passed in by the payer IEN) are NOT deactivated. ; This should not be confused with the other payer application fields ; such as national active or local active. The deactivated field is ; the .11 field in the payer application multiple. |
|
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) (If no PAYER passed in, check them all) ; 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
|
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | PYRAPP+5 |
^DIE | SAVFRSH+8 |
$$GET1^DIQ | MGRP+1, TQMAXSV+27, TQMAXSV+29, TQMAXSV+30 |
SAVETQ^IBCNEUT2 | TQUPDSV+42, TQUPDSV+49, TQUPDSV+52 |
$$FMADD^XLFDT | ADDTQ+22, SAVFRSH+6 |
$$FMDIFF^XLFDT | TQUPDSV+42, TQUPDSV+46, TQUPDSV+49, TQUPDSV+52 |
$$TRIM^XLFSTR | BFEXIST+8, BFEXIST+18 |
$$UP^XLFSTR | BFEXIST+8, BFEXIST+19, TQMAXSV+30 |
^XMD | MSG+30, MSG+46 |
FileNo | Call Tags |
---|---|
^IBE(350.9 - [#350.9] | 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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBA(355.33 - [#355.33] | BFEXIST+12, BFEXIST+14, BFEXIST+18 |
^IBCN(365 - [#365] | TQUPDSV+31 |
^IBCN(365.1 - [#365.1] | TQUPDSV+10, TQUPDSV+12, TQUPDSV+14, TQUPDSV+27, TQUPDSV+29, TQUPDSV+35, TQMAXSV+22, TQMAXSV+24, SAVFRSH+4 |
^IBE(365.018 - [#365.018] | TQUPDSV+32 |
^IBE(365.12 - [#365.12] | PYRAPP+8, ACTAPP+12, ACTAPP+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTAPP | ACTAPP+10~, ACTAPP+11*, ACTAPP+12, ACTAPP+16*, ACTAPP+18 |
ADDTQ | ADDTQ+12~, ADDTQ+14*, ADDTQ+15*, ADDTQ+16*, ADDTQ+22*, ADDTQX+1 |
APP | PYRAPP~, PYRAPP+5 |
APPDATA | ACTAPP+10~, ACTAPP+13*, ACTAPP+14, ACTAPP+15 |
APPIEN | PYRAPP+3~, PYRAPP+5*, PYRAPP+6, PYRAPP+8, ACTAPP+10~, ACTAPP+11*, ACTAPP+12*, ACTAPP+13 |
BUFFNAME | BFEXIST+6~, BFEXIST+18*, BFEXIST+19 |
CSPAN | TQUPDSV+3~, TQUPDSV+46*, TQUPDSV+47*, TQUPDSV+49 |
CSRVDT | TQUPDSV+3~, TQUPDSV+35*, TQUPDSV+37, TQUPDSV+40, TQUPDSV+42, TQUPDSV+45, TQUPDSV+46, TQUPDSV+49, TQUPDSV+52 |
D | SAVFRSH+2~ |
D0 | MSG+18~, SAVFRSH+2~ |
D1 | MSG+18~ |
D2 | MSG+18~ |
DA | TQUPDSV+3~, TQUPDSV+11*, TQUPDSV+12*, TQUPDSV+14, TQUPDSV+27, TQUPDSV+29, TQUPDSV+35, TQUPDSV+42, TQUPDSV+49, TQUPDSV+52 , SAVFRSH+2~, SAVFRSH+7* |
DFN | BFEXIST~, BFEXIST+9, BFEXIST+12, ADDTQ~, ADDTQ+15, ADDTQ+19, TQUPDSV~, TQUPDSV+5, TQUPDSV+10, TQUPDSV+12 , TQMAXSV~, TQMAXSV+14, TQMAXSV+22, TQMAXSV+24 |
DG | MSG+18~ |
DI | SAVFRSH+2~ |
DIC | MSG+18~, SAVFRSH+2~ |
DICR | MSG+18~ |
DIE | SAVFRSH+2~, SAVFRSH+7* |
DIFROM | MSG+17~ |
DISYS | MSG+18~, PYRAPP+3~ |
DIW | MSG+18~ |
DQ | SAVFRSH+2~ |
DR | SAVFRSH+2~, SAVFRSH+7* |
DT | TQUPDSV+37, TQUPDSV+40, TQUPDSV+42, TQUPDSV+45, TQUPDSV+46 |
DTDIFF | SAVFRSH~, SAVFRSH+6 |
DUZ | MSG+21, MSG+26 |
EICDEXT | ADDTQ~, ADDTQ+16, ADDTQ+19, TQMAXSV~, TQMAXSV+26 |
ERACT | TQUPDSV+3~, TQUPDSV+25*, TQUPDSV+31*, TQUPDSV+32* |
ERTXT | TQMAXSV+16~, TQMAXSV+30* |
EXIST | BFEXIST+6~, BFEXIST+7*, BFEXIST+12, BFEXIST+21*, BFEXIT+1 |
FDAYS | ADDTQ~, ADDTQ+15, ADDTQ+22 |
FDT | SAVFRSH+2~, SAVFRSH+4*, SAVFRSH+6*, SAVFRSH+7 |
FROMFLAG | MSG~, MSG+21 |
HL7IEN | TQUPDSV+3~, TQUPDSV+27*, TQUPDSV+29 |
IBSKIP | TQMAXSV+16~, TQMAXSV+25*, TQMAXSV+26, TQMAXSV+30* |
IBTQS | TQMAXSV+16~, TQMAXSV+27*, TQMAXSV+28 |
IEN | BFEXIST+6~, BFEXIST+11*, BFEXIST+12*, BFEXIST+14, BFEXIST+18, ACTAPP~, ACTAPP+11*, ACTAPP+12, ACTAPP+13 |
IENS | TQMAXSV+16~, TQMAXSV+29* |
INSNAME | BFEXIST~, BFEXIST+8*, BFEXIST+9, BFEXIST+19 |
LASTBYP | TQMAXSV+16~, TQMAXSV+21*, TQMAXSV+22*, TQMAXSV+24, TQMAXSV+31 |
MAXDT | ADDTQ+12~, ADDTQ+19*, ADDTQ+20, ADDTQ+22 |
MGRP | MSG~, MSG+23 |
MIEN | PYRAPP+3~, PYRAPP+4*, PYRAPP+8*, PYRAPPX+1 |
PAYER | ADDTQ~, ADDTQ+16, ADDTQ+19, TQUPDSV~, TQUPDSV+5, TQUPDSV+10, TQUPDSV+12, TQMAXSV~, TQMAXSV+22, TQMAXSV+24 |
PAYERIEN | PYRAPP~, PYRAPP+7, PYRAPP+8 |
RIEN | TQUPDSV+3~, TQUPDSV+29*, TQUPDSV+31, TQMAXSV+29*, TQMAXSV+30 |
SPAN | TQUPDSV+3~, TQUPDSV+46*, TQUPDSV+48*, TQUPDSV+49 |
SRVDT | ADDTQ~, ADDTQ+15, ADDTQ+22, TQUPDSV~, TQUPDSV+5, TQUPDSV+40, TQUPDSV+42, TQUPDSV+45, TQUPDSV+46, TQUPDSV+49 , TQUPDSV+52 |
STATLIST | TQMAXSV+16~, TQMAXSV+19*, TQMAXSV+28 |
STS | TQUPDSV+3~, TQUPDSV+14*, TQUPDSV+22, TQUPDSV+25 |
SVDT | TQUPDSV+3~, TQUPDSV+9*, TQUPDSV+10*, TQUPDSV+12 |
TMPSUB | MSG+19~, MSG+28*, MSG+44 |
TMPTEXT | MSG+19~, MSG+28*, MSG+39 |
TMPY | MSG+19~, MSG+29* |
TMPY( | MSG+37 |
TQIEN | TQMAXSV+16~, TQMAXSV+23*, TQMAXSV+24*, TQMAXSV+27, TQMAXSV+29, SAVFRSH~, SAVFRSH+3, SAVFRSH+4, SAVFRSH+7 |
TQMAXSV | TQMAXSV+12~, TQMAXSV+13*, TQMAXSV+31*, TQMAXSVX+1 |
U | BFEXIST+14, BFEXIST+18, ACTAPP+14, ACTAPP+15, TQUPDSV+14, TQUPDSV+29, TQUPDSV+31, TQUPDSV+32, TQUPDSV+35, SAVFRSH+4 |
X | SAVFRSH+2~ |
XMDUN | MSG+17~ |
XMDUZ | MSG+17~, MSG+21*, MSG+22* |
XMMG | MSG+17~, MSG+37, MSG+43 |
XMROU | MSG+17~ |
XMSTRIP | MSG+17~ |
XMSUB | MSG~, MSG+28, MSG+39* |
XMTEXT | MSG~, MSG+28, MSG+39*, MSG+42, MSG+43, MSG+44, MSG+45 |
XMY | MSG~, MSG+25, MSG+29 |
XMY( | MSG+25*, MSG+26*, MSG+38* |
XMY("G." | MSG+23* |
XMYBLOB | MSG+17~ |
XMZ | MSG+17~ |
XX | MSG+19~, MSG+41*, MSG+42* |