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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RGMTDPSC

Package: Clinical Information Resource Network

Routine: RGMTDPSC


Information

RGMTDPSC ;GAI/TMG-COUNT DUPLICATE RECORD ENTRIES BY CMOR SCORE RANGE ;5/30/98

Source Information

Source file <RGMTDPSC.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DT  ^DIR  
MailMan 1 ^XMD  
Master Patient Index VistA 1 $$MPINODE^MPIFAPI  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
EN ; que or select device for output
SCAN ; search and count duplicate pairs by score ranges
EXIT
PRINT ; print duplicate pair counts by score range
HDR
MSG ;create the message
MSG1 ;call XMD

External References

Name Field # of Occurrence
^%DT PRINT+1
^%ZIS EN+4
^%ZISC EN+7
^%ZTLOAD EN+7
^DIR HDR+1
$$MPINODE^MPIFAPI SCAN+6, SCAN+8
$$SITE^VASITE MSG+3
^XMD MSG1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The option, Start/Restart CMOR Score Calculation"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"[RG CMOR START], needs to be run before this option."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !?10,PRANGE,?40,$J(SCRARR("RANGE","ZERO"),6,0)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?10,PRANGE,?39,$J(SCRARR("RANGE",SCRANGE),6,0)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !!,"TOTAL Potential Duplicates (15): ",?39,$J(COUNT,6,0)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"TOTAL Patients (2): ",?39,$J(DPTCNT,6,0)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: #
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Duplicate Record Count by CMOR Score",?(IOM-23),"Page: ",PAGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?(IOM-23),"Date: ",PRDT,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,?10,"Score Range",?40,"Count",!?10,"-----------",?40,"-----",!
  • Line Location: HDR+16
Routine Call
  • DIR
  • Line Location:
    • HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1
^DPT("ACMORS" EN+1
^DPT(0 PRINT+13
^VA(15 - [#15] SCAN+3

Label References

Name Line Occurrences
EXIT EN+7
HDR PRINT+2, PRINT+12, PRINT+14, PRINT+15
MSG PRINT+2
MSG1 PRINT+21
PRINT SCAN+16
SCAN EN+4

Naked Globals

Name Field # of Occurrence
^(0 SCAN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EXIT+1!, PRINT+1*
%ZIS EN+4*, EXIT+1!
COUNT EXIT!, PRINT+1*, PRINT+5*, PRINT+12*, PRINT+14, PRINT+18
DIR HDR+1!
DIR(0 HDR+1*
DPT1 SCAN+5*, SCAN+6, EXIT!
DPT2 SCAN+5*, SCAN+8, EXIT!
DPTCNT SCAN+1*, EXIT!, PRINT+13*, PRINT+15, PRINT+20
DTOUT EXIT+1!, HDR+2
DUOUT EXIT+1!, HDR+2
DUZ MSG1+2
IEN SCAN+3*, EXIT!
IO EN+4, HDR
IO("Q" EN+4*
IO(0 EN+4, HDR
IOM EN+6, HDR+4, HDR+5, HDR+6
ION EN+6
IOSL EN+6, PRINT+12, PRINT+14, PRINT+15
IOST EN+6, HDR
MSG SCAN+1*, EXIT!, PRINT+2
MSGLINE SCAN+1*, EXIT!, PRINT+10*, PRINT+11, PRINT+16*, PRINT+17*, PRINT+18, PRINT+19*, PRINT+20
NODE SCAN+3*, SCAN+5, EXIT!
NODE1 SCAN+2~, SCAN+6*, SCAN+7
NODE2 SCAN+2~, SCAN+8*, SCAN+9
PAGE EXIT!, PRINT+1*, HDR+3*, HDR+4, HDR+7
POP EN+4, EXIT!
PRANGE EXIT!, PRINT+4*, PRINT+7*, PRINT+8*, PRINT+9*, PRINT+11, PRINT+12
PRDT EXIT!, PRINT+1*, HDR+5, MSG+1
S EXIT+1!
SCORE SCAN+4*, SCAN+10*, SCAN+13*, EXIT!
SCORE1 SCAN+4*, SCAN+7*, SCAN+10, SCAN+11, SCAN+13, EXIT+1!
SCORE2 SCAN+4*, SCAN+9*, SCAN+10, SCAN+11, SCAN+13, EXIT+1!
SCRANGE SCAN+4*, SCAN+10*, SCAN+12, SCAN+13*, SCAN+14, SCAN+15, EXIT+1!, PRINT+6*, PRINT+7, PRINT+8
, PRINT+9, PRINT+11, PRINT+12
SCRARR SCAN+1!, EXIT+1!
SCRARR("RANGE" SCAN+14*, SCAN+15*, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+11, PRINT+12
SITE EXIT+1!, MSG+3*, MSG+4, MSG1+1
TXT EXIT+1!
TXT( PRINT+11*, PRINT+17*, PRINT+18*, PRINT+20*, MSG+1*, MSG+2*, MSG+4*, MSG+5*, MSG+6*, MSG+7*
, MSG+8*
U SCAN+1*, SCAN+5, SCAN+7, SCAN+9, PRINT+13, MSG+4, MSG1+1
X EXIT+1!, PRINT+1*
XMDUZ EXIT+1!, MSG1+2*
XMSUB EXIT+1!, MSG1+1*
XMTEXT EXIT+1!, MSG1+3*
XMY EXIT+1!
XMY( MSG1+2*
Y EXIT+1!, PRINT+1
ZTDESC EN+7*, EXIT+1!
ZTIO EN+6*, EXIT+1!
>> ZTQUEUED EXIT+2
>> ZTREQ EXIT+2*
ZTRTN EN+5*, EXIT+1!
ZTSAVE EXIT+1!
ZTSAVE("IO*" EN+6*
ZZ EXIT+1!, HDR+6*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All