DICA ;SEA/TOAD-VA FileMan, Updater, Engine ;18APR2009
Source file <DICA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADD(DIFLAGS,DIFDA,DIEN,DIMSGA) | ;
|
|
| ADDX | ; Branch in from UPDATE^DIE
; ENTRY POINT--add a new entry to a file ; subroutine, DIEN passed by reference |
|
| INPUT | ;
; initialize input parameters & check |
|
| PRE | ;
|
|
| SEQ | ;
|
|
| FILES | ||
| ENTRIES | ||
| FINDING | ||
| FILER | ; file the data for the new records
|
|
| ADDING | ;
|
|
| A1 | ||
| LAYGO(DIFILE,DIEN,DIKEY) | ;
; ADDING--return if LAYGO permitted ; function, all by value |
|
| SAVE | ||
| SAVEK | ; Remove primary key field from FDA; save in ^TMP first if necessary
|
|
| IEN(DIENTRY,DIENF,DIRULE) | ;
; ADDING/FINDING--return translated IEN String ; function, DIENTRY passed by value |
|
| IEN1 | ||
| CLOSE | ||
| GETKVALS(DIVALUE,DIINDEX) | ; Get primary key values and uniq index
|
|
| ADDLF | ; Check key integrity
|
