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

Package: Lab Service

Routine: LRAR01


Information

LRAR01 ;DAL/HOAK EXTENSION OF LRAR00 ; 12/12/96 10:16 ;

Source Information

Source file <LRAR01.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Lab Service 3 DEV1^LRAR01  EN^LRAR05  (DEVICE,LST)^LRARCHIV  
VA FileMan 1 YN^DICN  

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

Package Total Caller Graph
Lab Service 3 LRAR01  LRAR06  LRARCHIV  

Entry Points

Name Comments DBIA/ICR reference
INIT ;
EN02 ;
CLEAN ;
; REMOVE ^LAR FOR READ TAPE IN
EN03 ;
PURGE ;
; PURGE DATA FROM ^LR THAT IS IN ^LAR
DQ2 ;
FLAG ;
; Whats happening in 69.9....
DEV ;
DEV1
KILL ;
PRT ;
QUIT

External References

Name Field # of Occurrence
^%ZIS DEV1+2
^%ZISC KILL+3
^%ZTLOAD PURGE+11, PRT+8
YN^DICN CLEAN+8
DEV1^LRAR01 PURGE+8
EN^LRAR05 DQ2+4
DEVICE^LRARCHIV DEV+1
LST^LRARCHIV PRT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"I will now CLEAR out the global"
  • Line Location: CLEAN+3
Function Call: WRITE
  • Prompt: !,"Search pass has not completed. "
  • Line Location: CLEAN+7
Function Call: WRITE
  • Prompt: !!,"Now read the tape back in to make sure we have a good tape."
  • Line Location: CLEAN+15
Function Call: WRITE
  • Prompt: !,"Then do the PURGE pass."
  • Line Location: CLEAN+16
Function Call: WRITE
  • Prompt: !," Please clear and reload the archive global.",$C(7)
  • Line Location: PURGE+4
Function Call: WRITE
  • Prompt: !,"PURGE in progress, or completed. Please let it finish."
  • Line Location: PURGE+6
Function Call: WRITE
  • Prompt: !!,"Not in the right state.",!!
  • Line Location: DQ2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: KILL+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: KILL+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(69.9 - [#69.9] CLEAN+14, DQ2+1, DQ2+3*, DQ2+4*, DQ2+5!, DQ2+6!, FLAG+3, FLAG+5
^LAR( CLEAN+12!
^LAR("NAME" DQ2+5!
^LAR("SSN" DQ2+5!
^LAR("Z" - [#63.9999] CLEAN+13*, DQ2+5!, DQ2+7*

Label References

Name Line Occurrences
DEV PRT+3
FLAG CLEAN+4, PURGE+2
KILL PRT+4, PRT+8, QUIT
QUIT PURGE+8, PURGE+11, DQ2+1, DQ2+8

Naked Globals

Name Field # of Occurrence
^("TAPE" FLAG+3
^(0 CLEAN+14*, FLAG+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CLEAN+8*
%ZIS DEV1*, DEV1+2!, PRT+2*
%ZIS("A" DEV1+1*, PRT+2*
>> F1 CLEAN+7, PURGE+4, PURGE+6, FLAG+5*
I KILL+4!
IO("Q" PURGE+10!, PRT+7
IOF KILL+1
IOST KILL+1
J KILL+4!
LRDAT KILL+4!
LRDPF KILL+4!
LRIDT KILL+4!
LRPAT KILL+4!, PRT+6*
LRSS KILL+4!
LRSUB KILL+4!
>> OK CLEAN+6*, CLEAN+8*, CLEAN+9
P1 CLEAN+14, DQ2+1, DQ2+3, DQ2+4, FLAG+3*, FLAG+5, KILL+4!
PNM KILL+4!
>> POP PURGE+8, PRT+4
SSN KILL+4!
U CLEAN+14, DQ2+1, DQ2+3, DQ2+4, FLAG+5
>> X CLEAN+11*, CLEAN+12*
X0 KILL+4!
X1 KILL+4!
X2 KILL+4!
X3 KILL+4!
ZTDESC KILL+5!, PRT+8*
ZTIO KILL+5!
>> ZTQUE KILL+2*
ZTRTN PURGE+10*, KILL+5!, PRT+7*
ZTSAVE KILL+5!
ZTSAVE("F1" PURGE+11*
ZTSAVE("LR(" PURGE+11*
ZTSAVE("LRPAT" PRT+7*
ZTSAVE("P1" PURGE+10*
ZTSK KILL+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All