DG53528P ;ALB/ERC - COMBAT VET PRE & POSTINSTALLS ;7/22/03
Source file <DG53528P.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PRE | ;add 5 new entries to the INCONSISTENT DATA ELEMENTS file (#38.6)
|
|
ADD | ;set up FDA arrays for the addition of new entries in 38.6
|
|
UPD | ;call UPDATE^DIE
|
|
SET | ;set the entry field values into variables
|
|
POST | ;post install routine for Combat Veteran - will loop through the
|
|
POST1 | ;check to see if process already finished, already started or currently
|
|
ACTIVE(DGTASK) | ;check to see if task already running
; DGTASK - taskman task number ; output - (1,0) is the task running? |
|
POSTQ | ;queue the task
|
|
LOOP | ;
|
|
REQUE | ;requeue initial seeding if interrupted
|
Name | Field # of Occurrence |
---|---|
C^%DTC | LOOP+4, LOOP+15 |
NOW^%DTC | POSTQ+6 |
^%ZTLOAD | POSTQ+8 |
$$S^%ZTLOAD | LOOP+22 |
STAT^%ZTLOAD | ACTIVE+5 |
$$CVELIG^DGCV | LOOP+23 |
SETCV^DGCV | LOOP+27 |
REPORT^DGCV1 | LOOP+44 |
RPT^DGCV1 | LOOP+32 |
UPDATE^DIE | UPD+2 |
$$GET1^DIQ | LOOP+25 |
$$DT^XLFDT | LOOP+5, LOOP+16 |
$$FMTE^XLFDT | LOOP+6, LOOP+33 |
$$NOW^XLFDT | POSTQ+2, LOOP+6, LOOP+33 |
SENDMSG^XMXAPI | LOOP+43, LOOP+49 |
$$PATCH^XPDUTL | PRE+6 |
BMES^XPDUTL | PRE+10, PRE+13, UPD+3, UPD+4, POST1+7, POST1+14, POSTQ+11, LOOP+42, LOOP+50 |
MES^XPDUTL | UPD+3 |
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | POSTQ+7 |
DFN | POST+4~, LOOP+2*, LOOP+3*, LOOP+18*, LOOP+21, LOOP+23, LOOP+25, LOOP+27 |
DG | ADD+1~, POST+4~, LOOP+19*, LOOP+23*, LOOP+24, LOOP+31, LOOP+32, LOOP+52! |
DG67 | ADD+1~, ADD+3, SET+5* |
DG68 | ADD+1~, ADD+3, SET+6* |
DG69 | ADD+1~, ADD+3, SET+7* |
DG70 | ADD+1~, ADD+3, SET+8* |
DG71 | ADD+1~, ADD+3, SET+9* |
DGA | SET+1~, SET+2*, SET+5, SET+6, SET+7, SET+8, SET+9 |
DGB | SET+1~, SET+3*, SET+5, SET+6, SET+7, SET+8, SET+9 |
DGC | LOOP+1~, LOOP+2*, LOOP+28*, LOOP+29 |
DGCOM | LOOP+52! |
DGCVDT | LOOP+52! |
DGDONE | POST+4~, POST+5, POST1+3*, POST1+8*, POST1+15* |
DGERR | ADD+1~, UPD+3 |
DGERR("DIERR" | UPD+3 |
DGFDA | ADD+1~, ADD+4!, ADD+9 |
DGFDA( | ADD+5*, ADD+6*, ADD+7* |
DGGULF | LOOP+52! |
DGIEN | ADD+1~ |
DGIEN(1 | UPD+1* |
DGK | PRE+7~, PRE+9*, PRE+10 |
DGMSG | POST1+2~, POST1+6*, POST1+7, POST1+13*, POST1+14, LOOP+35~, LOOP+42, LOOP+45~, LOOP+50 |
DGMSG(1 | LOOP+37*, LOOP+46* |
DGMSG(2 | LOOP+38*, LOOP+47* |
DGMSG(3 | LOOP+39* |
DGMSG(4 | LOOP+40* |
DGMSG(5 | LOOP+41* |
DGREQ | POST1+9, REQUE+1~, REQUE+2* |
DGSOM | LOOP+52! |
DGSRV | LOOP+25*, LOOP+26, LOOP+27, LOOP+30, LOOP+52! |
DGSTAT | POST1+2~, POST1+12*, POST1+13, ACTIVE+3~, ACTIVE+4*, ACTIVE+7*, ACTIVE+8*, ACTIVE+9*, ACTIVE+10 |
DGT | LOOP+1~, LOOP+2*, LOOP+20*, LOOP+22, LOOP+29 |
DGTASK | POST1+2~, POST1+10*, POST1+11, POST1+12, POST1+13, ACTIVE~, ACTIVE+4 |
DGTXT | POSTQ+1~, POSTQ+11 |
DGTXT(1 | POSTQ+10* |
DGWORD | ADD+1~, ADD+8, SET+4* |
DGWP | PRE+7~ |
DGWP(1 | ADD+8* |
DGX | ADD+1~, ADD+3*, ADD+5, ADD+6, UPD+1, UPD+3, UPD+4 |
DGYUG | LOOP+52! |
DT | LOOP+4, LOOP+15 |
DUZ | LOOP+43, LOOP+49 |
>> IOP | LOOP+7*, LOOP+8, LOOP+9*, LOOP+10*, LOOP+11, LOOP+12 |
U | ADD+5, ADD+6, UPD+1, UPD+3, UPD+4, LOOP+33 |
X | LOOP+1~, LOOP+5, LOOP+14~, LOOP+16 |
X1 | LOOP+1~, LOOP+4*, LOOP+14~, LOOP+15* |
X2 | LOOP+1~, LOOP+4*, LOOP+14~, LOOP+15* |
XMDUZ | LOOP+35~ |
XMSUB | LOOP+35~, LOOP+36*, LOOP+43, LOOP+48*, LOOP+49 |
XMTEXT | LOOP+35~ |
XMY | LOOP+35~ |
XPDABORT | PRE+8!, PRE+9, PRE+11*, PRE+12 |
>> XPDQUES("POS1" | LOOP+7 |
Y | ACTIVE+3~, ACTIVE+6*, ACTIVE+7, ACTIVE+8, ACTIVE+9 |
ZTDESC | POSTQ+1~, POSTQ+3* |
ZTDTH | POSTQ+1~, POSTQ+2*, POSTQ+7* |
ZTIO | POSTQ+1~, POSTQ+2* |
ZTRTN | POSTQ+1~, POSTQ+2* |
ZTSAVE | POST+4~ |
ZTSAVE("*" | POSTQ+5* |
ZTSAVE("POS1" | POSTQ+4* |
ZTSAVE("XPDQUES" | POSTQ+4* |
ZTSK | ACTIVE+3~, ACTIVE+4*, POSTQ+1~, POSTQ+9, POSTQ+10 |
ZTSK(1 | ACTIVE+6 |
ZTSTOP | LOOP+1~, LOOP+2*, LOOP+18, LOOP+22*, LOOP+34 |