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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRWU7

Package: Lab Service

Routine: LRWU7


Information

LRWU7 ; IHS/DIR/FJE - ADD A NEW ANTIBIOTIC TO FILE 63 5/15/87 23:31 ;

Source Information

Source file <LRWU7.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  IX1^DIK  
Lab Service 1 DT^LRX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRWU7  

Entry Points

Name Comments DBIA/ICR reference
BEGIN
SET
END
NAME
SITE
NUMBER
ACCESS
CHECK

External References

Name Field # of Occurrence
^DIC CHECK+2
YN^DICN SET
IX1^DIK SET+5
DT^LRX BEGIN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not have proper access for using this option."
  • Line Location: ACCESS+0
Function Call: WRITE
  • Prompt: !,"Your site number is not defined, indicating that fileman was not ",!,"installed correctly. Contact your site manager!"
  • Line Location: SITE+0
Function Call: READ
  • Prompt: "Enter the name of the new antibiotic you wish to create: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: !," Name must be 2-20 characters."
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: $C(7),!," ",X," already exists!"
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !,"Are you sure you wish to create ",LRNAME,!," (DRUG NODE will be ",LRNUM,")"
  • Line Location: SET+0
Function Call: WRITE
  • Prompt: "answer 'Y'es or 'N'o."
  • Line Location: SET+0
Function Call: WRITE
  • Prompt: !!,LRNAME," has now been created.",!,"You must now add a new antibiotic in the ANTIMICROBIAL SUSCEPTIBILITY file",!,"and use ",LRNAME," as the entry for the INTERNAL NAME field."
  • Line Location: SET+6
Routine Call
  • DIC
  • Line Location:
    • CHECK+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63.3 NUMBER, SET+2*, SET+3*, SET+4*, SET+5*
^XMB(1 - [#4.3] BEGIN
^XUSEC("LRLIASON" ACCESS

Label References

Name Line Occurrences
CHECK NAME
END BEGIN
NAME BEGIN
NUMBER BEGIN
SET BEGIN
SITE BEGIN

Naked Globals

Name Field # of Occurrence
^("DT" SET+2*, SET+3*, SET+4*
^(3 SET+2*, SET+3*
^(4 SET+2*, SET+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, SET*, SET+1
DA END!, SET+5*
DA(1 SET+5*
DIC END!, CHECK+2*
DIC(0 CHECK+2*
DIK END!, SET+5*
DT SET+2, SET+3, SET+4
DTIME BEGIN*, NAME
DUZ ACCESS
I END!, NAME*, NUMBER*, SET*
LRINC END!, NUMBER*
LRNAME END!, NAME+2*, SET, SET+2, SET+6
LRNAME1 END!, NAME+2*, SET+3
LRNAME2 END!, NAME+2*, SET+4
LRNUM END!, NUMBER*, NUMBER+1*, SET, SET+2, SET+3, SET+4, SET+5
LRNUM1 END!, NUMBER+1*, SET+3, SET+5
LRNUM2 END!, NUMBER+1*, SET+4, SET+5
LROK BEGIN*, END!, SITE+1*, NAME, NAME+1*, NAME+2*, CHECK*, CHECK+2*, CHECK+3*, SET+1*
LRSITE BEGIN*, END!, NUMBER, NUMBER+1
U BEGIN*, NAME+1, CHECK, SET+5
X END!, NAME*, NAME+1, NAME+2, CHECK, CHECK+1, CHECK+2*
>> Y CHECK+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All