Routine: SRHLU

Information

SRHLU ;B'HAM ISC/DLR - Surgery HL7 Utility routine ; [ 05/06/98 7:14 AM ]

Source file <SRHLU.m>

Package	Total	Caller Graph
Surgery	9	SRHL PARAMETER SRHLOORU SRHLORU SRHLUI SRHLUO SRHLUO1 SRHLUO3 SRHLUO4C SRHLZIU

Name	Comments	DBIA/ICR reference
SETDSC(HL,DSC,SRHL)	;Create discrepancy ^XTMP global
CHNG	; entry to update VisA HL7 compatibility level
DIV()	; return division associated with default institution
DSCPANCY(HL)	;Discrepancy message builder
DNAME(NAME)	;identifies an incoming CN data type to a record in file 200
HNAME(IEN)	;converts an file 200 internal entry number into an HL7 CN data type	ICR #6835 Status: Pending Usage: Private
V()	;check HL7 package compatibility level	ICR #6780 Status: Pending Usage: Private

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Not a valid entry in file 200." Line Location: HNAME+2
Function Call: WRITE	Prompt: !!,?5,"Default institution must be defined as a Surgery site in the SURGERY",!,?5,"SITE PARAMETERS file (#133) before this parameter can be updated.",!! Line Location: CHNG+2
Function Call: WRITE	Prompt: !!,"This option may be used to edit the site parameter that determines which",!,"Surgery HL7 interface will be used, the interface compatible with VISTA HL7",!,"V. 1.6 or the older one compatible with VISTA HL7 V. 1.5." Line Location: CHNG+4
Function Call: WRITE	Prompt: !!,"If applications communicating with the Surgery HL7 interface must use the",!,"interface designed for HL7 V. 1.5, enter YES. Otherwise, enter NO or leave",!,"this field blank.",! Line Location: CHNG+5
Routine Call	DIE Line Location: CHNG+6

Name	Line Occurrences (* Changed, ! Killed)
^SRO(133 - [#133]	DIV+1, V+1, CHNG+3
^VA(200 - [#200]	DNAME+4, DNAME+5, HNAME+2, HNAME+3
^XMB(1 - [#4.3]	DIV+1
^XTMP("SRHLERR^"	SETDSC+2, SETDSC+3

Name	Line Occurrences
$$DIV	V+1, CHNG+2

Name	Field # of Occurrence
CNT	DNAME+1~, DNAME+5*
DA	CHNG+6!*
DIE	CHNG+6!*
DR	CHNG+6!*
DSC	SETDSC~, SETDSC+3
DT	SETDSC+2
HL	SETDSC~, DSCPANCY~
HL("DTM"	SETDSC+2, SETDSC+3
HL("MID"	SETDSC+1, DSCPANCY+1
>> HLCOMP	DNAME+2, DNAME+4, DNAME+5, HNAME+3
>> HLERR	DNAME+2*
IEN	HNAME~, HNAME+1, HNAME+2, HNAME+3
NAME	DNAME~, DNAME+2, DNAME+3, DNAME+4, DNAME+5, DNAME+6
SITE	DIV+1~*
SR15	V+1~, V+2, CHNG+1~, CHNG+3
SRDIV	DIV+1~, DIV+2, V+1~, CHNG+1~, CHNG+2*, CHNG+3, CHNG+6
SRHL	SETDSC~
SRHL("E"	SETDSC+3, SETDSC+4*
SRMID	SETDSC+1~, SETDSC+2, SETDSC+3, DSCPANCY+1~, DSCPANCY+2
SRY	CHNG+1~
U	HNAME+3
X	DNAME+1~, DNAME+5*
XMSUB	DSCPANCY+2*, DSCPANCY+5!
XMTEXT	DSCPANCY+4*, DSCPANCY+5!
XMY	DSCPANCY+5!
XMY("G.SRHL D	ISCREPANCY" , DSCPANCY+3*