Routine: DVBCLOG

Package	Total	Call Graph
Automated Medical Information Exchange	7	^DVBCEEXM (CLINSF,INSUF)^DVBCLOG2 ^DVBCLOGE ^DVBCPATA KILL^DVBCUTIL DDIS^DVBCUTL2 CONTMES^DVBCUTL4
VA FileMan	5	^%DT (FILE,YN)^DICN ^DIE ^DIK ^DIR
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
Automated Medical Information Exchange	1	DVBA C ENTER C&P REQUEST

Entry Points

Name	Comments	DBIA/ICR reference
SETUP
EN
WARD
EDIT1
EXIT
HDR
DEL
KILL
DR

External References

Name	Field # of Occurrence
^%DT	EN+1
HOME^%ZIS	SETUP
FILE^DICN	WARD+5
YN^DICN	WARD
^DIE	EDIT1+3
^DIK	DEL
^DIR	EDIT1+6
^DVBCEEXM	WARD+5
CLINSF^DVBCLOG2	EDIT1+3, EDIT1+7
INSUF^DVBCLOG2	WARD+8, EDIT1+7, EDIT1+8
^DVBCLOGE	EDIT1+13
^DVBCPATA	EN
KILL^DVBCUTIL	EXIT
DDIS^DVBCUTL2	WARD+5
CONTMES^DVBCUTL4	DEL

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"Your division number is missing.",!! Line Location: DVBCLOG+3
Function Call: WRITE	Prompt: !!,*7,"Your user number is invalid." Line Location: DVBCLOG+4
Function Call: WRITE	Prompt: !!,*7,"Invalid division",!! Line Location: DVBCLOG+5
Function Call: WRITE	Prompt: @FF,?(IOM-$L(HD1)\2),HD1,!!! Line Location: EN+0
Function Call: WRITE	Prompt: @IOF,!,HD1," continued ---",!!!!!! Line Location: EN+2
Function Call: WRITE	Prompt: *7,"Vet is an INPATIENT, on ward "_WARD,!,"Want to continue" Line Location: WARD+0
Function Call: WRITE	Prompt: !!,"Enter Y to proceed with the request or N to go",!,"back and re-select.",!! Line Location: WARD+1
Function Call: WRITE	Prompt: !! Line Location: WARD+3
Function Call: WRITE	Prompt: *7," ... Timed out! " Line Location: WARD+5
Function Call: WRITE	Prompt: *7 Line Location: WARD+5
Function Call: READ	Variable: ANS Timeout: DTIME Line Location: EDIT1+0
Function Call: WRITE	Prompt: *7,!!,"""^"" NOT allowed here" Line Location: EDIT1+1
Function Call: WRITE	Prompt: !!,"[RETURN] will continue to exam selection, E will allow",!,"editing of what you have entered and X will DELETE",!,"the entire request" Line Location: EDIT1+2
Function Call: WRITE	Prompt: !?20,"(Cancel) " Line Location: EDIT1+11
Function Call: WRITE	Prompt: !!,*7,"Must be the RETURN key, X, or E " Line Location: EDIT1+12
Function Call: WRITE	Prompt: @FF,?(IOM-$L(HD)\2),HD,!!,"Veteran name: ",$P(PNAM,",",2,99)," ",$P(PNAM,",",1),?55,"SSN: ",SSN,!?53,"C-NUM: ",CNUM,! Line Location: HDR+0
Function Call: WRITE	Prompt: "=" Line Location: HDR+1
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: !!,*7,"Request DELETED.",! Line Location: DEL+0
Routine Call	DIE Line Location: EDIT1+3
Routine Call	DIR Line Location: EDIT1+6
Routine Call	%ZIS Line Location: SETUP

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	WARD
^DVB(396.3 - [#396.3]	WARD+8, EDIT1+3, EDIT1+4, EDIT1+8
^TMP($J	SETUP!, KILL!

Label References

Name	Line Occurrences
DEL	WARD+5, WARD+9, EDIT1, EDIT1+9, EDIT1+11, EDIT1+13, EDIT1+14
DR	WARD+5
EDIT1	EDIT1+1, EDIT1+2, EDIT1+10, EDIT1+12
EN	WARD+2, WARD+5, WARD+6, WARD+9, EDIT1+9, EDIT1+11, EDIT1+15
EXIT	DVBCLOG+3, DVBCLOG+4, DVBCLOG+5, EN, WARD, EDIT1
HDR	WARD+5, EDIT1+3
KILL	EN, EDIT1+15
WARD	WARD+1

Naked Globals

Name	Field # of Occurrence
^(	WARD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	WARD*, WARD+2, KILL!
%DT	EN+1*!, KILL!
%Y	WARD+1, KILL+1!
ADD1	KILL+1!
ADD2	KILL+1!
ANS	EDIT1!*, EDIT1+1, EDIT1+2, EDIT1+3, EDIT1+4, EDIT1+8, EDIT1+9, EDIT1+10, EDIT1+11!, EDIT1+12 , EDIT1+13!
CITY	KILL+1!
CNTY	KILL+1!
CNUM	HDR, KILL!
CTIM	EN+1*, KILL+1!, DR
D0	KILL+1!
DA	WARD+3!, WARD+7, EDIT1+3, EDIT1+7, DEL!, KILL!, KILL+1!
DD	WARD+3!, KILL!
DFN	WARD, WARD+4, WARD+5, KILL!
DIC	WARD+4*, EDIT1+13!, KILL+1!
DIC("DR"	DR*
DIC("W"	WARD+5!
DIC(0	WARD+4*
DIE	WARD+4, EDIT1+3, EDIT1+13!, KILL+1!
DIK	DEL*!, KILL!
DIR	EDIT1+7!
DIR("?"	EDIT1+6*
DIR("A"	EDIT1+5*
DIR("B"	EDIT1+6*
DIR(0	EDIT1+5*
DLAYGO	WARD+4*, WARD+5!
DO	WARD+3!, KILL!
DR	EDIT1+3*, KILL!
DTA	KILL!
DTIME	EDIT1
DTOUT	WARD, WARD+5, KILL+1!
DUOUT	KILL+1!
DUZ	DVBCLOG+4
DUZ(2	DVBCLOG+3, DVBCLOG+5
DVBADTOT	KILL+1!
DVBAINRQ	EDIT1+3!*, EDIT1+4, EDIT1+8, EDIT1+10!
DVBAOUT	WARD+9, EDIT1+9, KILL+1!
DVBCLCKD	EDIT1+14, KILL+1!
DVBCNEW	WARD+3!, KILL+1!
DX	KILL+1!
DXCOD	KILL!
DXNUM	KILL!
EDIT	EN+2!, KILL!
ELIG	KILL+1!
EX	KILL!
EXMNM	KILL!
EXMPT	KILL!
>> FF	SETUP*, EN, HDR
>> HD	SETUP*, HDR
>> HD1	SETUP*, EN, EN+2
>> HD2	SETUP*
INCMP	KILL+1!
IOF	SETUP, EN+2
IOM	EN, HDR, HDR+1
JJ	KILL!
>> LINE	HDR+1*
OUT	EN!, WARD+5!, EDIT1+13!, DEL*
PCT	KILL!
PNAM	HDR, KILL!
PRDSV	KILL+1!
REQDA	WARD+5, WARD+7, WARD+8, EDIT1+3, EDIT1+4, EDIT1+7, EDIT1+8, DEL!, KILL!
ROUTLOC	KILL!
SC	KILL!
SSN	HDR, KILL!
STATE	KILL+1!
U	WARD, EDIT1+1
VX	KILL!
WARD	WARD*, KILL+1!
X	EN+1!, WARD+3!, WARD+4, WARD+5*, KILL!
Y	EN+1!, WARD+3!, WARD+5, WARD+6, WARD+7, EDIT1+7!, KILL+1!
ZIP	KILL+1!

Customize PDF page

Package: Automated Medical Information Exchange

Routine: DVBCLOG

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: