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

Package: Lab Service

Routine: LRUPQ


Information

LRUPQ ; IHS/DIR/FJE - LAB RESULTS BY ACCESSION AREA 2/18/93 13:12 ;

Source Information

Source file <LRUPQ.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 (D,F,L,M,S,V,YN)^LRU  ^LRUPQ1  (BEG,END)^LRUTL  
VA Fileman 2 ^%DT  ^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRUPQ1  

Entry Points

Name Comments DBIA/ICR reference
A
END
H
L
QUE
N1
N2

External References

Name Field # of Occurrence
^%DT LRUPQ+5, LRUPQ+6, A
^DIC LRUPQ+4
D^LRU LRUPQ+5, LRUPQ+6, A
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END
YN^LRU LRUPQ+7
^LRUPQ1 QUE+1
BEG^LRUTL N2+1
END^LRUTL QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LR(1)," ACCESSION LIST"
  • Line Location: LRUPQ+5
Function Call: WRITE
  • Prompt: !!,"Accession list date: ",Z(1)," OK "
  • Line Location: LRUPQ+7
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No accession numbers for ",Z(1)
  • Line Location: A+2
Function Call: READ
  • Prompt: "Start with Acc #: FIRST // "
  • Formatting: !
  • Timeout: DTIME
  • Variable: N(1)
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter NUMBERS only"
  • Line Location: N1+0
Function Call: READ
  • Prompt: "Start with Acc #: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: N(1)
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N1+1
Function Call: READ
  • Prompt: "Go to Acc #: LAST // "
  • Formatting: !
  • Timeout: DTIME
  • Variable: N(2)
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!",!!
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: !,LR(4)
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",?22,LR(1)," ACCESSIONS for ",Z(1)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Acc #",?7,"Patient",?28,"HRCN",?35,"LOC",?41,"Specimen",?56,"Received",?68,"Verified",!,LR("%")
  • Line Location: H+3
Routine Call
  • DIC
  • Line Location:
    • LRUPQ+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61 - [#61] QUE
^LAB(62 - [#62] QUE
^LRO(68 - [#68] LRUPQ+6, A+1, A+2, QUE+1

Label References

Name Line Occurrences
A A+2
END N2+1, QUE+2
H QUE
L QUE
N1 N1, N1+1
N2 N2

Naked Globals

Name Field # of Occurrence
^(3 QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRUPQ+7*, A, A+2*
%DT LRUPQ+5*, LRUPQ+6*, A*!
%DT("A" A*
>> B QUE+1*
C LRUPQ+5!
DIC LRUPQ+4*!
DIC("S" LRUPQ+4*
DIC(0 LRUPQ+4*
DT LRUPQ+6
DTIME N1, N1+1, N2
IO QUE
IOF QUE+2
IOM L
IOST QUE+2, H
>> LR LRUPQ+4*, LRUPQ+6, A+1, A+2, QUE+1
>> LR("%" H+3
>> LR("F" QUE*, H
>> LR("Q" QUE+1, H
>> LR(1 LRUPQ+4*, LRUPQ+5, H+1
>> LR(3 LRUPQ+4*
>> LR(4 QUE+1, L*
>> LRAD A+1*, A+2, N1, N1+1, QUE+1
>> LRC(5 QUE+1*
>> LRU QUE*
>> LRU(1 QUE*
>> N QUE+1*
>> N(1 N1*, N1+1*, QUE+1
>> N(2 N2*, QUE+1
>> POP N2+1
>> Q(1 QUE*
>> Q(2 QUE*
U LRUPQ+4, LRUPQ+6, A+1, N1, N1+1, N2
>> X LRUPQ+5*, LRUPQ+6*, A*, L*
>> Y LRUPQ+4, LRUPQ+5*, LRUPQ+6*, A*, A+1
>> Z(1 LRUPQ+5*, LRUPQ+6*, LRUPQ+7, A*, A+2, H+1
>> ZTRTN N2+1*
>> ZTSK N2+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All