Routine: LR7OU64

Information

LR7OU64 ;SLC/DCM/FHS/DALISC - RESULT CODE NLT LINKING UTILITY AUTO ; 6/12/12 2:00

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$NOW^XLFDT ($$CJ,$$UP)^XLFSTR
VA FileMan	3	YN^DICN ^DIE ^DIR
Lab Service	1	EN^LRDIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Lab Service	2	LR7O AUTO RESULT NLT LR7OU641

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
LIST	;
LK
LAB	;
CHECK	;
64	;Look for NATIONAL VA LAB CODE
LINK(X60,X641,DOIT)	;Link the 2 files
L1
L2
END	;
LST	;
DQ
CLEAN
MSG

External References

Name	Field # of Occurrence
^%ZIS	LST+4
^%ZISC	LST+5
^%ZTLOAD	LST+5
YN^DICN	LK+1, L1
^DIE	L2
^DIR	LIST+2, LIST+4, LIST+6, 64+6
EN^LRDIQ	DQ+9
$$NOW^XLFDT	DQ+2
$$CJ^XLFSTR	LK, LK+1, LK+2, LAB+4, LST+2, LST+3, DQ+1, MSG, MSG+1, MSG+2 , MSG+3, MSG+4
$$UP^XLFSTR	CHECK+4

Interaction Calls

Name	Line Occurrences
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: 64+3
Function Call: WRITE	Prompt: !," Want to use the ["_$P(^LAM(LRMIEN,0),U)_"] NATIONAL VA LAB CODE instead?" Line Location: 64+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: L2+1
Function Call: READ	Variable: X Timeout: 1 Line Location: L2+2
Function Call: WRITE	Prompt: !?20,"User terminated update",!,$C(7) Line Location: L2+2
Function Call: WRITE	Prompt: !!?15,"*************** NOT LINKED *************",! Line Location: L2+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: L2+4
Function Call: WRITE	Prompt: !!?5,"Press Return to continue" Line Location: L2+4
Function Call: WRITE	Prompt: !,"Nothing in X-Ref to Print.",!! Line Location: LST+1
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("I will produce a list of ",80) Line Location: LST+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("NATIONAL VA Code / Result NLT codes from LABORATORY TEST file",80),! Line Location: LST+3
Function Call: WRITE	Prompt: !!?10,"Report Queued to "_ION,! Line Location: LST+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("List of NATIONAL VA Code / Result NLT codes from LABORATORY TEST file",80),!! Line Location: DQ+1
Function Call: WRITE	Prompt: ?6,$$NOW^XLFDT,! Line Location: DQ+2
Function Call: WRITE	Prompt: !,"Test Name: ",$P(^LAB(60,DA,0),U) Line Location: DQ+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("This option will Auto Link NLT RESULT CODE to Laboratory test file (#60).",80) Line Location: MSG+0
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("NLT RESULT CODE is used by the LEDI software to identify",80) Line Location: MSG+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("test results returned by Host Laboratories.",80) Line Location: MSG+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ONLY GENERIC NLT CODES CAN BE LINKED TO LAB TEST ",80),!! Line Location: MSG+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Only ATOMIC lab tests can have an NLT RESULT CODE.",80),! Line Location: MSG+4
Routine Call	%ZIS Line Location: LST+4
Routine Call	DIE Line Location: L2
Routine Call	DIR Line Location: LIST+2 LIST+4 LIST+6 64+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LAB+2, LAB+3, CHECK+2, CHECK+3, CHECK+6, 64+1, L2+1, LST+1, DQ+3, DQ+4 , DQ+5, DQ+8
^LAM - [#64]	CHECK+4, CHECK+6, CHECK+7, 64+1, 64+5
^LAM("D"	CHECK+4
^TMP("LR"	LST+1!, DQ!, DQ+5*, CLEAN!

Label References

Name	Line Occurrences
64	CHECK+5
CHECK	LAB+3
CLEAN	LST+4, LST+5
END	LIST+2, LIST+6, LK+1, LAB+5
L1	L1+2
L2	LINK+1
LINK	CHECK+9
LK	LIST+2, LK+2
LST	LIST+3
MSG	EN+2

Naked Globals

Name	Field # of Occurrence
^(	LAB+3
^(0	CHECK+2, CHECK+3, CHECK+4, CHECK+6, CHECK+7, 64+1

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!
%ZIS	LST+4!*
%ZIS("A"	LST+4*
AUTO	LK+3*, LAB+1, CHECK+9, END+2!
D0	END+3!
D1	END+3!
DA	L2!, END+2!, DQ+8, CLEAN!
DIC	L2!, END+2!, LST+1!, DQ+6*, CLEAN!
DIE	L2!*, END+2!
DIR	LIST+1!, LIST+3!, LIST+5!, 64+4!, 64+6!, END+2!
DIR("A"	LIST+1, LIST+3, LIST+5*
DIR("B"	LIST+1*
DIR(0	LIST+1, LIST+3, LIST+5, 64+6
>> DIROUT	LIST+6
>> DIRUT	LIST+2
DLAYGO	L2*!, END+3!, END+4!
DOIT	LINK~, LINK+1, END+2!
DR	L2!, END+2!, DQ+8, CLEAN!
DTIME	L2+4
>> DTOUT	LIST+2, LIST+6, L1+1, L2+4
>> DUOUT	LIST+2, LIST+6
DX	END+4!, DQ!, CLEAN!
END	LAB+2, LAB+3, LAB+4, CHECK+2, CHECK+5, L1, L1+1, L2+2, L2+4*, END+2! , END+3!
FLG	END+4!
I	64+1*, END+3!
IO	LST+5
IO("Q"	LST+5
IO(0	LST+5
ION	LST+5
IOST	DQ+9
LRCODE	CHECK+6*, CHECK+8, END+3!
LRDATA	CHECK+3, CHECK+8, 64+3, LINK+1, END+2!
>> LRDBUG	END+1
LRIEN	LAB+3*, CHECK+2, CHECK+3, CHECK+9, 64+1, END+2!
LRLAB	DQ+4*, DQ+5, CLEAN!
LRMIEN	CHECK+1, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+9, 64+1, 64+2, 64+5, 64+6 , END+2!
LRMNAME	CHECK+7*, CHECK+8, END+3!
LRN	LAB+2*, LAB+3, CHECK+4, END+2!
LRNLT	DQ+3*, DQ+4, DQ+5, CLEAN!
LRNU	CHECK+4*, END+2!
LRSUF	END+3!
LRTY	CHECK+3*, END+3!
NODE	DQ+7*, DQ+8, CLEAN!
>> POP	LST+4
S	END+4!, DQ+9*, CLEAN!
U	CHECK+2, CHECK+3, CHECK+6, CHECK+7, 64+1, 64+5, L2+1, L2+4, DQ+5, DQ+8
X	CHECK+4, L2+2, L2+4*, END+3!, END+4!
X60	LINK~, LINK+1, L2, L2+1, END+3!
X64	END+3!
X641	LINK~, L2
XXX	END+4!
Y	LIST+2, LIST+6, 64+6, END+3!, END+4!
Y64	END+4!
>> ZTDESC	LST+5*
>> ZTIO	LST+5*
>> ZTQUEUED	DQ
>> ZTREQ	DQ*
>> ZTRTN	LST+5*
ZZ	END+4!
ZZ1	END+4!

Customize PDF page

Package: Lab Service