IBCNEDE2 ;DAOU/DAC - eIV Appointment Extract ; 23-SEP-2015
Source file <IBCNEDE2.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 6 | PT^IBCNEBF ($$BFCHECK,$$BFEXIST,$$STRIP,$$TQEXIST,ALL,TQCHKS,TQUPDSV,UPDSD)^IBCNEDE3 ($$PYRACTV,$$SETTINGS,$$SETTQ)^IBCNEDE7 XMIT1^IBCNEDEP $$INSERROR^IBCNEUT3 ($$MGRP,$$PYRAPP,MSG)^IBCNEUT5 |
| Kernel | 3 | $$S^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT $$LJ^XLFSTR |
| VA FileMan | 2 | $$FIND1^DIC $$GET1^DIQ |
| Scheduling | 1 | $$SDAPI^SDAMA301 |
| 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 | ; 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
|
| Name | Field # of Occurrence |
|---|---|
| $$S^%ZTLOAD | EN+44 |
| $$FIND1^DIC | SET+16 |
| $$GET1^DIQ | EN+11, 100+22, 100+23, 100+24, 100+25, 100+26, 100+27, 100+33, 100+37, 100+58 , OKFRESH+14, OKFRESH+18, OKFRESH+19 |
| PT^IBCNEBF | 100+68 |
| $$BFCHECK^IBCNEDE3 | 100+105 |
| $$BFEXIST^IBCNEDE3 | 100+68 |
| $$STRIP^IBCNEDE3 | 100+29, 100+30 |
| $$TQEXIST^IBCNEDE3 | 100+66 |
| ALL^IBCNEDE3 | 100+6 |
| TQCHKS^IBCNEDE3 | 100+87, 100+93 |
| TQUPDSV^IBCNEDE3 | 100+84, 100+92 |
| UPDSD^IBCNEDE3 | 100+78 |
| $$PYRACTV^IBCNEDE7 | 100+61 |
| $$SETTINGS^IBCNEDE7 | EN+5 |
| $$SETTQ^IBCNEDE7 | SET+18 |
| XMIT1^IBCNEDEP | 100+99, SET+20 |
| $$INSERROR^IBCNEUT3 | 100+50 |
| $$MGRP^IBCNEUT5 | ERRMSG+4 |
| $$PYRAPP^IBCNEUT5 | 100+56 |
| MSG^IBCNEUT5 | ERRMSG+22 |
| $$SDAPI^SDAMA301 | EN+24 |
| $$FMADD^XLFDT | EN+12, OKFRESH+21, OKFRESH+22 |
| $$FMTE^XLFDT | ERRMSG+7 |
| $$LJ^XLFSTR | ERRMSG+15 |
| 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 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDTQ | 100+15~, 100+81*, 100+90, 100+101, 100+105* |
| APTDT | EN+1~, EN+34*, EN+37*, EN+39 |
| CLNC | EN+1~, EN+27*, EN+29*, EN+32, EN+37 |
| CNT | EN+1~, EN+13*, 100+14, 100+99*, SET+20* |
| DATA1 | SET+2~, SET+7*, SET+8*, SET+18 |
| DATA2 | SET+2~, SET+12*, SET+18 |
| DATA5 | SET+2~, SET+16*, SET+18 |
| DFN | EN+1~, EN+32*, EN+37, EN+46, EN+49, 100+2*, 100+3*, 100+6, 100+10, 100+19 , 100+23, 100+26, 100+27, 100+66, 100+68, 100+84, 100+87, 100+92, 100+93, 100+105 , SET+7 |
| DT | EN+12, EN+22, EN+34, 100+10, 100+19, ERRMSG+7 |
| DTRANGE | EN+1~, EN+7*, EN+12 |
| ENDDT | EN+1~, EN+12*, EN+22, EN+37 |
| EXCLIST | GETELST+9~, GETELST+10*, GETELST+14*, GETELST+19*, GETELST+21 |
| EXCLTOC | EN+1~, EN+15*, 100+38 |
| EXCLTOP | EN+1~, EN+16*, 100+34 |
| FILE | GETELST~, GETELST+11, GETELST+12, GETELST+13, GETELST+16, GETELST+17, GETELST+18 |
| FRESHDAY | EN+1~, EN+10*, 100+42, 100+66, 100+87, 100+93, OKFRESH~, OKFRESH+21 |
| FSCSEND | 100+15~, 100+81*, 100+99 |
| GIEN | 100+15~, 100+23*, 100+24, 100+25, 100+33, OKFRESH+10~, OKFRESH+17*, OKFRESH+18 |
| GRPNAM | 100+15~, 100+24*, SET+14 |
| GRPNUM | 100+15~, 100+25*, 100+66, 100+68, 100+72, 100+75, 100+84, 100+87, 100+90, 100+91 , 100+105, 100+114, SET+14 |
| IBCNETOT | EN+1~, EN+14*, EN+42*, EN+44 |
| IBFNDTQ | EN+1~, 100+5! |
| IBFNDTQ( | 100+72, 100+75, 100+114* |
| IBM | ERRMSG+1~, ERRMSG+15*, ERRMSG+16*, ERRMSG+17*, ERRMSG+18*, ERRMSG+19*, ERRMSG+20* |
| IBPQ | EN+1~, 100+49*, 100+58*, 100+61*, 100+64 |
| IBSDA | EN+1~, EN+24 |
| IBSDA("FLDS" | EN+21* |
| IBSDA(1 | EN+22* |
| IBSDA(3 | EN+23* |
| IBX | ERRMSG+1~, ERRMSG+15* |
| IEN | GETELST+9~, GETELST+13~*, GETELST+14, GETELST+18~*, GETELST+19 |
| IIEN | OKFRESH+10~, OKFRESH+12*, OKFRESH+14, OKFRESH+19 |
| INR | SET~, SET+12 |
| INREC | EN+1~, 100+14*, 100+21, 100+23, 100+26, 100+27, 100+42, 100+68, 100+110, 100+112 , OKFRESH~, OKFRESH+11, OKFRESH+12, OKFRESH+17 |
| INSIEN | EN+1~, 100+21*, 100+22, 100+37, 100+50 |
| INSNAME | EN+1~, 100+22*, 100+68, 100+105 |
| LINE | GETELST+9~, GETELST+11*, GETELST+16* |
| MAXCNT | EN+2~, EN+8*, EN+9*, 100+14, 100+99, SET+20 |
| MFLG | EN+2~, 100+17*, 100+42, 100+66, 100+72, 100+87, 100+90, 100+93, OKFRESH~, OKFRESH+11* , OKFRESH+14*, OKFRESH+16, OKFRESH+18*, OKFRESH+19*, OKFRESH+21, OKFRESH+22 |
| MFRESHDAY | EN+2~, EN+11*, 100+42, 100+66, 100+87, 100+93, OKFRESH~, OKFRESH+22 |
| MGRP | ERRMSG+1~, ERRMSG+4*, ERRMSG+22 |
| MSG | ERRMSG+1~ |
| MSG( | ERRMSG+15*, ERRMSG+16*, ERRMSG+17*, ERRMSG+18*, ERRMSG+19*, ERRMSG+20* |
| MSG(1 | ERRMSG+7* |
| MSG(2 | ERRMSG+8* |
| MSG(3 | ERRMSG+9* |
| MSG(4 | ERRMSG+10* |
| MSG(5 | ERRMSG+11* |
| MSG(6 | ERRMSG+12* |
| MSG(7 | ERRMSG+13* |
| MSG(8 | ERRMSG+14* |
| NUM | EN+2~, EN+24* |
| OK | EN+2~, OKFRESH+10~, OKFRESH+11*, OKFRESH+21*, OKFRESH+22*, OKFRESH+23 |
| ORIG | SET+2~, SET+14*, SET+18 |
| PATID | EN+2~, 100+15~, 100+27*, 100+30*, 100+110, 100+112, SET~, SET+8 |
| PAYERSTR | EN+2~, 100+50*, 100+51, 100+52 |
| PIEN | EN+2~, 100+52*, 100+54, 100+56, 100+58, 100+61, 100+66, 100+72, 100+75, 100+78 , 100+84, 100+87, 100+92, 100+93, 100+114, SET+7 |
| PTINS | EN+2~, 100+6! |
| PTINS( | 100+14, 100+21, OKFRESH+11, OKFRESH+12, OKFRESH+17 |
| PTINS(0 | 100+7 |
| PYRAPP | EN+2~, 100+56*, 100+58, 100+78 |
| QURYFLAG | EN+2~, 100+109*, SET+12 |
| SENDNOW | 100+16~ |
| SETSTR | EN+2~, EN+5*, EN+6, EN+7, EN+8 |
| SID | SET~, SET+7 |
| SRVICEDT | EN+2~, EN+39*, EN+49, 100+10*, 100+11, 100+19*, 100+78, 100+84, 100+87, 100+92 , 100+93, OKFRESH+21, OKFRESH+22, SET+12 |
| SUBID | 100+16~, 100+26*, 100+29*, 100+58, 100+66, 100+68, 100+72, 100+75, 100+84, 100+87 , 100+92, 100+93, 100+105, 100+110, 100+112, 100+114 |
| SYMBOL | EN+3~, 100+51*, 100+64, 100+68 |
| TQENT | 100+16~, 100+81*, 100+99 |
| TQFOUND | 100+16~, 100+81*, 100+90, 100+98 |
| TQIEN | EN+3~, SET+18*, SET+20 |
| TYPE | GETELST+9~, GETELST+11*, GETELST+12, GETELST+13, GETELST+16*, GETELST+17, GETELST+18 |
| U | EN+7, EN+8, EN+10, EN+46, 100+21, 100+52, OKFRESH+11, OKFRESH+12, OKFRESH+17, SET+7 , SET+8, SET+12, SET+14 |
| VDATE | EN+3~, OKFRESH+10~, OKFRESH+11*, OKFRESH+21, OKFRESH+22 |
| XMSUB | ERRMSG+1~, ERRMSG+6*, ERRMSG+22 |
| XXGN | 100+16~, 100+91*, 100+92, 100+93 |
| ZTQUEUED | EN+3~, EN+44 |
| ZTSTOP | EN+3~, EN+29, EN+32, EN+37, EN+44* |
| ZZ | EN+3~, 100+33*, 100+34, 100+37*, 100+38 |
| Name | Field # of Occurrence |
|---|---|
| $T(TOC+LINE | GETELST+16 |
| $T(TOP+LINE | GETELST+11 |