DIKK2 ;SFISC/MKO-CHECK INPUT PARAMETERS TO INTEG^DIKK ;2:20 PM 15 Jul 1999 [ 04/02/2003 8:25 AM ]
Source file <DIKK2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IENS(DA) | ;Return IENS from DA array
|
|
| ERR | ;Set error flag
|
|
| KEYCHK(DIFIL,DA,DIFLD,DIXREF,DIIENS,DITAR,DINEW) | ;Check whether indexes
|
|
| CHECK(RFIL,DA,DITAR,DIKKQUIT) | ;Check key integrity for one record
|
|
| INIT | ;Check and setup
|
|
| UNIQIX(DIUIR,DIIENSC,DA,DIVAL,DISS,DIEVK) | ;
|
|
| UNIQUE(DIFILE,DIUINDEX,X,DA,DITMP) | ;Check whether X values are unique
|
| 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 | Line Occurrences |
|---|---|
| $$IENS | INIT+11, INIT+20, INIT+29, CHECK+2, UNIQUE+14, UNIQIX+11, KEYCHK+3 |
| $$UNIQIX | CHECK+21, UNIQUE+20 |
| $$UNIQUE | KEYCHK+10 |
| ERR | INIT+8, INIT+14, INIT+18, INIT+20, INIT+22, INIT+26, INIT+27, INIT+29, INIT+33, INIT+38 , INIT+41 |
| 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 |