DICN0 ;SFISC/GFT,XAK,SEA/TOAD/TKW-ADD NEW ENTRY ;22MAR2006
Source file <DICN0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEW | ; try to add a new record to the file
; called from FILE, ^DICN |
|
| N1 | ; if LAYGO nodes are present, XECUTE them and verify they don't object
|
|
| N2 | ; process DINUM
|
|
| N3 | ; add the new record at the IEN selected
|
|
| N4 | ; if compound index and we don't know internal value of .01, we'll prompt for it in ^DIE.
|
|
| N5 | ; If .01 is marked for auditing, update audit file
|
|
| N6 | ; if we have lookup values to stuff, or DIC("DR"), or if the file has
; IDs or KEYS, go do DIE. ; Code will return at D if successful. We set output and go exit |
|
| D | ||
| INCR | ||
| OUT | ||
| LOCK(DIROOT,DIEN,DIRESULT) | ;
|
