Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBJTPE

Package: Integrated Billing

Routine: IBJTPE


Information

IBJTPE ;ALB/TJB - TP ERA/835 PRINT EEOB INFORMATIN SCREEN ;20-MAY-2015

Source Information

Source file <IBJTPE.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  ($$CJ,$$REPLACE)^XLFSTR  DISP^XQORM1  
VA FileMan 3 $$FIND1^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Accounts Receivable 2 $$BN1^PRCAFN  $$BILL^RCJIBFN2  
List Manager 2 EN^VALM  FULL^VALM1  
E Claims Management Engine 1 $$STATUS^BPSOSRX  
Integrated Billing 1 ($$ADJU,$$BILLN,DLN,EEOB,RESORT)^IBJTEP1  
Outpatient Pharmacy 1 ($$DOS,$$LSTRFL)^PSOBPSU1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 2 IBJT 835 EEOB PRINT  IBJT ERA 835 PRINT EEOB  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for IBJT 835 EEOB PRINT
HDR ; -- header code
INIT ; -- init variables and list array
; Array IBEBERA (From IBJTEP) contains the the EEOBs for this KBILL
IN1 ;
IN2 ;
; EPBILL is from IBJTEP and will be cleaned up there
IND
INITQ ;
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
EOBALL ; Entry point to print all ERAs and all EOBs
EOBOUT ; Entry for either queued or screen print of EEOB
EBO ; Display the EOB DATA for IBEIEN
SET(DATA,NEW) ;
RHDR(IBSCR,IBDT,IBPG) ;Prints EOB detail report heading
; IBSCR - IEN of the ERA; IBDT - Report Date; IBPG - page #, passed by reference.
NEWPG(IBPG,IBNEW,IBSL,IBSCR) ; Check for new page needed, output header
; IBPG = Page number passwd by referece
; IBNEW = 1 to force new page
; IBSL = page length passed by reference
; Function returns 1 if user chooses to stop output
ASK(IBSTOP) ; User if you want to quit or continue
HDRP(Z,X,Z1) ; Print Header (Z=String, X=1 (line feed) X=0 (no LF), Z1 (page number right justified)

External References

Name Field # of Occurrence
^%ZIS IND
HOME^%ZIS IND+6
^%ZTLOAD IND+4
$$STATUS^BPSOSRX EBO+32
$$FIND1^DIC EBO+56, EBO+64, EBO+88, EBO+96
$$GET1^DIQ EBO+31, EBO+57, EBO+65, EBO+66, EBO+89, EBO+97
GETS^DIQ EBO+5, EBO+6, EBO+7, EBO+8, EBO+9, EBO+15, EBO+16
^DIR IN1+3, IN1+10, IN2+8, ASK+4
$$ADJU^IBJTEP1 EBO+77
$$BILLN^IBJTEP1 EBO+76
DLN^IBJTEP1 EBO+57, EBO+65, EBO+90, EBO+91, EBO+97
EEOB^IBJTEP1 IN2+2, EOBALL+4
RESORT^IBJTEP1 EBO+6, EBO+13, EBO+14
$$BN1^PRCAFN EBO+43
$$DOS^PSOBPSU1 EBO+29
$$LSTRFL^PSOBPSU1 EBO+32, EBO+33
$$BILL^RCJIBFN2 EBO+11
EN^VALM EN+1
FULL^VALM1 INIT+4
$$FMTE^XLFDT EBO+1, EBO+21, EBO+29, EBO+78, RHDR+6, RHDR+7
$$NOW^XLFDT EBO+1
$$CJ^XLFSTR EBO+78, EBO+87, EBO+92
$$REPLACE^XLFSTR IN1+8
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No ERA Information for Bill: "_EPBILL
  • Line Location: IN1+3
Function Call: WRITE
  • Prompt: !!,"ERA: "_Y_" not a valid selection. Please try again...",!
  • Line Location: IN1+13
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: IND+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: DATA,!
  • Line Location: SET+2
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: RHDR+4
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","="),!
  • Line Location: RHDR+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPG+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRP+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(Z)\2),Z
  • Line Location: HDRP+2
Function Call: WRITE
  • Prompt: ?(IOM-$L(Z1)),Z1
  • Condition for execution: $G(Z1)]""
  • Line Location: HDRP+2
Routine Call
  • %ZIS
  • Line Location:
    • IND
Routine Call
  • %ZIS
  • Line Location:
    • IND+6
Routine Call
  • DIC
  • Line Location:
    • EBO+56
    • EBO+64
    • EBO+88
    • EBO+96
Routine Call
  • DIR
  • Line Location:
    • IN1+3
    • IN1+10
    • IN2+8
    • ASK+4
Routine Call
  • VALM
  • Line Location:
    • EN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] GETS^DIQ
^RC(345 - [#345] FIND1^DIC,  GET1^DIQ
^RC(346 - [#346] FIND1^DIC,  GET1^DIQ
^IBM(361.1 - [#361.1] GET1^DIQ,  GETS^DIQ
^DGCR(399 - [#399] GETS^DIQ
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.4 - [#344.4] RHDR+3

Label References

Name Line Occurrences
$$NEWPG SET+3
ASK EOBALL+8, EOBALL+9, EOBOUT+5, NEWPG+7
EBO EOBALL+7, EOBOUT+4
EOBALL IND+9
EOBOUT IND+9
HDRP RHDR+6, RHDR+7, RHDR+8, RHDR+9
IN1 IN1+13
IN2 IN1+4
IND IN1+12, IN2+3
INITQ IN1+3, IN1+11, IN2+9, IND, IND+1, EOBALL+10, EOBOUT+6
RHDR EBO+2, EBO+3, NEWPG+9
SET EOBALL+9, EOBOUT+5, EBO+18, EBO+20, EBO+22, EBO+23, EBO+24, EBO+26, EBO+27, EBO+36
, EBO+37, EBO+40, EBO+41, EBO+43, EBO+44, EBO+45, EBO+46, EBO+47, EBO+48, EBO+49
, EBO+50, EBO+55, EBO+58, EBO+59, EBO+60, EBO+61, EBO+67, EBO+68, EBO+69, EBO+70
, EBO+72, EBO+75, EBO+79, EBO+80, EBO+81, EBO+82, EBO+83, EBO+87, EBO+92, EBO+93
, EBO+98, EBO+99, EBO+100, EBO+101, EBO+104, EBO+105, EBO+106

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS IND*
AA EOBOUT+1~, EBO+51*, EBO+52, EBO+55, EBO+84*, EBO+86, EBO+87
ACNT EOBOUT+1~, EBO+51*, EBO+53, EBO+54*, EBO+60, EBO+84*, EBO+85*, EBO+100, EBO+101
AQ EOBOUT+1~, EBO+51*, EBO+53*, EBO+54*, EBO+55
BB EOBALL+1~, EOBALL+7*, EOBOUT+1~, EOBOUT+4*, EBO+18
BC EOBOUT+1~, EOBOUT+4*
CC EOBOUT+1~, EBO+52*, EBO+55, EBO+56, EBO+58, EBO+86*, EBO+87, EBO+88, EBO+91, EBO+92
CT INIT+2~, INIT+3*, IN2+2*, IN2+3, EOBALL+1~, EOBALL+4*
DATA SET~, SET+2
DIR INIT+2~, IN1+3!, IN1+10!, IN2+8!, ASK+3~
DIR("A" IN1+5*, IN1+6*, IN1+7*, IN1+8*, IN2+6*
DIR("PRE" IN1+9*, IN2+7*
DIR(0 IN1+3*, IN1+5*, IN2+6*, ASK+4*
DIROUT INIT+2~, ASK+3~
DIRUT INIT+2~, ASK+3~, ASK+5
DTOUT INIT+2~, IN1+11, IN2+9, ASK+3~
DUOUT INIT+2~, IN1+11, IN2+9, ASK+3~, ASK+5
EE EOBOUT+1~, EBO+73*, EBO+74, EBO+76, EBO+77, EBO+78, EBO+79, EBO+81, EBO+82, EBO+84
, EBO+95
EOBLST INIT+2~, INIT+3*, INITQ+2!
EOBLST( IN2+2*, EOBALL+4*, EOBALL+7, EOBOUT+4
>> EPBILL IN1+3, IN2+2, EOBALL+4
>> ERALST IN1+3, IN1+4, IN1+8, IN1+13, EOBALL+2, EOBALL+3
IBALL INIT+2~, INIT+3*, IN1+12*, IND+2, IND+9
IBAR EBO+10~, EBO+11*
IBCL EOBOUT+1~, EBO+4!, EBO+77
IBCL( EBO+73, EBO+74, EBO+76, EBO+78, EBO+79, EBO+81, EBO+82, EBO+84, EBO+86, EBO+87
, EBO+88, EBO+91, EBO+92, EBO+95, EBO+96, EBO+98
IBCOL EBO+10~, EBO+11*, EBO+48
IBDGCR EOBOUT+1~, EBO+4!
IBDGCR(399 EBO+29
IBDT EOBOUT+1~, EBO+1*, EBO+2, EBO+3, RHDR~, RHDR+6, NEWPG+9
IBEBERA INIT+2~, IN2+2!, IN2+5, IN2+6, EOBALL+1~, EOBALL+4!, EBO+18
IBEBERA( IN2+2, EOBALL+4
IBEERR EOBOUT+1~, EBO+4!
IBEERR( EBO+103, EBO+105
IBEIEN INIT+2~, EOBALL+7*, EOBOUT+4*, EBO+5, EBO+6, EBO+7, EBO+8, EBO+9, EBO+11, EBO+15
, EBO+19, EBO+20, EBO+21, EBO+23, EBO+24, EBO+29, EBO+41, EBO+46, EBO+47, EBO+48
, EBO+62, EBO+64, EBO+66, EBO+67, EBO+76, EBO+103, EBO+105
IBEOB INITQ+2!, EOBOUT+1~, EBO+4!
IBEOB( EBO+11, EBO+15, EBO+29, EBO+41, EBO+76
IBEOB("361.1" EBO+19, EBO+20, EBO+21, EBO+23, EBO+24, EBO+46, EBO+47, EBO+48, EBO+62, EBO+64
, EBO+67
IBEPAR EOBOUT+1~, EBO+4!
IBEPAR("344.4" EBO+25, EBO+26, EBO+27
IBGX EOBOUT+1~, EBO+4!
IBGX( EBO+51, EBO+52, EBO+55, EBO+56, EBO+58
IBNEW NEWPG~, NEWPG+6
IBNUM INIT+2~, INIT+3*
IBPEOB INIT+2~, IN2+3*, IN2+11*, EOBOUT+4
IBPERA INIT+2~, IN1+4*, IN1+13*, IN2+2, EOBALL+1~, EOBALL+3*, EOBALL+4, EBO+2, EBO+3, EBO+16
, EBO+25, EBO+26, EBO+27, SET+3
IBPERR EOBOUT+1~, EBO+57!, EBO+65!, EBO+97!
IBPG EOBALL+1~, EOBALL+2*, EOBALL+3, EOBOUT+1~, EOBOUT+3*, EBO+2, EBO+3, SET+3, RHDR~, RHDR+4
, RHDR+5*, RHDR+6, NEWPG~, NEWPG+6, NEWPG+7, NEWPG+9
IBQUIT EOBALL+1~, EOBALL+2*, EOBALL+3, EOBALL+7, EOBALL+8, EOBALL+9, EOBOUT+1~, EOBOUT+3*, EOBOUT+4, EOBOUT+5
, EBO+18, EBO+20, EBO+22, EBO+23, EBO+24, EBO+26, EBO+27, EBO+36, EBO+37, EBO+38
, EBO+40, EBO+41, EBO+42, EBO+43, EBO+44, EBO+45, EBO+46, EBO+47, EBO+48, EBO+49
, EBO+50, EBO+51, EBO+52, EBO+55, EBO+58, EBO+59, EBO+60, EBO+61, EBO+62, EBO+67
, EBO+68, EBO+69, EBO+70, EBO+72, EBO+73, EBO+75, EBO+79, EBO+80, EBO+81, EBO+82
, EBO+83, EBO+84, EBO+86, EBO+87, EBO+92, EBO+93, EBO+95, EBO+98, EBO+99, EBO+100
, EBO+101, EBO+104, EBO+105, EBO+106, SET+3*
IBRDC EOBOUT+1~
IBREPG EOBALL+1~, EOBALL+2*, EOBALL+3*, EOBOUT+2~, EOBOUT+3*, EBO+3*
IBRNG IN2+5*, IN2+6, IN2+7, INITQ+2!
IBRP INIT+2~, IN1+8
IBRP( IN1+1*
IBSCR RHDR~, RHDR+3, RHDR+7, NEWPG~, NEWPG+9
IBSL EOBALL+1~, EOBALL+2*, EOBALL+5*, EOBOUT+1~, EOBOUT+3*, EBO+2, SET+2*, SET+3, RHDR+11*, NEWPG~
, NEWPG+6
IBSPL EOBOUT+1~, EBO+4!, EBO+38
IBSPL( EBO+42, EBO+43
IBSTOP NEWPG+5~*, NEWPG+7, NEWPG+10, ASK~, ASK+1*, ASK+5*
II EOBOUT+1~, EBO+59*, EBO+62*, EBO+64, EBO+66, EBO+67, EBO+68*, EBO+93*, EBO+99*, EBO+105~*
IO IND+7
IO("Q" IND+1, IND+6!
IOF RHDR+4, NEWPG+8
IOM EBO+1, RHDR+10, HDRP+2
IOSL SET+3, NEWPG+6
IOST RHDR+4, ASK+2
JJ INIT+2~, INIT+3*, IN2+2*, EOBALL+1~, EOBALL+4*
NEW SET~, SET+1*, SET+3
POP IND~
QQ EOBOUT+1~, EBO+74*, EBO+95*, EBO+96, EBO+98
RCBAMT EOBOUT+1~, EBO+76*, EBO+79
RCDED EOBOUT+1~, EBO+77*, EBO+79
RCERR EBO+89!
RCFLD EBO+57!, EBO+59, EBO+65!, EBO+66*, EBO+68, EBO+90!, EBO+91!, EBO+93, EBO+97!, EBO+99
RCFLD( EBO+59, EBO+68, EBO+93, EBO+99
RCFLD(1 EBO+58, EBO+67, EBO+92, EBO+98
RCMD EOBOUT+1~, EBO+74*, EBO+78, EBO+95*
RCOIN EOBOUT+1~, EBO+77*, EBO+79
RCPL EOBOUT+2~, EBO+73*, EBO+78
RCRC EOBOUT+2~, EBO+62*, EBO+67*, EBO+69, EBO+86*, EBO+87*
RCRDC EBO+57!, EBO+65!, EBO+89!, EBO+90, EBO+91, EBO+97!
RCRDC(1 EBO+91*
RCRLN EOBOUT+2~, EBO+66*
RCXY EOBOUT+2~, EBO+57*, EBO+65*, EBO+88*, EBO+89*, EBO+97*
RMIEN EOBOUT+2~, EBO+56*, EBO+57, EBO+64*, EBO+65, EBO+66, EBO+96*, EBO+97
SP80 EOBOUT+2~, EBO+1*, EBO+19, EBO+21, EBO+25, EBO+35
SPL EBO+39~, EBO+42*, EBO+43
TDOS EOBOUT+2~, EBO+29*, EBO+34*, EBO+35, EBO+36
TECME EOBOUT+2~, EBO+29*, EBO+31, EBO+32, EBO+33, EBO+34, EBO+35
TEDT EOBOUT+2~, EBO+21*, EBO+22
TRX EOBOUT+2~, EBO+31*, EBO+32, EBO+33*, EBO+34*, EBO+36
TSDT EOBOUT+2~, EBO+21*
TSTAT EOBOUT+2~, EBO+32*, EBO+33
U IN1+1, IN1+4, IN1+13, EOBALL+2, EOBALL+3, EBO+11, RHDR+7, RHDR+8, RHDR+9
>> VALMHDR(1 HDR+1*
>> VALMHDR(2 HDR+2*
>> VALMQUIT IN1+11*, IN2+9*, IND*, IND+1*, INITQ+1*
X INIT+2~, IN1+13*, HELP+1*, ASK+3~, HDRP~, HDRP+1
XLN EOBOUT+1~, EBO+19*, EBO+20, EBO+21*, EBO+22, EBO+25*, EBO+26, EBO+35*, EBO+36, EBO+78*
, EBO+79
XSP EOBOUT+1~, EBO+19*, EBO+20, EBO+21*, EBO+22, EBO+25*, EBO+26, EBO+35*, EBO+36
XSP1 EOBOUT+2~, EBO+35*, EBO+36
Y INIT+2~, IN1+11, IN1+12, IN1+13, IN2+9, IN2+11, ASK+3~
Z RHDR+2~, RHDR+3*, RHDR+7, RHDR+8, RHDR+9, HDRP~, HDRP+2
Z1 HDRP~, HDRP+2
ZQ EOBALL+1~, EOBALL+3*, EOBALL+8
ZQL EOBALL+1~, EOBALL+2*, EOBALL+8
>> ZTDESC IND+2*
>> ZTRTN IND+2*
>> ZTSAVE("EOB*" IND+3*
>> ZTSAVE("IB*" IND+3*
ZTSK IND+5, IND+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All