DIKK2 ;SFISC/MKO-CHECK INPUT PARAMETERS TO INTEG^DIKK ;2:20 PM 15 Jul 1999
Source file <DIKK2.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 |
---|---|---|
INIT | ;Check and setup
|
|
ERR | ;Set error flag
|
|
CHECK(RFIL,DA,DITAR,DIKKQUIT) | ;Check key integrity for one record
|
|
UNIQUE(DIFILE,DIUINDEX,X,DA,DITMP) | ;Check whether X values are unique
|
|
UNIQIX(DIUIR,DIIENSC,DA,DIVAL,DISS,DIEVK) | ;
|
|
KEYCHK(DIFIL,DA,DIFLD,DIXREF,DIIENS,DITAR,DINEW) | ;Check whether indexes
|
|
IENS(DA) | ;Return IENS from DA array
|
Name | Field # of Occurrence |
---|---|
SETXARR^DIKC | KEYCHK+9 |
LOADXREF^DIKC1 | UNIQUE+5 |
$$FLEV^DIKCU | INIT+27 |
$$FNUM^DIKCU | INIT+22, INIT+26 |
$$FROOTDA^DIKCU | INIT+18 |
$$VDA^DIKCU1 | INIT+14 |
$$VFLAG^DIKCU1 | INIT+33 |
$$VFNUM^DIKCU1 | INIT+41 |
ERR^DIKCU2 | INIT+8, INIT+20, INIT+29, INIT+38 |
XRINFO^DIKCU2 | CHECK+6, UNIQUE+8 |
SETK^DIKK | CHECK+21, KEYCHK+11 |
SETN^DIKK | CHECK+13 |
$$CREF^DILF | INIT+25 |
DA^DILF | INIT+12 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("KEY" - [#.31] | INIT+37, KEYCHK+6, KEYCHK+7 |
^TMP("DIKK" | CHECK+4, CHECK+12, UNIQIX+15 |
^TMP("DIKKTAR" | INIT+4 |
Name | Field # of Occurrence |
---|---|
^( | CHECK+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | INIT+11*, INIT+12, INIT+13*, INIT+14, INIT+20, INIT+29, CHECK~, CHECK+2, CHECK+21, UNIQUE~ , UNIQUE+14, UNIQUE+20, UNIQIX~, UNIQIX+3, UNIQIX+10*, UNIQIX+11, UNIQIX+24!*, KEYCHK~, KEYCHK+3, KEYCHK+10 , IENS~, IENS+2 |
DA( | UNIQIX+10*, IENS+2 |
DA(" " | IENS+2 |
>> DICTRL | INIT+33, INIT+39, INIT+43 |
>> DICTRL("TAR" | INIT+4 |
DIDASV | UNIQIX+2~, UNIQIX+3*, UNIQIX+24 |
DIEVK | UNIQIX~, UNIQIX+15 |
>> DIF | INIT+8, INIT+14, INIT+18, INIT+20, INIT+22, INIT+26, INIT+27, INIT+29, INIT+33, INIT+38 , INIT+41 |
DIFIL | KEYCHK~, KEYCHK+6, KEYCHK+8, KEYCHK+9, KEYCHK+10, KEYCHK+11 |
DIFILE | INIT+8, INIT+17, INIT+18, INIT+20, INIT+22*, INIT+24, INIT+25, INIT+26*, INIT+27, INIT+29 , INIT+40, UNIQUE~, UNIQUE+17, UNIQUE+19 |
DIFLD | KEYCHK~, KEYCHK+6 |
DIIENS | INIT+1~, INIT+11*, INIT+12*, INIT+19, INIT+28, UNIQIX+2~, UNIQIX+9*, UNIQIX+10, UNIQIX+11*, UNIQIX+15 , KEYCHK~, KEYCHK+3*, KEYCHK+11 |
DIIENSC | UNIQUE+1~, UNIQUE+14*, UNIQUE+20, UNIQIX~, UNIQIX+11 |
>> DIKERR | INIT+30, INIT+36, ERR+1* |
DIKEY | KEYCHK+2~, KEYCHK+5*, KEYCHK+6*, KEYCHK+7, KEYCHK+11 |
>> DIKFIL | INIT+37*, INIT+38, INIT+39*, INIT+40*, INIT+41 |
>> DIKKEY | INIT+36, INIT+37 |
DIKKQUIT | INIT+43!*, CHECK~, CHECK+4, CHECK+10, CHECK+13, CHECK+21 |
DIKKTMP | UNIQUE+3~ |
DILEV | INIT+1~, INIT+18, INIT+19, INIT+21, INIT+27*, INIT+28 |
DIMAXL | UNIQUE+1~, UNIQUE+8 |
DIMAXL( | UNIQUE+16 |
DINDX | UNIQIX+2~, UNIQIX+6*, UNIQIX+7*, UNIQIX+9 |
DINEW | KEYCHK~, KEYCHK+9 |
DINS | UNIQIX+2~, UNIQIX+6*, UNIQIX+7 |
DION | UNIQIX+2~, UNIQIX+4* |
DIORD | UNIQUE+1~, UNIQUE+15*, UNIQUE+16*, UNIQUE+17, UNIQUE+18, UNIQUE+19 |
>> DIREC | INIT+11, INIT+12 |
>> DIROOT | INIT+18*, INIT+21*, INIT+22, INIT+24*, INIT+25*, INIT+26 |
DIS | UNIQIX+2~, UNIQIX+21*, UNIQIX+22 |
DISS | UNIQUE+1~, UNIQUE+20, UNIQIX~ |
DISS( | UNIQUE+19*, UNIQIX+21 |
DITAR | INIT+4*, INIT+5, CHECK~, CHECK+13, CHECK+21, KEYCHK~, KEYCHK+3, KEYCHK+11, KEYCHK+12 |
DITMP | UNIQUE~, UNIQUE+3, UNIQUE+4*, UNIQUE+5, UNIQUE+17, UNIQUE+19 |
DIUINDEX | UNIQUE~, UNIQUE+5, UNIQUE+8, UNIQUE+17, UNIQUE+19, KEYCHK+2~, KEYCHK+7*, KEYCHK+8, KEYCHK+9, KEYCHK+10 |
DIUIR | UNIQUE+1~, UNIQUE+8, UNIQUE+9*, UNIQUE+10, UNIQUE+20, UNIQIX~, UNIQIX+6, UNIQIX+7, UNIQIX+9 |
DIUNIQ | UNIQIX+2~, UNIQIX+6*, UNIQIX+7, UNIQIX+18*, UNIQIX+22*, UNIQIX+25, KEYCHK+2~, KEYCHK+5*, KEYCHK+6, KEYCHK+10* , KEYCHK+11*, KEYCHK+12*, KEYCHK+13 |
DIVAL | UNIQUE+1~, UNIQUE+20, UNIQIX~, UNIQIX+18 |
DIVAL( | UNIQUE+18*, UNIQIX+21 |
DIXREF | KEYCHK~, KEYCHK+8, KEYCHK+9, KEYCHK+10 |
FIL | CHECK+1~, CHECK+11*, CHECK+12, CHECK+13 |
FLD | CHECK+1~, CHECK+11*, CHECK+12, CHECK+13 |
I | UNIQIX+2~, UNIQIX+10*, IENS+1~, IENS+2* |
IENS | IENS+1~, IENS+2*, IENS+3 |
IENSC | CHECK+1~, CHECK+2*, CHECK+13, CHECK+21 |
KEY | CHECK+1~, CHECK+4*, CHECK+21 |
L | UNIQIX+2~, UNIQIX+9*, UNIQIX+10 |
ML | CHECK+1~, CHECK+11*, CHECK+15 |
NULL | CHECK+1~, CHECK+9!, CHECK+13*, CHECK+14, CHECK+17 |
RFIL | CHECK~, CHECK+4, CHECK+12, CHECK+21 |
S | CHECK+1~, CHECK+10*, CHECK+11, CHECK+12, CHECK+13, CHECK+15, CHECK+16, UNIQUE+1~, UNIQUE+17*, UNIQUE+18 , UNIQUE+19 |
SS | CHECK+1~, CHECK+6, CHECK+21 |
SS( | CHECK+10, CHECK+11, CHECK+12*, CHECK+13 |
U | INIT+37, CHECK+11, UNIQIX+15, KEYCHK+7 |
UI | CHECK+1~, CHECK+4*, CHECK+6 |
UIR | CHECK+1~, CHECK+6, CHECK+20*, CHECK+21 |
VAL | CHECK+1~, CHECK+9!, CHECK+21 |
VAL( | CHECK+15* |
X | CHECK+1~, CHECK+9!, CHECK+13, CHECK+15, CHECK+16, UNIQUE~, UNIQIX+2~, UNIQIX+21, KEYCHK+2~, KEYCHK+10 |
X( | CHECK+16*, UNIQUE+16, UNIQUE+18 |