Routine: IBJTPE

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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+97
$$GET1^DIQ	EBO+31, EBO+57, EBO+65, EBO+66, EBO+89, EBO+100
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+100
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+97
Routine Call	DIR Line Location: IN1+3 IN1+10 IN2+8 ASK+4
Routine Call	VALM Line Location: EN+1

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+101, EBO+102, EBO+103, EBO+104, EBO+107, EBO+108, EBO+109

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+103, EBO+104
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+97, EBO+99, EBO+101
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+106, EBO+108
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+106, EBO+108
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
IBERR	EBO+96!
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!
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+101, EBO+102, EBO+103 , EBO+104, EBO+107, EBO+108, EBO+109, 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+102, EBO+108~
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+97, EBO+99, EBO+101
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+96!, EBO+99 , EBO+102
RCFLD(	EBO+59, EBO+68, EBO+93, EBO+102
RCFLD(1	EBO+58, EBO+67, EBO+92, EBO+99*, EBO+101
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+96!
RCRDC(1	EBO+91*
RCRLN	EOBOUT+2~, EBO+66*
RCXY	EOBOUT+2~, EBO+57, EBO+65, EBO+88, EBO+89, EBO+100*
RMIEN	EOBOUT+2~, EBO+56, EBO+57, EBO+64, EBO+65, EBO+66, EBO+97*, EBO+99, EBO+100
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!

Customize PDF page

Package: Integrated Billing