DIEVK1 ;SFISC/MKO-KEY VALIDATION ;10:42 AM 30 Sep 1998
Source file <DIEVK1.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 4 | BLD^DIALOG $$FLDNM^DIEFU XRINFO^DIKCU2 LOADKEY^DIKK1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
FINDCONV(DIVKIENS,DIVKFIEN) | ;Replace ?n in DIVKIENS with actual ien's
|
|
BLDFLD(DIVKFIL,DIVKIENS,DIVKFLD) | ;Build key/index info on a given field
; ^TMP("DIKK",$J,"L",key) = rfile^ui^priority ; ... ,file,iens) = "" ; ... ,"UIR") = uir ; ... ,"SS",n) = file^field^maxlen |
|
ERR740(FILE,KEY,IENS) | ;New values are invalid because they create a duplicate
|
|
ERR744(FILE,FIELD,KEY,IENS) | ;Field |1| is part of Key '|2|', but the
|
|
KFLD(KFIL,IENS,FDA) | ;Check that at least one primary key field is in FDA
|
|
ERR742(FILE,FIELD,KEY,IENS) | ; The value of field |1| in the |2| file
|
|
GETPKEY(KFIL) | ;Get fields in primary key for file KFIL
; ^TMP("DIKK",$J,"P",kfile) = key^ui#^uifile^uiname ; ... ,file,field) = seq# |
|
BUILD(DIVKFDA,DIVKFLAG) | ;Loop thru FDA and load key info
|
|
ERR746(FILE,KEY,IENS) | ;At least one field in Primary Key '|1|' must be
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | ERR740+4, ERR742+4, ERR746+4 |
^DD("IX" - [#.11] | GETPKEY+12 |
^DD("KEY" - [#.31] | BUILD+5, BLDFLD+8, BLDFLD+13, GETPKEY+5, GETPKEY+6, GETPKEY+7, GETPKEY+11, ERR740+3, ERR742+5, ERR744+4 , ERR746+3 |
^TMP("DIKK" | BLDFLD+9, BLDFLD+10, BLDFLD+14*, BLDFLD+17*, BLDFLD+18*, GETPKEY+9*, GETPKEY+10, GETPKEY+12*, KFLD+2, KFLD+4 , KFLD+5 |
Name | Line Occurrences |
---|---|
$$KFLD | BUILD+9 |
BLDFLD | BUILD+11 |
ERR746 | KFLD+7 |
GETPKEY | BUILD+6 |
Name | Field # of Occurrence |
---|---|
^( | BLDFLD+9* |
^(0 | BLDFLD+13, GETPKEY+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIVKEY | BLDFLD+5~, BLDFLD+7*, BLDFLD+8*, BLDFLD+9, BLDFLD+10, BLDFLD+12, BLDFLD+13, BLDFLD+14, BLDFLD+17, BLDFLD+18 |
DIVKEYOK | BUILD+1~, BUILD+3*, BUILD+9*, BUILD+12 |
DIVKFDA | BUILD~, BUILD+4, BUILD+8, BUILD+9, BUILD+11 |
DIVKFIEN | FINDCONV~, FINDCONV+4, FINDCONV+5 |
DIVKFIL | BUILD+1~, BUILD+3*, BUILD+4*, BUILD+5, BUILD+6, BUILD+8, BUILD+9, BUILD+11, BLDFLD~, BLDFLD+8 , BLDFLD+9 |
DIVKFLAG | BUILD~, BUILD+6, BUILD+9 |
DIVKFLD | BUILD+1~, BUILD+10*, BUILD+11*, BLDFLD~, BLDFLD+8 |
DIVKIENS | BUILD+1~, BUILD+7*, BUILD+8*, BUILD+9, BUILD+11, BLDFLD~, BLDFLD+9, FINDCONV~, FINDCONV+2, FINDCONV+3 , FINDCONV+5*, FINDCONV+6 |
DIVKPRI | BLDFLD+5~, BLDFLD+13*, BLDFLD+14 |
DIVKQUIT | BUILD+1~, BUILD+4, BUILD+8, BUILD+9* |
DIVKRFIL | BLDFLD+5~, BLDFLD+13*, BLDFLD+14, BLDFLD+15 |
DIVKSS | BLDFLD+5~, BLDFLD+16, BLDFLD+18 |
DIVKUI | BLDFLD+5~, BLDFLD+13*, BLDFLD+14, BLDFLD+15, BLDFLD+16 |
DIVKUIR | BLDFLD+5~, BLDFLD+16, BLDFLD+17 |
FDA | KFLD~, KFLD+6 |
FIELD | ERR742~, ERR742+3, ERR742+6, ERR744~, ERR744+3, ERR744+5 |
FIL | GETPKEY+4~, GETPKEY+7*, GETPKEY+8, GETPKEY+9, KFLD+1~, KFLD+4*, KFLD+5, KFLD+6 |
FILE | ERR740~, ERR740+4, ERR740+5, ERR742~, ERR742+3, ERR742+4, ERR742+6, ERR744~, ERR744+3, ERR744+5 , ERR746~, ERR746+4, ERR746+6 |
FLD | GETPKEY+4~, GETPKEY+7*, GETPKEY+8, GETPKEY+9, KFLD+1~, KFLD+5*, KFLD+6 |
I | GETPKEY+4~, GETPKEY+6*, GETPKEY+7, FINDCONV+1~, FINDCONV+2*, FINDCONV+3, FINDCONV+5 |
IENS | KFLD~, KFLD+6, KFLD+7, ERR740~, ERR740+5, ERR742~, ERR742+6, ERR744~, ERR744+5, ERR746~ , ERR746+5, ERR746+6 |
KEY | GETPKEY+4~, GETPKEY+5*, GETPKEY+6, GETPKEY+7, GETPKEY+11, GETPKEY+12, KFLD+1~, KFLD+2*, KFLD+7, ERR740~ , ERR740+3, ERR740+5, ERR742~, ERR742+5, ERR744~, ERR744+4, ERR746~, ERR746+3, ERR746+6 |
KFIL | GETPKEY~, GETPKEY+5, GETPKEY+9, GETPKEY+10, GETPKEY+12, KFLD~, KFLD+2, KFLD+4, KFLD+5, KFLD+7 |
N | FINDCONV+1~, FINDCONV+4* |
OK | KFLD+1~, KFLD+3*, KFLD+4, KFLD+5, KFLD+6*, KFLD+7, KFLD+8 |
P | FINDCONV+1~, FINDCONV+3*, FINDCONV+4, FINDCONV+5, ERR740+2~, ERR740+6, ERR742+2~, ERR742+7, ERR744+2~, ERR744+6 , ERR746+2~, ERR746+7 |
P("IENS" | ERR746+5* |
P(1 | ERR740+3*, ERR742+3*, ERR744+3*, ERR746+3* |
P(2 | ERR740+4*, ERR742+4*, ERR744+4*, ERR746+4* |
P(3 | ERR742+5* |
PEXT | ERR740+2~, ERR740+6, ERR742+2~, ERR742+7, ERR744+2~, ERR744+6, ERR746+2~, ERR746+7 |
PEXT("FIELD" | ERR742+6*, ERR744+5* |
PEXT("FILE" | ERR740+5*, ERR742+6*, ERR744+5*, ERR746+6* |
PEXT("IENS" | ERR740+5*, ERR742+6*, ERR744+5*, ERR746+6* |
PEXT("KEY" | ERR740+5*, ERR746+6* |
SEQ | GETPKEY+4~, GETPKEY+7*, GETPKEY+8, GETPKEY+9, KFLD+1~ |
U | BLDFLD+13, BLDFLD+14, GETPKEY+7, GETPKEY+11, GETPKEY+12, ERR740+3, ERR742+5, ERR744+4, ERR746+3 |
UI | GETPKEY+4~, GETPKEY+11*, GETPKEY+12 |