LRWU7 ;DALOI/JMC - ADD A NEW ANTIBIOTIC TO FILE 63 ;04/02/09 09:59
Source file <LRWU7.m>
| 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
|
