Routine: LR7OMERG

Package	Total	Call Graph
Lab Service	5	EXPAND^LR7OU1 (LRACC,SET)^LRTSTOUT 69^LRTSTSET ORUT^LRWLST11 PT^LRX
VA Fileman	2	^DIC YN^DICN
Automated Lab Instruments	1	EN^LA7ADL
Kernel	1	$$NOW^XLFDT
Registration	1	KVA^VADPT

Package	Total	Caller Graph
Lab Service	5	LRACC MERGE LRHYLS1 LRVER4 LRVR4 LRWRKLS1
IHS Changes To Lab	1	BLRSHPM1

Entry Points

Name	Comments	DBIA/ICR reference
CHK(ARAY1,ARAY2,OUT)	;Check for duplicate tests on accessions
ZAP(LRODT,LRSN,LRAA,LRAD,LRAN,LRIDT,LRMERG)	;
EN	;Merge 2 accessions together
OK
SET69(LRODT,LRSN,LRTS,LRURG,LRAA,LRAODT,LRAN)	;Set file 69
UL2	;Unlock 2nd accession
PRAC(LRAA,LRAD,LRAN,Y)	;Find all ordering providers for a given accession
UL1	;Unlock 1st accession
WRITE(AA,AD,AN,SP,COMP,ARAY)	;Display accession with tests
EN1
2
SET68(LRTSTS,URG,LRPRIM)	;Set file 68
END	;

External References

Name	Field # of Occurrence
^DIC	SET69+5
YN^DICN	OK, OK+27
EN^LA7ADL	OK+25
EXPAND^LR7OU1	CHK+7
LRACC^LRTSTOUT	EN1, 2
SET^LRTSTOUT	ZAP+5
69^LRTSTSET	SET69+6
ORUT^LRWLST11	OK+6
PT^LRX	EN1+4, 2+7
KVA^VADPT	END+4
$$NOW^XLFDT	ZAP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Merge from..." Line Location: EN1+0
Function Call: WRITE	Prompt: !?5,"This is not a valid Accession number ",!,$C(7) Line Location: EN1+1
Function Call: WRITE	Prompt: !?5,"Someone else is editing this entry ",!,$C(7) Line Location: EN1+2
Function Call: WRITE	Prompt: ?35,PNM,?65,SSN Line Location: EN1+4
Function Call: WRITE	Prompt: !!,"Merge into..." Line Location: 2+0
Function Call: WRITE	Prompt: !?5,"This is not a valid Accession number ",!,$C(7) Line Location: 2+1
Function Call: WRITE	Prompt: !!,$C(7),"Cannot merge into the same accession" Line Location: 2+2
Function Call: WRITE	Prompt: !!,$C(7),"Cannot merge a """_LRSS_""" accession into a """_$P(^(0),"^",2)_""" accession" Line Location: 2+3
Function Call: WRITE	Prompt: !?5,"Someone else is editing this entry ",!,$C(7) Line Location: 2+4
Function Call: WRITE	Prompt: ?35,PNM,?65,SSN Line Location: 2+7
Function Call: WRITE	Prompt: !!,$C(7),"Cannot merge accessions for different patients!" Line Location: 2+8
Function Call: WRITE	Prompt: !!,$C(7),"Cannot merge accessions with different specimens" Line Location: 2+10
Function Call: WRITE	Prompt: !!,$C(7),"Cannot merge accessions with completed results" Line Location: 2+11
Function Call: WRITE	Prompt: !,"<<"_$P(^LAB(60,I,0),"^")_" normally belongs to accession area: "_$P(^LRO(68,J,0),"^")_">>",$C(7) Line Location: 2+13
Function Call: WRITE	Prompt: !!,"Ok to merge" Line Location: OK+0
Function Call: WRITE	Prompt: !!,"Enter 'Yes' to merge these accessions, 'No' to abort." Line Location: OK+1
Function Call: WRITE	Prompt: !!,"NOTHING MERGED!",! Line Location: OK+2
Function Call: WRITE	Prompt: !!,"Accessions merged!" Line Location: OK+23
Function Call: WRITE	Prompt: !!,"Accession #"_LRAN_" now looks like:" Line Location: OK+24
Function Call: WRITE	Prompt: !,"Merge another accession" Line Location: OK+27
Function Call: WRITE	Prompt: !,$S($D(^LAB(61,+$G(SP),0)):$P(^(0),"^"),1:""),?35,"TESTS ON ACCESSION: " Line Location: WRITE+5
Function Call: WRITE	Prompt: !,?40,$P(^LAB(60,I,0),U) Line Location: WRITE+6
Function Call: WRITE	Prompt: ?65,$S($L($P(ARAY(I),U,6)):$P(ARAY(I),U,6),1:" Verified") Line Location: WRITE+6
Routine Call	DIC Line Location: SET69+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	2+12, 2+13, OK+9, OK+11, OK+13, ZAP+4, WRITE+6, SET69+4
^LAB(61 - [#61]	WRITE+5
^LR - [#63]	EN1+4, 2+7, OK+21*
^LRO(68 - [#68]	EN1+1, EN1+2, EN1+3, 2+1, 2+3, 2+4, 2+5, 2+12, 2+13, OK+17 , OK+18, OK+20, OK+25, ZAP+3, PRAC+2, UL2+1, UL1+1, WRITE+4, WRITE+6, SET68+1 , SET68+2, SET68+3, SET68+4*
^LRO(69 - [#69]	ZAP+1, PRAC+8, PRAC+9, PRAC+10

Label References

Name	Line Occurrences
2	2+1, 2+2, 2+4
CHK	OK+4, OK+12
EN	2+3, 2+8, 2+10, 2+11
EN1	EN1+1, EN1+2, OK+27
END	EN+1, OK+26
OK	OK+1
SET68	OK+14, OK+15, OK+16
SET69	OK+14, OK+15, OK+16
UL1	2, OK+2, OK+22
UL2	2+8, 2+10, 2+11, OK+2, OK+22
WRITE	EN1+5, 2+9, OK+24
ZAP	OK+19

Naked Globals

Name	Field # of Occurrence
^(	EN1+3, 2+5, OK+11, OK+13, OK+17, OK+21, PRAC+9, WRITE+4, WRITE+6
^(0	EN1+4, 2+3, 2+7, OK+18, PRAC+2, PRAC+8, PRAC+10, WRITE+5, SET68+2, SET68+4
^(3	EN1+3, 2+5
^(5	EN1+3, 2+5
^(9	OK+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	OK, OK+1, OK+2, OK+27
AA	WRITE~, WRITE+4, WRITE+6
AD	WRITE~, WRITE+4, WRITE+6
AGE	END+5!
AN	WRITE~, WRITE+4, WRITE+6
ARAT	OK+10~, OK+12
ARAT(	OK+11*
ARAY	WRITE~
ARAY(	WRITE+6*
ARAY1	CHK~
ARAY1(	CHK+6
ARAY2	CHK~
ARAY2(	CHK+6, CHK+7
ARAY2(0	CHK+4
COMP	EN1, EN1+5, 2+9, 2+11, WRITE~, WRITE+6, END+1!
D0	END+5!
DA	SET69+1~, END+2!
DA(1	SET69+3*
DA(2	SET69+3*
DFN	EN1+4, 2+7, END+3!
DI	END+5!
DIC	SET69+1~, SET69+3*
DIC(0	SET69+4*
DIE	SET69+1~
DLAYGO	SET69+1~, SET69+4*
DOB	END+3!
DR	SET69+1~
DUZ(2	2+12
I	2+12, 2+13, PRAC+1~, PRAC+9, CHK+5~, CHK+6, CHK+7, CHK+8, WRITE+6, END+1!
IFN	END+5!
IN2	CHK+5~, CHK+7
IN2(	CHK+8
J	2+12, 2+13, OK+11, OK+13, OK+15, END+1!
LR1AA	EN1+6*, 2+2, 2+12, OK+17, OK+18, OK+19, OK+20, UL1+1, END+1!
LR1AD	EN1+6*, 2+2, 2+12, OK+17, OK+18, OK+19, OK+20, UL1+1, END+1!
LR1AN	EN1+6*, 2+2, 2+12, OK+17, OK+18, OK+19, OK+20, UL1+1, END+1!
LR1ODT	EN1+4*, OK+19, END+1!
LR1SN	EN1+4*, OK+19, END+2!
LRAA	EN1+1, EN1+2, EN1+3, EN1+5, EN1+6, 2+1, 2+2, 2+3, 2+4, 2+5 , 2+9, 2+12, OK+14, OK+15, OK+16, OK+24, OK+25, ZAP~, ZAP+3, PRAC~ , PRAC+2, UL2+1, SET68+1, SET68+2, SET68+3, SET68+4, SET69~, END+1!
LRACC	EN1, 2, END+1!
LRAD	EN1+1, EN1+2, EN1+3, EN1+5, EN1+6, 2+1, 2+2, 2+4, 2+5, 2+9 , OK+15, OK+16, OK+24, OK+25, ZAP~, ZAP+3, PRAC~, PRAC+2, UL2+1, SET68+1 , SET68+2, SET68+3, SET68+4, END+1!
LRAGE	END+6!
LRAN	EN1, EN1+1, EN1+2, EN1+3, EN1+5, EN1+6, 2, 2+1, 2+2, 2+4 , 2+5, 2+9, OK+14, OK+15, OK+16, OK+24, OK+25, ZAP~, ZAP+3, PRAC~ , PRAC+2, UL2+1, SET68+1, SET68+2, SET68+3, SET68+4, SET69~, END+1!
LRAODT	EN1+4, 2+7, OK+14, SET69~, END+2!
LRCCOM	2+6*, END+5!
LRCWDT	OK+18*, END+2!
LRDFN	EN1+4, 2+7, OK+21, END+2!
LRDPF	EN1+4, 2+7, END+2!
LREND	END+2!
LRF	END+2!
LRFLG	SET69+1~, SET69+2*
LRIDIV	END+2!
LRIDT	2+5*, OK+21, ZAP~, END+1!
LRIDT1	EN1+3*, OK+19, OK+21, END+1!
LRII	OK+3~, OK+5*, OK+8, OK+9, OK+11, OK+13, OK+14, OK+16, END+5!
LRLFTOVR	OK+3~, OK+4, END+5!
LRLFTOVR(	OK+8
LRLLOC	END+5!
LRMERG	ZAP~
LRNATURE	2+6, SET69+1~, SET69+2, END+5!
LRNLT	OK+3~, END+5!
LRNOW	ZAP+2*, END+5!
LROCN	OK+17*, END+2!
LRODT	2+7, OK+14, OK+15, OK+16, ZAP~, ZAP+1, PRAC+1~, PRAC+3, PRAC+6, PRAC+8 , PRAC+9, SET69~, SET69+3, END+2!
LROID	OK+17*, END+2!
LRORD	2+5*, END+1!
LROSN	OK+17*, END+2!
LROWDT	OK+18*, END+2!
LRPHSET	SET69+1~, SET69+2*
LRPRAC	END+2!
LRPRIM	SET68~, SET68+2
LRRB	END+2!
LRSN	2+7, OK+14, OK+15, OK+16, ZAP~, ZAP+1, PRAC+1~, PRAC+3, PRAC+6, PRAC+8 , PRAC+9, SET69~, SET69+3, END+2!
LRSS	EN1+3*, 2+3, OK+21, END+1!
LRT1SAD	EN1+5, OK+4, END+2!
LRT1SAD(	OK+5
LRTNM	ZAP+4*, END+6!
LRTOACC	2+5*, 2+6, END+3!
LRTREA	END+2!
LRTS	SET69~, SET69+4
LRTSAD	2+9, OK+4, OK+12, END+2!
LRTSORU	OK+3~, OK+5*, OK+6, OK+7, OK+14, OK+15, OK+16, END+6!
LRTSORU(	OK+6, OK+7*
LRTSTS	ZAP+3*, ZAP+4, SET68~, SET68+1, SET68+2, SET68+3, SET68+4, END+6!
LRURG	SET69~
LRWRD	END+2!, END+3!
LRX	END+2!
LRX1	EN1+3*, 2+8, END+1!
LRXDA	SET69+1~
OUT	CHK~
OUT(	CHK+6*, CHK+8!
PNM	EN1+4, 2+7, END+3!
PROV	PRAC+1~, PRAC+2*, PRAC+6, PRAC+8, PRAC+10
SAME	OK+10~, OK+13*, OK+14
SEX	END+3!
SP	WRITE~, WRITE+5
SPEC	2+5*, 2+9, 2+10, OK+24, END+2!
SPEC1	EN1+3*, EN1+5, 2+10, END+2!
SSN	EN1+4, 2+7, END+3!
SUB	OK+10~, OK+12
SUB(	OK+13, OK+15
TST	END+2!
U	EN1+4, 2+7, 2+12, OK+5, OK+17, OK+18, OK+25, ZAP+4, WRITE+4, WRITE+6 , SET68+2, SET69+4, SET69+5
URG	OK+3~, OK+5*, OK+14, OK+15, OK+16, SET68~, SET68+2, END+6!
VA	END+3!
VA200	END+3!
VADM	END+3!
VAERR	END+3!
VAIN	END+3!
X	EN1+3, EN1+4, 2+5, 2+7, 2+8, OK+5, OK+17, OK+25, PRAC+1~, PRAC+2 , PRAC+3, PRAC+9, PRAC+10, SET69+1~, SET69+4, END+1!
X1	END+1!
Y	PRAC~, SET69+1~, SET69+5, END+3!
Y(	PRAC+8, PRAC+10

Customize PDF page

Package: Lab Service

Routine: LR7OMERG

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: