Routine: LR7OU4

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
Kernel	1	($$CJ,$$LOW)^XLFSTR
Lab Service	1	^LRCAPD

Package	Total	Caller Graph
Lab Service	2	LR7O 60-64 AUTO LR7OU5

Entry Points

Name	Comments	DBIA/ICR reference
XSS
EN	;
END	;
MIXED(X,FLG)	;Return mixed case
60(X)	;Find matching item in file 60
LINK(X60,X64,DOIT)	;Link the 2 files
LIST	;
LK
LAB	;
UPPER(X)	; Convert lower case X to UPPER CASE
9	;Look for Verify WKLD codes
64	;Find matches between file 64 and 60
L1
91	;Look for Accession WKLD codes
L2
DXSS
CHECK	;

External References

Name	Field # of Occurrence
^DIC	91+5, 9+5
YN^DICN	LK+1, L1
^DIE	L2+1, XSS+1
^DIK	DXSS+3
^DIR	LIST+2, LIST+4, LIST+6
^LRCAPD	LIST+3
$$CJ^XLFSTR	64+1, 64+2, 64+3, 64+4, LK, LK+1, LK+2, LAB+3
$$LOW^XLFSTR	MIXED+4, MIXED+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("This option will look for potential matches between file 64 (NLT) and file 60.",80),!,$$CJ^XLFSTR("You will be allowed to create a permanent link between matching entries in",80) Line Location: 64+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("these files. Tests with the type of NEITHER will be omitted during link phase.",80) Line Location: 64+2
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ONLY GENERIC NLT CODES CAN BE LINKED TO LAB TEST ",80),!! Line Location: 64+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Those LAB TEST already linked to the NLT file will also be omitted.",80),! Line Location: 64+4
Function Call: WRITE	Prompt: ! Line Location: LIST+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Do you want to automatically link entries when there is an exact match",80) Line Location: LK+0
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("on the NAME in both files",80) Line Location: LK+1
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Answer YES to automatically link the entries, or NO to be prompted for each",80) Line Location: LK+2
Function Call: WRITE	Prompt: !!,"60 = ",LRDATA,!,"64 = ",LRMNAME_" "_LRCODE Line Location: CHECK+8
Function Call: WRITE	Prompt: !!,$C(7),?5,"Did not find a exact name match for Lab Test "_LRDATA Line Location: 91+2
Function Call: WRITE	Prompt: !," Want to use a Accession WKLD code instead?",! Line Location: 91+3
Function Call: WRITE	Prompt: ! Line Location: 91+5
Function Call: WRITE	Prompt: ! Line Location: 91+5
Function Call: WRITE	Prompt: !!,$C(7),?5,"Did not find a exact name match for Lab Test "_LRDATA Line Location: 9+2
Function Call: WRITE	Prompt: !," Want to use a Verify WKLD code instead?",! Line Location: 9+3
Function Call: WRITE	Prompt: ! Line Location: 9+5
Function Call: WRITE	Prompt: ! Line Location: 9+5
Function Call: WRITE	Prompt: !?5,"Link the two entries" Line Location: L1+0
Function Call: WRITE	Prompt: !,"Enter Yes to link the entries, No to leave it alone." Line Location: L1+2
Function Call: WRITE	Prompt: !?32,"o----LINKED----o",! Line Location: XSS+2
Function Call: WRITE	Prompt: !!?15,"*************** NOT LINKED *************",! Line Location: XSS+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: XSS+4
Function Call: WRITE	Prompt: !!?5,"Press Return to continue" Line Location: XSS+4
Function Call: WRITE	Prompt: !,$P(^LAM(ZZ1,0),"^")_" => "_X,?60,"Already linked" Line Location: 60+5
Routine Call	DIE Line Location: L2+1 XSS+1
Routine Call	DIC Line Location: 91+5 9+5
Routine Call	DIR Line Location: LIST+2 LIST+4 LIST+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls
^LAM - [#64]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LAB+1, LAB+2, CHECK+1, CHECK+2, 91+1, 91+4, 9+1, 9+4, L2, XSS+2 , DXSS+1, 60+2, 60+3, 60+4
^LAM - [#64]	CHECK+4, CHECK+5, CHECK+6, CHECK+7, 91+4, 9+4, DXSS+2, 60+5
^LAM("AE"	XSS+2
^LAM("C"	CHECK+5
^LAM("D"	CHECK+3

Label References

Name	Line Occurrences
$$MIXED	MIXED+7
$$UPPER	CHECK+3
9	91+1
91	CHECK+3
CHECK	LAB+2
DXSS	L2
END	LIST+2, LIST+6, LK+1, LAB+4
L1	L1+2
L2	LINK+1
LINK	CHECK+9
LK	LIST+2, LK+2

Naked Globals

Name	Field # of Occurrence
^(	LAB+2
^(0	CHECK+2, CHECK+4, CHECK+7, 91+4, 9+4
^(64	60+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LK+1, LK+2, LK+3, LINK+1, L1*, L1+2, END+2!
AUTO	LK+3*, CHECK+9, END+2!
D0	END+3!
D1	END+3!
DA	L2+1!, XSS!, DXSS~, DXSS+2*, DXSS+3, END+2!
DA(1	DXSS+1*, DXSS+2, DXSS+3
DIC	91+5!, 9+5!, L2+1!, XSS!, XSS+1!, DXSS~, END+2!
DIC("A"	91+5, 9+5
DIC("V"	XSS+1*
DIC(0	91+5, 9+5
DIE	L2+1!, XSS!, DXSS~, END+2!
DIK	DXSS~, DXSS+1*
DIR	LIST+1!, LIST+3!, LIST+5!, END+2!
DIR("A"	LIST+1, LIST+3, LIST+5*
DIR("B"	LIST+1*
DIR(0	LIST+1, LIST+3, LIST+5*
>> DIROUT	LIST+6
>> DIRUT	LIST+2
DLAYGO	L2+1!, XSS, XSS+1!, DXSS~, DXSS+1*, END+3!, END+4!
DOIT	LINK~, LINK+1, END+2!
DR	L2+1!, XSS!, DXSS~, END+2!
DR(1	XSS*
DR(2	XSS*
DTIME	XSS+4
>> DTOUT	LIST+2, LIST+6, 91+6, 9+6, L1+1, XSS+4
>> DUOUT	LIST+2, LIST+6
END	LAB+1, LAB+2, LAB+3, CHECK+1, CHECK+3, 91+6, 9+6, L1, L1+1, XSS+4 , END+2!, END+3!
FLG	END+4!, MIXED~, MIXED+4, MIXED+5, MIXED+6
I	91+4, 9+4, END+3!, MIXED+3~, MIXED+7*
>> LINKED	60+5*
LRCODE	CHECK+4*, CHECK+5, CHECK+8, END+3!
LRDATA	CHECK+2, CHECK+8, 91+2, 9+2, LINK+1, END+2!
>> LRDBUG	END+1
LRIEN	LAB+2*, CHECK+1, CHECK+2, CHECK+9, 91+1, 91+4, 91+5, 9+1, 9+4, 9+5 , END+2!
LRMIEN	CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+9, 91+6, 9+6, END+2!
LRMNAME	CHECK+6, CHECK+7, CHECK+8, END+3!
LRN	LAB+1*, LAB+2, CHECK+3, END+2!
LRNU	CHECK+3*, END+2!
LRSUF	END+3!
LRTY	CHECK+2*, END+3!
SSS	60+1!, 60+3*
U	CHECK+2, CHECK+4, CHECK+6, CHECK+7, 91+4, 91+6, 9+4, 9+6, XSS+4
X	91+6, 9+6, XSS+4, END+3!, END+4!, UPPER~, UPPER+1, 60~, 60+1, 60+2 , 60+3, 60+4, 60+5, 60+6, MIXED~, MIXED+4, MIXED+5, MIXED+7, MIXED+8, MIXED+9
X60	LINK~, LINK+1, L2, L2+1, XSS+2, DXSS+1, DXSS+2, END+3!
X64	LINK~, XSS, END+3!
XXX	END+4!, 60+1~*, 60+3
Y	LIST+2, LIST+6, 91+6, 9+6, END+3!, END+4!
Y64	END+4!
Z	MIXED+3~, MIXED+6, MIXED+7, MIXED+8
ZZ	END+4!, 60+2, 60+4
ZZ1	END+4!, 60+2, 60+4, 60+5

Customize PDF page

Package: Lab Service

Routine: LR7OU4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: