Routine: LR7OF1

Information

LR7OF1 ;slc/dcm/JAH - Setup new order from OE/RR ; 18-Apr-2016 06:13 ; MKK

Source Information

Source file <LR7OF1.m>

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
IHS Changes To Lab	4	$$ORD^BLRRLEDI ERRMSG^BLRSGNS3 ($$REFLAB,$$REFLABCK,ADBLRRLO)^BLRUTIL6 IHSURGNT^BLRUTIL8
Lab Service	3	($$FIND,$$ORES)^LR7OF5 SDGX69^LRBEBA2 ORDER^LROW2
VA Fileman	3	$$FIND1^DIC UPDATE^DIE $$GET1^DIQ
Kernel	2	$$DT^XLFDT $$TRIM^XLFSTR
DRG Grouper	1	$$ICDDX^ICDEX
IHS Standard Terminology	1	($$CONC,$$DESC,$$ICD2SMD,$$SEARCH,CNCLKP)^BSTSAPI
Order Entry Results Reporting	1	$$VALUE^ORCSAVE2

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LR7OF0

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Setup NEW orders from OE/RR messages
TESTIT	; EP - Test the REFLICDS logic
REFLICDS	; EP - Store the ICD code(s) into the BLR REFERENCE LAB ORDER/ACCESSION (#9009026.3) file
ICD2SMD(ICD,PROVNARR)	; EP - Use Provider Narrative and ICD-10 Code to get SNOMED match
LOCK	;
ZSN1(NODE,STATUS,INDIC)	; EP Add tests ;IHS/CIA/DKM - Added INDIC ; ----- IHS/OIT/MKK - END Lab Patch 1022 Modification
IHSICDI	; ICD Clinical Indication ; S ICDCODE=$P(INDIC,"^")
IHSSNOI	; SNOMED Clinical Indication
FSNOMED	; EP - Try to find a SNOMED Code using an OE/RR API & BSTSAPI call
ADD	;
IHSCLINI	; EP - Clinical Indication
ZX	;
ZSN	;
DT	;

External References

Name	Field # of Occurrence
$$ORD^BLRRLEDI	REFLICDS+19
ERRMSG^BLRSGNS3	IHSCLINI+14, REFLICDS+40
$$REFLAB^BLRUTIL6	REFLICDS+16
$$REFLABCK^BLRUTIL6	REFLICDS+11
ADBLRRLO^BLRUTIL6	IHSCLINI+19
IHSURGNT^BLRUTIL8	ZSN1+24
$$CONC^BSTSAPI	IHSICDI+21, ICD2SMD+19
$$DESC^BSTSAPI	IHSSNOI+8
$$ICD2SMD^BSTSAPI	IHSICDI+19
$$SEARCH^BSTSAPI	ICD2SMD+6
CNCLKP^BSTSAPI	FSNOMED+13
$$FIND1^DIC	IHSSNOI+13, REFLICDS+20
UPDATE^DIE	IHSCLINI+11, REFLICDS+38
$$GET1^DIQ	IHSSNOI+14, REFLICDS+7, REFLICDS+10, REFLICDS+14, REFLICDS+18, REFLICDS+31, REFLICDS+34, TESTIT+10
$$ICDDX^ICDEX	IHSICDI+5
$$FIND^LR7OF5	ZX+7
$$ORES^LR7OF5	ZX+6
SDGX69^LRBEBA2	ZSN1+13
ORDER^LROW2	ZX+8
$$VALUE^ORCSAVE2	FSNOMED+8, FSNOMED+10
$$DT^XLFDT	DT+1, IHSSNOI+23
$$TRIM^XLFSTR	IHSSNOI+10, FSNOMED+8

FileNo	Call Tags
^LR - [#63]	GET1^DIQ
69.01	GET1^DIQ
69.03	GET1^DIQ
69.05	GET1^DIQ
^ICD9 - [#80]	GET1^DIQ
^ICDS - [#80.4]	FIND1^DIC, GET1^DIQ
^BLRRLO - [#9009026.3]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LRO(69 - [#69]	ZX+2, ZX+3, ZX+8, LOCK+1, LOCK+3, ZSN+1, ZSN+2, ZSN+3, ZSN+4, ZSN+5 , ZSN+6, ZSN+7, ZSN+8, ADD+13, ADD+14, ADD+16, ADD+17, ZSN1+3, ZSN1+5, ZSN1+6* , ZSN1+15, ZSN1+16, ZSN1+17, ZSN1+18, ZSN1+19, ZSN1+20, ZSN1+22*, REFLICDS+24, REFLICDS+29, TESTIT+7 , TESTIT+9, TESTIT+13
^TMP("OR"	EN+11, EN+12, EN+13, ZSN+4, ADD+2, ADD+5, ADD+10, ZSN1+14, ZSN1+15, ZSN1+17

Name	Line Occurrences
$$ICD2SMD	IHSICDI+24
ADD	ZX+9
DT	EN+9
FSNOMED	IHSICDI+10
IHSCLINI	ZSN1+11
IHSICDI	IHSCLINI+8
IHSSNOI	IHSCLINI+9
LOCK	ZX+8, LOCK+2
REFLICDS	IHSCLINI+17, TESTIT+15
ZSN	ZSN+1
ZSN1	ADD+10
ZX	EN+15

Name	Field # of Occurrence
^(	EN+13, ADD+5, ADD+10, ZSN1+19, ZSN1+22
^("CTR"	EN+11*
^(0	ZX+3, LOCK+3, ZSN1+15, ZSN1+20, ZSN1+22*
^(1	ZSN+6, ZSN1+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BSTSFLAG	IHSICDI+17~
C	ZSN1+2~, ZSN1+16, ZSN1+17
CLININD	FSNOMED+1~, FSNOMED+8*, FSNOMED+11, FSNOMED+16, FSNOMED+19, FSNOMED+24
CNT	ZSN1+2~, ZSN1+3, ZSN1+6, ZSN1+13, ZSN1+15, ZSN1+16, ZSN1+17, ZSN1+18, ZSN1+20, ZSN1+22 , IHSCLINI+6, IHSCLINI+19, REFLICDS+10, REFLICDS+13, REFLICDS+24, REFLICDS+29, TESTIT+14, ICD2SMD+12, ICD2SMD+13, ICD2SMD+14 , ICD2SMD+16, ICD2SMD+18
CNT1	ZSN1+21~, ZSN1+22*
COMBINE	ZX+1~, ZX+4, ZX+6, ZX+7*, ZX+8, ZX+9, ZX+10, ADD+15, ADD+16, ADD+17 , ZSN1+20, ZSN1+22
CONCID	IHSICDI+17~, IHSICDI+20, IHSICDI+21, ICD2SMD+18, ICD2SMD+19
>> CSNOMED	ICD2SMD+20, ICD2SMD+21, ICD2SMD+22, ICD2SMD+25
DFN	REFLICDS+1~, REFLICDS+18*, REFLICDS+19
>> DILOCKTM	TESTIT+1, ICD2SMD+1
>> DISYS	TESTIT+1, ICD2SMD+1
DT	ZX+8, ZSN+8, ZSN1+15, DT+1*, DT+2, TESTIT+1, ICD2SMD+1
DTIME	TESTIT+1, ICD2SMD+1
DUZ	TESTIT+1, ICD2SMD+1
DUZ(2	REFLICDS+16
ERRS	IHSCLINI+2~, IHSCLINI+14, REFLICDS+2~, REFLICDS+36!, REFLICDS+40
F60IEN	REFLICDS+1~, REFLICDS+10, REFLICDS+11, REFLICDS+14, REFLICDS+16, REFLICDS+26
FDA	IHSCLINI+1~, IHSCLINI+11, REFLICDS+2~, REFLICDS+36!
FDA(	IHSICDI+6, IHSICDI+7, IHSICDI+26, IHSSNOI+3, IHSSNOI+4, IHSSNOI+11, IHSSNOI+24, REFLICDS+4, REFLICDS+37, FSNOMED+16* , FSNOMED+19, FSNOMED+26
>> FOUND	ICD2SMD+12, ICD2SMD+13, ICD2SMD+26, ICD2SMD+28
>> FOUND("SNOMED"	ICD2SMD+24!, ICD2SMD+25*, ICD2SMD+28
FOUNDIT	FSNOMED+1~, FSNOMED+22, FSNOMED+23, FSNOMED+24, FSNOMED+26
I	ADD+1~, ADD+12, ADD+13, ADD+16, ZSN1+2~, ZSN1+16, ZSN1+17*
ICD	REFLICDS+1~, REFLICDS+28, REFLICDS+29, REFLICDS+30, ICD2SMD~, ICD2SMD+1, ICD2SMD+10, ICD2SMD+15
ICD10	IHSSNOI+7~, IHSSNOI+20*, IHSSNOI+22, IHSSNOI+23
ICD10CS	IHSSNOI+7~, IHSSNOI+13*, IHSSNOI+14
ICD10DT	IHSSNOI+7~, IHSSNOI+14, IHSSNOI+15, IHSSNOI+23
>> ICD2CHK	ICD2SMD+10*, ICD2SMD+15
ICD9	IHSSNOI+7~, IHSSNOI+21, IHSSNOI+22, IHSSNOI+23
ICDCODE	IHSICDI+2, IHSICDI+5, IHSICDI+7, IHSICDI+15, IHSICDI+18, IHSICDI+24, IHSSNOI+7~, IHSSNOI+23, IHSSNOI+24, REFLICDS+1~ , REFLICDS+31*, REFLICDS+34, REFLICDS+37
>> ICDDESC	IHSICDI+3, IHSICDI+5, IHSICDI+6, IHSICDI+24
ICDEXIST	REFLICDS+1~, REFLICDS+24*
IENS	IHSCLINI+1~, IHSCLINI+6, IHSICDI+6, IHSICDI+7, IHSICDI+26, IHSSNOI+3, IHSSNOI+4, IHSSNOI+11, IHSSNOI+24, REFLICDS+1~ , REFLICDS+6, REFLICDS+7, REFLICDS+10, REFLICDS+13*, REFLICDS+14, REFLICDS+30, FSNOMED+16, FSNOMED+19, FSNOMED+26
IENSICD	REFLICDS+1~, REFLICDS+30*, REFLICDS+31
IN	IHSICDI+17~, IHSICDI+18, IHSICDI+19, ICD2SMD+5, ICD2SMD+6
INDIC	ADD+5*, ADD+10, ZSN1~, ZSN1+11, IHSCLINI+4, IHSCLINI+7, IHSICDI+2, IHSICDI+3, IHSSNOI+1, IHSSNOI+2
IO	TESTIT+1, ICD2SMD+1
>> IOBS	TESTIT+1, ICD2SMD+1
IOF	TESTIT+1, ICD2SMD+1
IOM	TESTIT+1, ICD2SMD+1
ION	TESTIT+1, ICD2SMD+1
>> IOS	TESTIT+1, ICD2SMD+1
IOSL	TESTIT+1, ICD2SMD+1
IOST	TESTIT+1, ICD2SMD+1
>> IOT	TESTIT+1, ICD2SMD+1
>> IOXY	TESTIT+1, ICD2SMD+1
J	ADD+1~, ADD+7, ADD+10, ZSN1+13, ZSN1+14, ZSN1+15, ZSN1+17
>> LRDFN	ZX+6, ZX+7, ZSN+2, ZSN+4, ADD+2, ZSN1+19, REFLICDS+18, TESTIT+10*
>> LRDUZ	ZX+6, ZX+7, ZSN+2
LRJ	ADD+1~, ADD+10, ZSN1+6, ZSN1+13, ZSN1+15, ZSN1+16, ZSN1+17, ZSN1+18, ZSN1+20, ZSN1+22 , IHSCLINI+6, IHSCLINI+19, REFLICDS+10, REFLICDS+13, REFLICDS+24, REFLICDS+29, TESTIT+14
>> LRLLOC	ZSN+2, ZSN+5
LRNT	EN+8~, ZSN+2, DT+2*
>> LRODT	ZX+2, ZX+3, ZX+7, LOCK+1, LOCK+3, ZSN+1, ZSN+2, ZSN+3, ZSN+4, ZSN+5 , ZSN+6, ZSN+7, ADD+2, ADD+13, ADD+14, ADD+16, ADD+17, ZSN1+3, ZSN1+5, ZSN1+6 , ZSN1+13, ZSN1+15, ZSN1+16, ZSN1+17, ZSN1+18, ZSN1+19, ZSN1+20, ZSN1+22, IHSCLINI+6, IHSCLINI+19 , REFLICDS+6, REFLICDS+11, REFLICDS+13, REFLICDS+24, REFLICDS+29, TESTIT+6, TESTIT+7, TESTIT+9, TESTIT+10, TESTIT+13
>> LROLLOC	ZX+6, ZX+7, ZSN+2
>> LRORD	ZX+9, ZX+10, ZSN+7, ADD+2, ZSN1+20
LRORDR	EN+8~, EN+10*, ZSN+2
LRORIFN	ADD+1~, ADD+5*, ZSN1+6
>> LROT	TESTIT+12, TESTIT+13, TESTIT+14
>> LROUTINE	ZSN1+6
>> LRPRAC	ZX+6, ZX+7, ZSN+2
>> LRQUANT	ZSN1+4*
>> LRSAMP	EN+12*, EN+13, ZX+6, ZX+7, ZSN+2, ZSN+4, ADD+5, ADD+10, ZSN1+14, ZSN1+15 , ZSN1+17
>> LRSDT	EN+12, EN+13, ZX+6, ZX+7, ZSN+2, ZSN+4, ADD+2, ADD+5, ADD+10, ZSN1+14 , ZSN1+15, ZSN1+17
>> LRSN	ZX+9, LOCK+3, ZSN+1, ZSN+2, ZSN+4, ZSN+5, ZSN+6, ZSN+7, ADD+2, ADD+13 , ADD+14, ZSN1+3, ZSN1+5, ZSN1+6, ZSN1+13, ZSN1+15, ZSN1+16, ZSN1+17, ZSN1+18, ZSN1+20 , ZSN1+22, IHSCLINI+6, IHSCLINI+19, REFLICDS+6, REFLICDS+11, REFLICDS+13, REFLICDS+24, REFLICDS+29, TESTIT+8, TESTIT+9* , TESTIT+10, TESTIT+13
>> LRSPEC	EN+13*, ZX+6, ZX+7, ZSN+4, ZSN+6, ADD+5, ADD+10, ZSN1+14, ZSN1+15, ZSN1+17 , ZSN1+19
>> LRSUM	LOCK+3*, ZSN+2
LRSXN	ADD+1~, ADD+12, ADD+13, ADD+14, ADD+16*, ADD+17
>> LRTSTS	ZSN1+4*, ZSN1+5, ZSN1+6, ZSN1+18, ZSN1+19, ZSN1+22
>> LRXZ	EN+10, EN+12, EN+13, ZX+6, ZX+7, ZSN+4, ADD+2, ADD+5, ADD+10, ZSN1+14 , ZSN1+15, ZSN1+17
NEWORD	ZX+1~, ZX+8*, ZSN+8
NODE	ADD+1~, ADD+10*, ZSN1~, ZSN1+4
ORDERIEN	REFLICDS+1~
ORDERN	REFLICDS+1~, REFLICDS+7, REFLICDS+8, REFLICDS+19, REFLICDS+20, TESTIT+3, TESTIT+4, TESTIT+7, TESTIT+9
>> ORDIEN	REFLICDS+20*, REFLICDS+22, REFLICDS+37
>> ORIFN	EN+14*, ZSN+2, FSNOMED+3, FSNOMED+8, FSNOMED+10
OUT	IHSICDI+17~, IHSICDI+18, IHSICDI+19, ICD2SMD+5, ICD2SMD+6
PROVNARR	ICD2SMD~, ICD2SMD+1, ICD2SMD+5, ICD2SMD+16
>> REJECT(	ZSN1+5*
SCHEMA	IHSCLINI+1~, IHSCLINI+7*, IHSCLINI+8, IHSCLINI+9
SNOCONID	FSNOMED+1~, FSNOMED+10*, FSNOMED+11, FSNOMED+13
>> SNOMDESC	IHSSNOI+2*, IHSSNOI+3, IHSSNOI+11
SNOMED	IHSICDI+17~, IHSICDI+22, IHSICDI+23, IHSICDI+24, IHSICDI+26, IHSSNOI+1, IHSSNOI+4, IHSSNOI+8, ICD2SMD+3*, ICD2SMD+7 , ICD2SMD+28
>> SNOMEDESC	IHSSNOI+3, IHSSNOI+9, IHSSNOI+10*, IHSSNOI+11
STATUS	ADD+1~, ADD+10*, ZSN1~, ZSN1+6
STR	IHSICDI+17~, IHSICDI+21, IHSICDI+22, IHSICDI+23, IHSSNOI+7~, IHSSNOI+8, IHSSNOI+9, IHSSNOI+10, IHSSNOI+20, IHSSNOI+21 , ICD2SMD+19*, ICD2SMD+20, ICD2SMD+21
>> SYN	FSNOMED+22, FSNOMED+23, FSNOMED+24
TCNT	ZSN1+2~, ZSN1+16*, ZSN1+17
>> TSICD	ICD2SMD+14*, ICD2SMD+15
U	ZX+3, LOCK+3, TESTIT+1, ICD2SMD+1
UNEEK	EN+8~, EN+14*, ZX+5
VARS	FSNOMED+1~
VARS(	ICD2SMD+13, ICD2SMD+14, ICD2SMD+16, ICD2SMD+18
VARS(1	IHSICDI+20, FSNOMED+16, FSNOMED+19, FSNOMED+23, FSNOMED+24
X	EN+8~, EN+13, EN+14, ZX+1~, ZSN1+2~, ZSN1+15, ZSN1+20, ZSN1+22, REFLICDS+19, ICD2SMD+6* , ICD2SMD+7
XI	ZSN1+2~, ZSN1+20*
>> XPARSYS	TESTIT+1, ICD2SMD+1
>> XQXFLG	TESTIT+1, ICD2SMD+1
ZTQUEUED	ZX+8*!
ZTREQ	ZX+8!
ZTSK	EN+8~, ZX+8!

Customize PDF page

Package: Lab Service

Routine: LR7OF1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: