Routine: EC2P134

Entry Points

Name	Comments	DBIA/ICR reference
ENV	;Environment check to make sure old file 722 isn't there
POST	;Post-install activities
DTPD	;Delete test patient data from file 721 if this is a production install
CHKLOC	;Check "LOC" index against actual names and report differences
DELLOC	;Fix "LOC" table in file 4
MAIL	;Send email with results to holders of the ECMGR key
GETXMY(KEY,XMY)	;Put holders of the KEY into the XMY array to be recipients of the email

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Environment is ready for installation." Line Location: ENV+3

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	CHKLOC+2, CHKLOC+3, CHKLOC+4, CHKLOC+5, DELLOC+2!
^ECC(722	ENV+3, ENV+4
^XUSEC(	GETXMY+1

Name	Field # of Occurrence
CHG	CHKLOC+1~, MAIL+8, MAIL+9, MAIL+14, MAIL+21
CHG(	CHKLOC+6*, MAIL+16, MAIL+17
CNT	MAIL+1~, MAIL+4, MAIL+5, MAIL+6, MAIL+7, MAIL+8, MAIL+10, MAIL+11, MAIL+12, MAIL+13* , MAIL+14, MAIL+15, MAIL+17, MAIL+18, MAIL+19, MAIL+20, MAIL+22, MAIL+23
DEL	CHKLOC+1~, MAIL+8, MAIL+9, MAIL+18, MAIL+21
DEL(	CHKLOC+4*, MAIL+20
DIFROM	MAIL+1~
DIK	DTPD+1~, DELLOC+5*
DIK(1	DELLOC+5*
DIU	ENV+2~, ENV+7*
DIU(0	ENV+8*
DUZ	GETXMY+2
ECTEXT	MAIL+1~
ECTEXT(	MAIL+5, MAIL+6, MAIL+7, MAIL+8, MAIL+10, MAIL+11, MAIL+12, MAIL+13, MAIL+14, MAIL+15 , MAIL+17, MAIL+18, MAIL+19, MAIL+20, MAIL+22, MAIL+23
KEY	GETXMY~, GETXMY+1
NAME	CHKLOC+1~, CHKLOC+2, CHKLOC+3, CHKLOC+4, CHKLOC+6, MAIL+1~, MAIL+16, MAIL+17, MAIL+20*
NEWNM	CHKLOC+1~, CHKLOC+5*, CHKLOC+6
NUM	MAIL+1~, MAIL+16, MAIL+17, MAIL+20
PROD	DTPD+1~, DTPD+2*, DTPD+3, DTPD+9
REC	CHKLOC+1~, CHKLOC+3*, CHKLOC+4, CHKLOC+5, CHKLOC+6
RESULTS	DTPD+1~, DTPD+6, DTPD+7
U	CHKLOC+5
XMDUZ	MAIL+1~, MAIL+2*
XMSUB	MAIL+1~, MAIL+24*
XMTEXT	MAIL+1~, MAIL+24*
XMY	MAIL+1~, MAIL+3, GETXMY~, GETXMY+1*
XMY(	GETXMY+2*
XMZ	MAIL+1~