Routine: DGAUDIT

Information

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

Source file <DGAUDIT.m>

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