IBCNERTC ;AITC/HN - Covered by Health Insurance ;03-MAR-2017
Source file <IBCNERTC.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(IBDT) | ;From Taskman nightly job. Call from label TASK.
|
|
| INS(DFN,IBDT) | ;Check insurance
|
|
| UPATF | ;Update the entire Patient File
; This should be tasked for late evening since it will take awhile to run. |
|
| 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 | ;
|
|
| XREF | ;Build the "ACHI" cross reference
|
|
| DBR | ; IB*822/DTG run in background the selected insurance patients verified date check
|
|
| DBRX | ; Exit
|
|
| ER | ; Unlock the eIV Nightly Task and return to log error
|
|
| SPEC | ; IB*822/DTG run re-verify for Specific Insurances
|
|
| SPECX | ; Purge task record - if queued
|
|
| SPECLST | ; list of specified Insurance Companies
|
|
| SPECP | ; process insurance name
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTER | ER+3 |
| UNWIND^%ZTER | ER+4 |
| ^%ZTLOAD | DBR+12 |
| $$FIND1^DIC | SPEC+14 |
| ^DIE | INS+10 |
| FILE^DIE | SPECP+37 |
| ENALL^DIK | XREF+8, XREF+10 |
| $$GET1^DIQ | INS+2, INS+17, BFEXIST+14, BFEXIST+17, BFEXIST+19, XREF+4, SPEC+4, SPEC+22, SPECP+6, SPECP+28 |
| PT^IBCNEBF | INS+22 |
| $$INSERROR^IBCNEUT3 | INS+21 |
| INSSUB^IBCNINSU | SPECP+11 |
| ALL^IBCNS1 | INS+3 |
| PAUSE^VALM1 | SPEC+10, SPEC+15 |
| $$SITE^VASITE | SPEC+4 |
| $$FMDIFF^XLFDT | SPECP+30 |
| $$NOW^XLFDT | DBR+5, SPECP+4, SPECP+15, SPECP+32 |
| $$TRIM^XLFSTR | BFEXIST+17 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
| 2.312 | GET1^DIQ |
| ^VA(200 - [#200] | FIND1^DIC |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^IBA(355.33 - [#355.33] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | BFEXIST+8, SPECP+5 |
| ^DPT - [#2] | INS+6, INS+8, UPATF+4, XREF+3 |
| ^DPT("ACHI" | EN+3 |
| ^IBA(355.33 - [#355.33] | BFEXIST+12 |
| ^TMP("IBCNERTCA" | SPECX+1!, SPECP+22, SPECP+23, SPECP+24, SPECP+26 |
| ^TMP("IBCNERTCS" | ER+1, SPEC+9, SPECX+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | XREF+1~ |
| DA | INS+1~, INS+10*, INS+14*, INS+15, INS+16, INS+22, XREF+1~ |
| DA(1 | XREF+5*, XREF+6 |
| DEFIND | INS+1~, INS+20* |
| DFN | EN+1~, EN+2*, EN+3*, INS~, INS+2, INS+3, INS+6, INS+8, INS+10, INS+16 , INS+20, INS+22, UPATF+2~, UPATF+3*, UPATF+4*, UPATF+5, BFEXIST~, BFEXIST+9, BFEXIST+12, XREF+1~ , XREF+2*, XREF+3*, XREF+4, XREF+5 |
| DIE | INS+1~, INS+10* |
| DIK | XREF+1~, XREF+6* |
| DIK(1 | XREF+7*, XREF+9* |
| DR | INS+1~, INS+10* |
| DT | UPATF+5, SPECP+30 |
| EDATE | BFEXIST+6~, BFEXIST+19*, BFEXIST+20 |
| EFFDT | INS+1~, INS+17*, INS+18 |
| EXIST | BFEXIST+6~, BFEXIST+7*, BFEXIST+12, BFEXIST+22*, BFEXIT+1 |
| FDA | SPEC+19~, SPECP+32!, SPECP+38! |
| FDA( | SPECP+33*, SPECP+34*, SPECP+35*, SPECP+36* |
| FILE | XREF+1~ |
| IBA | SPEC+19~, SPECP+12*, SPECP+20!, SPECP+26* |
| IBB | SPEC+19~ |
| >> IBBINSEL | SPEC+12*, SPEC+13, SPEC+14*, SPECP+34, SPECP+36 |
| IBC | SPEC+19~ |
| IBCHKDT | SPECP+2~ |
| IBCO | SPEC+19~ |
| IBCON | SPEC+19~, SPEC+25*, SPECP+5 |
| IBCOV | INS+1~, INS+2*, INS+6, INS+8, INS+10 |
| IBD | SPEC+19~, SPECP+28*, SPECP+30 |
| IBDT | EN~, EN+3, INS~, INS+3, INS+18, BFEXIST+20 |
| IBER | SPEC+19~, SPEC+23*, SPECP+9, SPECP+11, SPECP+12 |
| IBERT | SPEC+19~ |
| IBFRDY | SPEC+19~ |
| IBFRSHDY | SPEC+19~, SPEC+22*, SPECP+30 |
| IBI | SPEC+19~, SPEC+25* |
| IBIEN | INS+1~, INS+15*, INS+20, INS+21, BFEXIST+8 |
| IBIENS | INS+1~, INS+16*, INS+17 |
| IBIND | INS+1~ |
| IBINIEN | SPEC+19~, SPECP+5*, SPECP+6, SPECP+11, SPECP+22, SPECP+23, SPECP+24, SPECP+26 |
| IBINS | INS+1~ |
| IBINS( | INS+14, INS+15 |
| IBINS(0 | INS+3 |
| IBINSD | INS+1~, INS+3*, INS+6, INS+8 |
| IBINST | SPEC+19~, SPECP+6* |
| IBLEN | SPEC+19~ |
| IBNCOV | INS+1~, INS+2*, INS+6*, INS+8*, INS+10 |
| IBOK | SPECP+2~ |
| IBPLAN | SPEC+19~, SPECP+22*, SPECP+23, SPECP+24, SPECP+26 |
| IBPTDFN | SPEC+20~, SPECP+23*, SPECP+24, SPECP+26 |
| IBPTINIE | SPEC+20~, SPECP+24*, SPECP+26 |
| IBPTRINS | SPEC+20~, SPECP+26*, SPECP+28, SPECP+33, SPECP+34, SPECP+35, SPECP+36 |
| IBRET | SPEC+20~ |
| IBRETURN | SPEC+20~, SPEC+23*, SPECP+9, SPECP+11, SPECP+13 |
| IBSYM | INS+1~, INS+21*, INS+22 |
| IBTDT | SPEC+20~, SPECP+4*, SPECP+15*, SPECP+32*, SPECP+33, SPECP+35 |
| IBUSER | SPEC+20~ |
| IEN | BFEXIST+6~, BFEXIST+11*, BFEXIST+12*, BFEXIST+14, BFEXIST+17, BFEXIST+19 |
| IENS | INS+1~, UPATF+2~ |
| INSNAME | BFEXIST~, BFEXIST+8*, BFEXIST+9, BFEXIST+17 |
| U | BFEXIST+8, SPEC+4 |
| X | XREF+1~ |
| Y | XREF+1~ |
| ZTCPU | DBR+2~ |
| ZTDESC | DBR+2~, DBR+10* |
| ZTDTH | DBR+2~, DBR+5* |
| ZTIO | DBR+2~, DBR+11* |
| ZTKIL | DBR+2~ |
| ZTPRI | DBR+2~ |
| ZTQUEUED | DBR+2~, ER+2 |
| >> ZTREQ | ER+2* |
| ZTRTN | DBR+2~, DBR+8* |
| ZTSAVE | DBR+2~ |
| ZTSAVE("IBBINSEL" | DBR+9* |
| ZTSK | DBR+2~, SPEC+10, SPEC+15 |
| ZTSYNC | DBR+2~ |
| ZTUCI | DBR+2~ |
| Name | Field # of Occurrence |
|---|---|
| $T(SPECLST+IBI | SPEC+25 |