DIEVK ;SFISC/DPC-KEY VALIDATION ;11:50 AM 5 May 1998
Source file <DIEVK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| KEYVAL(DIVKFLAG,DIVKFDA,DIVKOUT,DIVKFIEN) | ;
|
|
| KEYVALX | ;
|
|
| OUT | ;Move error messages if necessary and quit
|
|
| CHECK(DIVKFDA,DIVKFLAG,DIVKFIEN) | ;Loop thru ^TMP and check key integrity
|
|
| CHKREC(DIVKEY,DIVKFIL,DIVKIENS,DIVKFDA,DIVKFLAG,DIVKFIEN) | ;
|
|
| COMP(DIVKEY,DIVKFIL,DIVKIENS,DIVKFDA,DIVKX,SS,DEC,DIVKFLAG,DIVKFIEN) | ;
|
|
| VALUE(DIVKEYFL,DIVKIENS,DA,DIVKEYFD,DIVKFDA,DIVKDEC,DIVKCONV) | ;
|
|
| IENS(DA) | ;Return IENS from DA array
|
|
| DA(IENS,DA) | ;
|
|
| ACTDA(IENS,DIVKFIEN,DA,CONV) | ;Set the DA array from the IENS
|
