IBJTEP ;ALB/TJB - TP ERA/835 INFORMATION SCREEN ;20 Dec 2018 14:47:23
Source file <IBJTEP.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 5 | ($$ADJU,$$BILLN,DLN,EEOB,EOBREM,GETRX,RESORT)^IBJTEP1 $$EEOB^IBJTLA1 $$BILLREJ^IBJTU6 BILL^IBRFN3 $$ECME^IBTRE |
Kernel | 3 | $$FMTE^XLFDT ($$CJ,$$REPLACE)^XLFSTR DISP^XQORM1 |
List Manager | 3 | EN^VALM CLEAR^VALM1 (CLEAN,SET)^VALM10 |
Accounts Receivable | 2 | $$BN1^PRCAFN $$BILL^RCJIBFN2 |
VA FileMan | 2 | $$FIND1^DIC ($$GET1,GETS)^DIQ |
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 | 2 | IBJT ERA 835 INFORMATION IBJTEP1 |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for IBJT ERA 835 INFORMATION
|
|
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
|
|
INITQ | ||
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
PUSH(VAR,VALUE) | ;
|
|
SET(LINE,DATA) | ; -- set arrays
; LINE = line number passed by reference ; DATA = string to add to displayed data |
|
EOBDET(EPIEN,TYPE,EOBCT,IBEBERA,ERAIEN) | ; Add EOB detail to List Manager Array
; Input: EPIEN - Internal entry number to file 361.1 ; TYPE - 0 - EEOB associated with an ERA, 1 - Copied EOB created by split/edit or link payment ; EOBCT - Count# of this EOB within the ERA ; IBEBERA - Number of EOBs for this bill in this ERA ; ERAIEN - Internal entry number from file 344.4 |
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | INIT+74, EOBDET+72, EOBDET+80, EOBDET+107, EOBDET+116 |
$$GET1^DIQ | INIT+9, INIT+10, INIT+13, INIT+14, INIT+33, INIT+35, INIT+43, INIT+74, EOBDET+27, EOBDET+32 , EOBDET+42, EOBDET+43, EOBDET+44, EOBDET+49, EOBDET+73, EOBDET+81, EOBDET+82, EOBDET+108, EOBDET+119 |
GETS^DIQ | INIT+46, INIT+47, EOBDET+8, EOBDET+9, EOBDET+10, EOBDET+11, EOBDET+12, EOBDET+16 |
$$ADJU^IBJTEP1 | EOBDET+94 |
$$BILLN^IBJTEP1 | EOBDET+93 |
DLN^IBJTEP1 | EOBDET+73, EOBDET+81, EOBDET+109, EOBDET+110, EOBDET+119 |
EEOB^IBJTEP1 | INIT+79 |
EOBREM^IBJTEP1 | EOBDET+21 |
GETRX^IBJTEP1 | EOBDET+48 |
RESORT^IBJTEP1 | EOBDET+9, EOBDET+14, EOBDET+15 |
$$EEOB^IBJTLA1 | HDR+4 |
$$BILLREJ^IBJTU6 | HDR+3 |
BILL^IBRFN3 | INIT+7 |
$$ECME^IBTRE | HDR+4 |
$$BN1^PRCAFN | EOBDET+59 |
$$BILL^RCJIBFN2 | INIT+21 |
EN^VALM | EN+1 |
CLEAR^VALM1 | EXIT+2 |
CLEAN^VALM10 | EXIT+2 |
SET^VALM10 | INIT+19, INIT+94, SET+4 |
$$FMTE^XLFDT | INIT+16, INIT+17, EOBDET+37, EOBDET+95 |
$$CJ^XLFSTR | EOBDET+95, EOBDET+106, EOBDET+111 |
$$REPLACE^XLFSTR | HDR+5 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^RCY(344.4 - [#344.4] | GET1^DIQ, GETS^DIQ |
344.41 | GET1^DIQ |
^RC(345 - [#345] | FIND1^DIC, GET1^DIQ |
^RC(345.1 - [#345.1] | FIND1^DIC, GET1^DIQ |
^RC(346 - [#346] | FIND1^DIC, GET1^DIQ |
^IBM(361.1 - [#361.1] | GET1^DIQ, GETS^DIQ |
361.1101 | GET1^DIQ |
^DGCR(399 - [#399] | GET1^DIQ, GETS^DIQ |
^PSRX - [#52] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBM(361.1 - [#361.1] | INIT+19, INIT+26, INIT+34, INIT+42 |
^RCY(344.4 - [#344.4] | INIT+29, EOBDET+18, EOBDET+25 |
^XTMP("IBJTEP" | EOBDET+89!* |
Name | Line Occurrences |
---|---|
$$PUSH | INIT+49 |
EOBDET | INIT+83, INIT+90 |
INITQ | INIT+6, INIT+19, INIT+94 |
SET | INIT+51, INIT+52, INIT+56, INIT+57, INIT+58, INIT+59, INIT+61, INIT+63, INIT+65, INIT+66 , INIT+67, INIT+68, INIT+71, INIT+75, INIT+76, INIT+77, INIT+78, INIT+85, INIT+92, EOBDET+19 , EOBDET+22, EOBDET+28, EOBDET+33, EOBDET+36, EOBDET+38, EOBDET+39, EOBDET+40, EOBDET+43, EOBDET+44, EOBDET+46 , EOBDET+52, EOBDET+53, EOBDET+56, EOBDET+57, EOBDET+59, EOBDET+60, EOBDET+61, EOBDET+62, EOBDET+63, EOBDET+64 , EOBDET+65, EOBDET+66, EOBDET+71, EOBDET+74, EOBDET+75, EOBDET+76, EOBDET+77, EOBDET+83, EOBDET+84, EOBDET+85 , EOBDET+86, EOBDET+88, EOBDET+92, EOBDET+96, EOBDET+99, EOBDET+100, EOBDET+101, EOBDET+102, EOBDET+106, EOBDET+111 , EOBDET+112, EOBDET+120, EOBDET+121, EOBDET+122, EOBDET+123, EOBDET+126, EOBDET+127 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AA | INITQ!, EOBDET+67*, EOBDET+68, EOBDET+71, EOBDET+103*, EOBDET+105, EOBDET+106 |
ACNT | INITQ!, EOBDET+67*, EOBDET+69, EOBDET+70*, EOBDET+76, EOBDET+103*, EOBDET+104*, EOBDET+123 |
ACT | INIT+74*, INIT+76, INITQ! |
AQ | INIT+1~, EOBDET+67*, EOBDET+69*, EOBDET+70*, EOBDET+71 |
CC | INITQ!, EOBDET+68*, EOBDET+71, EOBDET+72, EOBDET+74, EOBDET+105*, EOBDET+106, EOBDET+107, EOBDET+110, EOBDET+111 |
DATA | SET~, SET+4 |
EE | INITQ!, EOBDET+90*, EOBDET+91, EOBDET+93, EOBDET+94, EOBDET+95, EOBDET+96, EOBDET+100, EOBDET+101, EOBDET+103 , EOBDET+114 |
EOBCT | INIT+1~, INIT+40*, INIT+80*, INIT+81, INIT+83, EOBDET~, EOBDET+19 |
EOBLST | INIT+1~ |
EOBLST( | INIT+82, INIT+84*, INIT+89, INIT+91* |
EOBMX | INIT+1~, INIT+3* |
EPAMT | HDR+5, INIT+12*, EXIT+1! |
EPARR | INIT+1~, INIT+7!, EXIT+1! |
EPARR("BN" | INIT+8 |
EPARR("PIN" | INIT+15 |
EPARR("STF" | INIT+16, INIT+17 |
EPARR("STT" | INIT+17 |
EPARR("TCG" | INIT+12, INIT+50 |
EPBILL | HDR+3, HDR+4, INIT+8*, INIT+19, INIT+79, INIT+94, EXIT+1! |
EPDOB | HDR+4, INIT+14*, EXIT+1! |
EPDOS | HDR+5, INIT+16*, INIT+17*, EXIT+1! |
EPEOB | EXIT+1! |
EPIEN | INIT+1~, INIT+19*, INIT+40*, INIT+41*, INIT+42, INIT+43, INIT+79, INIT+81*, INIT+82, INIT+83 , INIT+84, INIT+86*, EOBDET~, EOBDET+8, EOBDET+9, EOBDET+10, EOBDET+11, EOBDET+12, EOBDET+16, EOBDET+17 , EOBDET+20, EOBDET+21, EOBDET+25, EOBDET+30, EOBDET+35, EOBDET+36, EOBDET+37, EOBDET+39, EOBDET+40, EOBDET+47 , EOBDET+48, EOBDET+57, EOBDET+62, EOBDET+63, EOBDET+64, EOBDET+78, EOBDET+80, EOBDET+82, EOBDET+83, EOBDET+93 , EOBDET+125, EOBDET+127 |
EPNM | HDR+4, INIT+10*, INIT+13, EXIT+1! |
EPPAT | INIT+9*, INIT+13, INIT+14, EXIT+1! |
EPPCT | INIT+1~, INIT+50* |
EPSID | HDR+4, INIT+15*, EXIT+1! |
EPSS | HDR+4, INIT+13*, EXIT+1! |
EPTN | INIT+1~, INIT+43* |
ERADA | INIT+1~, INIT+41*, INIT+43, EOBDET+24, EOBDET+25, EOBDET+27 |
ERAIEN | INIT+1~, INIT+23*, INIT+29*, INIT+30, INIT+43*, INIT+44, INIT+46, INIT+47, INIT+49, INIT+50 , INIT+52, INIT+55, INIT+57, INIT+58, INIT+59, INIT+60, INIT+61, INIT+62, INIT+63, INIT+64 , INIT+65, INIT+79, INIT+83, EOBDET~, EOBDET+18*, EOBDET+41, EOBDET+42, EOBDET+43, EOBDET+44 |
ERAIEN("p344.41" | EOBDET+25*, EOBDET+26, EOBDET+27, EOBDET+30*, EOBDET+31, EOBDET+32 |
ERALST | HDR+5, INIT+4*, INIT+44, INIT+49*, EXIT+1! |
FL | INIT+1~, INIT+70*, INIT+73, INIT+74, INIT+75, INIT+77 |
IBAR | INIT+1~, INIT+21* |
IBCL | EOBDET+7~, EOBDET+89, EOBDET+94 |
IBCL( | EOBDET+90, EOBDET+91, EOBDET+93, EOBDET+95, EOBDET+96, EOBDET+100, EOBDET+101, EOBDET+103, EOBDET+105, EOBDET+106 , EOBDET+107, EOBDET+110, EOBDET+111, EOBDET+114, EOBDET+116, EOBDET+118, EOBDET+120 |
IBCOL | INIT+1~, INIT+21*, EOBDET+64 |
IBDGCR | INITQ!, EOBDET+7~ |
IBDGCR(399 | EOBDET+47 |
IBEBERA | INIT+1~, INIT+79!, INIT+80, INIT+83, EOBDET~, EOBDET+19 |
IBEBERA( | INIT+81 |
IBEERR | INITQ!, EOBDET+7~ |
IBEERR( | EOBDET+125, EOBDET+127 |
IBEOB | INITQ!, EOBDET+7~ |
IBEOB( | EOBDET+16, EOBDET+47, EOBDET+57, EOBDET+93 |
IBEOB("361.1" | EOBDET+17, EOBDET+20, EOBDET+30, EOBDET+35, EOBDET+36, EOBDET+37, EOBDET+39, EOBDET+40, EOBDET+62, EOBDET+63 , EOBDET+64, EOBDET+78, EOBDET+80, EOBDET+83 |
IBEPAR | INIT+45!, INIT+48, INITQ! |
IBEPAR("344.4" | INIT+49, INIT+50, INIT+52, INIT+55, INIT+57, INIT+58, INIT+59, INIT+60, INIT+61, INIT+62 , INIT+63, INIT+64, INIT+65 |
IBGX | INITQ!, EOBDET+7~ |
IBGX( | EOBDET+67, EOBDET+68, EOBDET+71, EOBDET+72, EOBDET+74 |
IBI | INIT+1~, INIT+25*, INIT+26*, INIT+27, INIT+29, INIT+30, INIT+32, INIT+33, INIT+34, INIT+35 , INIT+37 |
>> IBIFN | HDR+4, INIT+6, INIT+7, INIT+9, INIT+10, INIT+19, INIT+21, INIT+26 |
IBPLB | INIT+45!, INIT+68, INIT+69, INITQ! |
IBPLB( | INIT+70, INIT+73, INIT+74, INIT+75, INIT+77 |
IBREJ | HDR+1~, HDR+3*, HDR+4 |
IBRP | HDR+1~, HDR+5 |
IBRP( | HDR+1* |
IBRX | INIT+1~, EOBDET+7~, EOBDET+48 |
IBRX("DOS" | EOBDET+51, EOBDET+52 |
IBRX("FILL" | EOBDET+49 |
IBRX("RELEASE | D STATUS" , EOBDET+49 |
IBSHEOB | INIT+1~, INIT+25*, INIT+27* |
IBSHEOB( | INIT+27*, INIT+30*, INIT+32, INIT+41 |
IBSPEOB | INIT+1~ |
IBSPL | INITQ!, EOBDET+7~, EOBDET+54 |
IBSPL( | EOBDET+58, EOBDET+59 |
II | INIT+2~, EOBDET+75*, EOBDET+78*, EOBDET+80, EOBDET+82, EOBDET+83, EOBDET+84*, EOBDET+112*, EOBDET+121*, EOBDET+127~* |
LINE | INIT+2~, INIT+40*, INIT+51, INIT+52, INIT+56, INIT+57, INIT+58, INIT+59, INIT+61, INIT+63 , INIT+65, INIT+66, INIT+67, INIT+68, INIT+71, INIT+75, INIT+76, INIT+77, INIT+78, INIT+85 , INIT+92, INIT+94, INIT+95, SET~, SET+3*, SET+4, EOBDET+19, EOBDET+21, EOBDET+22, EOBDET+28 , EOBDET+33, EOBDET+36, EOBDET+38, EOBDET+39, EOBDET+40, EOBDET+43, EOBDET+44, EOBDET+46, EOBDET+52, EOBDET+53 , EOBDET+56, EOBDET+57, EOBDET+59, EOBDET+60, EOBDET+61, EOBDET+62, EOBDET+63, EOBDET+64, EOBDET+65, EOBDET+66 , EOBDET+71, EOBDET+74, EOBDET+75, EOBDET+76, EOBDET+77, EOBDET+83, EOBDET+84, EOBDET+85, EOBDET+86, EOBDET+88 , EOBDET+92, EOBDET+96, EOBDET+99, EOBDET+100, EOBDET+101, EOBDET+102, EOBDET+106, EOBDET+111, EOBDET+112, EOBDET+120 , EOBDET+121, EOBDET+122, EOBDET+123, EOBDET+126, EOBDET+127 |
INIT+2~, EOBDET+91*, EOBDET+114*, EOBDET+116, EOBDET+118, EOBDET+120 | |
RCBAMT | INIT+2~, EOBDET+93*, EOBDET+96 |
RCCOPY | INIT+2~, INIT+25*, INIT+36*, INIT+37, INIT+87, INIT+90 |
RCCOPY( | INIT+37*, INIT+88, INIT+89, INIT+90, INIT+91 |
RCDED | INIT+2~, EOBDET+94*, EOBDET+96 |
RCERR | INIT+2~, EOBDET+73!, EOBDET+81!, EOBDET+108!, EOBDET+115! |
RCF | INIT+70*, INIT+71, INIT+72*, INITQ! |
RCFLD | INIT+2~, EOBDET+73!, EOBDET+75, EOBDET+81!, EOBDET+82*, EOBDET+84, EOBDET+109!, EOBDET+110!, EOBDET+112, EOBDET+115! , EOBDET+118*, EOBDET+121 |
RCFLD( | EOBDET+75, EOBDET+84, EOBDET+112, EOBDET+121 |
RCFLD(1 | EOBDET+74, EOBDET+83, EOBDET+111, EOBDET+118*, EOBDET+120 |
RCMD | INIT+2~, EOBDET+91*, EOBDET+95, EOBDET+114* |
RCOIN | INIT+2~, EOBDET+94*, EOBDET+96 |
RCPL | INITQ!, EOBDET+90*, EOBDET+95 |
RCRC | INIT+2~, EOBDET+78*, EOBDET+83*, EOBDET+85, EOBDET+105*, EOBDET+106* |
RCRDC | INIT+2~, EOBDET+73!, EOBDET+81!, EOBDET+108!, EOBDET+109, EOBDET+110, EOBDET+115! |
RCRDC(1 | EOBDET+110* |
RCRLN | INIT+2~, EOBDET+82* |
RCTRACE | EOBDET+7~, EOBDET+17*, EOBDET+18, EOBDET+46 |
RCXY | INIT+2~, EOBDET+73*, EOBDET+81*, EOBDET+107*, EOBDET+108*, EOBDET+119* |
REMOVED | INIT+2~ |
RMIEN | INIT+2~, EOBDET+72*, EOBDET+73, EOBDET+80*, EOBDET+81, EOBDET+82, EOBDET+116*, EOBDET+118, EOBDET+119 |
SP80 | INIT+4*, INIT+49, INIT+60, INIT+62, INIT+64, INIT+73, INIT+85, INIT+92, INITQ!, EOBDET+22 , EOBDET+35, EOBDET+37, EOBDET+42, EOBDET+51, EOBDET+65, EOBDET+86 |
SPL | EOBDET+55~, EOBDET+58*, EOBDET+59 |
TECME | INITQ!, EOBDET+47*, EOBDET+49, EOBDET+50, EOBDET+51 |
TEDT | INITQ!, EOBDET+37*, EOBDET+38 |
TRX | INITQ!, EOBDET+49*, EOBDET+50*, EOBDET+52 |
TSDT | INITQ!, EOBDET+37* |
TT | INITQ! |
TYPE | EOBDET~, EOBDET+19 |
U | HDR+1, INIT+15, INIT+21, INIT+42, INIT+44, PUSH+4, PUSH+5 |
>> VALMCNT | INIT+19*, INIT+94*, INIT+95* |
>> VALMHDR(1 | HDR+4* |
>> VALMHDR(2 | HDR+5* |
>> VALMQUIT | INIT+6* |
VALUE | PUSH~, PUSH+1*, PUSH+2, PUSH+4, PUSH+5 |
VAR | PUSH~, PUSH+2, PUSH+4, PUSH+5 |
X | INIT+2~, INIT+34*, INIT+35, INIT+88*, INIT+89, INIT+90, INIT+91, INITQ!, HELP+1* |
XLN | INIT+49*, INIT+52, INIT+55*, INIT+56, INIT+60*, INIT+61, INIT+62*, INIT+63, INIT+64*, INIT+65 , INIT+73*, INIT+75, INITQ!, EOBDET+27*, EOBDET+28, EOBDET+32*, EOBDET+33, EOBDET+35*, EOBDET+36, EOBDET+37* , EOBDET+38, EOBDET+42*, EOBDET+43, EOBDET+51*, EOBDET+52, EOBDET+95*, EOBDET+96 |
XSP | INIT+49*, INIT+52, INIT+60*, INIT+61, INIT+62*, INIT+63, INIT+64*, INIT+65, INIT+73*, INIT+75 , INITQ!, EOBDET+35*, EOBDET+36, EOBDET+37*, EOBDET+38, EOBDET+42*, EOBDET+43, EOBDET+51*, EOBDET+52 |
XSP1 | INITQ!, EOBDET+51*, EOBDET+52 |
XX | INIT+2~, INIT+88*, INIT+91*, INIT+92 |
Z | INIT+2~ |
ZZEPIEN | INIT+79*, INIT+86, INITQ! |