Routine: LR153

Information

LR153 ;DALISC/JMC/FHS - LR*5.2*153 PATCH ENVIRONMENT CHECK ROUTINE ; 12/3/1997

Source file <LR153.m>

Package	Total	Call Graph
Kernel	3	$$CJ^XLFSTR $$ADD^XPDMENU ($$VERSION,BMES)^XPDUTL
VA FileMan	2	$$GET1^DID (,EN1,ENALL)^DIK

Name	Comments	DBIA/ICR reference
EN	; Does not prevent loading of the transport global. ; Environment check is done only during the install.
CHECK	; Perform environment check
EXIT	;
PRE	; KIDS Pre install for LR5.2153
POST	; KIDS Post install for LR5.2153 ; Add menu option ; Check HL7 codes mapping in Urgency (62.05) file. ; Set HL7 urgency to "(R)outine" if not defined.
537	;Set ID field in ^DD(537010,0,"ID")
C61	; Convert File #61 to File #64.061
C6205	;Convert File #62.05 to File #64.061
SP(X)	;Convert Abbrv from HL7 V2.3 > V2.3 0070 table

Name	Field # of Occurrence
$$GET1^DID	PRE+8
^DIK	PRE+7
EN1^DIK	C61+3, C6205+2
ENALL^DIK	POST+43
$$CJ^XLFSTR	CHECK+3, CHECK+6, CHECK+9, CHECK+13, EXIT+1, EXIT+2, PRE+9, PRE+10, PRE+11, PRE+12 , POST+5, POST+9, POST+11, POST+12, POST+15, POST+16, POST+19, POST+20, POST+21, POST+24 , POST+25, POST+29, POST+30, POST+38, POST+41, 537+3
$$ADD^XPDMENU	POST+10, POST+14, POST+18, POST+23
$$VERSION^XPDUTL	CHECK+11
BMES^XPDUTL	CHECK+3, CHECK+6, CHECK+9, CHECK+13, EXIT+1, EXIT+2, PRE+9, PRE+10, PRE+11, PRE+12 , POST+5, POST+9, POST+11, POST+12, POST+15, POST+16, POST+19, POST+20, POST+21, POST+24 , POST+25, POST+29, POST+30, POST+37, POST+38, POST+41, 537+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(537010	537+1*
^DD(64.061	PRE+4
^LAB(61 - [#61]	C61+2, C61+3*
^LAB(62.05 - [#62.05]	POST+33, POST+34, POST+36, C6205+1, C6205+2
^LAB(64.061 - [#64.061]	PRE+2, PRE+3!*, C61+2, C6205+1
^LAM(0	PRE+1
^VA(200 - [#200]	CHECK+8

Name	Field # of Occurrence
^(0	PRE+1*

Name	Field # of Occurrence
DA	PRE+5~, PRE+6, C61+1~, C61+3!, C6205+2*!
DA(1	PRE+6*
DIK	PRE+5~, PRE+6, POST+42~, POST+43, C61+1~, C61+3!, C6205+2!
DIK(1	POST+43, C61+3, C6205+2*
DUZ	CHECK+5, CHECK+8
DUZ(0	CHECK+5
IOM	CHECK+2
IOSL	CHECK+2
LA64	C61+1~, C61+2, C61+3, C6205+1, C6205+2
LAHL7	C61+1~, C61+2, C6205+1
LAI	C61+1~, C61+2, C61+3, C6205+1, C6205+2
LRFLAG	POST+31~, POST+32, POST+36, POST+38
LRI	POST+31~, POST+32, POST+33, POST+34, POST+36
LRX	POST+4~, POST+10, POST+12, POST+14, POST+16, POST+18, POST+20, POST+23, POST+25
U	CHECK+2, PRE+1, PRE+2, C61+2, C61+3, C6205+1, C6205+2
VER	CHECK+1~, CHECK+11*, CHECK+12
X	PRE+2, PRE+3, POST+31~, POST+34, POST+35, POST+37, SP~, SP+1, SP+2, SP+3 , SP+4, SP+5, SP+6, SP+7, SP+8, SP+9
>> XPDENV	EN+2
>> XPDIQ("XPZ1"	CHECK+15*
>> XPDQUIT	CHECK+4, CHECK+7, CHECK+10, CHECK+14, EXIT+1, EXIT+2