©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
DIKCUTL ;SFISC/MKO-UTILITY OPTION TO MODIFY INDEX ;2:57 PM 25 Apr 2002 [ 12/09/2003 4:10 PM ]
Source file <DIKCUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REMOD | ;Get and list indexes
|
|
| GETFLIST(XR,FLIST) | ;
|
|
| EDIT(DIXR,DIKCTOP,DIKCFILE) | ;Edit an index
|
|
| DELETE(DIXR,DIKCTOP,DIKCFILE) | ;Delete an index
|
|
| MOD | ;Utility option to modify an index
|
| Name | Field # of Occurrence |
|---|---|
| ^DDS | EDIT+11 |
| RD^DICD | REMOD+7 |
| ^DIK | DELETE+6 |
| LOADXREF^DIKC1 | DELETE+3, EDIT+6, EDIT+24 |
| SELFILE^DIKCU | MOD+5 |
| $$GCMP^DIKCU2 | EDIT+25 |
| CREATE^DIKCUTL1 | REMOD+29 |
| $$CHOOSE^DIKCUTL2 | REMOD+11, REMOD+21 |
| BLDLOG^DIKCUTL2 | EDIT+21 |
| GETXR^DIKCUTL2 | REMOD+2 |
| LIST^DIKCUTL2 | REMOD+3 |
| PRTMSG^DIKCUTL2 | REMOD+12 |
| KSC^DIKCUTL3 | DELETE+10, EDIT+16, EDIT+31 |
| ^DIR | REMOD+16, REMOD+28 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("IX" - [#.11] | EDIT+14, GETFLIST+2, GETFLIST+3, GETFLIST+4 |
| ^DD("KEY" - [#.31] | REMOD+12, EDIT+10 |
| Name | Line Occurrences |
|---|---|
| DELETE | REMOD+17 |
| EDIT | REMOD+22 |
| GETFLIST | DELETE+2, EDIT+5, EDIT+29 |
| REMOD | REMOD+10, REMOD+20, REMOD+25 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | GETFLIST+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DELETE+1~, DELETE+6*!, EDIT+1~, EDIT+9*, EDIT+11! |
| DDSCHANG | EDIT+1~, EDIT+11 |
| DDSFILE | EDIT+1~, EDIT+9*, EDIT+11! |
| DDSPARM | EDIT+1~, EDIT+9*, EDIT+11! |
| DIK | DELETE+1~, DELETE+6*! |
| DIKCCNT | MOD+1~, REMOD+2, REMOD+3, REMOD+6, REMOD+11, REMOD+21, REMOD+28 |
| DIKCFILE | MOD+1~, MOD+5, MOD+7*, REMOD+2, REMOD+17, REMOD+22, REMOD+29, DELETE~, DELETE+3, EDIT~ , EDIT+6, EDIT+15, EDIT+24, EDIT+30 |
| DIKCFLIS | DELETE+1~, DELETE+2, DELETE+10, EDIT+2~, EDIT+5, EDIT+16, EDIT+29, EDIT+31 |
| DIKCNEW | EDIT+2~, EDIT+31 |
| DIKCOLD | DELETE+1~, DELETE+10, EDIT+2~, EDIT+16, EDIT+31 |
| DIKCOLD( | EDIT+15!, EDIT+30! |
| DIKCQUIT | MOD+1~, REMOD+1, REMOD+28* |
| DIKCREB | EDIT+2~, EDIT+21 |
| DIKCROOT | MOD+1~, MOD+5, MOD+6 |
| DIKCTOP | MOD+1~, MOD+5, MOD+6, MOD+7, REMOD+17, REMOD+22, REMOD+29, DELETE~, DELETE+10, EDIT~ , EDIT+16, EDIT+31 |
| DIR | MOD+2~, REMOD+16!, REMOD+28! |
| DIR("A" | REMOD+14*, REMOD+27* |
| DIR("B" | REMOD+15*, REMOD+26* |
| DIR(0 | REMOD+13*, REMOD+26* |
| DIROUT | MOD+2~ |
| DIRUT | MOD+2~, REMOD+7, REMOD+16, REMOD+28 |
| DIXR | MOD+1~, REMOD+11*, REMOD+12, REMOD+17, REMOD+21*, REMOD+22, DELETE~, DELETE+2, DELETE+3, DELETE+6 , EDIT~, EDIT+5, EDIT+6, EDIT+9, EDIT+10, EDIT+14, EDIT+15, EDIT+21, EDIT+24, EDIT+29 , EDIT+30 |
| DR | EDIT+1~, EDIT+10*, EDIT+11! |
| DTOUT | MOD+2~ |
| DUOUT | MOD+2~ |
| FIL | GETFLIST+1~, GETFLIST+4*, GETFLIST+5 |
| FLD | GETFLIST+1~, GETFLIST+4*, GETFLIST+5 |
| FLIST | GETFLIST~ |
| FLIST( | GETFLIST+5* |
| I | GETFLIST+1~, GETFLIST+2*, GETFLIST+3, GETFLIST+4 |
| U | GETFLIST+3, GETFLIST+4 |
| X | MOD+2~ |
| XR | GETFLIST~, GETFLIST+2, GETFLIST+3, GETFLIST+4 |
| Y | MOD+2~, REMOD+6*, REMOD+10, REMOD+16, REMOD+20, REMOD+25, REMOD+28 |