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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRACC

Package: Lab Service

Routine: LRACC


Information

LRACC ;SLC/RWF - READ ACCESSION ; 7/10/87 17:38 ;

Source Information

Source file <LRACC.m>

Call Graph

Call Graph

Call Graph Total: 3

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

Entry Points

Name Comments DBIA/ICR reference
AA
AC
AC2
AC4
QUIT
QUES
WLQUES

External References

Name Field # of Occurrence
^%DT LRACC+2, AC2+2
^DIC WLQUES
DATE^LRWU AC2+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Select Accession: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: AA+0
Function Call: WRITE
  • Prompt: !,$P(^LRO(68,WL,0),U,1)
  • Line Location: AC2+0
Function Call: READ
  • Formatting: !
  • Prompt: " Number part of Accession: "
  • Variable: X3
  • Timeout: DTIME
  • Line Location: AC4+0
Function Call: WRITE
  • Prompt: !,"ACCESSION: ",$P(^LRO(68,WL,0),U,11),"/",$E(WDT,2,7),"/",WLE," DOES NOT EXIST!"
  • Line Location: AC4+2
Function Call: WRITE
  • Prompt: $C(7),!,"PLEASE ENTER ACCESSION IN THIS FORMAT.",!?5," <ACCESSION AREA> <DATE> <NUMBER>"
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: !?5," ie. CH 0426 125 or CH 125 or CH T 125",!?5," or if it's a yearly accession area ie. MICRO 85 30173"
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: WLQUES+0
Routine Call
  • DIC
  • Line Location:
    • WLQUES

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68 - [#68] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( AA+1*
^LRO(68 - [#68] AC+1, AC2AC2+3, AC4+2

Label References

Name Line Occurrences
AA AC+1, AC4+2, QUES+4, WLQUES
AC2 WLQUES
QUES AAAC2+1, AC2+2, AC4AC4+1
QUIT AAAC2+1, AC4
WLQUES AC+1

Naked Globals

Name Field # of Occurrence
^("LRACC" AA+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT LRACC+2*, AC2+1*, AC2+2*, AC4+3!, QUIT!
%DT("A" AC2+1*
%DT("B" AC2+1*
DIC AC4+3!, QUIT!, WLQUES*
DIC(0 WLQUES*
DT LRACC+2*, AC2+2
DTIME AAAC4
DTOUT LRACC+2!
DUOUT LRACC+2!, AA*, AC2+1
DUZ AA+1
>> LOG AC*, AC4+1*, QUIT*
>> LRACC AC4AC4+1, AC4+2, QUES+2, QUES+3
U LRACC+2*, AAAC2AC2+3, AC4AC4+2
>> WDT AC*, AC2+1*, AC2+2*, AC2+3*, AC4+2, QUIT*
>> WL AC*, AC+1*, AC2AC2+3, AC4+2, QUIT*, WLQUES*
>> WLE AC*, AC4+1*, AC4+2, QUIT*
>> X LRACC+2*, AA*, AA+1*, ACAC2+2*, AC2+3*, WLQUES*
X1 AC*, AC+1, AC4+3!, QUIT!, WLQUES
X2 AC*, AC+1*, AC2+1, AC2+2*, AC4+3!, QUIT!
X3 AC*, AC+1*, AC2+1, AC2+4, AC4*, AC4+1, AC4+3!, QUIT!
>> Y LRACC+2, AC2+1, AC2+2, WLQUES
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All