DIKKUTL ;SFISC/MKO-UTILITY OPTION TO DEFINE A KEY ;8:13 AM 7 Jun 2001
Source file <DIKKUTL.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 15 | ^DDS MSG^DIALOG UPDATE^DIE ^DIK LOADXREF^DIKC1 $$SUB^DIKCU ($$GCMP,WRAP)^DIKCU2 (DELETE,GETFLIST)^DIKCUTL KSC^DIKCUTL3 $$INTEG^DIKK (CREATE,UICREATE,UIMOD)^DIKKUTL1 ($$CHOOSE,GET,GETFLD,LIST)^DIKKUTL2 VERIFY^DIKKUTL3 ($$EDORC,$$EDORI,$$EORD,$$RORM)^DIKKUTL4 ^DIR |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
VA FileMan | 2 | DIKKUTL1 DIU |
Name | Comments | DBIA/ICR reference |
---|---|---|
MOD | ;Create/Modify/Edit a Key
|
|
REMOD | ;Get and list keys on file DIKKFILE
|
|
DELETE(DIKKEY,DIKKTOP,DIKKFILE) | ;Delete a Key
|
|
EDIT(DIKKEY,DIKKTOP,DIKKFILE) | ;Edit a Key
|
|
REEDIT | ;Come back here, if user chooses to re-edit the key
|
|
EDITEND | ;
|
|
DELUI(DIKKUI,DIKKTOP,DIKKFILE,DIKKID,DIKKEY) | ;Delete the Uniqueness Index
|
|
DELKEY(DA,DIKKID) | ;Call DIK to delete the key
|
|
UIID(UI,TOP,FILE) | ;Return text that identifies uniqueness index
|
|
KEYID(KEY,TOP,FILE) | ;Return string of text that identifies the key
|
|
RD() | ;Prompt for action
|
|
EOP | ;Issue Press Return to continue prompt
|
|
CHECK() | ;Prompt whether to check key integrity
|
Name | Field # of Occurrence |
---|---|
^DDS | REEDIT+10 |
MSG^DIALOG | REEDIT+83 |
UPDATE^DIE | REEDIT+81 |
^DIK | REEDIT+71, DELKEY+2 |
LOADXREF^DIKC1 | REEDIT+8, REEDIT+18 |
$$SUB^DIKCU | MOD+8 |
$$GCMP^DIKCU2 | REEDIT+56 |
WRAP^DIKCU2 | DELUI+10 |
DELETE^DIKCUTL | DELUI+15 |
GETFLIST^DIKCUTL | REEDIT+19 |
KSC^DIKCUTL3 | REEDIT+20 |
$$INTEG^DIKK | EDITEND+4 |
CREATE^DIKKUTL1 | REMOD+24 |
UICREATE^DIKKUTL1 | REEDIT+42 |
UIMOD^DIKKUTL1 | REEDIT+86 |
$$CHOOSE^DIKKUTL2 | REMOD+11, REMOD+16, REMOD+28 |
GET^DIKKUTL2 | REMOD+2 |
GETFLD^DIKKUTL2 | REEDIT+31 |
LIST^DIKKUTL2 | REMOD+3 |
VERIFY^DIKKUTL3 | REMOD+29 |
$$EDORC^DIKKUTL4 | REEDIT+47 |
$$EDORI^DIKKUTL4 | EDITEND+6 |
$$EORD^DIKKUTL4 | REEDIT+35, REEDIT+52 |
$$RORM^DIKKUTL4 | REEDIT+60 |
^DIR | REMOD+23, DELETE+7, DELUI+14, RD+8, EOP+4, CHECK+5 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("IX" - [#.11] | REEDIT+16, UIID+1, UIID+2 |
^DD("KEY" - [#.31] | DELETE+10, DELETE+15, REEDIT+6, REEDIT+11, REEDIT+28, REEDIT+71, DELUI+7, KEYID+1 |
Name | Line Occurrences |
---|---|
$$CHECK | EDITEND+1 |
$$KEYID | DELETE+11, REEDIT+1 |
$$RD | REMOD+7 |
$$UIID | DELUI+9 |
DELETE | REMOD+12, EDITEND+8 |
DELKEY | DELETE+12, REEDIT+36, REEDIT+48, REEDIT+53 |
DELUI | DELETE+16, REEDIT+25 |
EDIT | REMOD+17 |
EDITEND | REEDIT+39, REEDIT+56 |
EOP | REEDIT+83, EDITEND+4 |
REEDIT | REEDIT+34, REEDIT+39, REEDIT+51, REEDIT+63, EDITEND+7 |
REMOD | REMOD+10, REMOD+15, REMOD+20, REMOD+27 |
Name | Field # of Occurrence |
---|---|
^(0 | UIID+2, KEYID+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | EDIT+2~, REEDIT+9*, REEDIT+10!, REEDIT+69~, REEDIT+71*, REEDIT+72!, DELKEY~ |
DA(1 | REEDIT+70* |
DDSFILE | EDIT+2~, REEDIT+9*, REEDIT+10! |
>> DI | MOD+8 |
>> DIERR | REEDIT+82 |
DIK | REEDIT+69~, REEDIT+70*, REEDIT+72!, DELKEY+1~, DELKEY+2* |
DIKKCH | EDIT+1~, REEDIT+34, REEDIT+35*, REEDIT+39, REEDIT+40, REEDIT+41*, REEDIT+47*, REEDIT+51, REEDIT+52*, REEDIT+60* , REEDIT+63, REEDIT+66, REEDIT+86, EDITEND+1*, EDITEND+6*, EDITEND+7, EDITEND+8 |
DIKKCNT | MOD+4~, REMOD+2, REMOD+3, REMOD+6, REMOD+11, REMOD+16, REMOD+23, REMOD+28 |
DIKKEY | MOD+4~, REMOD+11*, REMOD+12, REMOD+16*, REMOD+17, REMOD+28*, REMOD+29, DELETE~, DELETE+10, DELETE+11 , DELETE+12, EDIT~, REEDIT+1, REEDIT+6, REEDIT+9, REEDIT+11, REEDIT+25, REEDIT+28, REEDIT+31, REEDIT+36 , REEDIT+42, REEDIT+48, REEDIT+53, REEDIT+70, REEDIT+71, REEDIT+77, REEDIT+86, EDITEND+4, EDITEND+8, DELUI~ , DELUI+6, DELUI+7 |
DIKKFDA | REEDIT+75~ |
DIKKFDA( | REEDIT+78*, REEDIT+79*, REEDIT+80* |
DIKKFILE | MOD+4~, MOD+8*, MOD+9*, REMOD+2, REMOD+12, REMOD+17, REMOD+24, REMOD+29, DELETE~, DELETE+11 , DELETE+16, EDIT~, REEDIT+1, REEDIT+8, REEDIT+16, REEDIT+18, REEDIT+25, REEDIT+42, REEDIT+86, EDITEND+8 , DELUI~, DELUI+9, DELUI+15 |
DIKKFLD | EDIT+1~, REEDIT+31, REEDIT+34, REEDIT+39, REEDIT+51, REEDIT+60 |
DIKKFLIS | REEDIT+15~, REEDIT+19, REEDIT+20 |
DIKKID | DELETE+1~, DELETE+11*, DELETE+12, DELETE+16, EDIT+1~, REEDIT+1*, REEDIT+25, REEDIT+35, REEDIT+36, REEDIT+48 , REEDIT+52, REEDIT+53, DELUI~, DELUI+9, DELKEY~, DELKEY+3 |
DIKKIENS | REEDIT+75~, REEDIT+77*, REEDIT+78, REEDIT+79, REEDIT+80 |
DIKKNEW | REEDIT+15~, REEDIT+20 |
DIKKNO | EDIT+1~, REEDIT+42, REEDIT+43 |
DIKKOLD | EDIT+1~, REEDIT+7!, REEDIT+20, REEDIT+21! |
DIKKOLD( | REEDIT+16 |
DIKKQUIT | MOD+4~, REMOD+1, REMOD+23* |
DIKKROOT | MOD+4~, MOD+8* |
DIKKSEQ | REEDIT+75~, REEDIT+76*, REEDIT+77, REEDIT+78, REEDIT+79, REEDIT+80 |
DIKKTOP | MOD+4~, MOD+8*, MOD+9, REMOD+12, REMOD+17, REMOD+24, REMOD+29, DELETE~, DELETE+11, DELETE+16 , EDIT~, REEDIT+1, REEDIT+20, REEDIT+25, REEDIT+42, REEDIT+86, EDITEND+4, EDITEND+8, DELUI~, DELUI+9 , DELUI+15 |
DIKKUFLD | EDIT+1~, REEDIT+31, REEDIT+51, REEDIT+60 |
DIKKUFLD( | REEDIT+76, REEDIT+78, REEDIT+79 |
DIKKUI | DELETE+1~, DELETE+10*, DELETE+15, DELETE+16, DELUI~, DELUI+7, DELUI+9, DELUI+15 |
DIKKUI0 | EDIT+1~, REEDIT+6*, REEDIT+8, REEDIT+14, REEDIT+16, REEDIT+18, REEDIT+19, REEDIT+24, REEDIT+25 |
DIKKUI1 | EDIT+1~, REEDIT+11*, REEDIT+14, REEDIT+16, REEDIT+24, REEDIT+31, REEDIT+34, REEDIT+39, REEDIT+86 |
DIR | MOD+5~, REMOD+23!, DELETE+1~, DELETE+7!, DELUI+2~, DELUI+14!, RD+1~, EOP+1~, CHECK+1~ |
DIR("?" | RD+4*, RD+5*, RD+6*, RD+7*, EOP+3*, CHECK+3* |
DIR("A" | REMOD+22*, DELETE+5*, DELUI+12*, DELUI+13*, RD+3*, EOP+2*, CHECK+2* |
DIR("B" | REMOD+21*, DELETE+6* |
DIR(0 | REMOD+21*, DELETE+4*, DELUI+11*, RD+2*, EOP+2*, CHECK+4* |
DIROUT | MOD+5~, DELETE+1~, DELUI+2~, RD+1~, EOP+1~, CHECK+1~ |
DIRUT | MOD+5~, REMOD+23, DELETE+1~, DELETE+7, DELUI+2~, RD+1~, RD+8, EOP+1~, CHECK+1~, CHECK+6 |
>> DIU | MOD+8 |
DR | EDIT+2~, REEDIT+9*, REEDIT+10! |
DTOUT | MOD+5~, DELETE+1~, DELUI+2~, DELUI+14, RD+1~, EOP+1~, CHECK+1~ |
DUOUT | MOD+5~, DELETE+1~, DELUI+2~, DELUI+14, RD+1~, EOP+1~, CHECK+1~ |
FILE | UIID~, UIID+2, KEYID~, KEYID+1 |
I | DELUI+1~, DELUI+6, DELUI+7*, DELUI+12*, DELUI+13 |
KEY | KEYID~, KEYID+1 |
MSG | DELUI+1~, DELUI+10 |
MSG( | DELUI+12, DELUI+13 |
MSG(0 | DELUI+9* |
TOP | UIID~, UIID+2, KEYID~, KEYID+1 |
U | DELETE+10, REEDIT+6, REEDIT+11, REEDIT+78, REEDIT+79, UIID+2, KEYID+1 |
UI | UIID~, UIID+1, UIID+2 |
X | MOD+5~, DELETE+1~, DELUI+2~, RD+1~, EOP+1~, CHECK+1~ |
Y | MOD+5~, REMOD+6*, REMOD+7*, REMOD+10, REMOD+15, REMOD+20, REMOD+23, REMOD+27, DELETE+1~, DELETE+7 , DELUI+2~, DELUI+14*, RD+1~, RD+8*, RD+9, EOP+1~, CHECK+1~, CHECK+6 |