IBCNEDE2 ;DAOU/DAC - eIV Appointment Extract ;23-SEP-2015
Source file <IBCNEDE2.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 6 | PT^IBCNEBF ($$BFEXIST,$$STRIP,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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 1 | IBCNEDE |
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+65 |
$$BFEXIST^IBCNEDE3 | 100+65 |
$$STRIP^IBCNEDE3 | 100+29, 100+30 |
ALL^IBCNEDE3 | 100+6 |
TQCHKS^IBCNEDE3 | 100+85, 100+91 |
TQUPDSV^IBCNEDE3 | 100+82, 100+90 |
UPDSD^IBCNEDE3 | 100+75 |
$$PYRACTV^IBCNEDE7 | 100+61 |
$$SETTINGS^IBCNEDE7 | EN+5 |
$$SETTQ^IBCNEDE7 | SET+18 |
XMIT1^IBCNEDEP | 100+97, 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+78*, 100+88, 100+99 |
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+97*, 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+65, 100+82, 100+85, 100+90, 100+91, 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+85, 100+91, OKFRESH~, OKFRESH+21 |
FSCSEND | 100+15~, 100+78*, 100+97 |
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+65, 100+69, 100+72, 100+82, 100+85, 100+88, 100+89, 100+108 , SET+14 |
IBCNETOT | EN+1~, EN+14*, EN+42*, EN+44 |
IBFNDTQ | EN+1~, 100+5! |
IBFNDTQ( | 100+69, 100+72, 100+108* |
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+65, 100+104, 100+106 , OKFRESH~, OKFRESH+11, OKFRESH+12, OKFRESH+17 |
INSIEN | EN+1~, 100+21*, 100+22, 100+37, 100+50 |
INSNAME | EN+1~, 100+22*, 100+65 |
LINE | GETELST+9~, GETELST+11*, GETELST+16* |
MAXCNT | EN+2~, EN+8*, EN+9*, 100+14, 100+97, SET+20 |
MFLG | EN+2~, 100+17*, 100+42, 100+69, 100+85, 100+88, 100+91, OKFRESH~, OKFRESH+11*, OKFRESH+14* , OKFRESH+16, OKFRESH+18*, OKFRESH+19*, OKFRESH+21, OKFRESH+22 |
MFRESHDAY | EN+2~, EN+11*, 100+42, 100+85, 100+91, 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+104, 100+106, 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+69, 100+72, 100+75, 100+82 , 100+85, 100+90, 100+91, 100+108, 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+75 |
QURYFLAG | EN+2~, 100+103*, 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+75, 100+82, 100+85, 100+90 , 100+91, OKFRESH+21, OKFRESH+22, SET+12 |
SUBID | 100+16~, 100+26*, 100+29*, 100+58, 100+65, 100+69, 100+72, 100+82, 100+85, 100+90 , 100+91, 100+104, 100+106, 100+108 |
SYMBOL | EN+3~, 100+51*, 100+64, 100+65 |
TQENT | 100+16~, 100+78*, 100+97 |
TQFOUND | 100+16~, 100+78*, 100+88, 100+96 |
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+89*, 100+90, 100+91 |
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 |