Routine: LRLNC63B

Information

LRLNC63B ;DALOI/FHS-HISTORICAL LOINC MAPPING MODIFIER ;01/30/2001 15:19

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ($$CJ,$$LJ)^XLFSTR
Lab Service	2	EX1^LREXPD QUE^LRLNC63
VA FileMan	1	^DIR

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	LR LOINC HISTORICAL MODIFY

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
SELECT	;Indicate which DATANAMES LOINC definition to be changed.
DISPLAY	;Show what has been recorded
CHK	; ; K ^TMP("LR",$J)
FIRE	;Run the mapping tasking function
END	;
SHO	;
EDIT	;
EXPAND	;If panel test expand to get parts

External References

Name	Field # of Occurrence
^%ZIS	DISPLAY+7
^%ZISC	DISPLAY+19
^DIR	EN+10, SELECT+10, DISPLAY+13, CHK+3, CHK+4, CHK+8, EDIT+3, EDIT+9, EXPAND+7, EXPAND+10
EX1^LREXPD	EXPAND+5
QUE^LRLNC63	FIRE+1
$$CJ^XLFSTR	EN+2, EN+3, SELECT+5, DISPLAY+4, DISPLAY+5
$$LJ^XLFSTR	EN+4, EN+5, EN+6, EN+7, EN+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+1
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("This option will allow you to manage how specific DataNames",80) Line Location: EN+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("will be mapped to LOINC Codes for historical data.",80) Line Location: EN+3
Function Call: WRITE	Prompt: !!,$$LJ^XLFSTR("You are able to override file definitions to correct past LOINC mappings.",80) Line Location: EN+4
Function Call: WRITE	Prompt: !,$$LJ^XLFSTR("Select the CH subsripted test, indicate the suffix to be used.",80) Line Location: EN+5
Function Call: WRITE	Prompt: !,$$LJ^XLFSTR("You can indicate if this suffix should override previous LOINC Mapping.",80),! Line Location: EN+6
Function Call: WRITE	Prompt: !,$$LJ^XLFSTR("This option will REMAP your entire database.",80),!! Line Location: EN+7
Function Call: WRITE	Prompt: !,$$LJ^XLFSTR("This option should only be run on weekends after hours.",80),! Line Location: EN+8
Function Call: WRITE	Prompt: !! Line Location: SELECT+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Selection can be a 'CH' Atomic or Panel test.",80),! Line Location: SELECT+5
Function Call: WRITE	Prompt: !?5,"Nothing was selected, Process Aborted",! Line Location: DISPLAY+2
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Here is a list of what you have selected.",80) Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("[O] indicates override current mapping.",80),! Line Location: DISPLAY+5
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+14
Function Call: WRITE	Prompt: !,"Here is a list of what you have selected." Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !,"[O] indicates override current mapping.",! Line Location: DISPLAY+16
Function Call: WRITE	Prompt: ! Line Location: CHK+2
Function Call: WRITE	Prompt: ! Line Location: CHK+7
Function Call: WRITE	Prompt: !,$QS(NODE,3)_" "_$S($P(LRX,U,6):"[O]",1:" "),?7,$E($P(LRX,U,3),1,30),?40,$E($P(LRX,U,4),1,25),?70,"/ ",$P(LRX,U,5) Line Location: SHO+3
Function Call: WRITE	Prompt: !?5,Y_" Entry not Valid",! Line Location: EDIT+5
Function Call: WRITE	Prompt: !?5,Y_" Entry not Valid",! Line Location: EDIT+7
Routine Call	%ZIS Line Location: DISPLAY+7
Routine Call	DIR Line Location: EN+10 SELECT+10 DISPLAY+13 CHK+3 CHK+4 CHK+8 EDIT+3 EDIT+9 EXPAND+7 EXPAND+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	EXPAND+3, EXPAND+13, EXPAND+15
^TMP("LR"	EN+11!, EXPAND+1!, EXPAND+11, EXPAND+12
^TMP("LRLNC63"	EN+11!, DISPLAY+2, CHK+10, EDIT+5, EDIT+10!, EXPAND+15*
^XTMP("LRLNC63"	EN+11!, CHK+14*, END+2!

Label References

Name	Line Occurrences
DISPLAY	CHK+9
EDIT	CHK+9, EDIT+5, EDIT+7, EDIT+11
END	CHK+3, CHK+5, CHK+8
EXPAND	SELECT+13
SELECT	CHK+4
SHO	DISPLAY+17, EDIT+8

Naked Globals

Name	Field # of Occurrence
^(	EXPAND+12
^(0	EXPAND+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	EN+1!, SELECT+4!, DISPLAY+9~, DISPLAY+10*, CHK+4!, EDIT+1!, EXPAND+2!, EXPAND+9!
DIR("?"	SELECT+6, SELECT+7
DIR("A"	EN+9, SELECT+9, CHK+3, CHK+4, CHK+8, EDIT+2, EXPAND+6, EXPAND+9
DIR("S"	SELECT+8*
DIR(0	EN+9, SELECT+8, CHK+3, CHK+4, EDIT+3, EDIT+9, EXPAND+6, EXPAND+9
DIRUT	DISPLAY+1!, DISPLAY+11, DISPLAY+13, CHK+3, END+1!, EDIT+1!, EDIT+4, EDIT+9
IO	DISPLAY+8
IOF	EN+1, DISPLAY+3, DISPLAY+14, DISPLAY+18
IOSL	DISPLAY+12
IOST	DISPLAY+13, DISPLAY+18
>> LRCFL	EXPAND+1*
LRCNT	EN+11!, EDIT+3, EXPAND+14*, EXPAND+15
LRMOD	SELECT+1!, CHK+11*
>> LRN	EXPAND+12*, EXPAND+15
>> LRNX	EXPAND+4, EXPAND+12, EXPAND+13, EXPAND+15
LROX	EN+11!
>> LRSUF	EXPAND+8, EXPAND+10, EXPAND+15
LRTEST	EXPAND+2!
LRTEST(	EXPAND+3*
LRX	SHO+1~, SHO+2*, SHO+3, EXPAND+2!
LRXY	SHO+1~
LRY	SELECT+1!, SELECT+2, SELECT+3, SELECT+11, SELECT+12, DISPLAY+1!, EDIT+5*, EDIT+10, EXPAND+3
>> LRYY	SELECT+12*
NODE	SELECT+1!, DISPLAY+11, CHK+12, CHK+13, CHK+14, SHO+2, SHO+3, EDIT+6, EDIT+7*
>> POP	DISPLAY+7
T1	EXPAND+2!, EXPAND+3*
U	SELECT+12, CHK+5, CHK+8, SHO+3, EXPAND+3, EXPAND+8, EXPAND+10, EXPAND+13, EXPAND+15
X	SELECT+4!
>> Y	EN+10, SELECT+11, CHK+3, CHK+4, CHK+5, CHK+8, CHK+9, EDIT+5, EDIT+6, EDIT+7 , EDIT+10, EXPAND+7, EXPAND+10
>> Y(0	SELECT+12, EXPAND+8
>> ZTSAVE("LRMOD"	CHK+11*

Customize PDF page

Package: Lab Service