Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls