Routine: LRLNCDEL

Information

LRLNCDEL ; DALOI/CA/FHS - UNMAP LAB TESTS TO LOINC CODES OR DELETE LOINC MAPPINGS ;1-OCT-1998

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	4	^DIE ^DIK (EN,GETS)^DIQ ^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: 1

Package	Total	Caller Graph
Lab Service	1	LR LOINC UNMAP/DELETE LOINC

Entry Points

Name	Comments	DBIA/ICR reference
START	;entry point from option LR LOINC MAPPING
EXIT	;
TEST
SPEC	; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60
UNMAP	;Check to see if already mapped to a LOINC code
DIS	;Show the data
INDEX60	;Stores LOINC code in Laboratory Test file (#60) so know what tests are mapped.
SHOWPRE	;DISPLAY LOINC CODE ALREADY MAPPED TO NLT

External References

Name	Field # of Occurrence
^DIE	TEST+13, INDEX60+1
^DIK	DIS+8
EN^DIQ	DIS+5
GETS^DIQ	TEST+20, SPEC+9, UNMAP+9
^DIR	TEST+4, SPEC+6, UNMAP+4, DIS+7, SHOWPRE+7
EN^LRDIQ	TEST+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!! Line Location: START+3
Function Call: WRITE	Prompt: !! Line Location: TEST+0
Function Call: WRITE	Prompt: !?4,"Locked by another user" Line Location: TEST+8
Function Call: WRITE	Prompt: !!,"There is not a RESULT NLT CODE for "_LRTEST,".",! Line Location: TEST+10
Function Call: WRITE	Prompt: !,"You must select one now to continue with the mapping of this test!",! Line Location: TEST+11
Function Call: WRITE	Prompt: !! Line Location: TEST+16
Function Call: WRITE	Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U) Line Location: TEST+16
Function Call: WRITE	Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U) Line Location: TEST+16
Function Call: WRITE	Prompt: !?5,LRSPECN_" has a broken pointer" Line Location: SPEC+11
Function Call: WRITE	Prompt: !,"Another user is editing this record",! Line Location: UNMAP+6
Function Call: WRITE	Prompt: $C(7) Line Location: UNMAP+10
Function Call: WRITE	Prompt: !!!?5,"Lab Test: "_LRTEST_" / "_LRSPECL_" is NOT mapped to " Line Location: UNMAP+11
Function Call: WRITE	Prompt: !,"WKLD CODE: "_$P(Y,U,2)_" Time Aspect of: "_$G(LROUT(64.061,LRASPECT_",",.01,"E")) Line Location: UNMAP+12
Function Call: WRITE	Prompt: !!,LRSPECN,! Line Location: DIS+4
Function Call: WRITE	Prompt: !!,"This test and specimen is mapped to:" Line Location: SHOWPRE+2
Function Call: WRITE	Prompt: !,"LOINC code: ",LRLNC," ",$G(^LAB(95.3,+LRLNC,80)) Line Location: SHOWPRE+3
Function Call: WRITE	Prompt: !! Line Location: SHOWPRE+4
Routine Call	DIE Line Location: TEST+13 INDEX60+1
Routine Call	DIR Line Location: TEST+4 SPEC+6 UNMAP+4 DIS+7 SHOWPRE+7

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TEST+8, TEST+9, TEST+14, TEST+16, TEST+17, TEST+18
^LAB(95.3 - [#95.3]	SHOWPRE+3
^LAM - [#64]	UNMAP+6, UNMAP+7, DIS+7, INDEX60+3, SHOWPRE+1

Label References

Name	Line Occurrences
EXIT	START+2, START+4, START+6
INDEX60	UNMAP+7
SPEC	START+3
START	START+4, START+7
TEST	START+1, TEST+8, TEST+19
UNMAP	START+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D	EXIT+3!
D0	EXIT+3!
DA	EXIT+1!, TEST+1~, TEST+12!, TEST+16, UNMAP+1~, DIS+1!, DIS+2, INDEX60+1!*
DA(1	DIS+2, INDEX60+1
DA(2	DIS+2*
DD	EXIT+3!
DIC	EXIT+1!, TEST+1~, TEST+16, UNMAP+1~, DIS+1!, DIS+2, DIS+8
DIE	EXIT+1!, TEST+1~, TEST+12!, TEST+16, INDEX60+1!
DIK	UNMAP+1~, DIS+1!, DIS+8*
DINUM	EXIT+1!
DIR	EXIT+1!, TEST+1~, TEST+4!, SPEC+1~, UNMAP+1~, DIS+1!, SHOWPRE+7!
DIR("?"	TEST+3, SPEC+4, SHOWPRE+6*
DIR("A"	TEST+2, SPEC+5, DIS+6, SHOWPRE+5
DIR("B"	UNMAP+3*
DIR("S"	SPEC+3, UNMAP+2
DIR(0	TEST+2, SPEC+2, UNMAP+2, DIS+6, SHOWPRE+5*
DIRUT	EXIT+1!, TEST+5!, SPEC+1~, SPEC+6, UNMAP+1~, UNMAP+4
DLAYGO	EXIT+3!
DO	EXIT+3!
DR	EXIT+1!, TEST+1~, TEST+12!, TEST+16, UNMAP+1~, DIS+1!, DIS+3, INDEX60+1!
DTOUT	EXIT+1!, TEST+9, TEST+15
>> DUOUT	TEST+9, TEST+15
I	EXIT+1!
IOF	START+3
LRASPECT	EXIT+2!, SPEC+8*, UNMAP+7, UNMAP+9, UNMAP+12, DIS+2
LRCODE	EXIT+1!
LRDATA	EXIT+1!
LRELEC	EXIT+1!, SPEC+8*, SPEC+9, SPEC+10
LREND	START+1, START+2, START+4, EXIT+1!, TEST+5, TEST+9, SPEC+2, SPEC+6, SPEC+11, UNMAP+4*
LRERR	TEST+1~
LRIEN	EXIT+1!, TEST+6*, TEST+8, TEST+9, TEST+12, TEST+14, TEST+16, TEST+17, TEST+18, INDEX60+1
LRLNC	EXIT+1!, SHOWPRE+1*, SHOWPRE+3
LRLNC0	EXIT+1!
LRLNCNAM	EXIT+3!
LRLOINC	EXIT+1!
LRNLT	EXIT+1!, TEST+18, TEST+19, TEST+20, TEST+21, TEST+22, UNMAP+5, UNMAP+6, UNMAP+7, DIS+2 , DIS+7, INDEX60+3, SHOWPRE+1
LRNLTN	EXIT+2!, TEST+22*, UNMAP+2, UNMAP+3
LRNLTNM	EXIT+2!, TEST+21*
LRNO	EXIT+3!
LROUT	EXIT+3!, TEST+1~, UNMAP+8~
LROUT(	SPEC+10, UNMAP+12
LROUT(64	TEST+21, TEST+22
LRSPEC	EXIT+1!, SPEC+7*, UNMAP+7, DIS+2, INDEX60+1, SHOWPRE+1
LRSPECL	EXIT+1!, SPEC+10*, SPEC+11, UNMAP+11
LRSPECN	EXIT+1!, SPEC+7*, SPEC+11, DIS+4
LRTEST	EXIT+1!, TEST+6*, TEST+10, UNMAP+11
LRTIME	EXIT+1!, SHOWPRE+1
LRUNITS	EXIT+1!
S	EXIT+1!, TEST+16, DIS+3
U	TEST+6, TEST+9, TEST+16, TEST+18, SPEC+7, SPEC+8, UNMAP+12, SHOWPRE+1
X	EXIT+3!, TEST+1~
Y	EXIT+1!, TEST+1~, TEST+6, SPEC+7, UNMAP+5, UNMAP+12, DIS+7
Y(0	SPEC+8

Customize PDF page

Package: Lab Service