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

Package: Medicine

Routine: MCDUP1


Information

MCDUP1 ;WASH/DCB-Repoints the pointed to file and removes the dup ;11/8/95 10:50

Source Information

Source file <MCDUP1.m>

Entry Points

Name Comments DBIA/ICR reference
COMPILE(FILE) ;
; This routine requires ^TMP($J,"DUP",FILE
REPOINT(FILE,POINTER,POINT) ;Repoints the records
MAINFILE(PFILE,FILE,FIELD) ;Repoints records within the main file
SUBFILE(SUBFILE,FILE,SFIELD) ;Repoint records within the Subfile.
SUBF(SUBFILE,FILE,SFIELD1,SFILE1,SNODE1,SFIELD,SNODE,SPIECE) ;
SUBF0 ;
JOURNAL(VAL,FILE,TEMP,TEMP2,OLDREC,NEWREC) ;Stores the changes that was made

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,"CHECKING FILES FOR POINTERS TO DUPLICATE ENTRIES:"
  • Line Location: COMPILE+3
Function Call: WRITE
  • Prompt: !,?20,PFILE," "
  • Line Location: REPOINT+3
Info |  Source |  Entry Points |  Interaction Calls