DIEF1 ;SFISC/DPC-FILER UTILITIES ;22MAR2006
Source file <DIEF1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
LOCK | ;
|
|
PUTDATA | ;CODE TO ACTUALLY PUT THE DATA INTO THE NODE BEING EDITED. ALSO SAVES ORIGINAL VALUES. CALLED FROM DIEF.
|
|
NKEY(DIEFF,DIEFFLD,DIEFIEN) | ;Generate error message #742
|
|
LOAD(DIEFF,DIEFDAS,DIEFFLD,DIEFFLG,DIEFVAL,DIEFAR,DIEFOUT) | ;
|
|
LOADX | ;
|
|
UNLOCK | ;
|
|
ADDCONV(DIEFIEN,DIEFADAR) | ;
|
|
SKEYCHK(DIEFF,DIEFFLD,DIEFNVAL,DA,DIEFIEN,DIEFFXR) | ;Check simple key
|
|
FLDNUM(DIEFF,DIEFFDNM) | ;
|
|
FLDNUMX | ;
|
|
RESTORE(DIKEY,DIEFTMP) | ;Restore key fields to pre-edited values
|
|
OUT |
Name | Field # of Occurrence |
---|---|
BLD^DIALOG | LOADX+4, FLDNUMX+7, FLDNUMX+8, PUTDATA+6, PUTDATA+17, PUTDATA+29, PUTDATA+34, LOCK+13 |
$$GOODIEN^DIEF | LOCK+8 |
FILE^DIEF | RESTORE+43 |
$$CHKFLD^DIEFU | LOADX+9 |
$$FILENM^DIEFU | PUTDATA+5, PUTDATA+16 |
$$FLDNM^DIEFU | PUTDATA+5, PUTDATA+16 |
$$IEN^DIEFU | LOADX+6 |
$$VENTRY^DIEFU | LOADX+10 |
$$VFILE^DIEFU | LOADX+8, FLDNUMX+3, LOCK+3 |
$$VROOT^DIEFU | LOADX+7, PUTDATA+24 |
CALLOUT^DIEFU | OUT |
INIZE^DIEFU | LOADX+3, FLDNUMX+2 |
PUTWP^DIEFW | PUTDATA+25 |
ERR740^DIEVK1 | RESTORE+24, SKEYCHK+9 |
ERR742^DIEVK1 | NKEY+4 |
ERR744^DIEVK1 | RESTORE+34 |
$$FLEVDIFF^DIKCU | RESTORE+38 |
$$FROOTDA^DIKCU | LOCK+4 |
$$KEYCHK^DIKK2 | SKEYCHK+6 |
LOCK^DILF | LOCK+11 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | FLDNUMX+5, FLDNUMX+6, FLDNUMX+7, PUTDATA+23, RESTORE+29 |
^DD("KEY" - [#.31] | RESTORE+11, RESTORE+15, RESTORE+16, SKEYCHK+2, NKEY+2 |
Name | Line Occurrences |
---|---|
NKEY | SKEYCHK+3 |
OUT | LOADX+4, LOADX+7, LOADX+8, LOADX+9, LOADX+10 |
Name | Field # of Occurrence |
---|---|
^("O" | RESTORE+40 |
^(0 | RESTORE+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | LOCK+7~, LOCK+8, LOCK+10, SKEYCHK~, SKEYCHK+6 |
DIEFADAR | ADDCONV~, ADDCONV+5 |
DIEFAR | LOAD~, LOADX+7, LOADX+11, LOCK+2, LOCK+6 |
DIEFDA | RESTORE+5~, RESTORE+6!, RESTORE+43 |
DIEFDA( | RESTORE+41* |
DIEFDAS | LOAD~, LOADX+4, LOADX+5, LOADX+6, LOCK+5*, LOCK+6*, LOCK+8, LOCK+13 |
DIEFF | LOAD~, LOADX+8, LOADX+9, LOADX+10, LOADX+11, FLDNUM~, FLDNUMX+3, FLDNUMX+5, FLDNUMX+6, FLDNUMX+7 , FLDNUMX+8, PUTDATA+5, PUTDATA+16, PUTDATA+23, PUTDATA+28, PUTDATA+33, LOCK+1*, LOCK+2*, LOCK+3, LOCK+4 , LOCK+6, LOCK+8, LOCK+13, SKEYCHK~, SKEYCHK+2, SKEYCHK+3, SKEYCHK+5, SKEYCHK+6, SKEYCHK+7, SKEYCHK+9 , NKEY~, NKEY+2, NKEY+4 |
DIEFFDNM | FLDNUM~, FLDNUMX+5, FLDNUMX+6, FLDNUMX+7, FLDNUMX+8 |
>> DIEFFLAG | PUTDATA+25 |
DIEFFLD | LOAD~, LOADX+9*, LOADX+11, PUTDATA+5, PUTDATA+16, PUTDATA+23, PUTDATA+28, PUTDATA+33, SKEYCHK~, SKEYCHK+2 , SKEYCHK+3, SKEYCHK+5, SKEYCHK+6, SKEYCHK+7, NKEY~, NKEY+2, NKEY+4 |
DIEFFLG | LOAD~, LOADX+10 |
DIEFFNUM | FLDNUMX+4~, FLDNUMX+5, FLDNUMX+6*, FLDNUMX+7* |
>> DIEFFREF | LOCK+4*, LOCK+10 |
>> DIEFFVAL | PUTDATA+7, PUTDATA+8*, PUTDATA+18, PUTDATA+19*, PUTDATA+20* |
DIEFFXR | SKEYCHK~, SKEYCHK+4 |
DIEFIEN | LOADX+1~, LOADX+5*, LOADX+6*, LOADX+10, LOADX+11, ADDCONV~, ADDCONV+2, ADDCONV+3, ADDCONV+6*, ADDCONV+7 , SKEYCHK~, SKEYCHK+3, SKEYCHK+5, SKEYCHK+6, SKEYCHK+7, SKEYCHK+9, NKEY~, NKEY+4 |
DIEFK | SKEYCHK+1~, SKEYCHK+9*, NKEY+1~, NKEY+2*, NKEY+3, NKEY+4* |
DIEFK( | NKEY+3*, NKEY+4 |
DIEFKCHK | SKEYCHK+1~, SKEYCHK+6*, SKEYCHK+8 |
DIEFKEY | SKEYCHK+1~ |
DIEFKEY( | SKEYCHK+9 |
>> DIEFLCKS | LOCK+1*, LOCK+9*, LOCK+10, LOCK+11, UNLOCK+2 |
>> DIEFLEV | LOCK+4, LOCK+8 |
>> DIEFLOCK( | LOCK+10*, LOCK+11, UNLOCK+2 |
>> DIEFNG | PUTDATA+3*, PUTDATA+14*, PUTDATA+30*, PUTDATA+35* |
DIEFNIEN | ADDCONV+1~, ADDCONV+5*, ADDCONV+6 |
>> DIEFNODE | PUTDATA+25 |
>> DIEFNOLK | LOCK+1*, LOCK+2, LOCK+3*, LOCK+6, LOCK+8*, LOCK+12* |
DIEFNVAL | PUTDATA+2, PUTDATA+8, PUTDATA+12, PUTDATA+19, PUTDATA+20, PUTDATA+24, PUTDATA+25, SKEYCHK~, SKEYCHK+3, SKEYCHK+5 |
DIEFOUT | LOAD~, OUT |
>> DIEFOVAL | PUTDATA+7*, PUTDATA+18* |
>> DIEFSPOT | PUTDATA+1, PUTDATA+7, PUTDATA+8, PUTDATA+9, PUTDATA+11, PUTDATA+22, PUTDATA+31 |
DIEFTMP | RESTORE~, RESTORE+40, SKEYCHK+5, SKEYCHK+7 |
DIEFVAL | LOAD~, LOADX+11 |
DIEKK | RESTORE+5~, RESTORE+10*, RESTORE+11, RESTORE+15, RESTORE+16, RESTORE+21, RESTORE+24, RESTORE+32, RESTORE+33, RESTORE+34 |
DIFIL | RESTORE+5~, RESTORE+16*, RESTORE+17, RESTORE+18, RESTORE+27*, RESTORE+28, RESTORE+29, RESTORE+32, RESTORE+33, RESTORE+34 , RESTORE+37, RESTORE+38, RESTORE+40, RESTORE+41 |
DIFLD | RESTORE+5~, RESTORE+14!, RESTORE+16*, RESTORE+17, RESTORE+18, RESTORE+28*, RESTORE+29, RESTORE+32, RESTORE+33, RESTORE+34 , RESTORE+37, RESTORE+38, RESTORE+40, RESTORE+41 |
DIFLD( | RESTORE+18*, RESTORE+27, RESTORE+28, RESTORE+33*, RESTORE+37, RESTORE+38* |
DIFLDI | RESTORE+5~, RESTORE+15*, RESTORE+16 |
DIFM | LOADX+3~*, FLDNUMX+2~* |
DIIENS | RESTORE+5~, RESTORE+21*, RESTORE+24, RESTORE+32, RESTORE+33, RESTORE+34, RESTORE+39, RESTORE+41 |
DIIENSA | RESTORE+5~, RESTORE+39*, RESTORE+40 |
DIKEY | RESTORE~ |
DIKEY( | RESTORE+9, RESTORE+10, RESTORE+21, RESTORE+24, RESTORE+32, RESTORE+33 |
DILEVD | RESTORE+5~, RESTORE+33*, RESTORE+34, RESTORE+37*, RESTORE+38*, RESTORE+39 |
DIOLD | RESTORE+5~, RESTORE+40*, RESTORE+41 |
DIQUIET | LOADX+2~*, FLDNUMX+1~* |
DIRFIL | RESTORE+5~, RESTORE+9*, RESTORE+10, RESTORE+21, RESTORE+24, RESTORE+32, RESTORE+33, RESTORE+38 |
>> DOREPL | PUTDATA+8*, PUTDATA+21* |
E | LOCK+13~ |
E("FILE" | LOCK+13* |
E("IENS" | LOCK+13* |
EXT | PUTDATA+4~, PUTDATA+6, PUTDATA+15~, PUTDATA+17, PUTDATA+27~, PUTDATA+29, PUTDATA+32~, PUTDATA+34 |
EXT("FIELD" | PUTDATA+5*, PUTDATA+16*, PUTDATA+28*, PUTDATA+33* |
EXT("FILE" | PUTDATA+5*, PUTDATA+16*, PUTDATA+28*, PUTDATA+33* |
EXT(1 | PUTDATA+28*, PUTDATA+33* |
FR | PUTDATA+10~, PUTDATA+11*, PUTDATA+13, PUTDATA+18, PUTDATA+19, PUTDATA+20 |
I | ADDCONV+1~, ADDCONV+2*, ADDCONV+3, ADDCONV+6, UNLOCK+1~, UNLOCK+2* |
INT | PUTDATA+4~, PUTDATA+6, PUTDATA+15~, PUTDATA+17, PUTDATA+27~, PUTDATA+29, PUTDATA+32~, PUTDATA+34 |
INT(1 | PUTDATA+5*, PUTDATA+16*, PUTDATA+28*, PUTDATA+33* |
INT(2 | PUTDATA+5*, PUTDATA+16* |
NLEN | PUTDATA+10~, PUTDATA+12*, PUTDATA+13, PUTDATA+20 |
OLEN | PUTDATA+10~, PUTDATA+18*, PUTDATA+20 |
P | FLDNUMX+7~, FLDNUMX+8~, ADDCONV+1~, ADDCONV+3*, ADDCONV+4, ADDCONV+5 |
P("FILE" | FLDNUMX+7*, FLDNUMX+8* |
P(1 | FLDNUMX+7*, FLDNUMX+8* |
TO | PUTDATA+10~, PUTDATA+11*, PUTDATA+13, PUTDATA+18, PUTDATA+19, PUTDATA+20 |
U | PUTDATA+2, PUTDATA+23, RESTORE+16 |