DICN ;SFISC/GFT,XAK,TKW,SEA/TOAD - ADD NEW ENTRY ;23JUN2017
Source file <DICN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| USR | ||
| B | ||
| B1 | ||
| 1 | ||
| Y | ||
| YN | ;
|
|
| RX | ||
| DS | ||
| VAL | ||
| UNIQ | ||
| I1 | ||
| I | ;COME HERE FROM USR+2, ABOVE
|
|
| I2 | ||
| R | ||
| HELP | ||
| NEW | ; try to add a new record to the file
|
|
| FILE | ; DOCUMENTED ENTRY POINT: add a new record to a file
|
|
| FIRE | ; fire the SET logic of a bulletin or trigger xref (in DZ)
; STORLIST^%RCR (called by NEW^DICN0) |
|
| VALIX(DIFILEI,DINDEX,V,DISUBVAL,X,DS) | ;
; Save lookup values in array by field no. so we can update the fields on the new record. |
| Name | Field # of Occurrence |
|---|---|
| H^DDSU | Y, R+2, HELP+2 |
| ^DIAC | B1+1 |
| $$EZBLD^DIALOG | 1+2, 1+3, YN+1, RX+2, I1, I1+1, I1+2, I1+3, I2+1 |
| $$OUT^DIALOGU | 1+2 |
| $$PRS^DIALOGU | RX+1 |
| $$FILENAME^DIALOGZ | 1+3, I1+2 |
| $$HELP^DIALOGZ | HELP+1 |
| BAD^DIC1 | DICN+12, DICN+14, B, I+1, R+3 |
| GETFA^DIC1 | DICN+9 |
| H^DIC2 | I1+3 |
| Q^DIC2 | FILE+2 |
| NEW^DICN0 | NEW+1, FILE+2 |
| OUT^DICN0 | I+1 |
| N^DICN1 | USR+1 |
| CHK^DIE | VALIX+16 |
| $$VALEXT^DIETLIBF | VAL+6 |
| Y^DIQ | I+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Field # of Occurrence |
|---|---|
| ^("UP" | 1+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DICN+14*, Y, YN+1*, RX+1*, RX+2, RX+3, VAL+6*, VAL+8, VAL+9*, VAL+11* , VAL+13, I1+2*, I1+3, I+1, I+3*, I2, R+2 |
| %1 | YN+1~*, RX+3 |
| %DT | VAL+7~, VAL+12~ |
| %T | VAL+7~, VAL+12~ |
| >> %Y | RX*, RX+1, RX+2 |
| A1 | Y*, I1+3!, R+2* |
| C | VAL+7~, VAL+12~, I+2~* |
| >> DDS | Y, I1+3, I2+1, R+1, R+2, HELP+1, HELP+2 |
| DIAC | DICN+9~, B1+1*!, FILE+2~ |
| >> DIC | DICN+9, UNIQ |
| >> DIC("S" | 1 |
| >> DIC(0 | DICN+12, USR+1, I+1 |
| DICR | USR+1, VAL+7~, VAL+12~ |
| >> DICRS | VALIX+10, VALIX+12, VALIX+13 |
| DIENTRY | DICN+9~, USR+1*, I1+1, I2+2, FILE+2~ |
| DIERR | VALIX+2~ |
| DIFIELD | VALIX+2~, VALIX+5*, VALIX+6, VALIX+8, VALIX+12, VALIX+13, VALIX+15, VALIX+16, VALIX+17, VALIX+18 |
| DIFILE | DICN+9~, B1+1*!, FILE+2~, VALIX+2~, VALIX+5*, VALIX+6, VALIX+8, VALIX+12, VALIX+13, VALIX+15 , VALIX+16, VALIX+17, VALIX+18 |
| DIFILEI | VALIX~, VALIX+12, VALIX+17 |
| DIG | VAL+7~, VAL+12~ |
| DIH | VAL+7~, VAL+12~ |
| DINDEX | DICN+10~, DICN+13, VALIX~ |
| DINDEX( | VALIX+5 |
| DINDEX("#" | DICN+10*, DICN+12, USR+2, VALIX+4 |
| DINDEX("START" | DICN+10* |
| DINDEX(1 | VALIX+10 |
| >> DINUM | VAL+3* |
| DIOK | VALIX+2~, VALIX+6*, VALIX+8, VALIX+10*, VALIX+11* |
| DISUB | VALIX+2~, VALIX+4*, VALIX+5, VALIX+7, VALIX+8 |
| DISUBVAL | DICN+11~, DICN+12, DICN+13, VALIX~ |
| DISUBVAL( | VALIX+8*, VALIX+13*, VALIX+15*, VALIX+17!, VALIX+18* |
| DIU | VAL+7~, VAL+12~ |
| DIV | VAL+7~, VAL+12~ |
| >> DIX | USR*, USR+2, USR+3, I+2*, I+3 |
| >> DLAYGO | DICN+14 |
| DO | DICN+9, I+3, VALIX+2~ |
| DO(1 | DICN+9* |
| DO(2 | DICN+9, DICN+13, DICN+14, USR+1, B1, B1+1, 1+3, DS, VAL+6, I1+2 , I+1, I+2, HELP+1 |
| DS | DICN+13, USR+1, DS*, VAL+2, VAL+3, VAL+5, VAL+7~, VAL+9*, VAL+10, VAL+11 , VAL+12~, UNIQ, R, FILE+2~, VALIX~ |
| DS("INT" | VALIX+10, VALIX+12, VALIX+13 |
| DST | 1+4*, Y*, Y+1!, I1*, I1+1*, I1+2*, I1+3*, R*, R+1!, R+2* , HELP+1*, HELP+2* |
| DTIME | RX, R+1 |
| DTOUT | RX*, I+1!, I2, R+1*, R+2 |
| DUOUT | I+1!, I2*, R+1* |
| >> DZ | FIRE+3 |
| IOM | 1+4 |
| M | 1+1~, 1+2*, 1+3*, 1+4 |
| U | USR+1, Y, YN+1, RX, RX+3, VAL+2, VAL+3, VAL+5, VAL+11, UNIQ , I+2, I+3, R, R+1, R+2, R+3 |
| V | DICN+11~, DICN+12*, DICN+13!, VALIX~, VALIX+3, VALIX+7*, VALIX+8, VALIX+9*, VALIX+12, VALIX+13 , VALIX+15, VALIX+16 |
| V( | VALIX+4, VALIX+7 |
| V(1 | VALIX+3* |
| VI | VALIX+2~, VALIX+16, VALIX+17, VALIX+18 |
| X | DICN+12~, DICN+13, USR, USR+1, USR+2*, USR+3*, VAL!, VAL+1!, VAL+2!, VAL+3 , VAL+10!, UNIQ!, I+2, I+3*, R+1*, R+2*, R+3, R+4, HELP, VALIX~ , VALIX+3*, VALIX+12*, VALIX+17* |
| >> Y | B*, 1+2, I1+1, I+1*, I+2*, I+3*, R+1*, R+2* |
