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 |  Local Variables |  All
Print Page as PDF
Routine: LRLABXOL

Package: Lab Service

Routine: LRLABXOL


Information

LRLABXOL ;RVAMC/PLS/DALISC/FHS - REPRINT ACCESSION LABELS FOR ENTIRE ORDER ; 5/19/93 07:40

Source Information

Source file <LRLABXOL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 3 (LBLTYP,PSET)^LRLABLD  (IOCHK,K,PRINT)^LRLABXT  $$GOT^LROE  
Kernel 1 ^%ZTLOAD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRLABXOL  

Entry Points

Name Comments DBIA/ICR reference
EN
END ;
SQ ; Search for accession numbers and build LRORD array 'ORD #(SEQ #,ACC AREA,ACC DATE, ACC #)=""'
1
2 ;
QUE ;
PRINT ; Loop thru array and print labels.

External References

Name Field # of Occurrence
^%ZTLOAD 1+8
LBLTYP^LRLABLD PRINT+5
PSET^LRLABLD EN+2
IOCHK^LRLABXT EN+1
K^LRLABXT END+2
PRINT^LRLABXT PRINT+9
$$GOT^LROE 1+5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: LRORD
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !,"Enter a whole number for the order number."
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: " ORDER NUMBER NOT FOUND"
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !!,"All tests for this order have been canceled."
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !,"Labels have been tasked to print ",!
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: !?10,"Label(s) Printed",!
  • Line Location: 1+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRO(69 - [#69] 1+3, QUE+2, 2+2, SQ+1, SQ+3, SQ+4

Label References

Name Line Occurrences
1 1+1, 1+4, 1+5, 1+13
2 QUE+2
END EN+1, 1+1, 1+6
PRINT QUE+2
QUE 1+10
SQ 2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME 1+1
IO PRINT+1
IO(0 1, 1+12
>> LRAA SQ+4*, SQ+5, PRINT+2*, PRINT+5*, PRINT+7
>> LRAD SQ+4*, SQ+5, PRINT+6*, PRINT+7
>> LRAN SQ+4*, SQ+5, PRINT+6*, PRINT+7
LRHDR EN+3*, 1+1, 1+12*, END+1!
>> LRLABLIO EN+1, 1+7
>> LRLABLIO("Q" 1+6
>> LRODT 1+3*, 1+4, 1+5, QUE+1*, QUE+2*, 2+2, SQ+1, SQ+3, SQ+4
LRORD 1+1*, 1+2*, 1+3, 1+5, 1+11!, QUE+2, 2+2, PRINT+3, PRINT+8~, END+1!
LRORD( SQ+5*, PRINT+7!
>> LRSN 2+1*, 2+2*, SQ+1, SQ+3, SQ+4, SQ+5, PRINT+4*, PRINT+7
LRX PRINT+3*, PRINT+4, PRINT+5, PRINT+6, PRINT+8~
SEQ SQ+2*, SQ+3*, SQ+4, END+1!
U SQ+4
>> X SQ+4*
>> ZTDESC 1+7*
>> ZTIO 1+7*
>> ZTQUEUED QUE+3
>> ZTREQ QUE+3*
>> ZTRTN 1+7*
>> ZTSAVE("LR*" 1+7*
ZTSK EN!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All