Routine: LA7UCFG1

Information

LA7UCFG1 ;DALOI/JMC - Configure Lab Universal Interface ;3/15/16 15:42

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	5	MSG^DIALOG $$FIND1^DIC (FILE,WP)^DIE $$GET1^DIQ ^DIR
Kernel	2	($$CJ,$$REPLACE,$$TRIM)^XLFSTR BMES^XPDUTL

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
Automated Lab Instruments	1	LA7UCFG

Entry Points

Name	Comments	DBIA/ICR reference
ENACK	;entry point to enable enhanced ack mode prompts
FILE101(LA7UPDATE)	; Update Lab UI protocols to HL7 v2.5.1
CHECKWP(LAIEN)	; Check description (WP) field on protocol and update text. ; Change reference to v2.2 to v2.5.1 in description. ; Call with LAIEN = IENS of entry in file #101
BMES(STR)	; ; Write string

External References

Name	Field # of Occurrence
MSG^DIALOG	FILE101+41, CHECKWP+15
$$FIND1^DIC	ENACK+6, ENACK+11, FILE101+12, FILE101+19
FILE^DIE	FILE101+38
WP^DIE	CHECKWP+12
$$GET1^DIQ	ENACK+22, FILE101+33, FILE101+34, FILE101+43, CHECKWP+6, CHECKWP+7
^DIR	ENACK+35, ENACK+37
$$CJ^XLFSTR	BMES+2
$$REPLACE^XLFSTR	CHECKWP+10
$$TRIM^XLFSTR	BMES+2
BMES^XPDUTL	BMES+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Auto Release of Results is NOT Enabled." Line Location: ENACK+4
Function Call: WRITE	Prompt: !,"Unable to check/update Lab UI protocols" Line Location: ENACK+8
Function Call: WRITE	Prompt: !," - could not identify HL7 v2.5.1 version entry in file #771.5" Line Location: ENACK+9
Function Call: WRITE	Prompt: !,"Unable to check/update Lab UI protocols" Line Location: ENACK+13
Function Call: WRITE	Prompt: !," - could not identify HL7 'AL' ACK condition in file #779.003" Line Location: ENACK+14
Function Call: WRITE	Prompt: !!,"All Lab UI protocols in file #101 already updated to HL7 version 2.5.1." Line Location: ENACK+25
Function Call: WRITE	Prompt: !,"All Lab UI protocols already updated to HL7 Enhanced Mode Acknowledgments." Line Location: ENACK+26
Function Call: WRITE	Prompt: ! Line Location: ENACK+28
Routine Call	DIALOG Line Location: FILE101+41 CHECKWP+15
Routine Call	DIC Line Location: ENACK+6 ENACK+11 FILE101+12 FILE101+19
Routine Call	DIE Line Location: FILE101+38
Routine Call	DIE Line Location: CHECKWP+12
Routine Call	DIR Line Location: ENACK+35 ENACK+37

FileNo	Call Tags
^ORD(101 - [#101]	GET1^DIQ, WP^DIE
^HL(771.5 - [#771.5]	FIND1^DIC
^HL(779.003 - [#779.003]	FIND1^DIC

Label References

Name	Line Occurrences
BMES	FILE101+10, FILE101+14, FILE101+15, FILE101+16, FILE101+21, FILE101+22, FILE101+23, FILE101+28, FILE101+40, FILE101+42 , FILE101+43, FILE101+44, FILE101+45, FILE101+48, CHECKWP+14, CHECKWP+16
CHECKWP	FILE101+46
FILE101	ENACK+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIERR	FILE101+5~, FILE101+30!
DIR	ENACK+2~, ENACK+35!, ENACK+37!
DIR("?"	ENACK+29, ENACK+30, ENACK+31, ENACK+32, ENACK+33, ENACK+34
DIR("A"	ENACK+28, ENACK+37
DIR("B"	ENACK+28, ENACK+37
DIR(0	ENACK+28, ENACK+37
>> DIRUT	ENACK+35, ENACK+37
FR	CHECKWP+4~, CHECKWP+10
FR("v2.2"	CHECKWP+9*
I	FILE101+5~, FILE101+42, CHECKWP+4~, CHECKWP+9, CHECKWP+10, CHECKWP+16
IOM	BMES+2
LA101	ENACK+2~, ENACK+19, ENACK+21, FILE101+5~, FILE101+27, FILE101+29, FILE101+31
LA7UPDATE	ENACK+2~, ENACK+16, ENACK+20, ENACK+22, ENACK+24, ENACK+38, ENACK+40, FILE101~, FILE101+18, FILE101+34
LAFDA	FILE101+5~, FILE101+30!, FILE101+37
LAFDA(1	FILE101+32, FILE101+33, FILE101+35, FILE101+36, FILE101+43, FILE101+44, FILE101+45
LAHLACKCODE	ENACK+2~, ENACK+11, ENACK+12, ENACK+22, FILE101+5~, FILE101+18, FILE101+19, FILE101+20, FILE101+35, FILE101+36
LAHLVERSION	ENACK+2~, ENACK+6, ENACK+7, FILE101+5~, FILE101+12, FILE101+13, FILE101+33
LAIEN	ENACK+2~, ENACK+21, ENACK+22, FILE101+5~, FILE101+30!, FILE101+31, FILE101+32, FILE101+33, FILE101+34, FILE101+35 , FILE101+36, FILE101+43, FILE101+44, FILE101+45, FILE101+46, CHECKWP~, CHECKWP+6, CHECKWP+7, CHECKWP+12
LAMSG	FILE101+5~, FILE101+30!, CHECKWP+4~
LAMSG("DIERR"	FILE101+39, CHECKWP+13
LANODE	ENACK+2~, ENACK+17, ENACK+18, ENACK+19, FILE101+5~, FILE101+25, FILE101+26, FILE101+27
LATXT	FILE101+5~, FILE101+30!, FILE101+41, FILE101+42, CHECKWP+4~, CHECKWP+15, CHECKWP+16
LATXT(	FILE101+42, CHECKWP+16
LAX	ENACK+2~, ENACK+19, ENACK+20, FILE101+5~, FILE101+27, FILE101+28, FILE101+32, FILE101+40, FILE101+43, FILE101+44 , FILE101+45, CHECKWP+4~, CHECKWP+6*, CHECKWP+14
STR	BMES~, BMES+2
WP	CHECKWP+4~
WP(	CHECKWP+10*
X	ENACK+2~, CHECKWP+4~, CHECKWP+7*
Y	ENACK+2~, ENACK+35, ENACK+37

Customize PDF page

Package: Automated Lab Instruments