Routine: VAQUTL96

Customize PDF page

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

Information

VAQUTL96 ;ALB/JFP - PDX Transaction Lookup ;01-APR-93

Source Information

Source file <VAQUTL96.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Patient Data Exchange	1	$$EXPTRN^VAQUTL97
VA FileMan	1	^DIC

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	2	VAQDIS10 VAQLED10

Entry Points

Name	Comments	DBIA/ICR reference
GETTRN(PATIENT)	;-- Return DFN for PDX transaction ; -- Only returns patients patients with results of PDX ; -- This will return the same information that DIC returns in Y
TRN1()	; -- filters out transactions flaged as purged OR exceed life days
END	; -- End of code

External References

Name	Field # of Occurrence
^DIC	GETTRN+16
$$EXPTRN^VAQUTL97	TRN1+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VAT(394.61 - [#394.61]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BS5"	GETTRN+15!, GETTRN+17!, TRN1+14, TRN1+15*
^VAT(394.61 - [#394.61]	TRN1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BS5	GETTRN+16!, TRN1+11*, TRN1+14, TRN1+15
DIC	GETTRN+4~, GETTRN+14*, GETTRN+16!
DIC("S"	GETTRN+12*
DIC(0	GETTRN+11*
>> DTOUT	GETTRN+21
>> DUOUT	GETTRN+22
NM	GETTRN+16!, TRN1+6*, TRN1+7, TRN1+11
NODE	TRN1+4~, TRN1+5*, TRN1+6, TRN1+8
PATIENT	GETTRN~, GETTRN+8*, GETTRN+13
RESULT	GETTRN+4~
SSN	GETTRN+16!, TRN1+8*, TRN1+9, TRN1+11
TRNFLAG	GETTRN+5~, TRN1+1*, TRN1+2
U	TRN1+6, TRN1+8
USRABORT	GETTRN+4~, GETTRN+7*, GETTRN+21, GETTRN+22
X	GETTRN+4~, GETTRN+13*
Y	GETTRN+4~, GETTRN+23, TRN1+1, TRN1+5