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

Package: Lab Service

Routine: LRMIU4


Information

LRMIU4 ; IHS/DIR/FJE - READ MICRO ACCESSION 2/27/89 08:33 ;

Source Information

Source file <LRMIU4.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^%DT  ^DIC  
Lab Service 1 DATE^LRWU  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Lab Service 6 LRMIEDZ  LRMIEDZ2  LRMIPSZ  LRMIV  LRMIV1  LRMIV2  

Entry Points

Name Comments DBIA/ICR reference
AA
ACC
LRANX ;from LRMIEDZ2, LRMIPSZ
NQUES
START
QUES

External References

Name Field # of Occurrence
^%DT AA, ACC+6
^DIC ACC+2
DATE^LRWU ACC+5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select Microbiology Accession: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: AA+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: ACC+2
Function Call: WRITE
  • Prompt: !,$P(^LRO(68,LRAA,0),U)
  • Line Location: ACC+4
Function Call: READ
  • Prompt: " Number part of Accession: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X3
  • Line Location: ACC+9
Function Call: WRITE
  • Prompt: !,"ACCESSION: ",$P(^LRO(68,LRAA,0),U,11)," ",$E(LRAD,2,3)," ",LRAN," DOES NOT EXIST!"
  • Line Location: ACC+11
Function Call: WRITE
  • Prompt: !?5,"Enter just the number here, or you may:"
  • Line Location: NQUES+0
Function Call: WRITE
  • Prompt: $C(7),!,"ENTER THE ACCESSION IN THIS FORMAT.",!?5," <ACCESSION AREA> <DATE> <NUMBER>"
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: !?5," ie. MICRO 87 30173 or MICRO 30173"
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !?5," Must be a MICROBIOLOGY accession area."
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !?5," May enter just the Accession area, or area and number."
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: !,"Doesn't exist."
  • Line Location: LRANX+3
Function Call: WRITE
  • Prompt: !,"Incomplete data available."
  • Line Location: LRANX+4
Routine Call
  • DIC
  • Line Location:
    • ACC+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( ACC*, LRANX+1*
^LRO(68 - [#68] ACC+2, ACC+3, ACC+4, ACC+11, LRANX+3, LRANX+4

Label References

Name Line Occurrences
AA START
ACC AA+1
NQUES ACC+9
QUES AA+1, ACC+3, ACC+5, ACC+6, ACC+10

Naked Globals

Name Field # of Occurrence
^("LRACC" ACC
^("LRAN" LRANX+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+1!, AA*, ACC+5*, ACC+6*
%DT("A" ACC+5*
%DT("B" ACC+5*
DIC START+1!, ACC+2*!
DIC("S" ACC+2*
DIC(0 ACC+2*
DT AA*, ACC+5, ACC+6
DTIME AA+1, ACC+9
DTOUT START!
DUOUT START!, ACC+5
DUZ ACC, LRANX+1
>> I AA+1*
>> LRAA START+1*, ACC+1*, ACC+2*, ACC+3, ACC+4, ACC+11, LRANX+3, LRANX+4
>> LRAD START+1*, ACC+1*, ACC+5*, ACC+6*, ACC+7*, ACC+11, LRANX+3, LRANX+4
>> LRAN START+1*, ACC+1*, ACC+10*, ACC+11, LRANX+1*, LRANX+2, LRANX+3, LRANX+4
>> LRANOK LRANX+2*, LRANX+3*, LRANX+4*
LROK START+1!, AA+1*, ACC+5*, ACC+9*, ACC+12*
U START*, AA+1, ACC+3, ACC+4, ACC+9, ACC+11
>> X AA*, AA+1*, ACC*, ACC+1, ACC+2*, ACC+6*, ACC+9, LRANX+1*
X1 START+1!, ACC+1*, ACC+2
X2 START+1!, ACC+1*, ACC+2*, ACC+5, ACC+6*
X3 START+1!, ACC+1*, ACC+2*, ACC+5, ACC+8, ACC+9*, ACC+10
>> Y AA, ACC+2, ACC+5, ACC+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All