LRBLTA1 ; IHS/DIR/FJE - TRANSFUSION REACTION COUNTS 10/7/90 10:54 ;
Source file <LRBLTA1.m>
Package | Total | Call Graph |
---|---|---|
Lab Service | 3 | N^LRBLTA (DT,F,M,V)^LRU END^LRUTL |
Name | Comments | DBIA/ICR reference |
---|---|---|
C | ;S LRI=0 F S LRI=$O(^TMP($J,LRR,LRDFN,LRI)) Q:'LRI!(LR("Q")) D:$Y>(IOSL-6) H1 Q:LR("Q") W !,SSN,?5,LRP,?36 S Y=+$G(^LR(LRDFN,1.9,LRI,0)) D DT^LRU W Y
|
|
B | ||
END | ||
H | ||
H1 | ||
S |
Name | Line Occurrences |
---|---|
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) |
---|---|
^LAB(65.4 - [#65.4] | LRBLTA1+6 |
^LR - [#63] | C+1 |
^LR("AR" | LRBLTA1+5 |
^TMP($J | LRBLTA1+4!, LRBLTA1+6, S, B, C+1 |
Name | Line Occurrences |
---|---|
B | LRBLTA1+6 |
C | B |
END | LRBLTA1+7 |
H | LRBLTA1+4, LRBLTA1+6, H1 |
H1 | C+1 |
S | LRBLTA1+5 |
Name | Field # of Occurrence |
---|---|
^( | S* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> HRCN | C+1 |
IOSL | LRBLTA1+6, C+1 |
IOST | H |
>> LR("%" | H+2 |
>> LR("F" | H |
>> LR("Q" | LRBLTA1+4, LRBLTA1+6, B, C+1, H, H1 |
>> LRDFN | LRBLTA1+5*, S, B*, C+1 |
>> LRF | LRBLTA1+6, S, H+2 |
>> LRI | LRBLTA1+5*, S, C+1* |
>> LRLDT | LRBLTA1+5 |
>> LRLST | H+2 |
>> LRP | C+1 |
>> LRR | LRBLTA1+5*, LRBLTA1+6*, S, B, C+1 |
>> LRR(1 | LRBLTA1+6*, H1 |
>> LRSDT | LRBLTA1+5 |
>> LRSTR | H+2 |
U | LRBLTA1+6 |
>> Y | C+1* |