Routine: LRLNCUTL

Information

LRLNCUTL ;DALOI/RH-LEDI HL7 CODES AND CALCULATE CHECKDIGIT ;11-OCT-1998

Source file <LRLNCUTL.m>

Package	Total	Caller Graph
Lab Service	1	LR LOINC LEDI HL7 CODE

Name	Comments	DBIA/ICR reference
EN	;
CHEKDIG(X)	;
START	;BEGINS PRINTING THE REPORT
EXIT
ADEN	; ADD/EDIT LEDI HL7 CODE AND TIME ASPECT
MOD10	;Instructions used to Calculate Mod 10 Check Digits

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("This option allows the user to add/edit",IOM) Line Location: EN+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Lab Electronic specimen codes in the Topography file.",IOM) Line Location: EN+3
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("It is recommended that you print a copy of Specimen codes ",IOM) Line Location: EN+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" to assist you in editing SITE/SPECIMENS.",IOM) Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: START+1
Function Call: WRITE	Prompt: !! Line Location: START+4
Function Call: WRITE	Prompt: @IOF Line Location: ADEN+2
Function Call: WRITE	Prompt: !! Line Location: ADEN+7
Routine Call	DIE Line Location: ADEN+6
Routine Call	DIC Line Location: ADEN+5
Routine Call	DIR Line Location: START+3

FileNo	Call Tags
^LAB(61 - [#61]	Classic Fileman Calls

Name	Line Occurrences
ADEN	START+5, ADEN+7
EXIT	START+6, ADEN+1

Name	Field # of Occurrence
DA	ADEN+6*, EXIT!
DIC	ADEN+3*, EXIT!
DIC("A"	ADEN+4*
DIC("S"	ADEN+6*
DIC(0	ADEN+3*
DIE	ADEN+6*, EXIT!
>> DIR("A"	START+2*
>> DIR("B"	START+3*
>> DIR(0	START+2*
>> DIRUT	START+3
>> DR	ADEN+6*
DTOUT	EXIT!
DUOUT	EXIT!
IOF	EN+1, ADEN+2
IOM	EN+2, EN+3, EN+4, EN+5
IOSL	ADEN+2
LRCHDIG	CHEKDIG+1~, CHEKDIG+9*, CHEKDIG+10
LRCHSUM	CHEKDIG+1~, CHEKDIG+7*, CHEKDIG+8
LRDIG	CHEKDIG+1~, CHEKDIG+8*, CHEKDIG+9
LREVEN	CHEKDIG+1~, CHEKDIG+6*, CHEKDIG+7
LRI	CHEKDIG+1~, CHEKDIG+3, CHEKDIG+4, CHEKDIG+6, CHEKDIG+8, CHEKDIG+9*
LRL	CHEKDIG+1~, CHEKDIG+3*, CHEKDIG+4, CHEKDIG+6
>> LRL1	CHEKDIG+7*, CHEKDIG+8
LRODD	CHEKDIG+1~, CHEKDIG+4, CHEKDIG+5, CHEKDIG+7
LRSTR	CHEKDIG+1~, CHEKDIG+2, CHEKDIG+3, CHEKDIG+4, CHEKDIG+6
X	CHEKDIG~, CHEKDIG+3, EXIT!
Y	START+4, ADEN+5, ADEN+6, EXIT!