DG53514 ;ALB/PHH - DG*5.3*514 DOD Cleanup ; 4/25/03
Source file <DG53514.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RESET | ; Reset the data for the cleanup process
|
|
NAMESPC() | ; API returns the name space for this patch
|
|
STOPIT() | ; Checks if user requested task to stop
|
|
DONEMSG | ; Send the user aborted message:
|
|
RUNCHK(NAMESPC) | ; Check to see if clean up is already running
|
|
PROC(DFN) | ; Process the DFN
|
|
START | ; Start Processor
|
|
SEND(DFN) | ; Send an ENROLLMENT/ELIGIBILITY QUERY to HEC for a veteran
|
|
QTIME(WHEN) | ; Get the run time for queuing
|
|
ABORTMSG | ; Send the user aborted message:
|
|
CLEAN | ; Actual cleanup process
|
|
TEST | ; Simulate Live Run
|
|
QUEUE(ZTDTH) | ; Queue the process
|
Name | Field # of Occurrence |
---|---|
C^%DTC | CLEAN+19 |
NOW^%DTC | QTIME+2, CLEAN+16, CLEAN+36, CLEAN+42 |
HOME^%ZIS | QUEUE+11 |
^%ZTLOAD | QUEUE+7 |
$$S^%ZTLOAD | STOPIT+3 |
$$FINDLAST^DGENQRY | SEND+7 |
$$GET^DGENQRY | SEND+8 |
$$LOCK^DGENQRY | SEND+6 |
$$LOG^DGENQRY | SEND+20 |
$$ON^DGENQRY | SEND+3 |
UNLOCK^DGENQRY | SEND+21 |
$$MSG^DGENQRY1 | SEND+10 |
$$DT^XLFDT | CLEAN+18, CLEAN+20 |
$$FMTE^XLFDT | ABORTMSG+11, ABORTMSG+12, DONEMSG+11, DONEMSG+12 |
^XMD | ABORTMSG+20, DONEMSG+20 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGEN(27.11 - [#27.11] | PROC+7 |
^DPT - [#2] | CLEAN+24, PROC+3, PROC+5 |
^DPT(0 | CLEAN+22 |
^XTMP( | RESET+1!, START+5, START+6*, START+7*, START+8*, RUNCHK+2, RUNCHK+3, QUEUE+8!, QUEUE+9*, QUEUE+10* , CLEAN+3!, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+8, CLEAN+9!, CLEAN+10*, CLEAN+11*, CLEAN+12*, CLEAN+13* , CLEAN+14*, CLEAN+15*, CLEAN+17*, CLEAN+20*, CLEAN+23, CLEAN+26*, CLEAN+27*, CLEAN+29*, CLEAN+30*, CLEAN+31 , CLEAN+37*, CLEAN+43*, CLEAN+44*, CLEAN+47!, PROC+10*, PROC+11*, PROC+12*, PROC+16*, PROC+18*, PROC+19* , ABORTMSG+11, ABORTMSG+12, ABORTMSG+15, ABORTMSG+16, ABORTMSG+17, DONEMSG+11, DONEMSG+12, DONEMSG+15, DONEMSG+16 |
Name | Line Occurrences |
---|---|
$$NAMESPC | RESET+1, START+2, QUEUE+2, CLEAN+2, PROC+2, ABORTMSG+2, DONEMSG+2 |
$$QTIME | START+4 |
$$QUEUE | START+8 |
$$RUNCHK | START+3 |
$$SEND | PROC+15 |
$$STOPIT | CLEAN+32 |
ABORTMSG | CLEAN+38 |
DONEMSG | CLEAN+45 |
PROC | CLEAN+25 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | QTIME+1~, QTIME+3, CLEAN+1~, CLEAN+17, CLEAN+35~, CLEAN+37, CLEAN+41~, CLEAN+43 |
%H | QTIME+1~, CLEAN+1~, CLEAN+35~, CLEAN+41~ |
%I | QTIME+1~, CLEAN+1~, CLEAN+35~, CLEAN+41~ |
CHKCNT | CLEAN+1~, CLEAN+22*, CLEAN+31 |
CURENR | PROC+1~, PROC+5*, PROC+6, PROC+7 |
DFN | CLEAN+1~, CLEAN+23*, CLEAN+24*, CLEAN+25, CLEAN+27, CLEAN+40, PROC~, PROC+3, PROC+5, PROC+10 , PROC+12, PROC+15, PROC+16, SEND~, SEND+6, SEND+7, SEND+10, SEND+12, SEND+21 |
DGQRY | SEND+4~, SEND+8, SEND+20 |
DGQRY("DFN" | SEND+12* |
DGQRY("FIRST" | SEND+17* |
DGQRY("MSGID" | SEND+15* |
DGQRY("NOTIFY" | SEND+16* |
DGQRY("RESPONSE" | SEND+18* |
DGQRY("RESPONSEID" | SEND+19* |
DGQRY("SENT" | SEND+13* |
DGQRY("STATUS" | SEND+14* |
DOD | PROC+1~, PROC+3*, PROC+4 |
DUZ | START+7, ABORTMSG+4, DONEMSG+4 |
ENRSTAT | PROC+1~, PROC+7*, PROC+8 |
ERROR | SEND+4~, SEND+5*, SEND+10 |
>> FIRST | SEND+17 |
LAST | SEND+4~, SEND+7*, SEND+8 |
MODE | TEST+1~, TEST+2*, START+5*, START+6, CLEAN+1~, CLEAN+4*, CLEAN+13, PROC+15 |
MSGID | SEND+4~, SEND+10, SEND+15 |
NAMESPC | START+1~, START+2*, START+3, START+5, START+6, START+7, START+8, RUNCHK~, RUNCHK+1, RUNCHK+2 , RUNCHK+3, QUEUE+1~, QUEUE+2*, QUEUE+4, QUEUE+5, QUEUE+8, QUEUE+9, QUEUE+10, CLEAN+1~, CLEAN+2* , CLEAN+3, CLEAN+4, CLEAN+5, CLEAN+6, CLEAN+8, CLEAN+9, CLEAN+10, CLEAN+11, CLEAN+12, CLEAN+13 , CLEAN+14, CLEAN+15, CLEAN+17, CLEAN+20, CLEAN+23, CLEAN+26, CLEAN+27, CLEAN+29, CLEAN+30, CLEAN+31 , CLEAN+37, CLEAN+43, CLEAN+44, CLEAN+47, PROC+1~, PROC+2*, PROC+10, PROC+11, PROC+12, PROC+16 , PROC+18, PROC+19, ABORTMSG+1~, ABORTMSG+2*, ABORTMSG+3, ABORTMSG+11, ABORTMSG+12, ABORTMSG+15, ABORTMSG+16, ABORTMSG+17 , DONEMSG+1~, DONEMSG+2*, DONEMSG+3, DONEMSG+11, DONEMSG+12, DONEMSG+15, DONEMSG+16 |
NAMESPCN | ABORTMSG+1~, ABORTMSG+3*, ABORTMSG+4, ABORTMSG+5, ABORTMSG+6, ABORTMSG+7, ABORTMSG+8, ABORTMSG+9, ABORTMSG+10, ABORTMSG+11 , ABORTMSG+12, ABORTMSG+13, ABORTMSG+14, ABORTMSG+15, ABORTMSG+16, ABORTMSG+17, ABORTMSG+18, ABORTMSG+19, DONEMSG+1~, DONEMSG+3* , DONEMSG+4, DONEMSG+5, DONEMSG+6, DONEMSG+7, DONEMSG+8, DONEMSG+9, DONEMSG+10, DONEMSG+11, DONEMSG+12, DONEMSG+13 , DONEMSG+14, DONEMSG+15, DONEMSG+16, DONEMSG+17, DONEMSG+18, DONEMSG+19 |
>> NOTIFY | SEND+16 |
QLOGIEN | PROC+1~ |
QTIME | START+1~, START+4, START+8 |
QUEERR | QUEUE+1~, QUEUE+3*, QUEUE+9*, QUEUE+12 |
SENT | SEND+4~, SEND+10*, SEND+11, SEND+13, SEND+17 |
STOPIT | STOPIT+1~, STOPIT+2*, STOPIT+5*, STOPIT+7 |
SUCCESS | PROC+1~, PROC+14*, PROC+15*, PROC+16, PROC+18, PROC+19, SEND+4~, SEND+5*, SEND+6*, SEND+9 , SEND+11*, SEND+20*, SEND+22 |
TASKID | CLEAN+1~, CLEAN+6*, CLEAN+15 |
TMP | ABORTMSG+1~, DONEMSG+1~ |
TMP( | ABORTMSG+6*, ABORTMSG+7*, ABORTMSG+8*, ABORTMSG+9*, ABORTMSG+10*, ABORTMSG+11*, ABORTMSG+12*, ABORTMSG+13*, ABORTMSG+14*, ABORTMSG+15* , ABORTMSG+16*, ABORTMSG+17*, ABORTMSG+18*, ABORTMSG+19*, DONEMSG+6*, DONEMSG+7*, DONEMSG+8*, DONEMSG+9*, DONEMSG+10*, DONEMSG+11* , DONEMSG+12*, DONEMSG+13*, DONEMSG+14*, DONEMSG+15*, DONEMSG+16*, DONEMSG+17*, DONEMSG+18*, DONEMSG+19* |
TMSWT | CLEAN+1~, CLEAN+22*, CLEAN+24, CLEAN+32*, CLEAN+33, CLEAN+40 |
TOTDPT | CLEAN+1~, CLEAN+22*, CLEAN+28, CLEAN+29 |
U | CLEAN+20 |
USER | CLEAN+1~, CLEAN+5*, CLEAN+14 |
WHEN | QTIME~, QTIME+3* |
X | QTIME+1~, CLEAN+1~, CLEAN+20, CLEAN+35~, CLEAN+41~, STOPIT+1~, STOPIT+3*, STOPIT+4 |
X1 | CLEAN+1~, CLEAN+18* |
X2 | CLEAN+1~, CLEAN+18* |
XMDUZ | ABORTMSG+1~, ABORTMSG+4*, DONEMSG+1~, DONEMSG+4* |
XMSUB | ABORTMSG+1~, ABORTMSG+5*, DONEMSG+1~, DONEMSG+5* |
XMTEXT | ABORTMSG+1~, ABORTMSG+4*, DONEMSG+1~, DONEMSG+4* |
XMY | ABORTMSG+1~, DONEMSG+1~ |
XMY( | ABORTMSG+4*, DONEMSG+4* |
ZTDESC | QUEUE+1~, QUEUE+5* |
ZTDTH | QUEUE~ |
>> ZTIO | QUEUE+6* |
ZTRTN | QUEUE+1~, QUEUE+4* |
ZTSK | QUEUE+1~, QUEUE+9, QUEUE+10, STOPIT+6 |
>> ZTSTOP | CLEAN+22*, CLEAN+34*, STOPIT+6* |