©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |