LRWU7 ;DALOI/JMC - ADD A NEW ANTIBIOTIC TO FILE 63 ;04/02/09 09:59
Source file <LRWU7.m>
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ACCESS | ;
|
|
BEGIN | ;
|
|
END | ; Cleanup before quiting
|
|
NAME | ; Prompt user for the name of the new antibiotic to be added.
|
|
CHECK | ; Check if field already exists for the same name.
|
|
NUMBER | ; Determine the next field number by checking existing fields.
|
|
SETUP | ; Confirm creation of new antibiotic and setup corresponding fields in DD
|
|
SETFLDS | ; Create the fields in the DD for bacterial and mycobacteria
; LRSUBFIL = sub file # within MI subscript ; LRNUM = field number of antibiotic field ; LRNUM1 = field number of bacterial interpretation field ; LRNUM2 = field number of bacterial screen field ; LRNAME = field name for field LRNUM ; LRNAME1 = field name for field LRNUM1 ; LRNAME2 = field name for field LRNUM2 ; LRTYPE = 1 (BACTERIAL) / 2 (MYCOBACTERIUM) |
|
DIE | ; Edit file #62.06
; LRTYPE = 1-BACTERIAL, 2-MYCOBACTERIUM ; LR6206 = ien of entry to edit ; LRNUM = drug node |
|
EDIT | ; Edit an existing entry in file #62.06
|
Name | Field # of Occurrence |
---|---|
EN^DDIOL | ACCESS+4, BEGIN+12, CHECK+4, CHECK+6, CHECK+7, SETUP+20, SETUP+37 |
^DIC | EDIT+9 |
^DIE | DIE+12 |
UPDATE^DIE | SETUP+34 |
IX1^DIK | SETFLDS+29, SETFLDS+30 |
$$FLDNUM^DILFD | CHECK+6 |
$$VFIELD^DILFD | NUMBER+8 |
^DIR | BEGIN+16, NAME+7, SETUP+9, SETUP+28, EDIT+5 |
$$DT^XLFDT | BEGIN+5 |
$$UP^XLFSTR | CHECK+5 |
$$STA^XUAF4 | BEGIN+7 |
$$DTIME^XUP | BEGIN+5 |
$$KSP^XUPARAM | BEGIN+6 |
OWNSKEY^XUSRB | ACCESS+2 |
FileNo | Call Tags |
---|---|
^LAB(62.06 - [#62.06] | Classic Fileman Calls |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | BEGIN+4~, END+4! |
A | BEGIN+9~, BEGIN+12, SETUP+4~, SETUP+20 |
A(1 | BEGIN+10*, SETUP+17* |
A(2 | BEGIN+11*, SETUP+18* |
A(3 | SETUP+19* |
DA | BEGIN+4~, END+4!, NAME+4~, SETUP+4~, SETFLDS+13~, SETFLDS+28*, SETFLDS+30*, DIE+7~, DIE+9* |
DA(1 | SETFLDS+28* |
DIC | BEGIN+4~, END+4!, EDIT+1~, EDIT+8* |
DIC("S" | EDIT+8* |
DIC(0 | EDIT+8* |
DIE | DIE+7~, DIE+9* |
DIK | BEGIN+4~, END+4!, SETFLDS+13~, SETFLDS+28* |
DIR | BEGIN+4~, NAME+4~, SETUP+4~, SETUP+23!, EDIT+1~ |
DIR("A" | BEGIN+15*, NAME+6*, SETUP+6*, SETUP+7*, SETUP+25*, SETUP+26*, EDIT+4* |
DIR("B" | BEGIN+15*, SETUP+8*, SETUP+27*, EDIT+4* |
DIR(0 | BEGIN+14*, NAME+5*, SETUP+5*, SETUP+24*, EDIT+3* |
DIROUT | BEGIN+4~, NAME+4~, SETUP+4~, SETUP+23!, EDIT+1~ |
DIRUT | BEGIN+4~, BEGIN+17, NAME+4~, NAME+8, SETUP+4~, SETUP+10, SETUP+23!, SETUP+29, EDIT+1~, EDIT+6 |
DR | DIE+7~, DIE+10*, DIE+11* |
DR(2 | DIE+10* |
DT | BEGIN+5*, SETFLDS+18, SETFLDS+22, SETFLDS+23 |
DTIME | BEGIN+5* |
DTOUT | BEGIN+4~, NAME+4~, SETUP+4~, SETUP+23!, EDIT+1~ |
DUZ | ACCESS+2, BEGIN+5 |
FDA | SETUP+32~ |
FDA(1 | SETUP+33* |
I | BEGIN+4~, END+4! |
LR4 | BEGIN+4~, BEGIN+6*, BEGIN+7 |
LR6206 | SETUP+35*, DIE+9, EDIT+1~, EDIT+12* |
LRDIE | SETUP+32~, SETUP+36 |
LRIEN | SETUP+32~ |
LRIEN(1 | SETUP+35 |
LRINC | BEGIN+4~, END+4!, NUMBER+5*, NUMBER+9 |
LRNAME | BEGIN+4~, END+4!, NAME+9*, SETUP+6, SETUP+17, SETUP+19, SETUP+25, SETUP+33, SETFLDS+15 |
LRNAME1 | BEGIN+4~, END+4!, NAME+9*, SETFLDS+22 |
LRNAME2 | BEGIN+4~, END+4!, NAME+9*, SETFLDS+23 |
LRNUM | BEGIN+4~, END+4!, NUMBER+5*, NUMBER+8, NUMBER+9*, NUMBER+11, NUMBER+12, NUMBER+13*, SETUP+7, SETFLDS+15 , SETFLDS+16, SETFLDS+17, SETFLDS+18, SETFLDS+22, SETFLDS+23, SETFLDS+28, DIE+10, DIE+11, EDIT+1~, EDIT+12* |
LRNUM1 | BEGIN+4~, END+4!, NUMBER+11*, SETFLDS+22, SETFLDS+30 |
LRNUM2 | BEGIN+4~, END+4!, NUMBER+12*, SETFLDS+23, SETFLDS+30 |
LROK | BEGIN+4~, BEGIN+5*, BEGIN+21, END+4!, NAME+8*, NAME+9*, CHECK+8*, NUMBER+4~, NUMBER+5*, NUMBER+7 , NUMBER+8* |
LRSITE | BEGIN+4~, BEGIN+7*, BEGIN+8, END+4!, NUMBER+5, NUMBER+11, NUMBER+12 |
LRSUBFIL | BEGIN+4~, BEGIN+18*, CHECK+6, NUMBER+8, SETFLDS+15, SETFLDS+16, SETFLDS+17, SETFLDS+18, SETFLDS+22, SETFLDS+23 , SETFLDS+25, SETFLDS+28 |
LRTYPE | BEGIN+4~, BEGIN+18*, SETUP+19, SETUP+25, SETFLDS+15, SETFLDS+17, SETFLDS+21, SETFLDS+30, DIE+10, DIE+11 , EDIT+1~, EDIT+7*, EDIT+12 |
LRX | ACCESS+1~, ACCESS+2 |
LRX(0 | ACCESS+3 |
LRY | BEGIN+4~ |
U | BEGIN+5*, SETFLDS+25 |
X | BEGIN+4~, END+4!, CHECK+5*, CHECK+6, CHECK+7, CHECK+8!, SETUP+4~, SETUP+23!, EDIT+1~ |
Y | BEGIN+4~, BEGIN+18, NAME+4~, NAME+9, SETUP+4~, SETUP+11, SETUP+23!, SETUP+30, EDIT+1~, EDIT+7 , EDIT+10, EDIT+12 |
Y(0 | EDIT+12 |