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! |