EC2P72PT ;ALB/JAM - PATCH EC*2.0*72 Post-Init Rtn ; 5/11/06 2:57pm
Source file <EC2P72PT.m>
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
|
|
; 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 |
END1 | |
UPD721 | START+21 |
UPXTMP | START+16, START+22 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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 |