Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGAUDIT

Package: Registration

Routine: DGAUDIT


Information

DGAUDIT ;ISL/DKA,BAL/RLF - VAS - TAKES PAYLOAD AND SENDS TO AUDIT SOLUTION ; 03 Aug 2021 12:58 PM

Source Information

Source file <DGAUDIT.m>

Call Graph

Call Graph

Call Graph Total: 17

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 4 DG VAS EXPORT  DGAUDIT  DGAUDIT1  DGAUDIT3  

Entry Points

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
$$FROZEN EXPORT2+9
$$PCTFULL FROZEN+3
$$RESTPOST EXPORT3+16
EXPORT2 EXPORT+27
EXPORT3 EXPORT2+6, EXPORT2+13
PROCRESP EXPORT3+21

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All