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* |