Routine: LR7OU641

Information

LR7OU641 ;SLC/DCM/DALOI/FHS - RESULT NLT LINKING UTILITY SEMI-MANUAL ; 12/3/1997

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT ($$CJ,$$LJ)^XLFSTR
VA FileMan	4	^DIC ^DIE $$GET1^DIQ ^DIR
Lab Service	2	END^LR7OU64 ^LRCAPD

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: 1

Package	Total	Caller Graph
Lab Service	1	LR7O MAN RESULT NLT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
64	;User assigns links between 60 (64.1) and 64 (NLT)
MSG	;
START
LIST	;
LK	;
LAB	;
CHECK	;
END	;
SEL	;
SELX
TXT	;;
LLIST	;
DQ
PRT	;

External References

Name	Field # of Occurrence
^%ZIS	LLIST+8
HOME^%ZIS	LLIST+9
^%ZISC	LLIST+14, DQ+8
^%ZTLOAD	LLIST+13
^DIC	SEL+5
^DIE	SELX+7
$$GET1^DIQ	SELX+10
^DIR	64+11, 64+13, MSG+2, START+3, SELX+13, LLIST+4, PRT+1
END^LR7OU64	END+2
^LRCAPD	64+12
$$HTE^XLFDT	DQ+1
$$CJ^XLFSTR	64+6, 64+7, 64+8, 64+9, START+1, LAB+3
$$LJ^XLFSTR	START+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"You have not yet ran the Semi-automatic Linking of RESULT NLT option",! Line Location: 64+3
Function Call: WRITE	Prompt: !?20,"[LR70 641-64 AUTO]",! Line Location: 64+4
Function Call: WRITE	Prompt: !,"IT IS STRONGLY RECOMMENDED YOU RUN THE AUTOMATIC OPTION FIRST",!! Line Location: 64+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("This option will allow you to assign RESULT NLT Code to Atomic Lab Tests.",80) Line Location: 64+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("You must select any WKLD CODE ",80) Line Location: 64+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Tests with the type of NEITHER or null will be skipped in the Auto Mode.",80) Line Location: 64+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ONLY ATOMIC LAB TEST YIELDING RESULTS SHOULD BE ASSIGNED RESULT CODES.",80),!! Line Location: 64+9
Function Call: WRITE	Prompt: ! Line Location: MSG+1
Function Call: WRITE	Prompt: ! Line Location: START+0
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(DIR("A"),80) Line Location: START+1
Function Call: WRITE	Prompt: !,$$LJ^XLFSTR(LN,80) Line Location: START+2
Function Call: WRITE	Prompt: !! Line Location: START+3
Function Call: READ	Variable: LRN Timeout: DTIME Line Location: LIST+1
Function Call: WRITE	Prompt: ! Line Location: LK+1
Function Call: WRITE	Prompt: @IOF Line Location: SEL+3
Function Call: WRITE	Prompt: !!?5,"Currently linked to [ ",$P(Y64,U)_" ] "_$P(Y64,U,2),!! Line Location: SELX+3
Function Call: WRITE	Prompt: !!,"Now select a RESULT NLT CODE for "_LRDATA,! Line Location: SELX+4
Function Call: WRITE	Prompt: !!?3,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U)," RESULT NLT CODE: ",$$GET1^DIQ(60,LRIEN_",",64.1,"") Line Location: SELX+10
Function Call: WRITE	Prompt: !,$S($G(ZTSK):"Task Number "_ZTSK,1:"Failed to Queue Job") Line Location: LLIST+13
Function Call: WRITE	Prompt: !!?5,"Listing of ",$S(LRANS=1:"ALL",LRANS=2:"LINKED",1:"UNLINKED")," Laboratory Test [ ",$$HTE^XLFDT($H)," ] ",!! Line Location: DQ+1
Function Call: WRITE	Prompt: !?20,"** End of Print List **",!!! Line Location: DQ+7
Function Call: WRITE	Prompt: @IOF Line Location: PRT+1
Function Call: WRITE	Prompt: !?5,LRN,?45,"[ ",$S(LRTY="B":"BOTH",LRTY="N":"NEITHER",LRTY="O":"OUTPUT",1:"INPUT")," ]",! Line Location: PRT+2
Function Call: WRITE	Prompt: !,"National VA LAB CODE",?23,$P(^(0),U,2)," ",$P(^(0),U) Line Location: PRT+4
Function Call: WRITE	Prompt: !,"Result NLT Code",?23,$P(^(0),U,2)," ",$P(^(0),U) Line Location: PRT+5
Function Call: WRITE	Prompt: ! Line Location: PRT+6
Routine Call	%ZIS Line Location: LLIST+8
Routine Call	%ZIS Line Location: LLIST+9
Routine Call	DIC Line Location: SEL+5
Routine Call	DIE Line Location: SELX+7
Routine Call	DIR Line Location: 64+11 64+13 MSG+2 START+3 SELX+13 LLIST+4 PRT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	64+2, LAB+1, LAB+2, CHECK+1, CHECK+2, CHECK+3, SELX, SELX+2, SELX+8, SELX+10 , DQ+2, DQ+3, DQ+5, DQ+6, PRT+3
^LAM - [#64]	SELX+2, PRT+4, PRT+5

Label References

Name	Line Occurrences
CHECK	LAB+2
END	64+11, MSG+2, START+3, LIST+1, LAB+4, SEL+2, SEL+5
LLIST	64+1
PRT	DQ+4, DQ+5, DQ+6
SEL	START+3, SELX+1, SELX+14
SELX	CHECK+4
START	64+11

Naked Globals

Name	Field # of Occurrence
^(	LAB+2, DQ+3
^(0	CHECK+3, SELX+2, DQ+3, PRT+4, PRT+5
^(64	SELX+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	LLIST+7!, LLIST+8*
DA	SEL+4!, SELX+5!, SELX+6*, SELX+10, SELX+11!
DIC	CHECK+2!, SEL+4!, SEL+5!, SELX+5!, SELX+6, SELX+11!
DIC("A"	SEL+4*
DIC("S"	SEL+5*
DIC(0	SEL+5*
DIE	SEL+4!, SELX+5!, SELX+6*, SELX+11!
DIR	64+10!, 64+11!, 64+12!, 64+13!, MSG+1!, MSG+2!, START!, START+3!, LIST+1!, SEL+4! , SELX+13!, LLIST+1!, PRT+1!
DIR("?"	START, START+2
DIR("A"	64+10, 64+12, MSG+1, START, START+1, LLIST+2*
DIR("B"	64+10*
DIR(0	64+10, 64+12, MSG+1, START, SELX+13, LLIST+3, PRT+1*
DIRUT	64+11, MSG+2, START+3, END+1!, SELX+13, LLIST+5, PRT+1
DR	SEL+4!, SELX+5!, SELX+6*, SELX+11!
DTIME	LIST+1
DX	64+1!
I	START+2*, START+3!
IO	DQ
IO("Q"	LLIST+10
IOF	SEL+3, DQ+8, PRT+1
IOSL	PRT+1
IOST	DQ+8, PRT+1
LN	START+2*, START+3!
LRANS	END+1!, LLIST+6*, DQ+1, DQ+4, DQ+5, DQ+6
LRAUTO	LK+1, END+1!, SEL+1, SEL+2, SELX+1, SELX+12
LRDATA	CHECK+3, END+1!, SEL+6, SELX+4
LREND	64+1, LAB+1, LAB+2, LAB+3, CHECK+2, END+1!, SEL+2, SELX+9, SELX+13, DQ+2 , DQ+3, PRT+1*
LRIEN	LAB+2, CHECK+1, CHECK+2, CHECK+3, CHECK+4, END+1!, SEL+6, SELX, SELX+6, SELX+8 , SELX+10, DQ+2, DQ+3, DQ+5, DQ+6, PRT+3
LRN	LIST+1, LK+1, LAB+1, LAB+2, END+1!, DQ+2, DQ+3, PRT+2
LRNLT	END+1!, PRT+3*, PRT+4, PRT+5
LRTY	CHECK+3, END+1!, DQ+3, PRT+2
N	END+1!
>> POP	LLIST+9
U	CHECK+2, CHECK+3, SEL+6, SELX+2, SELX+3, SELX+10, DQ+3, DQ+5, DQ+6, PRT+4 , PRT+5
X	END+1!
X60	CHECK+4, END+1!, SEL+6, SELX+2
Y	64+11, MSG+2, START+3, END+1!, SEL+5, SEL+6, SELX+9, LLIST+5, LLIST+6
Y(0	SEL+6
Y64	END+1!, SELX+2*, SELX+3
ZTDESC	LLIST+11~, LLIST+12*
>> ZTQUEUED	DQ
>> ZTREQ	DQ*
ZTRTN	LLIST+11~, LLIST+12*
ZTSAVE	END+1!, LLIST+11~
ZTSAVE("LRANS"	LLIST+12*
>> ZTSK	LLIST+13

Marked Items

Name	Field # of Occurrence
$T(TXT+I	START+2

Customize PDF page

Package: Lab Service