Routine: ADERVURD

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ($$LIST,$$OPEN,$$STATUS,CLOSE)^%ZISH
VA Fileman	2	^DIE ^DIR
IHS VA Utilities	1	$$DIR^XBDIR

Entry Points

Name	Comments	DBIA/ICR reference
EXCEPTRP	;
UPDATE(ADAIEN,RVU,ADANLC)	;
RETURN	;EP - Press return to continue
HDR	;
FNAME1	;
EXCEPT(MSG,ADACODE,ADADESCR)	;
ADDTOFIL(ADACODE,RVU,ADADESCR,ADANLC)	;
EXIT
FNAME	; ; Select a file (directory can be pre-loaded into XBDIR)
ASK
PLACE	;
RDFILE(XBDIR,XBFN,XBNODE)	;

External References

Name	Field # of Occurrence
^%ZIS	EXCEPTRP+9
^%ZISC	EXCEPTRP+20
$$LIST^%ZISH	FNAME1+12
$$OPEN^%ZISH	RDFILE+4
$$STATUS^%ZISH	RDFILE+8
CLOSE^%ZISH	RDFILE+10
^DIE	UPDATE+5
^DIR	ASK+6, FNAME1+4, EXCEPTRP+6, RETURN+3
$$DIR^XBDIR	RDFILE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ASK+0
Function Call: WRITE	Prompt: !,*7,"CANNOT OPEN (OR ACCESS) FILE '",XBDIR,XBFN,"'." Line Location: RDFILE+5
Function Call: WRITE	Prompt: !!,"READING FROM FILE " Line Location: RDFILE+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: RDFILE+8
Function Call: WRITE	Prompt: "." Line Location: RDFILE+8
Function Call: WRITE	Prompt: !,I," RECORDS READ" Line Location: RDFILE+9
Function Call: WRITE	Prompt: !!,"ADDING RVU INFO TO 'ADA CODE' FILE" Line Location: PLACE+1
Function Call: WRITE	Prompt: !!,"EXCEPTION FILE HAS BEEN DELETED!" Line Location: EXIT+2
Function Call: WRITE	Prompt: "." Line Location: ADDTOFIL+1
Function Call: WRITE	Prompt: !,"EXCEPTIONS HAVE BEEN FOUND" Line Location: EXCEPTRP+1
Function Call: WRITE	Prompt: @IOF Line Location: EXCEPTRP+19
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,?CENTER,X Line Location: HDR+4
Function Call: WRITE	Prompt: !,?CENTER,X Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"ADA CODE",?10,"DESCRIPTION" Line Location: HDR+8
Function Call: WRITE	Prompt: !,LINE Line Location: HDR+9
Function Call: WRITE	Prompt: !! Line Location: RETURN+3
Routine Call	DIE Line Location: UPDATE+5
Routine Call	DIR Line Location: ASK+6 FNAME1+4 EXCEPTRP+6 RETURN+3
Routine Call	%ZIS Line Location: EXCEPTRP+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTADA - [#9999999.31]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTADA - [#9999999.31]	ADDTOFIL+8
^AUTTADA("B"	ADDTOFIL+6
^AUTTADA("BA"	ADDTOFIL+3
^TMP("ADERVURD"	RDFILE+6!, RDFILE+8, PLACE+3, PLACE+4, PLACE+6, PLACE+7, PLACE+8, PLACE+10, EXIT+1!, EXIT+2! , EXCEPT+1, EXCEPTRP+13, EXCEPTRP+14
^XTV(8989.3 - [#8989.3]	ASK+2

Label References

Name	Line Occurrences
ADDTOFIL	PLACE+9
ASK	ASK+12, ASK+14, ASK+17
EXCEPT	ADDTOFIL+4, ADDTOFIL+7, ADDTOFIL+8
EXCEPTRP	PLACE+10
EXIT	ASK+7, ASK+8, ASK+16
FNAME	ASK+11, FNAME1+10
FNAME1	FNAME1+9
HDR	EXCEPTRP+11, EXCEPTRP+16, EXCEPTRP+17
PLACE	ASK+15
RDFILE	ASK+13
RETURN	EXCEPTRP+17, EXCEPTRP+18
UPDATE	ADDTOFIL+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADACODE	PLACE+4, PLACE+5, PLACE+9, EXIT!, ADDTOFIL~, ADDTOFIL+3, ADDTOFIL+4, ADDTOFIL+6, ADDTOFIL+7, EXCEPT~ , EXCEPT+1, EXCEPTRP+12, EXCEPTRP+13*, EXCEPTRP+14, EXCEPTRP+15
ADADESCR	PLACE+8, PLACE+9, EXIT!, ADDTOFIL~, ADDTOFIL+4, ADDTOFIL+7, ADDTOFIL+8, EXCEPT~, EXCEPT+1, EXCEPTRP+14 , EXCEPTRP+15
ADAIEN	EXIT!, ADDTOFIL+3, ADDTOFIL+4, ADDTOFIL+6, ADDTOFIL+7, ADDTOFIL+8, ADDTOFIL+9, UPDATE~, UPDATE+3
ADANLC	PLACE+7*, PLACE+9, EXIT!, ADDTOFIL~, ADDTOFIL+9, UPDATE~
CENTER	EXIT!, HDR+3, HDR+4, HDR+6, HDR+7
DA	EXIT!, UPDATE+3*
DIE	EXIT!, UPDATE+2*, UPDATE+6!
DIR	ASK+1!, ASK+10!, FNAME+2!, FNAME1+5!, EXCEPTRP+2!, RETURN+1~, RETURN+4!
DIR("?"	ASK+4*
DIR("A"	ASK+3, FNAME1+3, EXCEPTRP+4, RETURN+2
DIR("B"	ASK+2, FNAME1+9, EXCEPTRP+5*
DIR(0	ASK+3, FNAME1+2, EXCEPTRP+3, RETURN+2
DIROUT	RETURN+4!
DIRUT	ASK+7, RETURN+4!
DR	EXIT!, UPDATE+4*
DTIME	RDFILE+8, FNAME1+13
DTOUT	FNAME1+6, RETURN+4!
DUOUT	RETURN+4!
ERROR	ASK+5, ASK+14, RDFILE+1, RDFILE+5*, EXIT!
I	RDFILE+3~, RDFILE+8*, RDFILE+9, EXIT!
IO	RDFILE+8, EXCEPTRP+10
IOF	ASK, EXCEPTRP+19, HDR+1
IOM	EXCEPTRP+8, HDR+3, HDR+6
IOSL	EXCEPTRP+16, EXCEPTRP+17
IOST	EXCEPTRP+16, EXCEPTRP+18
LINE	EXIT!, EXCEPTRP+8*, HDR+9
MSG	EXIT!, EXCEPT~, EXCEPT+1
>> POP	RDFILE+5, EXCEPTRP+9
RECORD	PLACE+2, PLACE+3, PLACE+4, PLACE+6, PLACE+7, PLACE+8, EXIT!
RVU	PLACE+6*, PLACE+9, EXIT!, ADDTOFIL~, ADDTOFIL+9, UPDATE~
U	ADERVURD+2*, ASK+8, RDFILE+8, PLACE+4, PLACE+6, PLACE+7, PLACE+8, EXCEPT+1, EXCEPTRP+14
X	ASK+9, RDFILE+3~, RDFILE+8, FNAME1+12, FNAME1+13, HDR+2, HDR+3, HDR+4, HDR+5*, HDR+6 , HDR+7, RETURN+4!
XBDIR	ASK+9*, ASK+13, RDFILE~, RDFILE+4, RDFILE+5, FNAME1+12
XBFL	FNAME1+11!, FNAME1+12
XBFL(	FNAME1+9, FNAME1+13
XBFN	ASK+12, ASK+13, RDFILE~, RDFILE+4, RDFILE+5, FNAME1+1, FNAME1+14
>> XBHDR	RDFILE+2*
>> XBI	FNAME1+13*
XBNODE	RDFILE~
>> XREF	ADDTOFIL+2, ADDTOFIL+4, ADDTOFIL+5, ADDTOFIL+7
Y	ASK+8, RDFILE+3~, RDFILE+4, RDFILE+5, FNAME1+7, FNAME1+8, FNAME1+9, FNAME1+10, FNAME1+12, FNAME1+14 , EXCEPTRP+7, RETURN+4!

Customize PDF page

Package: IHS Dental System

Routine: ADERVURD

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: