DIKK2 ;SFISC/MKO-CHECK INPUT PARAMETERS TO INTEG^DIKK ;2:20 PM 15 Jul 1999
Source file <DIKK2.m>
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
|