Routine: EC2P72PT

Package	Total	Call Graph
Kernel	4	(,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT OUT^XPDMENU (BMES,MES)^XPDUTL
VA FileMan	4	C^%DTC FILE^DICN ^DIE ^DIK
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
POST	; entry point
RESTART	;Restart Provider fields conversion backjob
EN1	;
END
START	;* background job entry point
END1
UPXTMP	;Update ^XTMP with last ECIEN from ^ECH
UPD721	;Update ^ECH with providers at multiple field #42.
FILALT	;If error occurs filing trying record using another method
LINE(TEXT)	; Add line to message global
MSGTXT	; Message intro
MAIL	; Send message
KILL1	;

Name	Field # of Occurrence
C^%DTC	START+9
^%ZTLOAD	EN1+9
$$S^%ZTLOAD	START+24
FILE^DICN	FILALT+3
^DIE	FILALT+4
^DIK	UPD721+6
$$FMTE^XLFDT	START+12, START+25
$$NOW^XLFDT	START+9, START+12, START+25
^XMD	MAIL+5
OUT^XPDMENU	START+3, START+4, START+5, START+6, START+54, START+55, START+56, START+57
BMES^XPDUTL	POST+2, POST+6, POST+10, RESTART+1, EN1+2, EN1+3, EN1+4, EN1+5
MES^XPDUTL	POST+1, POST+3, POST+4, POST+7, POST+8, POST+11, RESTART+2, RESTART+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(721	POST+9, FILALT+2
^ECH - [#721]	POST+5, START+15, START+16, UPD721+4, UPD721+6
^ECH("A"	START+31, START+46
^ECH(0	EN1+1, END+1, START+14, END1+1
^TMP($J	START+7!, END1+2!, LINE+1*
^XTMP("ECPROVIDER"	START+8, START+10, START+11, START+12, START+25, START+28, START+29, START+30, START+32, START+43 , START+44, START+45, START+47, UPXTMP+1, UPXTMP+2*

Name	Line Occurrences
EN1	POST+12, RESTART+4
END	EN1+1
END1	START+26
FILALT	UPD721+10
KILL1	END
LINE	START+13, START+27, START+28, START+29, START+30, START+31, START+32, START+33, START+34, START+35 , START+36, START+37, START+38, START+39, START+40, START+41, START+42, START+43, START+44, START+45 , START+46, START+47, START+48, START+49, START+50, START+51, START+52
MAIL	END1
UPD721	START+21
UPXTMP	START+16, START+22

Name	Field # of Occurrence
COUNT	START+1~, START+8, LINE+1
DA	UPD721+1~, UPD721+5, UPD721+6, FILALT+1~
DA(1	UPD721+5, UPD721+6, FILALT+2, FILALT+3
DD	FILALT+1~
DIC	FILALT+1~, FILALT+3*, FILALT+4
DIC("P"	FILALT+2*
DIC(0	FILALT+2*
DIE	FILALT+1~, FILALT+4*
DIK	UPD721+1~, UPD721+5*
DO	FILALT+1~
DR	FILALT+1~, FILALT+4*
DUZ	MAIL+2
ECDAT	START+1~, START+16*, START+18, START+19, START+20
ECDATA	UPD721+1~, UPD721+9*, FILALT+3, FILALT+4
ECERR	UPD721+1~
ECIEN	START+1~, START+8, START+15, START+16, UPXTMP+1, UPD721+4, UPD721+5, FILALT+2
ECKID	KILL1+1!
ECPRV	START+1~, START+17!, UPD721+3
ECPRV(	UPD721+8, UPD721+9
ECPRV(""	START+19, START+20
ECPRV(1	START+18*
ECPRV(2	START+19*
ECPRV(3	START+20*
ECPRVDA	UPD721+1~
ECX1	START+1~, START+9*, START+11
I	START+1~, START+13*, END1+2!
LINE	START+1~
SIEN	UPD721+1~, UPD721+7, UPD721+8, UPD721+9
STOP	START+1~, START+8, START+15, START+24, START+26
TEXT	LINE~, LINE+1
TXTVAR	START+1~, START+13*
U	FILALT+2, FILALT+4
X	START+1~, START+11, FILALT+1~, FILALT+3*
X1	START+1~, START+9*
X2	START+1~, START+9*
XMDUZ	MAIL+1~, MAIL+2*
XMSUB	MAIL+1~, MAIL+3*
XMTEXT	MAIL+1~, MAIL+4*
XMY	MAIL+1~
XMY(	MAIL+2*
>> XPDSET	EN1+8
Y	END1+2!
ZTDESC	EN1+6*, KILL1+1!
ZTDTH	EN1+7*, KILL1+1!
ZTIO	EN1+6*, KILL1+1!
ZTREQ	EN1+7*, KILL1+1!
ZTRTN	EN1+6*, KILL1+1!
>> ZTSAVE("XPDSET"	EN1+8*
>> ZTSAVE("ZTREQ"	EN1+7*, KILL1+1!

Name	Field # of Occurrence
$T(MSGTXT+I	START+13