Routine: IBJTAD

Information

IBJTAD ;ALB/TJB - TP ERA/835 ADDITIONAL INFORMATION SCREEN ;01-MAY-2015

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	3	FIND^DIC GETS^DIQ ^DIR
Kernel	2	$$REPLACE^XLFSTR DISP^XQORM1
List Manager	2	EN^VALM SET^VALM10

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 ADDITIONAL DATA IBJT ADDITIONAL 835 DATA
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for IBJT ADDITIONAL 835 DATA
HDR	; -- header code
INIT	; -- init variables and list array
IN1	;
IN2	; ; Get IEN pointing back to 361.1 & Rendering/Servicing Provider information
INITQ
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
CCS(DATA)	; Build code array

External References

Name	Field # of Occurrence
FIND^DIC	IN2+4
GETS^DIQ	IN2+5, IN2+10
^DIR	IN1+6
EN^VALM	EN+1
SET^VALM10	IN2+7, IN2+24, IN2+25, IN2+26, IN2+27, IN2+28, IN2+29, IN2+30, IN2+31, IN2+32 , IN2+33, IN2+34, IN2+35, IN2+36, IN2+37, IN2+38, IN2+39, IN2+40, IN2+41, IN2+42 , IN2+43, IN2+44, IN2+45, IN2+46, IN2+47, IN2+48, IN2+49, IN2+50, IN2+51, IN2+52 , IN2+53, IN2+54, IN2+55, IN2+56, IN2+57, IN2+58, IN2+59, IN2+60
$$REPLACE^XLFSTR	IN1+5
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ERA: "_Y_" not a valid selection. Please try again...",! Line Location: IN1+8
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	DIC Line Location: IN2+4
Routine Call	DIR Line Location: IN1+6
Routine Call	VALM Line Location: EN+1

FileNo	Call Tags
^RCY(344.4 - [#344.4]	GETS^DIQ
344.41	FIND^DIC
^IBM(361.1 - [#361.1]	GETS^DIQ

Label References

Name	Line Occurrences
$$CCS	IN2+24
EXIT	IN1+7
IN1	IN1+8
IN2	IN1+2
INITQ	INIT+1, IN2+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADERA	INIT+2~, IN1+2, IN1+8, IN2+4, IN2+5, IN2+22, IN2+46, IN2+47, IN2+48, IN2+49 , IN2+50, IN2+51
ADLN	INIT+2~, IN2+8, IN2+24, IN2+25, IN2+26, IN2+27, IN2+28, IN2+29, IN2+30, IN2+31* , IN2+32, IN2+33, IN2+34, IN2+35, IN2+36, IN2+37, IN2+38, IN2+39, IN2+40, IN2+41 , IN2+42, IN2+43, IN2+44, IN2+45, IN2+46, IN2+47, IN2+48, IN2+49, IN2+50, IN2+51 , IN2+52, IN2+53, IN2+54, IN2+55, IN2+56, IN2+57, IN2+58, IN2+59, IN2+60*, IN2+61
ADRNM	INIT+2~, IN2+12*, IN2+34
ADRNPI	INIT+2~, IN2+12*, IN2+35
ADRTQ	INIT+2~, IN2+12*, IN2+37
DATA	CCS~, CCS+2, CCS+14
DIR	INIT+2~, IN1+6!
DIR("A"	IN1+3, IN1+4, IN1+5*
DIR(0	IN1+3*
DIROUT	INIT+2~
DIRUT	INIT+2~
DTOUT	INIT+2~, IN1+7
DUOUT	INIT+2~, IN1+7
DZX	INIT+2~, IN2+21
DZX(	IN2+18, IN2+19
DZX("EM"	IN2+21*, IN2+42
DZX("FX"	IN2+21*, IN2+41
DZX("TE"	IN2+21*, IN2+40
>> EPBILL	IN2+4, IN2+7
EPIEN	INIT+2~, IN2+7, IN2+8, IN2+10, IN2+14, IN2+18, IN2+19, IN2+22, IN2+24, IN2+25 , IN2+27, IN2+30, IN2+32, IN2+39, IN2+54, IN2+55, IN2+56, IN2+59, IN2+60
>> ERALST	IN1+2, IN1+5, IN1+8
I	INIT+2~, IN2+16*, IN2+18, IN2+19
IBAR2	INIT+2~, IN2+2!
IBAR2("DILIST"	IN2+7, IN2+12, IN2+36
IBAR3	INIT+2~, IN2+2!
IBAR3("344.4"	IN2+22, IN2+46, IN2+47, IN2+48, IN2+49, IN2+50, IN2+51
IBARR	INIT+2~, IN2+2!
IBARR("361.1"	IN2+14, IN2+18, IN2+19, IN2+22, IN2+24, IN2+25, IN2+27, IN2+30, IN2+32, IN2+39 , IN2+54, IN2+55, IN2+56, IN2+59, IN2+60
IBFN	INIT+2~, IN2+14*, IN2+29
IBIFN	INIT+1, INIT+2~
IBLN	INIT+2~, IN2+14*, IN2+29
IBMN	INIT+2~, IN2+14*, IN2+29
IBPAYNM	INIT+2~, IN2+22*
IBPPAYEM	INIT+2~
IBPPAYFX	INIT+2~
IBPPAYTE	INIT+2~
IBRP	INIT+2~, IN1+5
IBRP(	IN1+1*
U	IN1+1, IN1+2, IN1+8, IN2+14, IN2+30
>> VALMCNT	IN2+7, IN2+61
>> VALMHDR(1	HDR+1*
>> VALMQUIT	INIT+1, IN1+7
X	INIT+2~, IN1+8, HELP+1
XCD	CCS+1~
XCD(	CCS+14
XCD(1	CCS+4*
XCD(19	CCS+8*
XCD(2	CCS+5*
XCD(20	CCS+9*
XCD(21	CCS+10*
XCD(22	CCS+11*
XCD(23	CCS+12*
XCD(25	CCS+13*
XCD(3	CCS+6*
XCD(4	CCS+7*
Y	INIT+2~, IN1+7, IN1+8

Customize PDF page

Package: Integrated Billing