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 |
