MCDUP1 ;WASH/DCB-Repoints the pointed to file and removes the dup ;11/8/95 10:50
Source file <MCDUP1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CFILE | MAINFILE+1~, MAINFILE+5*, MAINFILE+6, MAINFILE+8, MAINFILE+12, SUBFILE+1~, SUBFILE+10*, SUBFILE+11, SUBFILE+12, SUBFILE+14 , SUBFILE+19, SUBF+3*, SUBF0+6, SUBF0+7, SUBF0+8, SUBF0+9, SUBF0+13 |
DA | MAINFILE+1~, SUBFILE+1~ |
DIE | SUBFILE+1~ |
DR | MAINFILE+1~, SUBFILE+1~ |
FIELD | REPOINT+1~, REPOINT+2*, REPOINT+6, REPOINT+9, MAINFILE~, MAINFILE+3, MAINFILE+13, SUBFILE+1~, SUBFILE+6*, SUBFILE+7 , SUBFILE+9, SUBFILE+20, SUBF0+14 |
FILE | COMPILE~, COMPILE+4, COMPILE+7, COMPILE+9, REPOINT~, REPOINT+2, MAINFILE~, MAINFILE+9, MAINFILE+14, SUBFILE~ , SUBFILE+9, SUBFILE+15, SUBFILE+16, SUBFILE+21, SUBF~, SUBF0+10, SUBF0+11, SUBF0+15, JOURNAL~, JOURNAL+2 , JOURNAL+3, JOURNAL+4, JOURNAL+5 |
MAINFILE | SUBFILE+2*, SUBFILE+6, SUBFILE+7, SUBFILE+9, SUBFILE+10, SUBFILE+20, SUBF+2~, SUBF+3*, SUBF+7, SUBF+8 , SUBF0+1, SUBF0+14 |
MFIELD | SUBF+2~, SUBF+6*, SUBF+7*, SUBF+8, SUBF0+1 |
MFILE | REPOINT+1~, REPOINT+2*, REPOINT+6, REPOINT+9, SUBFILE+1~ |
MFN | SUBF+2~, SUBF+4*, SUBF+5*, SUBF+7 |
MNODE | SUBFILE+1~, SUBFILE+8*, SUBFILE+9, SUBFILE+19, SUBFILE+20, SUBF+2~, SUBF0+2*, SUBF0+13, SUBF0+14 |
MPIECE | SUBFILE+1~, SUBFILE+8*, SUBFILE+9 |
MREC | SUBFILE+1~, SUBFILE+11*, SUBFILE+19, SUBFILE+20 |
NAME | SUBFILE+1~, SUBFILE+3*, SUBFILE+6 |
NEWREC | MAINFILE+9*, MAINFILE+11, MAINFILE+14, SUBFILE+16*, SUBFILE+18, SUBFILE+21, SUBF0+11*, SUBF0+12, SUBF0+15, JOURNAL~ , JOURNAL+5 |
NFILE | COMPILE+2~, COMPILE+4*, COMPILE+5, COMPILE+6 |
NODE | MAINFILE+1~, MAINFILE+4*, MAINFILE+12, MAINFILE+13 |
OLDREC | MAINFILE+8*, MAINFILE+9, MAINFILE+11, MAINFILE+14, SUBFILE+14*, SUBFILE+15, SUBFILE+16, SUBFILE+18, SUBFILE+21, SUBF0+9* , SUBF0+10, SUBF0+11, SUBF0+12, SUBF0+15, JOURNAL~, JOURNAL+4 |
PFILE | REPOINT+1~, REPOINT+2*, REPOINT+3, REPOINT+5, REPOINT+6, REPOINT+9, MAINFILE~, MAINFILE+3, MAINFILE+5, MAINFILE+13 |
PIECE | MAINFILE+1~, MAINFILE+4*, MAINFILE+8, MAINFILE+12, MAINFILE+13 |
POINT | COMPILE+2~, COMPILE+7, COMPILE+9, REPOINT~ |
POINT( | COMPILE+9, REPOINT+2 |
POINTER | COMPILE+2~, REPOINT~, REPOINT+2 |
REC | MAINFILE+1~, MAINFILE+6*, MAINFILE+12, MAINFILE+13, SUBF+2~, SUBF0+6*, SUBF0+13, SUBF0+14 |
SFIELD | SUBFILE~, SUBFILE+4, SUBFILE+9, SUBFILE+20, SUBF~, SUBF0+14 |
SFIELD1 | SUBF~, SUBF0+3, SUBF0+14 |
SFILE1 | SUBF~, SUBF+3, SUBF+5, SUBF0+14 |
SNODE | SUBFILE+1~, SUBFILE+5*, SUBFILE+9, SUBFILE+19, SUBFILE+20, SUBF~, SUBF0+13, SUBF0+14 |
SNODE1 | SUBF~, SUBF0+4*, SUBF0+13, SUBF0+14 |
SPIECE | SUBFILE+1~, SUBFILE+5*, SUBFILE+14, SUBFILE+19, SUBFILE+20, SUBF~, SUBF0+5*, SUBF0+9, SUBF0+13, SUBF0+14 |
SREC | SUBFILE+1~, SUBFILE+12*, SUBFILE+19, SUBFILE+20, SUBF+2~, SUBF0+7*, SUBF0+13, SUBF0+14 |
SREC1 | SUBF+2~, SUBF0+8*, SUBF0+13, SUBF0+14 |
SUBFILE | SUBFILE~, SUBFILE+2, SUBFILE+3, SUBFILE+4, SUBFILE+9, SUBFILE+20, SUBF~, SUBF0+3, SUBF0+14 |
TEMP | COMPILE+2~, COMPILE+9*, MAINFILE+1~, MAINFILE+3*, MAINFILE+4, MAINFILE+12*, MAINFILE+14, SUBFILE+1~, SUBFILE+4*, SUBFILE+5 , SUBFILE+7*, SUBFILE+8, SUBFILE+19*, SUBFILE+21, SUBF0+1*, SUBF0+2, SUBF0+3*, SUBF0+4, SUBF0+5, SUBF0+13* , SUBF0+15, JOURNAL~, JOURNAL+2 |
TEMP2 | MAINFILE+13*, MAINFILE+14, SUBFILE+20*, SUBFILE+21, SUBF0+14*, SUBF0+15, JOURNAL~, JOURNAL+3 |
U | REPOINT+5, MAINFILE+8, MAINFILE+9, MAINFILE+13, SUBFILE+14, SUBFILE+16, SUBFILE+20, SUBF0+9, SUBF0+11, SUBF0+14 |
VAL | MAINFILE+14, SUBFILE+21, SUBF0+15, JOURNAL~, JOURNAL+1*, JOURNAL+2, JOURNAL+3, JOURNAL+4, JOURNAL+5 |