Routine: VAQDIS10

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

VAQDIS10 ;ALB/JFP - DISPLAY,REQUEST PDX BY PATIENT;01APR93

Source Information

Source file <VAQDIS10.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Patient Data Exchange	3	EP^VAQDIS11 $$GETTRN^VAQUTL96 ^VAQUTL98
Kernel	1	(T0,T1)^%ZOSV
VA FileMan	1	^DIR

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

Package	Total	Caller Graph
Patient Data Exchange	1	VAQ PDX DISPLAY (TRN)
Registration	1	VAQ PDX DISPLAY (TRN)

Entry Points

Name	Comments	DBIA/ICR reference
INIT	; -- Intialization
MAIN	; -- Main entry point
MLOOP
PTNFND	; -- Requested PDX not found
EXIT	; -- Cleanup and exit routine
END	; -- End of code

External References

Name	Field # of Occurrence
T0^%ZOSV	MAIN+14
T1^%ZOSV	MAIN+16
^DIR	MAIN+10
EP^VAQDIS11	MAIN+19
$$GETTRN^VAQUTL96	MAIN+15
^VAQUTL98	INIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: MAIN+10
Function Call: WRITE	Prompt: !,"Patient not found in PDX transaction file..." Line Location: PTNFND+1
Routine Call	DIR Line Location: MAIN+10

Label References

Name	Line Occurrences
EXIT	MAIN+10
MAIN	MLOOP
MLOOP	MAIN+18
PTNFND	MAIN+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BADSSN	MAIN+1!, EXIT+1!
DFN	INIT+3~
DIR	MAIN+10!
DIR("?"	MAIN+8*
DIR("??"	MAIN+9*
DIR("A"	MAIN+6*
DIR(0	MAIN+7*
DIROUT	MAIN+2!, EXIT+2!
DIRUT	MAIN+2!, MAIN+10, EXIT+2!
DTOUT	MAIN+2!, EXIT+2!
DUOUT	MAIN+2!, EXIT+2!
FLD	MAIN+1!, EXIT+1!
FLE	MAIN+1!, EXIT+1!
POP	INIT+3~, MAIN+3, MAIN+18, PTNFND+2
VAQDFN	INIT+3~, MAIN+15*, MAIN+17
VAQIN	INIT+3~, MAIN+11*
VAQOPT	INIT+5*, EXIT+3!
X	INIT+3~, MAIN+11*, MAIN+15
>> XRT0	MAIN+16
>> XRTL	MAIN+14
>> XRTN	MAIN+16*
Y	INIT+3~, MAIN+11