Routine: SRHLPRE

Entry Points

Name	Comments	DBIA/ICR reference
SETUP	;sets up needed HL7 files for the Surgery Interface install
CLEAN
MAILGRP	; mail group creation
7712	;check for existence and add/update HL7 Message file
779001	;update HL7 EVENT TYPE file (#779.001)

FileNo	Call Tags
^HL(771.2 - [#771.2]	Classic Fileman Calls
^HL(779.001 - [#779.001]	Classic Fileman Calls

Name	Line Occurrences
7712	SETUP+2, SETUP+3, SETUP+4
779001	SETUP+5, SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10, SETUP+11, SETUP+12
CLEAN	7712+1, 779001+1
MAILGRP	SRHLPRE+2

Name	Field # of Occurrence
A	MAILGRP+1~
DA	CLEAN!, 7712+1, 779001+1
DD	CLEAN!
DIC	CLEAN!, MAILGRP+1!, 7712+1, 779001+1*
DIC(0	MAILGRP+1, 7712+1, 779001+1*
DIE	CLEAN!, 7712+1, 779001+1
>> DLAYGO	7712+1, 779001+1
DO	CLEAN!
DR	CLEAN!, 7712+1, 779001+1
DR(2	7712+1, 779001+1
DUZ	MAILGRP+5, MAILGRP+6
SRDESC	MAILGRP+1~, MAILGRP+6
SRDESC(1	MAILGRP+2*
SRDESC(2	MAILGRP+3*
SRDESC(3	MAILGRP+4*
SRDESC(4	MAILGRP+5*
SRN	SETUP+1~, SETUP+2, SETUP+3, SETUP+4, SETUP+5, SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10* , SETUP+11, SETUP+12, 7712+1, 779001+1
SRV	SETUP+1~, SETUP+2, SETUP+3, SETUP+4, SETUP+5, SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10* , SETUP+11, SETUP+12, 7712+1, 779001+1
SRXMY	MAILGRP+1~, MAILGRP+6
SRXMY(	MAILGRP+5*
X	SETUP+2, SETUP+3, SETUP+4, SETUP+5, SETUP+6, SETUP+7, SETUP+8, SETUP+9, SETUP+10, SETUP+11 , SETUP+12, MAILGRP+1~, MAILGRP+6*
>> Y	MAILGRP+1, 7712+1, 779001+1