BLRDIAG1 ;IHS/ITSC/TPF - DELETE TEST FROM ACCESSION WHEN EXITING SIGN SYMPTOM PROMPT
Source file <BLRDIAG1.m>
Package | Total | Call Graph |
---|---|---|
IHS Changes To Lab | 4 | ^BLRALAF KX^BLRALUT1 ^BLREVTQ $$ADDON^BLRUTIL |
Lab Service | 3 | NEW^LR7OB1 $$VER^LR7OU1 DC^LRCENDE1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
FX4 | ;W !,"No tests left, remove accession" S %=1 D YN^DICN W:%=0 !,"Answer 'Y' or 'N'" G:%=0 FX3 I %=1 D SKPLR^LRCENDE1 D L -^LR(LRDFN,LRSS,LRIDT) L -^LRO(68,LRAA,1,LRAD,1,LRAN) G FIX
|
|
TESTDEL | ;EP ;IHS/ITSC/TPF 01/03/2003 FOR LAB POV
|
|
FX3 | ;I $O(^LRO(68,LRAA,1,LRAD,1,LRAN,4,0))<1,'$P(^LRO(68,LRAA,1,LRAD,1,LRAN,3),U,4) K ^LR(LRDFN,LRSS,LRIDT,99) G FX4
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB(60 - [#60] | TESTDEL+6 |
^LR - [#63] | TESTDEL+6!, FX3+2, FX4+2, FX4+7, FX4+11! |
^LRO(68 - [#68] | TESTDEL+5!, TESTDEL+7!, TESTDEL+10, FX3+2, FX4+13* |
^LRO(69 - [#69] | TESTDEL+1, TESTDEL+2, TESTDEL+3*, TESTDEL+4 |
Name | Field # of Occurrence |
---|---|
^( | TESTDEL+1, TESTDEL+4*, TESTDEL+5 |
^(0 | TESTDEL+3*, TESTDEL+4*, FX4+2, FX4+13* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BLRADATA | FX4+7*, FX4+8, FX4+10! |
BLRARFL | FX4+8*, FX4+10! |
BLRARPHY | FX4+8*, FX4+10! |
>> BLRLOG | TESTDEL+14 |
>> BLROPT | TESTDEL+14 |
DT | TESTDEL+4 |
DUZ | TESTDEL+3 |
DUZ(2 | TESTDEL+11, FX4+9 |
>> I | TESTDEL+5* |
II | TESTDEL+1~ |
II( | TESTDEL+1* |
>> LRAA | TESTDEL+5, TESTDEL+7, TESTDEL+10, TESTDEL+14, FX3+2, FX4+13 |
>> LRAD | TESTDEL+5, TESTDEL+7, TESTDEL+14, FX3+2, FX4+13 |
>> LRAN | TESTDEL+5, TESTDEL+7, TESTDEL+14, FX3+2, FX4+13 |
>> LRCCOM | TESTDEL+4 |
>> LRDFN | TESTDEL+6, FX3+2, FX4+2, FX4+7, FX4+11 |
>> LRI | TESTDEL+1*, TESTDEL+2, TESTDEL+3, TESTDEL+4 |
>> LRIDT | TESTDEL+6, FX3+2, FX4+2, FX4+7, FX4+11 |
>> LRMSTATI | TESTDEL+1 |
>> LRNATURE | TESTDEL+1 |
>> LRODT | TESTDEL+1, TESTDEL+2, TESTDEL+3, TESTDEL+4 |
>> LROWDT | TESTDEL+5, TESTDEL+7 |
>> LRSB | TESTDEL+6* |
>> LRSN | TESTDEL+1, TESTDEL+2, TESTDEL+3, TESTDEL+4 |
>> LRSS | TESTDEL+10*, FX3+2, FX4+2, FX4+7, FX4+11 |
>> LRTNM | TESTDEL+7 |
>> LRTSTS | TESTDEL+1, TESTDEL+5, TESTDEL+6, TESTDEL+7 |
ORIFN | TESTDEL+2*, TESTDEL+5! |
ORSTS | TESTDEL+5! |
U | TESTDEL+2, TESTDEL+6, TESTDEL+10, FX4+2, FX4+8, FX4+13 |
>> X | TESTDEL+4*, TESTDEL+5* |