LRUER ;AVAMC/REG/CYM - ERROR TRACKING ;2/18/98 07:03 ;
Source file <LRUER.m>
Package | Total | Call Graph |
---|---|---|
Lab Service | 2 | (B,F,L,M,SSN,V,YN)^LRU (BEG,END)^LRUTL |
Kernel | 1 | $$FMTE^XLFDT |
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 |
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |
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 |
Name | Field # of Occurrence |
---|---|
^( | QUE+7, X, P+7, TST+2 |
>> | 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 |