©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
DIKD2 ;SFISC/MKO-DELETE A NEW-STYLE INDEX ;4JAN2012
Source file <DIKD2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ;Set flag to quit
|
|
| END | ;Move error message if necessary and quit
|
|
| KILL(DITOP,DIINDEX,DIFLG) | ;Delete index data
|
|
| CHK | ;Check input parameters
|
|
| DELDEF(DIXR) | ;Delete index definition
|
|
| DELIXNX | ;Come here from DELIXN^DDMOD
|
|
| DELIXN(DIFIL,DIXR,DIFLG,DIKDOUT,DIKDMSG) | ;Delete new-style index
|
|
| DIEZ(DIFLIST,DIFLG,DIKDOUT) | ;Recompile input templates containing field
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | DELIXNX+8 |
| ^DD("IX" - [#.11] | CHK+3, CHK+8 |
| Name | Line Occurrences |
|---|---|
| CHK | DELIXNX+7 |
| DELDEF | DELIXNX+16 |
| DIEZ | DELIXNX+17 |
| END | DELIXNX+7 |
| KILL | DELIXNX+13 |
| QUIT | CHK+1, CHK+5, CHK+6, CHK+9 |
| Name | Field # of Occurrence |
|---|---|
| ^("UP" | DELIXNX+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | DELIXNX+1~ |
| DA | DELDEF+1~, DELDEF+3* |
| DIC | DELIXNX+1~ |
| DICTRL | KILL+1~, KILL+13*, KILL+15 |
| DICTRL("LOGIC" | KILL+14* |
| DIF | DELIXNX+1~, DELIXNX+6*, CHK+1, CHK+5, CHK+6 |
| DIFIL | DELIXN~, DELIXNX+8, DIEZ+1~, DIEZ+2*, DIEZ+3, DIEZ+4, CHK+1, CHK+3, CHK+8, KILL+1~ , KILL+4*, KILL+5, KILL+6, KILL+13 |
| DIFLD | DIEZ+1~, DIEZ+3*, DIEZ+4 |
| DIFLG | DELIXN~, DELIXNX+5*, DELIXNX+6, DELIXNX+7, DELIXNX+13, DELIXNX+17, DELIXNX+18, DELDEF+2, DIEZ~, DIEZ+4 , CHK+6, KILL~, KILL+8 |
| DIFLIST | DELIXNX+1~, DELIXNX+9, DELIXNX+17, DIEZ~ |
| DIFLIST( | DIEZ+2, DIEZ+3 |
| DIFM | DELIXNX+4~* |
| DIINDEX | DELIXNX+1~, DELIXNX+13, KILL~, KILL+3 |
| DIINDEX( | KILL+5, KILL+6 |
| DIINDEX(0 | KILL+4 |
| DIK | DELDEF+1~, DELDEF+3* |
| DIKDMSG | DELIXN~, END+1 |
| DIKDOUT | DELIXN~, DELIXNX+17, DELIXNX+18, DIEZ~, DIEZ+4 |
| DIKTEML | DIEZ+1~, DIEZ+4 |
| DIQUIT | DELIXNX+1~, DELIXNX+7, CHK+7, QUIT+1* |
| DITOP | DELIXNX+1~, DELIXNX+8*, DELIXNX+13, DELIXNX+18, KILL~, KILL+13, KILL+15 |
| DITYP | KILL+1~, KILL+6*, KILL+9 |
| DIXR | DELIXN~, DELIXNX+9, DELIXNX+10, DELIXNX+16, DELDEF~, DELDEF+3, CHK+2, CHK+3, CHK+4!, CHK+5 , CHK+8*, CHK+9, KILL+1~, KILL+5*, KILL+6, KILL+15 |
| I | CHK+3~*, CHK+4 |
| U | KILL+6 |
| X | DELIXNX+1~ |
| Y | DELIXNX+1~ |