Routine: XDRDCOMP

Information

XDRDCOMP ;SF-IRMFO/IHS/OHPRD/JCM - COMPARE TWO PATIENTS VIA DUP CHECKER ;8/28/08 17:58

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Toolkit	4	$$FILE^XDRDPICK ^XDRDSCOR SHOW^XDRDSHOW ^XDRDUP
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	^DIC ^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: 1

Package	Total	Caller Graph
Toolkit	1	XDR CHECK PAIR

Entry Points

Name	Comments	DBIA/ICR reference
START	;
DQ	; Entry Point for Taskman
END
LKUP	;Look up both reocord.
LKUP2
LKUPX
DITC	;
SCORE	;
QUEUE	; Remove after testing
QUEUEX
EOJ	;

External References

Name	Field # of Occurrence
^%ZIS	START+8, QUEUE+1
^%ZISC	DQ+6
^%ZTLOAD	START+13, QUEUE+10
^DIC	LKUP+3, LKUP2+1
^DIR	SCORE+10
$$FILE^XDRDPICK	START+3
^XDRDSCOR	DQ+2
SHOW^XDRDSHOW	DITC+1
^XDRDUP	DQ+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DQ+1
Function Call: WRITE	Prompt: *7,!!," CAN NOT COMPARE SAME PATIENT!! ",!! Line Location: LKUP2+4
Function Call: WRITE	Prompt: !! Line Location: SCORE+6
Function Call: WRITE	Prompt: !,$P(J,U),?25,"VALUE = ",$J(XDRDUP("TEST SCORE",I),3,0)," MAX POSSIBLE = ",$J($P(J,U,6),3,0) Line Location: SCORE+6
Function Call: WRITE	Prompt: !!,?40,"DUPLICATE THRESHOLD % ",XDRDSCOR("PDT%") Line Location: SCORE+7
Function Call: WRITE	Prompt: !,?40,"DUPLICATE SCORE % ",$G(XDRD("DUPSCORE%")),! Line Location: SCORE+8
Function Call: WRITE	Prompt: !!,"Sorry, you can't queue to your screen or a slave device.",! Line Location: QUEUE+3
Routine Call	%ZIS Line Location: START+8 QUEUE+1
Routine Call	DIC Line Location: LKUP+3 LKUP2+1
Routine Call	DIR Line Location: SCORE+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	START+5, START+11, LKUP+2, LKUP2, QUEUE+6

Label References

Name	Line Occurrences
DITC	DQ+4
END	START+4, START+7, START+8, START+10
EOJ	END
LKUP	START+7, LKUP2+2, LKUP2+4
LKUPX	LKUP+4
QUEUE	QUEUE+3
QUEUEX	QUEUE+2, QUEUE+5
SCORE	DQ+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+12, SCORE+9!, QUEUE+7, QUEUE+8!
%IS	EOJ+2!
%ZIS	START+8, QUEUE+1, QUEUE+4!
DA	LKUP+4!, LKUP2+1!
DIC	LKUP+1*, LKUP+4!, LKUP2+1!
DIC("A"	LKUP+2, LKUP2
DIC(0	LKUP+1*
DIR	SCORE+10!
DIR(0	SCORE+10*
>> DIRUT	LKUP+4, LKUP2+2
>> DIT(1	LKUP+5*
>> DIT(2	LKUP2+3*
>> I	SCORE+6*
IO	DQ+1, QUEUE+3
IO("C"	EOJ+2!
IO("Q"	START+10, QUEUE+3!, QUEUE+5, EOJ+2!
IO(0	QUEUE+3
IOF	DQ+1
IOM	START+9, QUEUE+4
ION	START+9, START+11, QUEUE+4, QUEUE+6
IOP	START+9, QUEUE+1, QUEUE+4, EOJ+2!
IOSL	START+9, QUEUE+4
IOST	SCORE+10
>> J	SCORE+6*
POP	START+8, QUEUE+2, EOJ+2!
U	START+11, LKUP+2, LKUP2, SCORE+6, SCORE+10, QUEUE+6
X	SCORE+10, EOJ+2!
XDRCD	LKUP+5*, LKUP2+4, DITC+1, EOJ+2!
XDRCD2	LKUP2+3*, LKUP2+4, DITC+1, EOJ+2!
XDRD	EOJ+1!
XDRD("DUPSCORE"	SCORE+1
XDRD("DUPSCORE%"	SCORE+1, SCORE+2, SCORE+3, SCORE+4, SCORE+8
XDRDCNT	SCORE+9!
XDRDCOMP	EOJ+1!
XDRDCOMP("DEVICE"	START+9, QUEUE+1, QUEUE+4
XDRDSCOR	EOJ+1!
XDRDSCOR("MAX"	SCORE+1, SCORE+2
XDRDSCOR("PDT%"	SCORE+7
XDRDTEST	EOJ+1!
XDRDTEST(	SCORE+6
>> XDRDTYPE	START+6*
XDRDUP	EOJ+1!
XDRDUP("TEST	SCORE" , SCORE+6
XDRFL	START+3*, START+5, START+11, LKUP+2, LKUP2, DITC+1, QUEUE+6, EOJ+1!
XDRGL	START+5*, LKUP+1, EOJ+1!
XDRQFLG	START+1, START+4, START+7, START+10, START+14, LKUP+4, SCORE+10, QUEUE+2, QUEUE+11, EOJ+1!
Y	LKUP+4, LKUP+5, LKUP2+2, LKUP2+3, EOJ+2!
>> ZTDESC	START+11, QUEUE+6
>> ZTIO	START+11, QUEUE+6
>> ZTQUEUED	SCORE+10, EOJ+3
>> ZTREQ	EOJ+3*
>> ZTRTN	START+11, QUEUE+6
>> ZTSAVE(	START+12, QUEUE+7
ZTSK	START+13, QUEUE+10, QUEUE+12!, EOJ+2!

Customize PDF page

Package: Toolkit