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: LRNUM

Package: Lab Service

Routine: LRNUM


Information

LRNUM ;SLC/BA-NUMERIC INPUT TRANSFORM ;2/6/91 08:55

Source Information

Source file <LRNUM.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 EN^DDIOL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 25

Package Total Caller Graph
Lab Service 25 LRTSTOUT  ^LR  ANTIBIOTIC  BACT RPT REMARK  BACTERIOLOGY SMEAR/PREP  CHEM, HEM, TOX, RIA, SER, etc.  COMMENT  FUNGUS/YEAST  
GRAM STAIN  MICROBIOLOGY  MYCOBACTERIUM  MYCOLOGY RPT REMARK  MYCOLOGY SMEAR/PREP  ORGAN/TISSUE  ORGANISM  PARASITE RPT REMARK  
PARASITOLOGY SMEAR/PREP  PRELIMINARY BACT COMMENT  PRELIMINARY MYCOLOGY COMMENT  PRELIMINARY PARASITE COMMENT  PRELIMINARY TB COMMENT  PRELIMINARY VIROLOGY COMMENT  STAGE  TB RPT REMARK  
VIROLOGY RPT REMARK  

Entry Points

Name Comments DBIA/ICR reference
BEGIN
END
CHECK
COM ;expands lab description from LRMISTF1, dd
COMCHK
COMCHK1
SWITCH
PN ;checks for positive or negative entry from LRMISTF1
AFS ;checks for acid fast stain entry from LRMISTF1

External References

Name Field # of Occurrence
EN^DDIOL COMCHK+2, COMCHK1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Enter 'N' for NEGATIVE or 'P' for POSITIVE"
  • Line Location: PN+1
Function Call: WRITE
  • Prompt: " (",$S(X="P":"POSITIVE",1:"NEGATIVE"),")"
  • Line Location: PN+2
Function Call: WRITE
  • Prompt: $C(7),!,"Enter 'DP' for DIRECT POSITIVE, 'DN' for DIRECT NEGATIVE,",!,"'CP' for CONCENTRATE POSITIVE, or 'CN' for CONCENTRATE NEGATIVE"
  • Line Location: AFS+1
Function Call: WRITE
  • Prompt: " (",$S(X="DP":"DIRECT POSITIVE",X="DN":"DIRECT NEGATIVE",X="CP":"CONCENTRATE POSITIVE",1:"CONCENTRATE NEGATIVE"),")"
  • Line Location: AFS+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(62.5 - [#62.5] SWITCH+1

Label References

Name Line Occurrences
CHECK BEGIN+1
COMCHK COM+1
COMCHK1 COMCHK+2
SWITCH COMCHK1

Naked Globals

Name Field # of Occurrence
^(0 SWITCH+1
^(9 SWITCH+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> I COMCHK1*, SWITCH+1
LRDEC BEGIN+1*, END!, CHECK+2
LRHIGH BEGIN+1*, END!, CHECK+3
LRJ COMCHK1+1~, COMCHK1+3*
LRL COMCHK+1~, COMCHK1*
LRLOW BEGIN+1*, END!, CHECK+3
LRMAX COM+1*, COM+2!, COMCHKCOMCHK+4!, COMCHK1COMCHK1+2
LRMIN COM+1*, COM+2!, COMCHKCOMCHK+4!
>> LRNOECHO COMCHK+2
>> LRNOEXPD SWITCH
LRS COMCHK+1~, COMCHK+2*, COMCHK+3, COMCHK1*, COMCHK1+4*
LRSCN COM+1*, COM+2!, COMCHK+4!, SWITCH+1
LRX COMCHK+2~*, COMCHK1+1~, COMCHK1+2*, COMCHK1+3
LRY COMCHK+1~, SWITCH+1*
LRZ COMCHK+1~, COMCHK1*, COMCHK1+3, SWITCH+1*
Q1 BEGIN+1*, END!, CHECKCOM+2!
Q2 BEGIN+1*, END!, CHECK+1, CHECK+2, COM+2!
Q8 BEGIN+1*, END!, CHECK+4, COM+2!
Q9 BEGIN+1, END!, COM+1, COM+2!
U SWITCH+1
X BEGINBEGIN+1*, CHECK!, CHECK+1!, CHECK+2!, CHECK+3!, CHECK+4*, COMCHK!, COMCHK+2, COMCHK+3*
, COMCHK1!, SWITCH+1, PN+1!, PN+2, AFS+1!, AFS+2
>> Y COMCHK1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All