DGAUDIT1 ; ISL/DKA - Dataset 1 of VAS VistA Audit Solution ; 03 Aug 2021 1:05 PM
Source file <DGAUDIT1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEWAUDEX | ; Export newly added AUDIT (#1.1) records
; Loop through the File Numbers in ^DIA() ; If there's a Patient-Related File that doesn't exist in DG VAS EXPORT, ; FLS Changed VSRA TO VAS 3/16/2021 ; then add a new record to that File and set the LAST RECORD EXPORTED to 0. ; Start with the next record following the LAST RECORD EXPORTED recorded in DG VAS EXPORT (#46.4) ; FLS Changed VSRA TO VAS 3/16/2021 |
|
| FMAUD(FILENUM,AUDIEN) | ; Send the data for a given AUDIT (#1.1) record
|
|
| PAYLOAD(DATA,HDRDATA,DGVARR,FILENUM,AUDIEN) | ; Take ARRAY and send it the Audit Solution
|
|
| PATREL(FILENUM) | ; Return 1 if this is a patient-related File
|
|
| DBEMAIL(TAG) | ; send email if debugging turned on
|
|
| ANON(DGDUZ) | ; Check to see if the user fits the definition of an anoymous user
; Currently checking users with user types below |
|
| WEEK(FMDATE) | ; Accept Fileman Date, Return Week
|
|
| ESCAPE(INPUT) | ; Escape XML characters from INPUT
|
|
| GETTEXT(ERRARRAY) | ;
; @DESC Gets the error text from the array |
|
| ERRSPMSG(DGRESPERR,DGRESPETXT) | ;
; Input : DGRESPERR (Required) - response error from Post call ; Return: response code/txt (ex: DGERR(400) from Init)_response code/msg (ex: ADDRVAL###) |
|
| PENDING() | ; Return number of entries in queue
|
|
| GENERR(DGAUDERR,DGALTSUB) | ; General Error, DGAUDERR specific text
|
| FileNo | Call Tags |
|---|---|
| ^DIA - [#1.1] | Classic Fileman Calls, GET1^DIQ |
| ^XOB(18.12 - [#18.12] | FIND1^DIC, GET1^DIQ |
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | FIND1^DIC, GET1^DIQ |
| ^DGAUDIT - [#46.3] | FILE^DID |
| ^DGAUDIT1 - [#46.4] | Classic Fileman Calls, GET1^DIQ |
| ^DGAUDIT2 - [#46.5] | GET1^DIQ |
| ^XTV(8989.3 - [#8989.3] | GET1^DIQ |
