DIEVK1 ;SFISC/MKO-KEY VALIDATION ;06:38 PM 6 Dec 1999
Source file <DIEVK1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BUILD(DIVKFDA,DIVKFLAG) | ;Loop thru FDA and load key info
|
|
| 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 |
|
| GETPKEY(KFIL) | ;Get fields in primary key for file KFIL
; ^TMP("DIKK",$J,"P",kfile) = key^ui#^uifile^uiname ; ... ,file,field) = seq# |
|
| KFLD(KFIL,IENS,FDA) | ;Check that at least one primary key field is in FDA
|
|
| FINDCONV(DIVKIENS,DIVKFIEN) | ;Replace ?n in DIVKIENS with actual ien's
|
|
| ERR740(FILE,KEY,IENS) | ;New values are invalid because they create a duplicate
|
|
| ERR742(FILE,FIELD,KEY,IENS) | ; The value of field |1| in the |2| file
|
|
| ERR744(FILE,FIELD,KEY,IENS) | ;Field |1| is part of Key '|2|', but the
|
|
| ERR746(FILE,KEY,IENS) | ;At least one field in Primary Key '|1|' must be
|
