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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MCDUPR

Package: Medicine

Routine: MCDUPR


Information

MCDUPR ;WASH/DCB-Reporting of the duplicates ;5/16/96 15:39

Source Information

Source file <MCDUPR.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 $$GET1^DID  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Medicine 1 MCDUPM  

Entry Points

Name Comments DBIA/ICR reference
START ;
MAIN ;
RPT1 ;Duplicate Static File Entries
RPT2 ;Pointing to Duplicates
RPT1H ;Header for Duplicate Static File Entries
RPT1M ;Duplicate Static File Entries Main
RPT1A(FILE,TMP,FILENAME,SIZE) ;
RPT1F ;Duplicate Static File Entries
RPT2H ;Header for Pointing to Duplicates
RPT2MA ;Main Print for Pointing to Duplicates
RPT2M(SFILE,TEMP,OIEN,NIEN) ;Pointing to with a Main File
RPT2S(SFILE,TEMP,OIEN,NIEN) ;Pointing to with Sub-File
RPT2SS(SFILE,TEMP,OIEN,NIEN) ;Pointing to with sub-file within sub-file
RPT2B(TEMP,MFILE,MREC) ;Get main file and main record
RPT2C(TEMP,SFILE,SREC) ;Get Sub-file and sub-record
RPT2F ;Footer for Pointing to Duplicates
TST(RTN,SKIP) ;Checks $Y and does formfeed if needed and skips the new lines

External References

Name Field # of Occurrence
^%ZIS START+3
^%ZISC MAIN+3
^%ZTLOAD START+8
$$GET1^DID RPT1M+3
^DIR RPT1F+3, RPT2F+4, TST+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: "Report 1",?20,"Duplicate Static File Entries",?60,"Page: ",PGE,!
  • Line Location: RPT1H+3
Function Call: WRITE
  • Prompt: !,"STATIC",?8,"STATIC FILE",?35,"DUPLICATE ENTRY"
  • Line Location: RPT1H+4
Function Call: WRITE
  • Prompt: !,"FILE #",?8," NAME ",?35,"IEN",?40,"KEY",!,TEMP,!
  • Line Location: RPT1H+5
Function Call: WRITE
  • Prompt: $$TST("RPT1H",1),FILE,?8,FILENAME,?35,"**** No Duplicates ****"
  • Line Location: RPT1M+5
Function Call: WRITE
  • Prompt: "FILES: ",$$TST("RPT1H",3),TEMP,!,"TOTALS",!,"FILES: ",MCNT,?35,"DUPLICATES: ",$G(CNT)
  • Line Location: RPT1F+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPT1F+4
Function Call: WRITE
  • Prompt: "Report 2",?20,"Pointing to Duplicates",?60,"Page: ",PGE,!
  • Line Location: RPT2H+3
Function Call: WRITE
  • Prompt: !,?56,"SUB",?64,"SUB"
  • Line Location: RPT2H+4
Function Call: WRITE
  • Prompt: !,"STATIC",?8,"OLD",?16,"NEW",?24,"FROM ",?32,"MAIN",?40,"SUB",?48,"SUB",?56,"SUB",?64,"SUB"
  • Line Location: RPT2H+5
Function Call: WRITE
  • Prompt: !,"FILE #",?8,"IEN",?16,"IEN",?24,"FILE #",?32,"IEN ",?40,"FILE",?48,"IEN",?56,"FILE",?64,"IEN"
  • Line Location: RPT2H+6
Function Call: WRITE
  • Prompt: !,TEMP,!
  • Line Location: RPT2H+7
Function Call: WRITE
  • Prompt: $$TST("RPT2H",1),SFILE,?8,OIEN,?16,NIEN,?24,MAINFILE,?32,MAINREC,?40,"N/A"
  • Line Location: RPT2M+3
Function Call: WRITE
  • Prompt: $$TST("RPT2H",1),SFILE,?8,OIEN,?16,NIEN,?24,MAINFILE,?32,MAINREC,?40,SUBFILE,?48,SUBREC
  • Line Location: RPT2S+3
Function Call: WRITE
  • Prompt: $$TST("RPT2H",1),SFILE,?8,OIEN,?16,NIEN,?24,MAINFILE,?32,MAINREC,?40,SUBFILE1,?48,SUBREC1,?56,SUBFILE,?64,SUBREC
  • Line Location: RPT2SS+5
Function Call: WRITE
  • Prompt: $$TST("RPT2H",3),TEMP
  • Line Location: RPT2F+2
Function Call: WRITE
  • Prompt: !,"TOTALS:",!,?2,$G(CNT),?24,$G(MCNT),?40,$G(SCNT),?56,$G(S1CNT)
  • Line Location: RPT2F+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPT2F+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TST+5
Routine Call
  • %ZIS
  • Line Location:
    • START+3
Routine Call
  • DIR
  • Line Location:
    • RPT1F+3
    • RPT2F+4
    • TST+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J MAIN+3, RPT1M+2, RPT1M+5, RPT1M+6, RPT1A+2, RPT1A+3, RPT1A+4, RPT1A+5, RPT1A+6, RPT2MA+2
RPT2MA+3, RPT2MA+4, RPT2MA+6, RPT2MA+7

Label References

Name Line Occurrences
$$TST RPT1M+5, RPT1A+8, RPT1A+13, RPT1F+2, RPT2M+3, RPT2S+3, RPT2SS+5, RPT2F+2
@( TST+4
MAIN START+10
RPT1 MAIN+3
RPT1A RPT1M+6
RPT1F RPT1+1
RPT1H RPT1+1
RPT1M RPT1+1
RPT2 MAIN+3
RPT2B RPT2M+2, RPT2S+2, RPT2SS+2
RPT2C RPT2S+2, RPT2SS+2
RPT2F RPT2+1
RPT2H RPT2+1
RPT2MA RPT2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS START+1~, START+3*
%ZIS("A" START+3*
%ZIS("B" START+3*
BEG RPT1A+1~, RPT1A+12*, RPT1A+13
CNT RPT1+1~*, RPT2+1~*, RPT1A+6*, RPT1F+2, RPT2MA+5*, RPT2F+3
DIR RPT1F+1~, RPT2F+1~, TST+1~
DIR("A" TST+3*
DIR(0 RPT1F+3*, RPT2F+4*, TST+3*
END RPT1A+1~, RPT1A+12*, RPT1A+13
EX RPT2MA+1~, RPT2MA+8*, RPT2MA+9
FILE RPT1M+1~, RPT1M+2*, RPT1M+3, RPT1M+5, RPT1M+6, RPT1A~, RPT1A+2, RPT1A+3, RPT1A+4, RPT1A+5
, RPT1A+6, RPT1A+8, RPT2MA+1~, RPT2MA+2*, RPT2MA+3, RPT2MA+4, RPT2MA+6, RPT2MA+7
FILENAME RPT1M+1~, RPT1M+3*, RPT1M+4*, RPT1M+5, RPT1M+6, RPT1A~, RPT1A+8
IO MAIN+1
IO("Q" START+3!, START+4
IOF START+2, MAIN+2, RPT1H+2, RPT1F+4, RPT2H+2, RPT2F+5
IOM RPT1M+1
IOSL TST+2
IOST MAIN+2, RPT1F+3, RPT2F+4, TST+2, TST+3
LINE TST+1~, TST+5*
LINES RPT1A+1~, RPT1A+10*, RPT1A+11
LOOP RPT1A+1~, RPT1A+5*
MAINFILE RPT2M+1~*, RPT2M+2, RPT2M+3, RPT2S+1~*, RPT2S+2, RPT2S+3, RPT2SS+1~*, RPT2SS+2, RPT2SS+5
MAINREC RPT2M+1~*, RPT2M+2, RPT2M+3, RPT2S+1~*, RPT2S+2, RPT2S+3, RPT2SS+1~*, RPT2SS+2, RPT2SS+5
MCNT RPT1+1~*, RPT2+1~*, RPT1M+3*, RPT1F+2, RPT2B+1*, RPT2F+3
MFILE RPT2B~, RPT2B+1*
MREC RPT2B~, RPT2B+1*
MULTI RPT1A+1~, RPT1A+11*, RPT1A+12
NIEN RPT2MA+1~, RPT2MA+7*, RPT2M~, RPT2M+3, RPT2S~, RPT2S+3, RPT2SS~, RPT2SS+5
OIEN RPT2MA+1~, RPT2MA+7*, RPT2M~, RPT2M+3, RPT2S~, RPT2S+3, RPT2SS~, RPT2SS+5
PGE RPT1+1~, RPT2+1~, RPT1H+2*, RPT1H+3, RPT2H+2*, RPT2H+3
POP START+1~, START+3
REC RPT1A+1~, RPT1A+2*, RPT1A+3, RPT1A+4, RPT1A+5
REC2 RPT1A+1~, RPT1A+5*, RPT1A+6, RPT1A+8
RTN TST~, TST+4
S1CNT RPT2+1~*, RPT2SS+5*, RPT2F+3
SCNT RPT2+1~*, RPT2C+1*, RPT2F+3
SFILE RPT2M~, RPT2M+3, RPT2S~, RPT2S+3, RPT2SS~, RPT2SS+5, RPT2C~, RPT2C+1*
SIZE RPT1M+1~*, RPT1M+6, RPT1A~, RPT1A+8, RPT1A+9, RPT1A+10, RPT1A+12
SKIP TST~, TST+2, TST+4*, TST+5
SREC RPT2C~, RPT2C+1*
SUBFILE RPT2S+1~*, RPT2S+2, RPT2S+3, RPT2SS+1~*, RPT2SS+2, RPT2SS+3*, RPT2SS+5
SUBFILE1 RPT2SS+1~, RPT2SS+4*, RPT2SS+5
SUBREC RPT2S+1~*, RPT2S+2, RPT2S+3, RPT2SS+1~*, RPT2SS+2, RPT2SS+3*, RPT2SS+5
SUBREC1 RPT2SS+1~, RPT2SS+4*, RPT2SS+5
TEMP RPT1H+1~*, RPT1H+5, RPT1A+1~, RPT1A+6*, RPT1A+7, RPT1F+1~*, RPT1F+2, RPT2H+1~*, RPT2H+7, RPT2MA+1~
RPT2MA+7*, RPT2MA+8, RPT2M~, RPT2M+2, RPT2S~, RPT2S+2, RPT2SS~, RPT2SS+2, RPT2SS+3, RPT2SS+4
, RPT2B~, RPT2B+1, RPT2C~, RPT2C+1, RPT2F+1~*, RPT2F+2
TEXT RPT1A+1~, RPT1A+7*, RPT1A+8, RPT1A+9, RPT1A+10, RPT1A+12, RPT1A+13
TMP RPT1M+1~, RPT1M+6*, RPT1A~, RPT1A+2, RPT1A+3, RPT1A+4, RPT1A+5, RPT1A+6, RPT1A+7, RPT2MA+1~
RPT2MA+5*, RPT2MA+6*, RPT2MA+7
U RPT1A+4, RPT1A+5, RPT2MA+8, RPT2SS+3, RPT2SS+4, RPT2B+1, RPT2C+1
ZTDESC START+1~, START+7*
ZTRTN START+1~, START+5*
ZTSAVE START+1~
ZTSAVE("^TMP($J,""DUP""," START+6*
ZTSK START+1~, START+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All