Routine: DVBAEDIT

Information

DVBAEDIT ;ALB ISC/THM-EDIT AMIE BENEFICIARY INFO STATUS ;21 JUL 89@0117

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	3	^DIC YN^DICN ^DIE
Kernel	2	HOME^%ZIS $$FMTE^XLFDT
Automated Medical Information Exchange	1	DICW^DVBAUTIL

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: 1

Package	Total	Caller Graph
Automated Medical Information Exchange	1	DVBA STATUS EDIT

Entry Points

Name	Comments	DBIA/ICR reference
TERM
SETUP
EDIT
EDIT1
FINAL
EXIT
CHK	;CHECK TO SEE IF FINALIZED
CHK1	;CHECK STATUS OF EACH FIELD
CON	;continue

External References

Name	Field # of Occurrence
HOME^%ZIS	TERM
^DIC	EDIT
YN^DICN	CHK+2
^DIE	EDIT1+3, FINAL+1, CHK+3
DICW^DVBAUTIL	SETUP+1
$$FMTE^XLFDT	CHK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"You have no USER NUMBER. Contact the site manager.",!! Line Location: DVBAEDIT+2
Function Call: WRITE	Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!! Line Location: SETUP+0
Function Call: WRITE	Prompt: *7," ??" Condition for execution: Y<0 Line Location: EDIT+0
Function Call: WRITE	Prompt: !! Line Location: EDIT+0
Function Call: WRITE	Prompt: *7," ??" Condition for execution: Y<0 Line Location: EDIT+1
Function Call: WRITE	Prompt: !! Line Location: EDIT+1
Function Call: WRITE	Prompt: !!!,*7,"Supervisory edit -- all fields available.",!! Line Location: EDIT1+0
Function Call: WRITE	Prompt: "Note: As a Supervisor you will be allowed to use the ""^"" to escape",!,"from the program if desired. This is not normally allowed.",! Line Location: EDIT1+1
Function Call: WRITE	Prompt: @IOF,!,?(IOM-$L(HD)\2),HD,!!!,"Patient Name: ",DVBAPNAM Line Location: EDIT1+3
Function Call: WRITE	Prompt: !,?(IOM-$L(HD)\2) Line Location: EDIT1+4
Function Call: WRITE	Prompt: !!,*7,"All items are completed. This record is now FINALIZED.",! Line Location: FINAL+0
Function Call: WRITE	Prompt: !,"Updating record, please wait ",! Line Location: FINAL+1
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+0
Function Call: WRITE	Prompt: *7,!,"This is finalized. Do you want to 'unfinalize' it" Line Location: CHK+2
Function Call: WRITE	Prompt: !!,"Enter Y if you wish to reopen this and be able to edit it,",!,"or N to leave it as is",!! Line Location: CHK+2
Function Call: WRITE	Prompt: !!,*7,"This record has already been finalized on ",$$FMTE^XLFDT(FDATE,"5DZ"),! Line Location: CHK+5
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: CON+1
Routine Call	%ZIS Line Location: TERM
Routine Call	DIC Line Location: EDIT
Routine Call	DIE Line Location: EDIT1+3 FINAL+1 CHK+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DVB(396 - [#396]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DVB(396 - [#396]	CHK+2, CHK+5, CHK1+2, CHK1+3
^VA(200 - [#200]	TERM
^XUSEC("DVBA SUPERVISOR"	SETUP+2

Label References

Name	Line Occurrences
CHK	EDIT, CHK+2
CHK1	FINAL
CON	EDIT1+1, FINAL+2
EDIT	EDIT
EDIT1	CHK+3, CHK+6
EXIT	DVBAEDIT+2, EDIT, FINAL+2, CHK+3
FINAL	EDIT1+1
SETUP	FINAL, FINAL+3, CHK+4, CHK+5

Naked Globals

Name	Field # of Occurrence
^(0	TERM
^(1	CHK+2, CHK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EDIT1!, EXIT!, CHK+1!, CHK+2*, CHK+3, CHK+4
%DT	EXIT!
%DT(0	EDIT1*
%X	EXIT!
%Y	EDIT1!, EXIT!, CHK+1!, CHK+2
ANS	EXIT!, CON+1*
C	EXIT!
CODE	EXIT!
D	EXIT+1!
D0	EXIT!
DA	EDIT*, FINAL+3!, EXIT!, CHK+2, CHK+5, CHK1+2, CHK1+3
DG	EXIT+1!
DI	EXIT!
DIC	SETUP*, EXIT!
DIC("A"	SETUP*, EXIT!
DIC(0	SETUP*, EXIT!
DIE	SETUP, FINAL+1, EXIT!, CHK+3*
DIE("NO^"	EDIT1+1, EDIT1+2, EDIT1+3!
DIFLD	EXIT+1!
DIYS	EXIT!
DK	EXIT+1!
DL	EXIT+1!
DLAYGO	EXIT!
DM	EXIT+1!
DQ	EXIT!
DR	SETUP, FINAL+1, EXIT!, CHK+3*
DREF	EXIT!
DT	EDIT1, FINAL+1
DTIME	CON+1
DTOUT	EXIT+1!, CHK+3
DUZ	DVBAEDIT+2, TERM, SETUP+2
DVBACORR	SETUP!, SETUP+2*, EXIT+1!
DVBADIC	EXIT!
DVBADT	EXIT!
DVBAPNAM	EDIT*, EDIT1+3, EXIT+1!
DVBASTAT	EXIT!
FDATE	EXIT!, CHK+5*
>> FDT(0	EXIT!
HD	TERM+1*, SETUP, EDIT1+3, EXIT!
IOF	SETUP, EDIT1+3, EXIT
IOM	SETUP, EDIT1+3
NOFINAL	FINAL, EXIT!, CHK1+1, CHK1+2, CHK1+3*
OLDDR	EXIT+1!, CHK+3*
OPER	TERM*, FINAL+1, EXIT!
OUT	SETUP!, EDIT1!, EDIT1+1, FINAL+2, EXIT+1!, CON+1*
POP	EXIT+1!
SUPER	SETUP+2*, EDIT1, EDIT1+2, EXIT+1!, CHK+2, CHK+3, CHK+4, CHK+5
U	TERM, EDIT, CHK+2, CHK+5, CHK1+2, CHK1+3, CON+1
X	EDIT, EXIT!
Y	EDIT, FINAL+3!, EXIT!
Y(0	EDIT
ZA	EXIT!, CHK1+2*
ZTYPE	EXIT!
ZX	EXIT!

Customize PDF page

Package: Automated Medical Information Exchange