Routine: LRLNC63A

Information

LRLNC63A ;DALOI/FHS-HISTORICAL LOINC MAPPER UTILITY ;01/30/2001 15:19

Source Information

Source file <LRLNC63A.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	4	$$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR SETUP^XQALERT
Lab Service	3	$$DATE^LRDAGE (LK6304,QUE)^LRLNC63 LIST^LRLNC63A
VA Fileman	3	FILE^DIE ($$GET1,GETS)^DIQ ^DIR
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Lab Service	3	LR LOINC HISTORICAL RESTART 63 LRLNC63 LRLNC63A

Entry Points

Name	Comments	DBIA/ICR reference
MAP	;Provide a list of mapped test in ^ delimited format
XTMP(LRSUB)	;Setup XTMP("LRLNC",1,LRSUB)=Result NLT code
XQA	;Send alert message
DECIMAL	;Check for possible LRDFN's >999999 - LRDFN maybe set to LRIDT format
LIST	;List those test not have result NLT codes defined
NLT(X)	;
UPDATE	;If mapping complete, send list of tests not having result NLT codes
MAPMAIL	;Send mail message containing mapped test
RANGE	; Change for high/low ranges $S( statement to a numeric value
DONE	; Send alert message when LRDFN sequence range mapping is finished
CLEAN	;
RERUN	; This will restart the historical mapping from the beginning. ; To restart call QUE^LRLNC63
MAIL	;Send mail message containing tests not having RNLT codes.

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	DECIMAL+4
FILE^DIE	UPDATE+10
$$GET1^DIQ	MAP+13
GETS^DIQ	LIST+16
^DIR	RERUN+7
$$DATE^LRDAGE	RANGE+2
LK6304^LRLNC63	DECIMAL+6
QUE^LRLNC63	RERUN+10
LIST^LRLNC63A	UPDATE+7
$$FMTE^XLFDT	DECIMAL+10, DECIMAL+15
$$NOW^XLFDT	DECIMAL+3, DECIMAL+10, DECIMAL+11, DECIMAL+15, DONE+2
$$CJ^XLFSTR	RERUN+3, RERUN+4, RERUN+5, RERUN+6
^XMD	MAIL+10, MAPMAIL+7
SETUP^XQALERT	XQA+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" This will re-run LOINC Historical Mapping from the beginning ",80) Line Location: RERUN+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("reseting all globals to zero.",80) Line Location: RERUN+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" To restart from a stopping point use the",80) Line Location: RERUN+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("LAB DATA LOINC Mapping Option.",80),!! Line Location: RERUN+6
Routine Call	DIE Line Location: UPDATE+10
Routine Call	DIR Line Location: RERUN+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	GETS^DIQ
^LAB(95.3 - [#95.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	XTMP+4, XTMP+5, NLT+2, LIST+12, LIST+13, MAP+14, MAP+15
^LAB(61 - [#61]	MAP+11
^LAM - [#64]	NLT+2
^LR - [#63]	DECIMAL+2, DECIMAL+4, DECIMAL+5
^TMP("LRLNC63"	LIST+1!, LIST+3, LIST+4, LIST+5, LIST+6, LIST+7, LIST+8, LIST+18, MAIL+3, MAIL+4 , MAP+3, MAP+4, MAP+5, MAP+17, CLEAN+1!
^XTMP("LRLNC63"	XTMP+1, XTMP+6, XTMP+7, LIST+9, DECIMAL+3, DECIMAL+4, DECIMAL+5, DECIMAL+7, DECIMAL+8, DECIMAL+11 , DECIMAL+14, DONE+1, DONE+2*, UPDATE+5, RERUN+9!

Label References

Name	Line Occurrences
$$NLT	XTMP+6
XQA	DECIMAL+13, DONE+3

Naked Globals

Name	Field # of Occurrence
^(	XTMP+6, LIST+9
^(0	NLT+2, MAP+11, MAP+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	RANGE+2*
DIR	RERUN+2~
DIR("A"	RERUN+7*
DIR(0	RERUN+7*
DIRUT	RERUN+2~
>> DOB	RANGE+2
DT	UPDATE+8
>> LR5	RANGE+2, RANGE+9*
LRANS	LIST+2~, LIST+14~
LRANS(60	LIST+18
LRCDEF	MAP+1~, MAP+12*, MAP+17
>> LRCDT	RANGE+2
>> LRCH	LIST+11*, LIST+12
LRCHK	XTMP+2~, XTMP+3, XTMP+4, XTMP+6, XTMP+7
LRCNT	LIST+2~, LIST+9, LIST+17, LIST+18
>> LRDATA5	RANGE+4, RANGE+9*
LRERR	UPDATE+2!
LRFDA	UPDATE+2!
LRFDA(95	UPDATE+8, UPDATE+9
LRLNC	MAP+1~, MAP+13*, MAP+17
>> LRLST	UPDATE+4, UPDATE+9
>> LRMCNT	MAP+2, MAP+6, MAP+16*, MAP+17
LRNLT	MAP+1~, MAP+10*, MAP+17
LRNOP	UPDATE+2!, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6
LRNOW	DECIMAL+9~, DECIMAL+10*, DECIMAL+12
>> LRNXT	DECIMAL+1, DECIMAL+4, DECIMAL+5, DECIMAL+6, DECIMAL+7
LRP	RANGE+1!, RANGE+3*, RANGE+4, RANGE+9
LRSB	LIST+2~, LIST+9, LIST+11, MAP+1~, MAP+9, MAP+14, MAP+17
>> LRSEQ	DECIMAL+1*, DECIMAL+2, DECIMAL+3, DECIMAL+4, DECIMAL+5, DECIMAL+7, DECIMAL+11, DECIMAL+12, DECIMAL+14, DECIMAL+15 , DONE+1, DONE+2
LRSEQX	UPDATE+2!, UPDATE+4*, UPDATE+5
>> LRSPEC	MAP+9*, MAP+11, MAP+17
LRSPECN	MAP+1~, MAP+11*, MAP+17
LRSUB	XTMP~, XTMP+1, XTMP+4, XTMP+6, XTMP+7
LRTST	XTMP+2~, XTMP+3, XTMP+4, XTMP+5, XTMP+6, LIST+11, LIST+12, LIST+13, LIST+15, LIST+18 , MAP+1~, MAP+14, MAP+15, MAP+17
LRV	LIST+14~, LIST+15*, LIST+16, LIST+18
LRX	LIST+2~, LIST+9*, LIST+10
NODE	MAP+1~, MAP+7, MAP+8, MAP+9, MAP+10, MAP+12, MAP+13
U	XTMP+5, NLT+2, MAP+11, MAP+15, MAP+17, DECIMAL+11
VAL	RANGE+1!, RANGE+4*, RANGE+5, RANGE+6, RANGE+7
VALX	RANGE+1!, RANGE+7*, RANGE+8, RANGE+9
X	NLT~, NLT+2
XMDUZ	MAIL+5~, MAIL+8, MAPMAIL+2~, MAPMAIL+5
XMSUB	MAIL+5~, MAIL+6, MAPMAIL+2~, MAPMAIL+3
XMTEXT	MAIL+5~, MAIL+7, MAPMAIL+2~, MAPMAIL+4
XMY	MAIL+5~, MAPMAIL+2~
XMY("G.LMI"	MAIL+9, MAPMAIL+6
>> XQA("G.LMI"	XQA+1*
>> XQAMSG	DECIMAL+12, DECIMAL+15
Y	NLT+1~, NLT+2*, NLT+3, RERUN+2~, RERUN+8
>> ZTSTOP	DECIMAL+4*

Customize PDF page

Package: Lab Service

Routine: LRLNC63A

Call Graph Total: 11

Caller Graph Total: 3