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

Package: Lab Service

Routine: LRUPACA


Information

LRUPACA ;IHS/DIR/FJE - LAB ACC COUNTS BY LOC 2/18/93 13:09 ;JUL 06, 2010 3:14 PM

Source Information

Source file <LRUPACA.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LR COUNT ACC TESTS  LR IHS COUNT ACC TESTS  LRBLRTC  

Entry Points

Name Comments DBIA/ICR reference
B ; S V=0,S=0 F A=0:1 S S=$O(^TMP($J,T,S)) Q:S=""!(LR("Q")) D:$Y>(IOSL-6) H3 Q:LR("Q") S Z=^TMP($J,T,S) W !?30,S,?55,$J(Z,9) S V=V+Z W ?70,$J(V,9)
; Q
; ------ BEGIN IHS/OIT/MKK PATCH 1027 MODIFICATIONS
END ; D V^LRU Q
ACD
H2
H
ACY
H1
DEV
AC1 ;Q:'$D(^LRO(68,LRAA,1,I,1,LRAN,0)) Q:I'=$P(^(0),U,3) S X=^(0),LRLLOC=$S($L($P(X,U,7)):$P(X,U,7),$P(X,U,2)=62.3:"QC--"_$P(^LAB(62.3,$P(^LR($P(X,"^"),0),U,3),0),"^"),1:"???")
QUE
T
H3
TESTHEAD ; EP
EP ; Begin -- IHS/OIT/MKK - Patch 1022
ACY1
OUT

External References

Name Field # of Occurrence
^%DT H+1
^DIC EP+4
B^LRU EP+6
D^LRU QUE+1, H+1
L^LRU QUE
M^LRU H
S^LRU QUE
V^LRU END+1
WAIT^LRU QUE
BEG^LRUTL DEV
END^LRUTL OUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRAA(1)," ACCESSION COUNTS"
  • Line Location: EP+6
Function Call: WRITE
  • Prompt: !,S,?30,$J(^TMP($J,"B",S),5)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !?30,"-----",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(T(2),9)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !?30,"-----",?70,"_________",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(T(2),9)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?30,"-----",?70,"---------",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(T(2),9)
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T)
  • Line Location: QUE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+9
Function Call: WRITE
  • Prompt: ?56,"---------"
  • Line Location: QUE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+11
Function Call: WRITE
  • Prompt: ?36,"Total tests:"
  • Line Location: QUE+12
Function Call: WRITE
  • Prompt: ?56,$J(TESTCNT,9)
  • Line Location: QUE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+14
Function Call: WRITE
  • Prompt: !,?56,"---------",!
  • Line Location: QUE+18
Function Call: WRITE
  • Prompt: ?36,"Total tests:",?56,$J(TESTCNT,9),!
  • Line Location: QUE+19
Function Call: WRITE
  • Prompt: !?41,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T),?70,$J(T(1),9)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !?30,S,?55,$J(Z,9)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: ?70,$J(V,9)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: ?35,S
  • Line Location: B+10
Function Call: WRITE
  • Prompt: ?56,$J(Z,9)
  • Line Location: B+11
Function Call: WRITE
  • Prompt: ?70,$J(V,9)
  • Line Location: B+13
Function Call: WRITE
  • Prompt: !,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T)
  • Line Location: TESTHEAD+1
Function Call: WRITE
  • Prompt: @IOF,!,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",LRAA(1)," COUNTS (",LRSTR,"-",LRLST,")",!,"INCLUSIVE DATES WITH DATA: ",LRB
  • Line Location: H+2
Function Call: WRITE
  • Prompt: " TO ",LRE
  • Condition for execution: LRE]""
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Location",?26,"# Accessions",?69,"Test count",!,LR("%")
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,S
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,"Test",?35,"Location",?55,"Test count",?70,"Cum count",!,LR("%")
  • Line Location: H3+0
Routine Call
  • DIC
  • Line Location:
    • EP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] QUE+7, T, TESTHEAD+1
^LAB(62.3 - [#62.3] AC1+1
^LR - [#63] AC1+1
^LRO(68 - [#68] EP+7, ACY, ACY1, AC1+1, AC1+5, AC1+6, ACD
^TMP("LRUPACA" AC1+10, AC1+13*, END+1!
^TMP($J QUE!, QUE+1, QUE+2, QUE+7, T, B+5, B+8, ACY*, ACY1+1*, AC1+2
, AC1+21*, AC1+22*, ACD*, ACD+1*

Label References

Name Line Occurrences
@( QUE
AC1 ACY1, ACD
ACY1 ACY
B QUE+7
END EP+4, EP+6, DEV, OUT
H H1, H2, H3
H1 QUE+2, T
H3 QUE+5, QUE+7, B+7
OUT QUE+5
T QUE+2
TESTHEAD B+7

Naked Globals

Name Field # of Occurrence
^( QUE+2, AC1+2*
^("E" QUE+1
^("S" QUE+1
^(0 QUE+7, T, TESTHEAD+1, AC1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT H+1*
>> A QUE+2*
>> B ACY1*
CUMCNT QUE+6~, B+15*
DIC EP+4*!
DIC("S" EP+4*
DIC(0 EP+4*
HEDIT B+3~, B+6*, B+9, TESTHEAD+2*
>> I ACY*, ACY1, AC1+1, AC1+5, AC1+6, AC1+10, AC1+13, ACD*
IO QUE
IOF H+1
IOM H+1
IOSL QUE+2, QUE+7, T, B+7
IOST QUE, H
>> LR("%" H1, H3
>> LR("F" QUE+2*, H
>> LR("Q" QUE+2, QUE+5, QUE+7, T, B+5, B+7, H, H1, H2, H3
>> LRAA EP+4*, EP+7, ACY, ACY1, AC1+1, AC1+5, AC1+6, AC1+10, AC1+13, ACD
>> LRAA(1 EP+4*, EP+6, H+2
>> LRAN ACY1*, AC1+1, AC1+5, AC1+6, AC1+10, AC1+13, ACD*
LRAS EP+1~
>> LRB QUE+1*, ACY*, H+2
>> LRE QUE+1*, ACY1*, ACY1+1, ACD*, ACD+1, H+2
>> LRLDT EP+7*, ACY1
>> LRLLOC AC1+1*, AC1+2, AC1+21, AC1+22
>> LRLST H+2
>> LRQ H+1*
>> LRQ(1 H+1
>> LRSA ACY*, ACY1
>> LRSDT EP+7, ACY
>> LRSS EP+4*
>> LRSTR H+2
>> POP DEV
>> Q(2 QUE+2*, QUE+5
>> S QUE+2*, T, B+4*, B+5*, B+8, B+10, H2
T EP+5!, QUE+7*, T*, B+5, B+8, TESTHEAD+1, AC1+5*, AC1+6, AC1+10, AC1+13
, AC1+21, AC1+22
T(1 T*
T(2 EP+5*, QUE+5, T*
T(3 EP+7*, QUE, ACY*, ACD*
T(4 EP+7*, ACY, ACD
TESTCNT QUE+6~, QUE+17, QUE+19, B+14*
U EP+4, EP+7, AC1+1
>> V B+4*, B+12*, B+13, B+15
>> X AC1+1*, H+1*
>> Y EP+4, EP+6, QUE+1*, H+1
>> Y(0 EP+4
>> Z B+8*, B+11, B+12, B+14
>> Z(4 EP+5*
>> ZTRTN DEV*
>> ZTSK DEV
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All