Routine: LRMIBUG

Information

LRMIBUG ;AVAMC/REG,SLC/CJS,BA- DISPLAY ORGANISMS ;JUL 06, 2010 3:14 PM;

Source file <LRMIBUG.m>

Package	Total	Caller Graph
Automated Lab Instruments	2	LAMIAUT4 LAMIVTL4

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BUGIN+2
Function Call: WRITE	Prompt: !?2,LRBG,?5,$P(^LAB(61.2,LRBUG,0),U) Line Location: BUGIN+2
Function Call: WRITE	Prompt: ! Line Location: BUGIN+7
Function Call: WRITE	Prompt: !?2,LRBG,?5,$P(^LAB(61.2,LRBUG,0),U) Line Location: BUGIN+16
Routine Call	DIE Line Location: BUGGER+2 BUGGER+4 BUGGER+6
Routine Call	DIC Line Location: BUGIN+20

Name	Line Occurrences (* Changed, ! Killed)
^DIE - [#.402]	TEMP+1, TEMP+2
^DIE("B"	TEMP
^LAB(61.2 - [#61.2]	BUGIN+15, BUGIN+16, BUGGER
^LR - [#63]	BUGIN+1, BUGIN+9, BUGIN+10, BUGIN+15, DELINT+7, DELINT+8*
^LRO(68 - [#68]	BUGS+5

Name	Field # of Occurrence
>> %	BUGGER+3*
>> DA	BUGIN, BUGIN+9, BUGIN+10, BUGIN+15, BUGGER+2, BUGOUT
>> DA(1	BUGIN, BUGOUT
>> DA(2	BUGIN*
>> DIC	BUGIN, BUGIN+1, BUGGER+2, BUGOUT
>> DIC("B"	BUGIN+14!, BUGIN+15*, BUGIN+20!
>> DIC("S"	BUGIN*, BUGIN+20!
>> DIC(0	BUGIN*
>> DIE	BUGIN, BUGGER+2, BUGOUT
DLAYGO	BUGIN+20*!
DR	BUGGER+4, BUGGER+5!, BUGGER+6, TEMP+1, TEMP+2
DR(1	BUGGER+6, TEMP+1, BUGOUT!
DR(2	BUGGER+4*
I	BUGS+5, BUGIN+9, TEMP+1, DELINT+5~, DELINT+7
>> J	BUGGER+5, BUGGER+6, TEMP+1
>> K	BUGGER+5*
LR1PASS	BUGS+4, BUGS+7!, BUGIN+15, BUGIN+20
>> LRAA	BUGS+5
LRBG	BUGS+7!, BUGIN+8, BUGIN+9, BUGIN+10, BUGIN+15, BUGIN+16
LRBG1	BUGS+5*, BUGS+7!, BUGGER
LRBI	BUGS+7!, BUGGER*, TEMP+2
>> LRBUG	BUGIN+10*, BUGIN+11, BUGIN+13, BUGIN+16
LRBUGG	BUGIN+6~, BUGIN+13*
>> LRDFN	BUGIN, BUGIN+1, BUGIN+9, BUGIN+10, BUGIN+15, BUGOUT, DELINT+4, DELINT+7, DELINT+8
>> LREND	BUGS+2
>> LRIDT	BUGIN+1, DELINT+4, DELINT+7, DELINT+8
>> LRMIDEF	BUGGER
>> LRMIOTH	BUGGER+4, BUGGER+5
>> LRNB	BUGGER, BUGGER+5, TEMP*, TEMP+1, TEMP+2
>> LRODA	BUGIN*, BUGOUT
>> LRODIE	BUGIN*, BUGOUT
>> LRPARAM	BUGS+5
>> LRSPEC	BUGIN+1*
LRTHISDA	BUGGER+1~, BUGGER+2*, DELINT+4, DELINT+7, DELINT+8
LRXX	DELINT+5~, DELINT+6, DELINT+7, DELINT+8
U	BUGS+5, BUGIN+1, BUGIN+15, BUGIN+16, BUGGER, DELINT+8
>> Y	BUGS+5, BUGGER+2
>> Y(0	BUGS+5

Name	Comments	DBIA/ICR reference
BUGGER
TEMP
BUGOUT
DELINT	; If a Result is (1st piece) deleted in ^LR(LRDFN,"MI",LRIDT,3 ; the associated Interpretation (2nd piece) should be deleted ; as well. If S^S^ exists, and the Result is deleted, ^S^ Interpretation remains. ; This process will clean up the remaining Interpretation
BUGS	; Q:$G(LREND) D KVAR^VADPT S LR1PASS=1 F I=0:0 D BUGIN Q:Y<1 S LRBG1=Y(0) D:$P(Y,U,3)&($P(LRPARAM,U,14))&($P($G(^LRO(68,LRAA,0)),U,16)) ETIO^LRCAPV1 D BUGGER,BUGOUT ; ----- BEGIN IHS/MSC/MKK - LR5.21031
BUGIN