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* |