Routine: ADEXBLM

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ($$DEL,$$LIST,$$OPEN,$$PWD,$$STATUS,DF)^%ZISH DISP^XQORM1
IHS VA Utilities	3	^XBCLS ($$DIC,PARSE)^XBDIQ1 $$DIR^XBDIR
Registration	3	EN^VALM CLEAR^VALM1 CNTRL^VALM10
VA Fileman	3	%XY^%RCR DT^DICRW ^DIR
IHS Dental System	1	(EN,FILE,VIEWR)^ADEXBLM

Package	Total	Caller Graph
IHS Dental System	1	ADEXBLM

Entry Points

Name	Comments	DBIA/ICR reference
STRIP(Z)	;REMOVE CONTROLL CHARACTERS
HDR	; -- header code
DOC	;Documentation APIs for ADEXBLM Generic Display
FNAME1	;
ESFILE	;
EXPND	; -- expand code
VIEWR(XBROU,XBHDR)
OPEN	;
HELP	; -- help code
INIT	; -- init variables and list array
ARRAYE	;
EN	; -- main entry point for XB DISPLAY
K	;
ARRAY(XBAR,XBHDR)
MARKERS	;FHL 9/9/98
FNAME	;
DIQ(DIC,DA)
ES	;
VIEWD(XBROU)
EFILE	;
SFILE	;PEP SELECT FILE
EXIT	; -- exit code
FILE(XBDIR,XBFN)

External References

Name	Field # of Occurrence
%XY^%RCR	ARRAY+6
^%ZIS	OPEN+1
HOME^%ZIS	VIEWR+18, VIEWD+17
^%ZISC	FILE+8, ES+2, VIEWR+17, VIEWD+9, VIEWD+16
$$DEL^%ZISH	VIEWR+20, VIEWD+19
$$LIST^%ZISH	FNAME1+7
$$OPEN^%ZISH	FILE+4, FNAME1+10, VIEWR+7, VIEWD+7
$$PWD^%ZISH	OPEN+5, VIEWR+4, VIEWD+4
$$STATUS^%ZISH	FILE+7
DF^%ZISH	VIEWD+6
EN^ADEXBLM	ARRAY+7
FILE^ADEXBLM	ES+3, VIEWR+19, VIEWD+18
VIEWR^ADEXBLM	DIQ+7
DT^DICRW	OPEN+2
^DIR	OPEN+8, FNAME1+2, ES+1
EN^VALM	EN+1
CLEAR^VALM1	K+2
CNTRL^VALM10	MARKERS+5
^XBCLS	OPEN+3
$$DIC^XBDIQ1	DIQ+3
PARSE^XBDIQ1	DIQ+4
$$DIR^XBDIR	FILE+5
DISP^XQORM1	HELP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+3
Function Call: WRITE	Prompt: !,*7,"CANNOT OPEN (OR ACCESS) FILE '",XBDIR,XBFN,"'." Line Location: FILE+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: FILE+7
Function Call: WRITE	Prompt: !!,"Select a Directory and File",!! Line Location: OPEN+4
Function Call: WRITE	Prompt: !,"error on open of file ",XBDIR,XBFN,! Line Location: ES+1
Routine Call	VALM Line Location: EN+1
Routine Call	%ZIS Line Location: VIEWR+18 VIEWD+17
Routine Call	DIR Line Location: OPEN+8 FNAME1+2 ES+1
Routine Call	%ZIS Line Location: OPEN+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	VIEWR+8, VIEWD+10
^TMP("ADEXBLM"	MARKERS+7, EXIT+1!, FILE+6!, FILE+7*, ARRAY+4!, ARRAY+8!

Label References

Name	Line Occurrences
$$STRIP	FILE+7
@(	VIEWR+16, VIEWD+15
EFILE	FILE+5
FNAME	FNAME1+7, ES+1
FNAME1	FNAME1+6
OPEN	FNAME1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	ARRAY+5*
>> %Y	ARRAY+5*
>> %ZIS("IOPAR"	VIEWD+14*
DA	DIQ~, DIQ+4
DIC	DIQ~, DIQ+3*
DIQ	DIQ+5~
DIQ(0	DIQ+6*
DIR	OPEN+6!, OPEN+9!, FNAME+1!, FNAME1+3!, ES+1!
DIR("A"	OPEN+7, FNAME1+1
DIR("B"	OPEN+7, FNAME1+6
DIR(0	OPEN+7, FNAME1+1, ES+1*
DR	DIQ+5~
DTIME	FILE+7, FNAME1+8
>> DTOUT	OPEN+10, FNAME1+4
I	MARKERS+4, MARKERS+5, FILE+2~, FILE+7, ARRAY+2~, STRIP+1~, STRIP+2*
IO	FILE+7, VIEWR+15, VIEWD+8
IO(0	VIEWR+2, VIEWD+1
IOF	VIEWR+10, VIEWD+12
IOM	VIEWR+11, VIEWR+22, VIEWD+8
>> IOP	OPEN+1, VIEWD+8
>> IORVOFF	MARKERS+5
>> IORVON	MARKERS+5
IOSL	VIEWR+9, VIEWD+8, VIEWD+11, DIQ+2, DIQ+10
IOSLO	DIQ+2*, DIQ+10, DIQ+11!
IOST	VIEWR+8, VIEWD+10, DIQ+1, DIQ+8
IOST(0	VIEWR+8, VIEWD+10
IOSTO	DIQ+1*, DIQ+8, DIQ+9!
>> J	MARKERS+5*
>> VALMAR	MARKERS+4
>> VALMCNT	MARKERS+7*
>> VALMHDR(1	HDR+1*
X	HELP+1, FILE+2~, FILE+7, FNAME1+7, FNAME1+8, FNAME1+10, ES+1, VIEWR+7, VIEWR+20, VIEWD+7 , VIEWD+19*, ARRAY+2~
XBAR	K+1!, ARRAY~, ARRAY+5
XBDIR	K+1!, FILE~, FILE+4, FILE+5, OPEN+5, OPEN+7, OPEN+12, FNAME1+7, FNAME1+10, ES+1 , ES+3, VIEWR+4, VIEWR+5, VIEWR+7, VIEWR+19, VIEWR+20, VIEWR+21!, VIEWD+4, VIEWD+5, VIEWD+6 , VIEWD+7, VIEWD+14, VIEWD+18, VIEWD+19, VIEWD+20!, DIQ+12!, ARRAY+9!
XBDIR(1	OPEN+5, VIEWR+5, VIEWD+5
XBFL	K+1!, FNAME1+7!
XBFL(	FNAME1+6, FNAME1+8
XBFN	K+1!, FILE~, FILE+4, FILE+5, FNAME1+9, FNAME1+10, ES+1, ES+3, VIEWR+6, VIEWR+7 , VIEWR+19, VIEWR+20, VIEWR+21!, VIEWD+3*, VIEWD+7, VIEWD+14, VIEWD+18, VIEWD+19, VIEWD+20!, DIQ+12! , ARRAY+9!
XBHDR	HDR+1, K+1!, FILE+1, VIEWR~, VIEWR+1, VIEWR+21!, ARRAY~, ARRAY+1*
XBI	K+1!, FNAME1+8*
XBIOM	VIEWR+11*, VIEWR+22!
XBLMMARK	MARKERS+4, MARKERS+6!
XBNODE	MARKERS+7, EXIT+1, FILE+2~, FILE+3, FILE+6, FILE+7, VIEWR+21!, VIEWD+20!, DIQ+12!, ARRAY+2~ , ARRAY+3, ARRAY+4, ARRAY+5, ARRAY+8, ARRAY+9!
XBROU	K+1!, VIEWR~, VIEWR+16, VIEWD~, VIEWD+15
>> XQORS	K+2, FILE+3, ARRAY+3
Y	FILE+2~, FILE+4, FILE+5, OPEN+5, OPEN+11, OPEN+12, FNAME1+5, FNAME1+6, FNAME1+7, FNAME1+9 , ES+1, VIEWR+4, VIEWD+4*, ARRAY+2~
Z	STRIP~, STRIP+2*, STRIP+3

Customize PDF page

Package: IHS Dental System

Routine: ADEXBLM

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: