Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: XDRDCOMP

Package: Toolkit

Routine: XDRDCOMP


Information

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

Source Information

Source file <XDRDCOMP.m>

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  

Entry Points

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

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
  • DIC
  • Line Location:
    • LKUP+3
    • LKUP2+1
Routine Call
  • DIR
  • Line Location:
    • SCORE+10
Routine Call
  • %ZIS
  • Line Location:
    • START+8
    • QUEUE+1

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All