Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DIEVK1

Package: VA Fileman

Routine: DIEVK1


Information

DIEVK1 ;SFISC/MKO-KEY VALIDATION ;10:42 AM 30 Sep 1998

Source Information

Source file <DIEVK1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 BLD^DIALOG  $$FLDNM^DIEFU  XRINFO^DIKCU2  LOADKEY^DIKK1  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
VA Fileman 4 DICA1  DIEF1  DIEV  DIEVK  

Entry Points

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

External References

Name Field # of Occurrence
BLD^DIALOG ERR740+6, ERR742+7, ERR744+6, ERR746+7
$$FLDNM^DIEFU ERR742+3, ERR744+3
XRINFO^DIKCU2 BLDFLD+16
LOADKEY^DIKK1 BLDFLD+12

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$KFLD BUILD+9
BLDFLD BUILD+11
ERR746 KFLD+7
GETPKEY BUILD+6

Naked Globals

Name Field # of Occurrence
^( BLDFLD+9*
^(0 BLDFLD+13, GETPKEY+7

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All