Routine: LRSRVR2A

Package	Total	Call Graph
Kernel	3	^%ZISC ($$FMTE,$$FMTHL7,$$NOW)^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	$$GET1^DID $$GET1^DIQ
Lab Service	1	CLEAN^LRSRVR

Package

Total

Call Graph

^%ZISC ($$FMTE,$$FMTHL7,$$NOW)^XLFDT $$REPEAT^XLFSTR

$$GET1^DID $$GET1^DIQ

CLEAN^LRSRVR

Package	Total	Caller Graph
Lab Service	4	LRSRVR2 LRSRVR3 LRSRVR6 LRSRVR7

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SITENOTE	; Build site's test notes for first record
SUFFIX	; If Result NLT does not have a suffix, i.e. it has .0000 then check for suffixed NLT codes which can also be used
SYNNOTE	; Build site's test synonym's for first record
CLEAN	;
UUBEGFN(LRFILENM)	; Construct uuencode "begin" coding ; Call with LRFILENM = name of uuencoded file attachment ; ; Returns LRX = string with "begin..."_file name
HDR	; Set the header information

FileNo	Call Tags
^LAM - [#64]	GET1^DIQ
^LAB(95.3 - [#95.3]	GET1^DID

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	SITENOTE+5, SITENOTE+6, SITENOTE+7, SYNNOTE+4
^LAB(95.3 - [#95.3]	HDR+4
^LAM - [#64]	SUFFIX+6
^TMP($J	CLEAN+1!, HDR+1, HDR+2, HDR+3, HDR+4, HDR+5, HDR+6, HDR+7, HDR+9, HDR+13* , HDR+16, HDR+17, HDR+20, HDR+21

Name	Line Occurrences
$$UUBEGFN	HDR+21

Name	Field # of Occurrence
ERR	CLEAN+2!
>> I	HDR+6*
LA7PCNT	CLEAN+2!
LOINCDTA	CLEAN+3!
LR60IEN	CLEAN+2!, SITENOTE+5, SITENOTE+6, SITENOTE+7, SYNNOTE+4
LR60NM	CLEAN+2!
LR64	SUFFIX+1~, SUFFIX+5*, SUFFIX+6
LR6421	CLEAN+2!
LR64IEN	CLEAN+2!
LRACTION	CLEAN+3!
LRCC	CLEAN+3!
LRCCNX	CLEAN+3!
LRCDEF	CLEAN+3!
LREND	CLEAN+3!
LRFILENM	HDR+19*, HDR+20, HDR+21, UUBEGFN~, UUBEGFN+6
LRI	SITENOTE+2~, SITENOTE+4, SITENOTE+5, SITENOTE+6, SITENOTE+7, SITENOTE+8, SITENOTE+9
LRL	CLEAN+4!
LRLNC	CLEAN+4!
LRLNC80	CLEAN+4!
LRLNCN	CLEAN+4!
LRLNCX	CLEAN+4!
LRNODE	CLEAN+4!
LROUT	CLEAN+4!
LROUT1	CLEAN+4!
LRR64	CLEAN+4!, SUFFIX+2
LRRNLT	CLEAN+3!, SUFFIX+1~, SUFFIX+2*, SUFFIX+3, SUFFIX+4
LRROOT	SUFFIX+1~, SUFFIX+3, SUFFIX+4, SUFFIX+5
LRSPEC	CLEAN+5!
LRSPEC(	SUFFIX+6*
LRSPEC60	CLEAN+5!, SUFFIX+6
LRSPECN	CLEAN+5!, SUFFIX+6
LRSPECTA	CLEAN+5!, SUFFIX+6
LRST	CLEAN+5!
LRSTN	CLEAN+5!, HDR+1, HDR+19
LRSTNDT	SITENOTE+2~, SITENOTE+6*, SITENOTE+8
LRSTNOTE	SITENOTE+3!, SITENOTE+4, SITENOTE+10
LRSTNOTE(	SITENOTE+7, SITENOTE+8, SITENOTE+9!
LRSTR	CLEAN+5!
LRSTSYN	CLEAN+5!, SYNNOTE+2!, SYNNOTE+3, SYNNOTE+4, SYNNOTE+6*
LRSTSYN("B"	SYNNOTE+5!
LRSTSYN(0	SYNNOTE+5!
>> LRSUB	HDR+2, HDR+19
LRTA	CLEAN+6!
>> LRTXT	HDR+18
LRUNIT	CLEAN+6!, SUFFIX+6
LRX	CLEAN+6!, SUFFIX+1~, UUBEGFN+5~, UUBEGFN+6*, UUBEGFN+7
LRY	CLEAN+6!, SUFFIX+1~
U	SUFFIX+6
X	CLEAN+6!, HDR+8, HDR+9, HDR+12, HDR+13, HDR+16
Y	CLEAN+6!

Information