DGAUDIT ;ISL/DKA,BAL/RLF - VAS - TAKES PAYLOAD AND SENDS TO AUDIT SOLUTION ; 03 Aug 2021 12:58 PM
Source file <DGAUDIT.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 7 | APPERROR^%ZTER $$S^%ZTLOAD ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT DECODE^XLFJSON $$STA^XUAF4 $$KSP^XUPARAM $$PROD^XUPROD |
Registration | 3 | CHKSIZE^DGAUDIT ($$ERRSPMSG,$$PENDING,DBEMAIL,GENERR,NEWAUDEX)^DGAUDIT1 BADJSON^DGAUDIT2 |
VA FileMan | 3 | $$FIND1^DIC ^DIK $$GET1^DIQ |
List Manager | 1 | $$UPPER^VALM1 |
MailMan | 1 | ^XMD |
Toolkit | 1 | $$GET^XPAR |
Web Services Client | 1 | ($$GETREST,$$POST)^XOBWLIB |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Registration | 4 | DG VAS EXPORT DGAUDIT DGAUDIT1 DGAUDIT3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EXPORT | ; Called from TaskMan job
; Quit if this subroutine is already running |
|
EXPORT2 | ; Main processing loop
|
|
EXPORT3(DGABORT) | ;JPN ADDED FOR BREAKING UP DIA GLOBAL
|
|
RESTPOST(BATCHID,BATSIZE,DGERRARR,DGAUDWRCNT,DGOUT) | ; Build batch containing BATSIZE JSON records from ^DGAUDIT
|
|
PROCRESP(DGRESP,BATCHID,DGERRARR,DGAUDWRCNT,DGAUDWRMAX,DGCONSERR,DGOUT) | ; process response
; If the entire batch failed, leave entries in ^DGAUDIT and delete failed batch from ^TMP |
|
SNDMSG(DGAUDMSG,DGAUDGRP,DGALTSUB) | ; Send mail message to mail group
|
|
CHKSIZE | ; Check the size of the ^DGAUDIT global (based on the number of entries).
; If the number of entries is greater than the parameter value for the maximum number of entries, ; then repeatedly delete the first entry until the number of entries is back to the maximum. |
|
FROZEN(PCT) | ; If there are there greater than PCT% records stuck in queue, send message
; Don't add any new records from ^DIA until queue is cleared out. |
|
PCTFULL() | ; VAS QUEUE % full
|
Name | Field # of Occurrence |
---|---|
APPERROR^%ZTER | PROCRESP+16 |
$$S^%ZTLOAD | EXPORT+24, EXPORT3+2, EXPORT3+23 |
CHKSIZE^DGAUDIT | PROCRESP+20, PROCRESP+47 |
$$ERRSPMSG^DGAUDIT1 | RESTPOST+38 |
$$PENDING^DGAUDIT1 | EXPORT3+10, EXPORT3+12, CHKSIZE+9, CHKSIZE+14, PCTFULL+4 |
DBEMAIL^DGAUDIT1 | EXPORT+29 |
GENERR^DGAUDIT1 | PROCRESP+20, PROCRESP+47, FROZEN+7 |
NEWAUDEX^DGAUDIT1 | EXPORT2+11 |
BADJSON^DGAUDIT2 | RESTPOST+23 |
$$FIND1^DIC | EXPORT+11 |
^DIK | PROCRESP+13, PROCRESP+49, PROCRESP+53, CHKSIZE+12 |
$$GET1^DIQ | EXPORT+13, EXPORT+24, EXPORT3+2, EXPORT3+23, SNDMSG+8 |
$$UPPER^VALM1 | PROCRESP+7 |
$$DT^XLFDT | EXPORT+7, PROCRESP+10, PROCRESP+40 |
$$FMADD^XLFDT | EXPORT+7, PROCRESP+10, PROCRESP+40 |
$$FMTE^XLFDT | SNDMSG+6 |
$$NOW^XLFDT | EXPORT3+10, SNDMSG+6 |
DECODE^XLFJSON | RESTPOST+45 |
^XMD | SNDMSG+14 |
$$GETREST^XOBWLIB | RESTPOST+11 |
$$POST^XOBWLIB | RESTPOST+35 |
$$GET^XPAR | EXPORT+3, EXPORT+17, EXPORT+19, EXPORT+25, EXPORT2+3, EXPORT3+3, SNDMSG+7, CHKSIZE+4, PCTFULL+2 |
$$STA^XUAF4 | SNDMSG+5 |
$$KSP^XUPARAM | SNDMSG+5 |
$$PROD^XUPROD | SNDMSG+13 |
FileNo | Call Tags |
---|---|
^XOB(18.02 - [#18.02] | FIND1^DIC |
^XOB(18.12 - [#18.12] | FIND1^DIC |
^XMB(3.8 - [#3.8] | GET1^DIQ |
^DGAUDIT - [#46.3] | Classic Fileman Calls |
^DGAUDIT2 - [#46.5] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGAUDIT - [#46.3] | RESTPOST+17, RESTPOST+20, RESTPOST+22, PROCRESP+12, PROCRESP+41 |
^DGAUDIT(0 | CHKSIZE+11 |
^DGAUDIT(99999999999 | 9, RESTPOST+18 |
^DGAUDIT2(0 | EXPORT+4, EXPORT+30 |
^TMP( | RESTPOST+12! |
^TMP($J | RESTPOST+4!, RESTPOST+6!, RESTPOST+24*, PROCRESP+11, PROCRESP+12, PROCRESP+21!, PROCRESP+41, PROCRESP+52, PROCRESP+54! |
^XTMP("DGAUDIT_EXCEPTION;" | PROCRESP+10*, PROCRESP+12*, PROCRESP+40*, PROCRESP+41* |
^XTMP("DGLOCKFAIL" | EXPORT+6*, EXPORT+7* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | PROCRESP+4~ |
%H | PROCRESP+4~ |
BATCHID | EXPORT3+10*, EXPORT3+16, EXPORT3+21, RESTPOST~, RESTPOST+24, PROCRESP~, PROCRESP+10, PROCRESP+11, PROCRESP+12, PROCRESP+21 , PROCRESP+40, PROCRESP+41, PROCRESP+44, PROCRESP+45, PROCRESP+52, PROCRESP+54 |
BATSIZE | EXPORT3+11~, EXPORT3+14*, EXPORT3+15*, EXPORT3+16, RESTPOST~, RESTPOST+16*, RESTPOST+20 |
DA | PROCRESP+13~*, PROCRESP+49~*, PROCRESP+53~*, CHKSIZE+3~, CHKSIZE+11* |
DGABORT | EXPORT2+1~, EXPORT2+6, EXPORT3~, EXPORT3+10, EXPORT3+22* |
DGALTSUB | SNDMSG~, SNDMSG+12 |
DGAUDBEG | EXPORT+9~, EXPORT+14*, RESTPOST+17*, RESTPOST+19 |
DGAUDC | PROCRESP+8~, PROCRESP+11*, PROCRESP+12, PROCRESP+13 |
DGAUDCNT | RESTPOST+1~, RESTPOST+19*, RESTPOST+20*, RESTPOST+22, RESTPOST+23, RESTPOST+24, PROCRESP+26~, PROCRESP+35*, PROCRESP+41, PROCRESP+49 , PROCRESP+52*, PROCRESP+53, CHKSIZE+3~, CHKSIZE+4*, CHKSIZE+13*, CHKSIZE+15 |
DGAUDDATA | RESTPOST+1~, CHKSIZE+3~ |
DGAUDECNT | EXPORT2+1~, EXPORT3+7* |
DGAUDERR | EXPORT+8~, PROCRESP+2~, PROCRESP+5*, PROCRESP+17*, PROCRESP+18*, PROCRESP+19*, PROCRESP+20!, PROCRESP+36*, PROCRESP+44*, PROCRESP+45* , PROCRESP+46*, PROCRESP+47!, CHKSIZE+15*, FROZEN+4~, FROZEN+7 |
DGAUDERR( | PROCRESP+17*, PROCRESP+18*, PROCRESP+19*, PROCRESP+44*, PROCRESP+45*, PROCRESP+46*, CHKSIZE+15* |
DGAUDERR(1 | FROZEN+5* |
DGAUDERR(2 | FROZEN+6* |
DGAUDEXPHT | EXPORT+8~ |
DGAUDFAIL | EXPORT+9~, EXPORT+14*, EXPORT3+17*, EXPORT3+19*, EXPORT3+22, RESTPOST+17 |
DGAUDGRP | SNDMSG~ |
DGAUDKPX | EXPORT+2~, EXPORT+25*, RESTPOST+23, PROCRESP+39, PROCRESP+40 |
DGAUDLAST | RESTPOST+2~, RESTPOST+18*, RESTPOST+20 |
DGAUDMAX | EXPORT+9~, EXPORT+17*, EXPORT+18*, EXPORT+22, CHKSIZE+3~, CHKSIZE+4*, CHKSIZE+5, CHKSIZE+7, CHKSIZE+10, PCTFULL+1~ , PCTFULL+2*, PCTFULL+3*, PCTFULL+4 |
DGAUDMSG | RESTPOST+1~, SNDMSG~, CHKSIZE+3~ |
DGAUDNUM | CHKSIZE+3~, CHKSIZE+9*, CHKSIZE+10, CHKSIZE+14* |
DGAUDOPCNT | EXPORT+8~ |
DGAUDOPEN | EXPORT2+1~, EXPORT3+7* |
DGAUDOPFRQ | EXPORT+8~ |
DGAUDOPMAX | EXPORT+8~ |
DGAUDOPTO | EXPORT+8~ |
DGAUDPORT | EXPORT+9~ |
DGAUDRD | EXPORT2+1~ |
DGAUDSC | EXPORT2+1~ |
DGAUDSHUT | EXPORT+8~, EXPORT+13*, EXPORT+16, EXPORT+24*, EXPORT+26, EXPORT3+2*, EXPORT3+6, EXPORT3+10, EXPORT3+23* |
DGAUDSRV | EXPORT+9~ |
DGAUDSTOP | EXPORT+8~, EXPORT+14*, EXPORT+16, EXPORT+24*, EXPORT+26, EXPORT3+2*, EXPORT3+6, EXPORT3+23* |
DGAUDTBR | EXPORT2+1~, EXPORT3+7* |
DGAUDTN | EXPORT+9~ |
DGAUDWRCNT | EXPORT+8~, EXPORT3+7*, EXPORT3+16, EXPORT3+20*, EXPORT3+21, RESTPOST~, PROCRESP~, PROCRESP+47* |
DGAUDWRMAX | EXPORT+8~, EXPORT3+3*, EXPORT3+4*, EXPORT3+21, EXPORT3+22, PROCRESP~ |
DGBATSIZE | EXPORT+2~, EXPORT+19*, EXPORT+22*, EXPORT3+14, CHKSIZE+6*, CHKSIZE+7 |
DGCONSERR | EXPORT+9~, EXPORT+14*, EXPORT3+17!*, EXPORT3+19*, EXPORT3+21, PROCRESP~, PROCRESP+6, PROCRESP+14 |
DGCONSERR( | PROCRESP+6, PROCRESP+14* |
DGDATA | RESTPOST+1~, RESTPOST+21~ |
DGDATA1 | RESTPOST+21~ |
DGDEBUGON | EXPORT+2~, EXPORT+3*, EXPORT+5, EXPORT+28, EXPORT2+1~, EXPORT2+3* |
DGDONE | EXPORT3+1~, EXPORT3+5*, EXPORT3+10, EXPORT3+15* |
DGEMAIL | SNDMSG+4~, SNDMSG+7*, SNDMSG+8*, SNDMSG+9*, SNDMSG+10 |
DGEND | SNDMSG+4~, SNDMSG+6* |
DGERR | RESTPOST+1~, RESTPOST+21~ |
DGERR1 | RESTPOST+21~ |
DGERRARR | EXPORT3+1~, EXPORT3+11~, EXPORT3+13*, EXPORT3+16, EXPORT3+21, RESTPOST~, RESTPOST+38, PROCRESP~ |
DGERRARR("message" | PROCRESP+46 |
DGERRARR("statusLine" | PROCRESP+15, PROCRESP+18 |
DGERRARR("text" | PROCRESP+7, PROCRESP+15, PROCRESP+19 |
DGERRCD | RESTPOST+2~, RESTPOST+38*, RESTPOST+39 |
DGERRLIN | PROCRESP+2~, PROCRESP+19*, PROCRESP+46* |
DGERRTXT | PROCRESP+15~*, PROCRESP+16* |
DGEXCEPT | PROCRESP+26~, PROCRESP+27*, PROCRESP+35 |
DGHEADER | RESTPOST+1~, RESTPOST+29* |
DGHTTPCHK | RESTPOST+1~ |
DGHTTPRSP | RESTPOST+1~, RESTPOST+41* |
DGINST | SNDMSG+4~, SNDMSG+5*, SNDMSG+12 |
DGJSON | RESTPOST+21~, RESTPOST+22*, RESTPOST+23, RESTPOST+24, RESTPOST+25*, RESTPOST+26 |
DGLOGN | EXPORT+2~ |
DGOUT | EXPORT3+1~, EXPORT3+11~, EXPORT3+13*, EXPORT3+16, EXPORT3+21, RESTPOST~, RESTPOST+12, RESTPOST+36, RESTPOST+37*, RESTPOST+39* , RESTPOST+46*, PROCRESP~ |
DGOUT("failedIds" | PROCRESP+27, PROCRESP+35 |
DGOUT(0 | RESTPOST+12* |
DGOUTJSON | RESTPOST+1~, RESTPOST+42* |
DGPOST | EXPORT3+1~ |
DGRESP | EXPORT3+1~, EXPORT3+16*, EXPORT3+17, EXPORT3+19, EXPORT3+20, EXPORT3+21, RESTPOST+39, PROCRESP~, PROCRESP+3, PROCRESP+15 , PROCRESP+24 |
DGRESPERR | EXPORT2+2~, RESTPOST+35, RESTPOST+38 |
DGRESPONSE | EXPORT3+1~, RESTPOST+35*, RESTPOST+36, RESTPOST+37, RESTPOST+47 |
DGRESTOBJ | RESTPOST+2~, RESTPOST+11*, RESTPOST+35 |
DGSERVER | RESTPOST+2~, RESTPOST+7*, RESTPOST+11 |
DGSERVICE | RESTPOST+1~, RESTPOST+2~, RESTPOST+8*, RESTPOST+11 |
DGSRVRID | PROCRESP+2~ |
DGSSLPORT | PROCRESP+2~ |
DIFROM | SNDMSG+14~ |
DIK | PROCRESP+13~*, PROCRESP+49~*, PROCRESP+53~*, CHKSIZE+3~, CHKSIZE+8* |
DTSTAT | RESTPOST+1~ |
DUZ | EXPORT+6 |
FDA | RESTPOST+21~ |
JSONCNT | RESTPOST+2~, RESTPOST+16*, RESTPOST+20, RESTPOST+25, RESTPOST+27*, RESTPOST+31 |
PCT | FROZEN~, FROZEN+2*, FROZEN+3, FROZEN+5 |
PENDING | EXPORT3+11~, EXPORT3+12*, EXPORT3+14, EXPORT3+15 |
X | PROCRESP+4~ |
XMDUZ | SNDMSG+4~, SNDMSG+11* |
XMSUB | SNDMSG+4~, SNDMSG+12*, SNDMSG+13* |
XMTEXT | SNDMSG+4~, SNDMSG+14* |
XMX | SNDMSG+4~ |
XMY | SNDMSG+4~ |
XMY( | SNDMSG+10* |
Y | PROCRESP+4~, SNDMSG+4~ |
>> ZTQUEUED | EXPORT+31 |
>> ZTREQ | EXPORT+31* |