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: MCDUPR

Package: Medicine

Routine: MCDUPR


Information

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

Source Information

Source file <MCDUPR.m>

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

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