Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRWU7

Package: Lab Service

Routine: LRWU7


Information

LRWU7 ;DALOI/JMC - ADD A NEW ANTIBIOTIC TO FILE 63 ;04/02/09 09:59

Source Information

Source file <LRWU7.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 6 $$DT^XLFDT  $$UP^XLFSTR  $$STA^XUAF4  $$DTIME^XUP  $$KSP^XUPARAM  OWNSKEY^XUSRB  
VA FileMan 6 EN^DDIOL  ^DIC  (,UPDATE)^DIE  IX1^DIK  ($$FLDNUM,$$VFIELD)^DILFD  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRWU7  LRWU7 EDIT  LRWU8  

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;
END ; Cleanup before quiting
NAME ; Prompt user for the name of the new antibiotic to be added.
EDIT ; Edit an existing entry in file #62.06
DIE ; Edit file #62.06
; LRTYPE = 1-BACTERIAL, 2-MYCOBACTERIUM
; LR6206 = ien of entry to edit
; LRNUM = drug node
SETUP ; Confirm creation of new antibiotic and setup corresponding fields in DD
NUMBER ; Determine the next field number by checking existing fields.
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)
ACCESS ;
CHECK ; Check if field already exists for the same name.

External References

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.06 - [#62.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( NUMBER+8, SETFLDS+15*, SETFLDS+16*, SETFLDS+17*, SETFLDS+18*, SETFLDS+22*, SETFLDS+23*, SETFLDS+25*

Label References

Name Line Occurrences
DIE SETUP+38, EDIT+12
END BEGIN+17, BEGIN+21, BEGIN+22
NAME BEGIN+20
NUMBER BEGIN+22
SETFLDS SETUP+14
SETUP BEGIN+22

Naked Globals

Name Field # of Occurrence
^("DT" SETFLDS+22*, SETFLDS+23*
^(3 SETFLDS+22*
^(4 SETFLDS+22*

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All