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

Package: Lab Service

Routine: LRUER


Information

LRUER ;AVAMC/REG/CYM - ERROR TRACKING ;2/18/98 07:03 ;

Source Information

Source file <LRUER.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (B,F,L,M,SSN,V,YN)^LRU  (BEG,END)^LRUTL  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRUER  

Entry Points

Name Comments DBIA/ICR reference
A
SET
END
W
H1 ; D H Q:LR("Q") W !,LRA," ",LRB,?14,LRDATE,?34,LRP," ",SSN(1)," ",LRS Q
; ----- BEGIN IHS/MSC/MKK - LR*5.2*1031 - Restoring LR*5.2*1018 changes
H2
H
B
P
P1
QUE
W1
ASK ; W !!?5,"Find accessions with comments containing",!?20,"1. reported incorrectly as",!?20,"2. specimen rejected",!?5,"Select 1 or 2: " R X:DTIME G:X=""!(X[U) END I +X'=X!(X<1)!(X>2) G ASK
; S LRC(2)="",LRC(1)=$S(X=1:"reported incorrectly as",X=2:"specimen rejected",1:"") W !!,"List accessions with deleted comments " S %=2 D YN^LRU G:%<1 END S:%=1 LRC(2)=1
; ------ BEGIN IHS/OIT/MKK - LR*5.2*1030
X
TST

External References

Name Field # of Occurrence
B^LRU ASK+6
F^LRU H+3
L^LRU QUE+4
M^LRU H
SSN^LRU P+4
V^LRU END
YN^LRU ASK+4, ASK+7, ASK+8
BEG^LRUTL ASK+9
END^LRUTL QUE+10
$$FMTE^XLFDT P

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"List accessions with deleted comments "
  • Line Location: ASK+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"List accessions with deleted comments "
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"Do you want list of tests ordered for each accession with errors "
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !!,"New page for each accession area "
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !!,LRA_" "_LRB,?14,LRDATE,?34,LRP," ",SSN(1),?67,LRS
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,LRA_" "_LRB,?14,LRDATE,?34,LRP," ",HRCN,?67,LRS
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !?5,B(1)
  • Line Location: P+7
Function Call: WRITE
  • Prompt: !?5,$P(^LR(LRDFN,"CH",LRI,1,"AC",B,C),"^",3)
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>60
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: " (deleted by ",$S($P(X,"^",2)]"":$P(X,"^",2),1:$P(X,",")),")"
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: B+0
Function Call: WRITE
  • Prompt: "Test(s) ordered:"
  • Condition for execution: E=1
  • Line Location: B+0
Function Call: WRITE
  • Prompt: ?18,$P($G(^LAB(60,C,0)),"^"),?49,"Tech: ",J
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,LRC(1)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(LRC(1))>44
  • Line Location: H+1
Function Call: WRITE
  • Prompt: " From: ",LRSTR," To: ",LRLST,!,"Acc #",?14,"Date/Time",?34,"Name/SSN",?67,"Specimen",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LRC(1)
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(LRC(1))>44
  • Line Location: H+3
Function Call: WRITE
  • Prompt: " From: ",LRSTR," To: ",LRLST,!,"Acc #",?14,"Date/Time",?34,"Name/HRCN",?67,"Specimen",!,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,LRA," ",LRB,?14,LRDATE,?34,LRP," ",SSN(1)," ",LRS
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LRA," ",LRB,?14,LRDATE,?34,LRP," ",HRCN," ",LRS
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: !,"Test(s) ordered:"
  • Line Location: H2+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("SITE" QUE+3
^DIC - [#1] P+4
^LAB(60 - [#60] TST+2, B
^LAB(61 - [#61] X
^LR - [#63] QUE+9, A, A+2, SET, P+4, P+7, P+8, P1
^LRO(68 - [#68] TST, TST+2
^LRO(69 - [#69] QUE+5, QUE+7
^TMP("LRDFN" QUE+2!, QUE+8*, QUE+9, QUE+10!
^TMP($J QUE+2!, SET*, W, W1, X
^VA(200 - [#200] P1, B

Label References

Name Line Occurrences
A QUE+9
ASK ASK+3
B TST+2
END ASK+3, ASK+4, ASK+6, ASK+7, ASK+8, ASK+9, QUE+10
H QUE+4, W, P+5, H1+2
H1 P+7, P+8, H2
H2 B
P X
P1 P+8
SET A, A+2
TST P+5
W QUE+10
W1 W
X W1

Naked Globals

Name Field # of Occurrence
^( QUE+7, X, P+7, TST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+4*, ASK+7*, ASK+8*
A QUE+1~, QUE+9*, W*
B QUE+1~, QUE+5*, QUE+7, A+2*, W*, P+7*, P+8*, P1
B(1 P+7*
C QUE+1~, P+8*, P1, TST+2*, B
D QUE+1~
>> DFN P+4*
DTIME ASK+3
E QUE+1~, P+8*, TST+2*, B*, H2*
E(1 TST+2*
G QUE+1~, TST*, TST+1*, TST+2
>> HRCN P+5, H1+2
I QUE+6~, QUE+7*
IO QUE
IOSL P+5, P+7, P+8, B
IOST H
J QUE+1~, B*
>> LR( TST*, TST+2
>> LR("%" H+3
>> LR("F" QUE+4*, H
>> LR("Q" QUE+3*, W, W1, X, P+5, P+7, P+8, TST+2, B, H
, H1+2, H2
>> LRA W*, W1, X, P+5, TST, TST+2, H1+2
>> LRB W*, W1, X, P+5, TST, TST+1, H1+2
>> LRC W*
>> LRC(1 ASK+4*, A+2, H+3
>> LRC(2 ASK+4*, A
>> LRC(3 ASK+4*, A+2
>> LRDATE P*, P+5, H1+2
LRDFN QUE+1~, QUE+9*, A, A+2, SET, W1*, X, P+4, P+7, P+8
, P1
>> LRDPF P+4*
>> LRE ASK+6*, QUE+5
>> LRF ASK+7*, P+5
>> LRI QUE+9*, A, A+2, SET, X*, P+7, P+8, P1
>> LRL ASK+8*, W
>> LRLDT ASK+6*, QUE+9
>> LRLST H+3
>> LRP P+4*, P+5, H1+2
>> LRQ QUE+3*
>> LRQ(1 QUE+3*
>> LRS ASK+6*, QUE+5, X*, P+5, H1+2
>> LRSDT ASK+6*, QUE+9
>> LRSTR H+3
>> LRT W1*, X, P, TST
LRX QUE+1~, TST+2*, B
>> POP ASK+9
>> SSN P+4*
U ASK+3, TST+2, B
V QUE+1~, P+4*
X ASK+3*, ASK+4, QUE+1~, QUE+6~, QUE+7*, QUE+8, SET*, X*, P+4*, P1*
, TST*, TST+1
Y ASK+6, QUE+1~, SET*, P+4*
Z QUE+1~, TST*, TST+2
>> ZTRTN ASK+9*
>> ZTSK ASK+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All