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

Package: Lab Service

Routine: LRUTL


Information

LRUTL ;AVAMC/REG/CYM - GENERAL LAB UTILITY ;3/12/98 07:53

Source Information

Source file <LRUTL.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
Lab Service 3 ^LRPARAM  (LRAD,V,YN)^LRU  C^LRUA  
VA FileMan 2 ^DIC  ^DIE  

Caller Graph

Caller Graph Total: 168

Package Total Caller Graph
Lab Service 166 LR7OSBB1  LRAP  LRAPA  LRAPAP  LRAPAUA  LRAPAUL  LRAPAULC  LRAPBK  
LRAPC  LRAPDPT  LRAPH  LRAPJNC  LRAPKOE  LRAPL  LRAPONC  LRAPPA  
LRAPPF  LRAPQ  LRAPQAC  LRAPQACN  LRAPQAFS  LRAPQAM  LRAPQAMR  LRAPQAR  
LRAPQAT  LRAPQOR  LRAPQOR1  LRAPSA  LRAPSEM  LRAPSL  LRAPSM  LRAPT  
LRAPTT  LRAPWSPG  LRAUL  LRAUMLK  LRAURV  LRAUSICD  LRAUSM  LRAUSTA  
LRBLA  LRBLAA  LRBLC  LRBLCMV  LRBLDA  LRBLDA1  LRBLDAA  LRBLDAL  
LRBLDC  LRBLDCR  LRBLDCU  LRBLDED  LRBLDEL  LRBLDELT  LRBLDEX  LRBLDEX1  
LRBLDK  LRBLDL  LRBLDL1  LRBLDLG  LRBLDMV  LRBLDPA  LRBLDPH  LRBLDPL  
LRBLDR  LRBLDRR  LRBLDSC  LRBLDT  LRBLDTA  LRBLDUC  LRBLDW  LRBLDX  
LRBLJA  LRBLJB  LRBLJC  LRBLJCK  LRBLJD  LRBLJDP  LRBLJED  LRBLJI  
LRBLJLA  LRBLJLG  LRBLJM  LRBLJPA  LRBLJPH  LRBLJPP  LRBLJR  LRBLJRB  
LRBLJSH  LRBLJT  LRBLJTS  LRBLJU  LRBLJUT  LRBLJW  LRBLJX  LRBLP  
LRBLPAB  LRBLPAL  LRBLPB  LRBLPBR  LRBLPC  LRBLPD  LRBLPD1  LRBLPE1  
LRBLPED  LRBLPH  LRBLPIT  LRBLPLOGIN  LRBLPP  LRBLPQA  LRBLPR  LRBLPRA  
LRBLPSI  LRBLPT  LRBLPTR  LRBLPTR1  LRBLPUS  LRBLQPR  LRBLRCT  LRBLS  
LRBLST  LRBLSTR  LRBLTA  LRBLTA1  LRBLTX  LRBLTXA  LRBLU  LRCYPCT  
LRMIS  LRSPDA  LRSPSICD  LRUBL  LRUBYDIV  LRUCN  LRUDPT  LRUE  
LRUER  LRUET  LRUFILE  LRULB  LRULB1  LRULEN  LRUMD  LRUMD2  
LRUMDF  LRUMDM  LRUMDP  LRUMDU  LRUMDU1  LRUMI  LRUPA  LRUPA2  
LRUPAC  LRUPACA  LRUPACS  LRUPACT  LRUPAD  LRUPAD2  LRUPQ  LRUPUM  
LRUQ  LRUR  LRUSNOM  LRUTT  LRUW  LRUWG  
Automated Lab Instruments 1 LAPFICH  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
A
EN ;
BEG ;
END ;
BB
QUE
W
STF(LRAA,LRAD,LRAN,LRT,TIME) ;Set ^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRT,0) entries into

External References

Name Field # of Occurrence
^%ZIS BEG+1, W+1
^%ZISC END+1, QUE+2
^%ZTLOAD QUE+2
^DIC AEN+1, BB+3
^DIE EN+1
^LRPARAM LRUTL+3
LRAD^LRU A+12
V^LRU A+8
YN^LRU W
C^LRUA A+11
$$NOW^XLFDT STF+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,X," Not in Accession Area file (#68)",!,"Tell responsible person to enter ",X," in file."
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!!,"You do not have the appropriate security key to select this section.",!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: $C(7),!!,"LAB DATA FILE(#63) is missing one of the following:",!?3,"BLOOD BANK (63.01)",!?3,"EM (63.02)",!?3,"SURGICAL PATHOLOGY (63.08)",!?3,"CYTOPATHOLOGY (63.09)",!!?29,"Please tell IRM STAFF"
  • Line Location: A+8
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no accession areas for blood bank.",!,"Please have responsible person enter one in Accession File (#68)."
  • Line Location: BB+1
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?13,"Do you want to queue this report "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $C(7),!,"PRINTER BUSY, TRY LATER"
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,LRAA,!,LRAD,!,LRAN,!,LRT,!,TIME
  • Line Location: STF+1
Routine Call
  • %ZIS
  • Line Location:
    • BEG+1
    • W+1
Routine Call
  • DIC
  • Line Location:
    • A
    • EN+1
    • BB+3
Routine Call
  • DIE
  • Line Location:
    • EN+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63 A+6
^DIC(19.1 - [#19.1] A+1
^DIC(4 - [#4] A+5
^DIC(5 - [#5] A+5
^LAB(61 - [#61] EN+1
^LAB(69.9 - [#69.9] A+7
^LRO(68 - [#68] A+7, BBBB+2, STF+5, STF+8, STF+9, STF+10*, STF+11
^LRO(69.2 - [#69.2] A+9*, A+10
^VA(200 - [#200] A+11
^XUSEC( A+1

Label References

Name Line Occurrences
BB LRUTL+4
QUE BEG+2, W+1
W BEG+1

Naked Globals

Name Field # of Occurrence
^(0 A+1, A+6, A+9*, A+10*, A+11, STF+8*, STF+9*, STF+10*, STF+11*
^(1 A+5
^(3 BB

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % W*, W+1
%ZIS BEG+1!*
A BB*, BB+2!
B BB*, BB+1, BB+2!
B( BB*, BB+2
>> DA EN+1*
DIC LRUTL+5*, A!, A+11!, EN+1*!, BB+3*!
DIC("S" BB+3*
DIC(0 LRUTL+5*, EN+1*, BB+3*
DIE A+11!, EN+1*!
DLAYGO EN+1*!
DR A+11!, EN+1*!
DT A+11
>> DTOUT A
>> DUOUT A
DUZ LRUTL+2, A+1, A+11, STF+9
DUZ(2 A+5, BB
IO BEG+1
IO("Q" BEG+1, QUE!
IO(0 BEG+1
>> IOCPU BEG+1
IOF END+1, QUE
ION QUE+2, W+1
IOP BEG+1!, W+1*
IOST END+1
>> LR( A+3*
>> LR("FORM" END+1
>> LR("K" A+1*
>> LR("LINE" END+1
>> LR("M" BB+2
LRAA A+2*, A+3, A+7, A+9, A+10, STF~, STF+1, STF+5, STF+9, STF+10
, STF+11
LRAA(1 A+2*, A+3*, A+4*, A+6
LRAA(2 LRUTL+4*, A+2*, A+6, BB
LRAA(4 A+5*
LRAA(5 A+5*
LRAA(6 A+5*
>> LRABV A+2*
LRAD STF~, STF+1, STF+5, STF+8, STF+9, STF+10, STF+11
LRAN STF~, STF+1, STF+5, STF+8, STF+9, STF+10, STF+11
>> LRAX A+6*
>> LRCAPA A+7*
>> LRDPAF A+11*
>> LREND LRUTL+3
>> LRERR STF+5*
>> LRO(68 A+2*
LRRC STF+6~, STF+7*, STF+9
>> LRSF A+6*, A+8
>> LRSS A+2*, A+3, A+4, A+8
LRT A+7*, STF~, STF+1, STF+5, STF+9, STF+10, STF+11
>> LRU EN+1*
>> LRWHO A+11*
>> POP BEG+1, QUE*, QUE+2*, W*, W+1
TIME STF~, STF+1, STF+7
U A+1, A+2, A+11, BB+2, BB+3
X LRUTL+4, LRUTL+5, AA+5*, A+9*, A+11*, EN+1*, BB+2*, BB+3*, STF+6~
, STF+10*
>> Y LRUTL+2*, LRUTL+4, AA+1*, A+2, A+8*, A+11*, EN+1, BB+1*, BB+2*
BB+3
>> Y(0 A+1, A+2, A+9
>> ZTDESC QUE+1*
ZTIO QUE+2*!
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN QUE
>> ZTSAVE QUE+2
>> ZTSAVE("*" QUE+2*
ZTSK BEG+1!, QUE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All