©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DICN ;SFISC/GFT,XAK,TKW,SEA/TOAD-ADD NEW ENTRY ;16NOV2012
Source file <DICN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| B | ||
| VAL | ||
| YN | ;
|
|
| I1 | ||
| I2 | ||
| RX | ||
| 1 | ||
| I | ||
| R | ||
| FIRE | ; fire the SET logic of a bulletin or trigger xref (in DZ)
; STORLIST^%RCR (called by NEW^DICN0) |
|
| USR | ||
| FILE | ; DOCUMENTED ENTRY POINT: add a new record to a file
|
|
| Y | ||
| NEW | ; try to add a new record to the file
|
|
| 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. |
|
| DS | ||
| B1 |
| Name | Field # of Occurrence |
|---|---|
| H^DDSU | Y, R+2, R+6 |
| ^DIAC | B1+1 |
| $$EZBLD^DIALOG | 1, YN+1, RX+2, I1, I1+1, I1+2, I1+3, I2+1 |
| $$OUT^DIALOGU | 1 |
| $$PRS^DIALOGU | RX+1 |
| BAD^DIC1 | DICN+7, DICN+9, B, I, R+3 |
| GETFA^DIC1 | DICN+4 |
| H^DIC2 | I1+3 |
| Q^DIC2 | FILE+2 |
| NEW^DICN0 | NEW+1, FILE+2 |
| OUT^DICN0 | I |
| N^DICN1 | USR+1 |
| CHK^DIE | VALIX+16 |
| Y^DIQ | I+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: READ |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | USR+1, B1, 1, DS, I+1, R+6 |
| Name | Line Occurrences |
|---|---|
| 1 | I+2 |
| B1 | DICN+9 |
| DS | USR, R |
| I | USR+1, USR+2 |
| I1 | I+2 |
| I2 | I2+1 |
| NEW | I2+2 |
| R | R+4, R+6 |
| RX | RX+2 |
| VAL | USR+2, R+5 |
| VALIX | DICN+8 |
| YN | I2+1 |
| Name | Field # of Occurrence |
|---|---|
| ^("UP" | 1 |
| ^(3 | R+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DICN+9*, Y, YN+1*, RX+1*, RX+2, RX+3, VAL+5*, I1+2*, I1+3, I , I+2*, I2, R+2 |
| %1 | YN+1~*, RX+3 |
| %DT | VAL+4~ |
| %T | VAL+4~ |
| >> %Y | RX*, RX+1, RX+2 |
| A1 | Y*, I1+3!, R+2* |
| C | VAL+4~, I+1~* |
| >> DDS | Y, I1+3, I2+1, R+1, R+2, R+6 |
| DIAC | DICN+4~, B1+1*!, FILE+2~ |
| >> DIC | DICN+4 |
| >> DIC("S" | 1 |
| >> DIC(0 | DICN+7, USR+1, I |
| DICR | USR+1, VAL+4~ |
| >> DICRS | VALIX+10, VALIX+12, VALIX+13 |
| DICTST | VAL+5~* |
| DIENTRY | DICN+4~, 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+4~, 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+4~ |
| DIH | VAL+4~ |
| DINDEX | DICN+5~, DICN+8, VALIX~ |
| DINDEX( | VALIX+5 |
| DINDEX("#" | DICN+5*, DICN+7, USR+2, VALIX+4 |
| DINDEX("START" | DICN+5* |
| 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+6~, DICN+7, DICN+8, VALIX~ |
| DISUBVAL( | VALIX+8*, VALIX+13*, VALIX+15*, VALIX+17!, VALIX+18* |
| DIU | VAL+4~ |
| DIV | VAL+4~ |
| >> DIX | USR*, USR+2, USR+3, I+1*, I+2 |
| >> DLAYGO | DICN+9 |
| DO | DICN+4, I1+2, I+2, VALIX+2~ |
| DO(1 | DICN+4* |
| DO(2 | DICN+4, DICN+8, DICN+9, USR+1, B1, B1+1, 1, DS, I, I+1 , R+6 |
| DS | DICN+8, USR+1, DS*, VAL+2, VAL+3, VAL+5*, R, FILE+2~, VALIX~ |
| DS("INT" | VALIX+10, VALIX+12, VALIX+13 |
| DST | 1*, Y*, Y+1!, I1*, I1+1*, I1+2*, I1+3*, R*, R+1!, R+2* , R+6* |
| DTIME | RX, R+1 |
| DTOUT | RX*, I!, I2, R+1*, R+2 |
| DUOUT | I!, I2*, R+1* |
| >> DZ | FIRE+3 |
| U | USR+1, Y, YN+1, RX, RX+3, VAL+2, VAL+3, VAL+5, I1+2, I+1 , I+2, R, R+1, R+2, R+3 |
| V | DICN+6~, DICN+7*, DICN+8!, 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+7~, DICN+8, USR, USR+1, USR+2*, USR+3*, VAL!, VAL+1!, VAL+2!, VAL+3 , VAL+5!, I+1, I+2*, R+1*, R+2*, R+3, R+4, R+6, VALIX~, VALIX+3* , VALIX+12*, VALIX+17* |
| >> Y | B*, 1, I1+1, I*, I+1*, I+2*, R+1*, R+2* |