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

Package: Lab Service

Routine: LRARC1


Information

LRARC1 ; IHS/DIR/AAB - CLONED WKLD REP GENERATOR-MAIN FOR ARCHIVING ; [ 5/8/95 ]

Source Information

Source file <LRARC1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 ^DIC  WAIT^DICD  YN^DICN  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Lab Service 3 (ACCN,CAP,COLL,CONTROL,DATE,INSTR,IOPAT,LOC,REPTYP,SPEC,STAT,TEST)^LRARC1A  ^LRARCR2  CLEAN^LRARCR4  

Entry Points

Name Comments DBIA/ICR reference
A
C
B
I
LRINST ;
L ;
ASK ;
TRIAL ; entry point for work load lookup
S
EN ;
QUE ;
GO ;
EXIT ;

External References

Name Field # of Occurrence
^%ZIS L+8
^%ZISC QUE+6
^%ZTLOAD QUE+6
^DIC LRINST+9
WAIT^DICD L+9
YN^DICN TRIAL+5, A+1
^DIR LRINST+6, TRIAL+8, L+7, ASK+7
ACCN^LRARC1A TRIAL+2
CAP^LRARC1A A+4
COLL^LRARC1A C
CONTROL^LRARC1A L+4
DATE^LRARC1A TRIAL+3
INSTR^LRARC1A I
IOPAT^LRARC1A L+3
LOC^LRARC1A L+2
REPTYP^LRARC1A L+5
SPEC^LRARC1A B, S
STAT^LRARC1A L+1
TEST^LRARC1A A+5
^LRARCR2 L+10
CLEAN^LRARCR4 EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Do you want to look up by Specimen Type and/or Collection Sample"
  • Line Location: TRIAL+4
Function Call: WRITE
  • Prompt: !,"Do you want to select by TESTS or WKLD CODES (YES or NO )"
  • Line Location: A+0
Routine Call
  • DIC
  • Line Location:
    • LRINST+9
Routine Call
  • DIR
  • Line Location:
    • LRINST+6
    • TRIAL+8
    • L+7
    • ASK+7
Routine Call
  • %ZIS
  • Line Location:
    • L+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LRINST+2, LRINST+9
^TMP("LRAR" EN+1!
^XMB(1 - [#4.3] LRINST+1

Label References

Name Line Occurrences
@( TRIAL+8
A TRIAL+5, C
ASK A+2
EN TRIAL+1
EXIT TRIAL+1, TRIAL+2, TRIAL+3, TRIAL+5, TRIAL+8, B, C, S, A+1, A+2
, A+4, A+5, I, L+1, L+2, L+3, L+4, L+5, L+7, L+8
I A+2
L A+3, A+4
LRINST TRIAL+1
QUE L+8
TRIAL GO+1

Naked Globals

Name Field # of Occurrence
^(0 LRINST+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TRIAL+3*, TRIAL+5, A+1*, A+2, L+1
%DT EN+1!
>> %ZIS L+8*
DIC EN+1!, LRINST+8*, A+2!
DIC("A" LRINST+8*
DIC(0 LRINST+8*
DIR EN+2!, LRINST+3!, TRIAL+1!, A+2!, L+6!, L+7!
DIR("?" LRINST+5*, TRIAL+7*, ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*
DIR("A" LRINST+4*, L+6*, ASK+1*
DIR(0 LRINST+3*, TRIAL+6*, L+6*, ASK+1*
>> DTOUT LRINST+6, TRIAL+1, TRIAL+8, B, C, S, A+2, A+4, A+5, I
, L+1, L+2, L+3, L+7
>> DUOUT LRINST+6, TRIAL+1, TRIAL+8, B, C, S, A+2, A+4, A+5, I
, L+1, L+2, L+3, L+7
IO L+10
IO("Q" L+8!
ION QUE+1
>> LRANS L+7*
LRCAPS EN+1!, EN+3*, QUE+4
LRCOL EN+1!, EN+3*, QUE+3
LRCPSX EN+1!, EN+3*, QUE+5
>> LREND EN+3*, L+4, L+5, QUE+7*, EXIT+1*
>> LRIOPAT EN+4*
LRLOC EN+1!, EN+3*, QUE+5
>> LRSITE LRINST+2*, QUE+2
>> LRSITNUM LRINST+1*, LRINST+2
LRSITSEL EN+2!, LRINST+3*, LRINST+9*
LRSITSEL( LRINST+9*
LRSP EN+1!, EN+3*, QUE+3
>> LRTST QUE+4
LRTSTS EN+1!, EN+3*
>> POP L+8
U LRINST+1, LRINST+2, LRINST+9
>> Y LRINST+7, LRINST+9, TRIAL+2, TRIAL+3, TRIAL+8, A+3, A+4, L+7
>> ZTDESC QUE+1*
>> ZTIO QUE+1*
>> ZTRTN QUE+1*
>> ZTSAVE("LR*" QUE+1*
>> ZTSAVE("LRCAPS*" QUE+4*
>> ZTSAVE("LRCOL*" QUE+3*
>> ZTSAVE("LRCPSX*" QUE+5*
>> ZTSAVE("LRLOC*" QUE+5*
>> ZTSAVE("LRSITE*" QUE+2*
>> ZTSAVE("LRSP*" QUE+3*
>> ZTSAVE("LRTST*" QUE+4*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All