Routine: IBTRE3

Package	Total	Call Graph
Integrated Billing	5	$$DAT1^IBOUTL LOCKED^IBTRCD1 (,$$EXPAND)^IBTRE $$TRTP^IBTRE1 $$ASK^IBTRE4
VA Fileman	4	^DIC FILE^DICN ^DIE IX1^DIK
Kernel	1	ENDR^%ZISS
Registration	1	(FULL,PAUSE)^VALM1
Scheduling	1	ASK^SDCO4

Package	Total	Caller Graph
Integrated Billing	9	IBTOBI4 IBTRC1 IBTRE1 IBTRE4 IBTRE5 IBTRPR2 IBTRV1 IBTRV2 IBTRV3

Entry Points

Name	Comments	DBIA/ICR reference
ADD(IBTRN,TYPE)	; -- Add a new diagnosis
NXT
ADGQ
ADDQ
NEW(ICDI,IBTRN,TYPE)	; -- file new entry
EDTQ
SET(IBTRN)	; -- set array
DIAG(IBTRN,IBETYP)	; -- add/edit diagnosis
EN(IBTRN)	; -- entry point for protocols
EDT(IBADG,IBDR)	; -- edit entry
ENQ	;
ADIAG(IBTRN,IBETYP)	; -- add admitting diagnosis
DIAGQ
SETQ
NEWQ
DGPM(IBTRN)	; -- return admission pointer
LIST(IBXY)	;List Diagnosis Array

External References

Name	Field # of Occurrence
ENDR^%ZISS	ADIAG+8, DIAG+7
^DIC	NXT+3
FILE^DICN	NEW+4
^DIE	EDT+7
IX1^DIK	NEW+5
$$DAT1^IBOUTL	LIST+7
LOCKED^IBTRCD1	EDT+5
^IBTRE	%
$$EXPAND^IBTRE	LIST+7
$$TRTP^IBTRE1	EN+9
$$ASK^IBTRE4	DIAG+10
ASK^SDCO4	EN+14
FULL^VALM1	EN+5
PAUSE^VALM1	EN+10, EN+15, ADIAG+6, DIAG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Clinical Information comes from the parent package." Line Location: EN+10
Function Call: WRITE	Prompt: !!,"Can not add diagnosis to outpatient visits prior to Check-out.",! Line Location: EN+15
Function Call: WRITE	Prompt: !!,"You can only enter and admitting diagnosis for an admission",! Line Location: ADIAG+6
Function Call: WRITE	Prompt: ! Line Location: ADIAG+11
Function Call: WRITE	Prompt: !!,"You can only enter a diagnosis for an admission",! Line Location: DIAG+5
Function Call: WRITE	Prompt: !!,*7,$P(Y,"^",2)," is already a diagnosis.",! Line Location: NXT+4
Routine Call	DIE Line Location: EDT+7
Routine Call	DIC Line Location: NXT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBT(356.9 - [#356.9]	Classic Fileman Calls
^ICD9 - [#80]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBT(356 - [#356]	EN+7, DIAG+4, DGPM+1, NEW+5
^IBT(356.9 - [#356.9]	EN+23, ADIAG+9, ADIAG+12, NXT+4, NEW+5*, EDT+5, EDT+6, EDT+8, SET+4, LIST+6
^ICD9 - [#80]	ADIAG+10, LIST+5

Label References

Name	Line Occurrences
$$DGPM	NXT+4, NEW+5, SET+2
$$NEW	NXT+6
ADD	ADIAG+12, DIAG+12
ADDQ	NXT+3
ADGQ	ADIAG+6, DIAG+5
ADIAG	EN+23
DIAG	EN+27
DIAGQ	DIAG+11
EDT	ADIAG+11, DIAG+13, NXT+7
EDTQ	EDT+5
ENQ	EN+10, EN+13
LIST	DIAG+10
NXT	NXT+4, NXT+7
SET	DIAG+10

Naked Globals

Name	Field # of Occurrence
^(	SET+4
^(0	ADIAG+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ADIAG+2~, DIAG+3~, NEW+2~, NEW+5, EDT+2~, EDT+4, EDT+6
DD	ADIAG+2~, NEW+2~
DIC	ADIAG+2~, DIAG+3~, ADD+2~, NXT+2, NXT+3!, NEW+2~, NEW+3
DIC("A"	NXT*
DIC("S"	NXT+1*
DIC(0	NXT+2, NEW+3
DIE	ADIAG+2~, DIAG+3~, EDT+2~, EDT+4*
DIK	NEW+2~, NEW+3*
DINUM	NEW+2~
DLAYGO	NEW+2~, NEW+3*
DO	ADIAG+2~, NEW+2~
DR	ADIAG+2~, DIAG+3~, EDT+2~, EDT+3*
DTOUT	ADD+2~, ADDQ
DUOUT	ADD+2~, ADDQ
I	NEW+2~, LIST+3~, LIST+5*, LIST+6, LIST+7
IBADG	ADIAG+2~, ADIAG+3, ADIAG+9, ADIAG+10, ADIAG+11, NXT+6, NXT+7, NEW+4, NEW+5, NEWQ , EDT~, EDT+4, EDT+5, EDT+8
IBCNT	EN+4~, DIAG+10, ADD+3, NXT, NXT+3, NXT+5, SET+3, SET+5, SET+6
>> IBDA	ADIAG+9, ADIAG+11, SET+4, SET+6
IBDGPM	EN+4~, EN+7, EN+20, EN+23, ADIAG+6, ADIAG+9, ADIAG+12, DIAG+4, DIAG+5, SET+1~ , SET+2*, SET+4
IBDR	EDT~, EDT+3
IBETYP	EN+4~, EN+9*, EN+10, EN+13, EN+19, EN+23, EN+27, ADIAG~, ADIAG+6, DIAG~ , DIAG+2, DIAG+5
IBICD	SET+1~, SET+3, SET+4, SET+6
>> IBQUIT	DIAG+11*
>> IBSEL	EN+24, DIAG+9, DIAG+10, DIAG+11, DIAG+12, DIAG+13, ADDQ*
>> IBTNOD	LIST+6*, LIST+7
IBTRN	EN~, EN+7, EN+9, EN+23, EN+27, ADIAG~, ADIAG+12, DIAG~, DIAG+1, DIAG+4 , DIAG+10, DIAG+12, ADD~, NXT+4, NXT+6, DGPM~, DGPM+1, NEW~, NEW+5, SET~ , SET+2
IBTRND	EN+4~, EN+7*, EN+14, EN+15
IBXD	LIST+3~, LIST+5*, LIST+7
IBXY	EN+4~, DIAG+10, LIST~
IBXY(	DIAG+13, SET+6*, LIST+5, LIST+6
ICDI	NEW~, NEW+3
IOINHI	ADIAG+2~, ADIAG+10, DIAG+8
IOINORM	ADIAG+2~, ADIAG+10, DIAG+8
J	NEW+2~
SDCOQUIT	EN+14!
TYPE	ADD~, ADD+4*, NXT, NXT+6, NXT+7, NEW~, NEW+5
>> VALMBCK	EN+6, EN+16, EN+28*
X	ADIAG+8, DIAG+7, ADD+2~, NXT+2, NEW+2~, NEW+3
Y	ADD+2~, NXT+3, NXT+4, NXT+6, NEW+2~, NEW+4

Customize PDF page

Package: Integrated Billing

Routine: IBTRE3

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: