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 |