DIEVK ;SFISC/DPC-KEY VALIDATION ;11:50 AM 5 May 1998
Source file <DIEVK.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | ($$VERFLG,$$VROOT,CALLOUT,INIZE)^DIEFU ($$BUILD,$$FINDCONV,ERR740,ERR742,ERR744)^DIEVK1 $$UNIQIX^DIKK2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
IENS(DA) | ;Return IENS from DA array
|
|
CHECK(DIVKFDA,DIVKFLAG,DIVKFIEN) | ;Loop thru ^TMP and check key integrity
|
|
CHKREC(DIVKEY,DIVKFIL,DIVKIENS,DIVKFDA,DIVKFLAG,DIVKFIEN) | ;
|
|
OUT | ;Move error messages if necessary and quit
|
|
VALUE(DIVKEYFL,DIVKIENS,DA,DIVKEYFD,DIVKFDA,DIVKDEC,DIVKCONV) | ;
|
|
KEYVALX | ;
|
|
COMP(DIVKEY,DIVKFIL,DIVKIENS,DIVKFDA,DIVKX,SS,DEC,DIVKFLAG,DIVKFIEN) | ;
|
|
ACTDA(IENS,DIVKFIEN,DA,CONV) | ;Set the DA array from the IENS
|
|
DA(IENS,DA) | ;
|
|
KEYVAL(DIVKFLAG,DIVKFDA,DIVKOUT,DIVKFIEN) | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("DIKK" | KEYVALX+12!, KEYVALX+14, OUT+2!, CHECK+6, CHECK+7, CHECK+9, CHECK+11, CHECK+14*, CHECK+18, CHECK+19 , CHECK+21, CHKREC+6, CHKREC+8, CHKREC+19, COMP+6 |
Name | Line Occurrences |
---|---|
$$CHECK | KEYVALX+14 |
$$CHKREC | CHECK+22 |
$$COMP | CHKREC+33 |
$$IENS | CHKREC+30 |
$$VALUE | CHKREC+20, COMP+13 |
ACTDA | CHKREC+11, COMP+9 |
DA | ACTDA+6, ACTDA+8 |
OUT | KEYVALX+8, KEYVALX+9, KEYVALX+13 |
Name | Field # of Occurrence |
---|---|
^("SS" | CHKREC+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTIENS | CHKREC+2~, CHKREC+30*, CHKREC+32 |
CONV | CHKREC+2~, CHKREC+11, CHKREC+20, CHKREC+30, COMP+3~, COMP+9, COMP+13, ACTDA~, ACTDA+2!, ACTDA+7* |
DA | CHKREC+2~, CHKREC+11, CHKREC+20, CHKREC+30, CHKREC+32, COMP+3~, COMP+9, COMP+13, VALUE~, IENS~ , IENS+2, DA~, DA+2!*, ACTDA~, ACTDA+6, ACTDA+8 |
DA( | IENS+2, DA+2* |
DA(" " | IENS+2 |
DEC | CHKREC+2~, CHKREC+32, CHKREC+33, COMP~ |
DEC( | CHKREC+19*, CHKREC+20, COMP+13 |
DEL | CHKREC+2~, CHKREC+17, CHKREC+21*, CHKREC+27 |
>> DIERR | OUT+1 |
DIFM | KEYVALX+4~* |
DIQUIET | KEYVALX+3~* |
DIVKCIEN | CHECK+1~, CHECK+12*, CHECK+13, CHECK+14 |
DIVKCONV | VALUE~, VALUE+10 |
DIVKDEC | VALUE~, VALUE+2, VALUE+11 |
DIVKEY | CHECK+1~, CHECK+5*, CHECK+6*, CHECK+7, CHECK+9, CHECK+11, CHECK+14, CHECK+17*, CHECK+18*, CHECK+19 , CHECK+21, CHECK+22, CHKREC~, CHKREC+6, CHKREC+8, CHKREC+25, CHKREC+26, CHKREC+32, CHKREC+33, COMP~ , COMP+6, COMP+17, COMP+18 |
DIVKEYFD | VALUE~, VALUE+5 |
DIVKEYFL | VALUE~, VALUE+5 |
DIVKEYOK | KEYVALX+2~, KEYVALX+5*, KEYVALX+8*, KEYVALX+9*, KEYVALX+13*, KEYVALX+15*, OUT+3, CHECK+1~, CHECK+17*, CHECK+23* , CHECK+24 |
DIVKFDA | KEYVAL~, KEYVALX+9*, KEYVALX+13, KEYVALX+14, CHECK~, CHECK+22, CHKREC~, CHKREC+20, CHKREC+33, COMP~ , COMP+13, VALUE~, VALUE+2, VALUE+5 |
DIVKFIEN | KEYVAL~, KEYVALX+14, CHECK~, CHECK+4, CHECK+12, CHECK+22, CHKREC~, CHKREC+11, CHKREC+33, COMP~ , COMP+9, ACTDA~, ACTDA+3, ACTDA+5 |
DIVKFIL | CHECK+1~, CHECK+7*, CHECK+9, CHECK+14, CHECK+19*, CHECK+21, CHECK+22, CHKREC~, CHKREC+19, CHKREC+32 , CHKREC+33, COMP~, COMP+6, COMP+17, COMP+18 |
DIVKFLAG | KEYVAL~, KEYVALX+8*, KEYVALX+13, KEYVALX+14, CHECK~, CHECK+11, CHECK+22, CHECK+23, CHKREC~, CHKREC+6 , CHKREC+17, CHKREC+33, COMP~, COMP+19 |
DIVKIENS | CHECK+1~, CHECK+8*, CHECK+9*, CHECK+10, CHECK+11, CHECK+12, CHECK+20*, CHECK+21*, CHECK+22, CHKREC~ , CHKREC+6, CHKREC+11, CHKREC+20, CHKREC+25, CHKREC+26, CHKREC+30, CHKREC+32, CHKREC+33, COMP~, COMP+5 , COMP+17, VALUE~, VALUE+5, VALUE+10 |
DIVKOUT | KEYVAL~, OUT+1 |
DIVKQUIT | CHECK+1~, CHECK+18, CHECK+21, CHECK+23*, COMP+3~, COMP+6, COMP+19* |
DIVKVALU | VALUE+1~, VALUE+5*, VALUE+6, VALUE+7 |
DIVKX | COMP~ |
DIVKX( | COMP+14 |
FIL | CHKREC+2~, CHKREC+18*, CHKREC+19, CHKREC+20, CHKREC+25, CHKREC+26, COMP+3~, COMP+12*, COMP+13 |
FLD | CHKREC+2~, CHKREC+18*, CHKREC+19, CHKREC+20, CHKREC+21, CHKREC+25, CHKREC+26, COMP+3~, COMP+12*, COMP+13 |
I | IENS+1~, IENS+2*, DA+1~, DA+2* |
IENS | COMP+3~, COMP+5*, COMP+6*, COMP+9, COMP+13, COMP+18, IENS+1~, IENS+2*, IENS+3, DA~ , DA+2, ACTDA~, ACTDA+3, ACTDA+5, ACTDA+8 |
ML | CHKREC+2~, CHKREC+18*, CHKREC+23 |
NULL | CHKREC+2~, CHKREC+16!, CHKREC+17, CHKREC+25*, CHKREC+26*, CHKREC+28 |
OIENS | CHKREC+2~ |
OK | COMP+3~, COMP+5*, COMP+17, COMP+19*, COMP+20 |
RIENS | ACTDA+4~, ACTDA+5*, ACTDA+6, ACTDA+7 |
S | CHKREC+2~, CHKREC+17*, CHKREC+18, CHKREC+19, CHKREC+20, CHKREC+22, CHKREC+23, COMP+3~, COMP+11*, COMP+12 , COMP+13, COMP+14 |
SS | CHKREC+2~, CHKREC+8*, CHKREC+33, COMP~ |
SS( | CHKREC+17, CHKREC+18, COMP+11, COMP+12 |
U | CHECK+7, CHECK+11, CHECK+19, CHKREC+6, CHKREC+18, CHKREC+32, COMP+12, VALUE+5, VALUE+7 |
UIR | CHKREC+2~, CHKREC+8*, CHKREC+31*, CHKREC+32 |
UNIQ | COMP+3~, COMP+11*, COMP+14*, COMP+16 |
VAL | CHKREC+2~, CHKREC+16!, CHKREC+32 |
VAL( | CHKREC+23* |
X | CHKREC+2~, CHKREC+16!, CHKREC+20*, CHKREC+21, CHKREC+22, CHKREC+23, CHKREC+25, CHKREC+26, CHKREC+33, COMP+3~ , COMP+13*, COMP+14, VALUE+1~, VALUE+2, VALUE+12 |
X( | CHKREC+22* |