DGAUDIT1 ; ISL/DKA - Dataset 1 of VAS VistA Audit Solution ; 03 Aug 2021 1:05 PM
Source file <DGAUDIT1.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 8 | $$S^%ZTLOAD ($$DOW,$$FMADD,$$FMDIFF,$$FMTE,$$FMTHL7,$$HL7TFM,$$NOW)^XLFDT (DECODE,ENCODE)^XLFJSON $$UP^XLFSTR MES^XPDUTL ($$STA,F4)^XUAF4 $$KSP^XUPARAM ($$ACTIVE,$$USERTYPE)^XUSAP |
VA FileMan | 6 | (,$$FIND1)^DIC FILE^DICN FILE^DID (,FILE,UPDATE)^DIE $$GET1^DIQ EN^DIQ1 |
Registration | 3 | ($$FROZEN,EXPORT3,SNDMSG)^DGAUDIT $$WEEK^DGAUDIT1 BADJSON^DGAUDIT2 |
MailMan | 1 | SENDMSG^XMXAPI |
Master Patient Index VistA | 1 | $$GETICN^MPIF001 |
Toolkit | 1 | ($$GET,EN)^XPAR |
Web Services Client | 1 | ERR2ARR^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 |
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
|
Name | Field # of Occurrence |
---|---|
$$S^%ZTLOAD | NEWAUDEX+11 |
$$FROZEN^DGAUDIT | NEWAUDEX+36, NEWAUDEX+42 |
EXPORT3^DGAUDIT | NEWAUDEX+35, NEWAUDEX+41 |
SNDMSG^DGAUDIT | GENERR+18 |
$$WEEK^DGAUDIT1 | FMAUD+35 |
BADJSON^DGAUDIT2 | PAYLOAD+35, PAYLOAD+40 |
^DIC | NEWAUDEX+16, NEWAUDEX+33 |
$$FIND1^DIC | PAYLOAD+15, GENERR+3 |
FILE^DICN | NEWAUDEX+17 |
FILE^DID | FMAUD+63, GENERR+12 |
^DIE | NEWAUDEX+34 |
FILE^DIE | NEWAUDEX+24 |
UPDATE^DIE | PAYLOAD+36 |
$$GET1^DIQ | NEWAUDEX+12, NEWAUDEX+14, NEWAUDEX+19, NEWAUDEX+31, FMAUD+43, FMAUD+44, FMAUD+45, FMAUD+46, FMAUD+50, FMAUD+52 , FMAUD+56, FMAUD+57, FMAUD+58, FMAUD+59, PAYLOAD+1, PAYLOAD+16, ANON+3, GENERR+6, GENERR+8 |
EN^DIQ1 | FMAUD+8, FMAUD+14 |
$$GETICN^MPIF001 | FMAUD+41 |
$$DOW^XLFDT | WEEK+6 |
$$FMADD^XLFDT | WEEK+7 |
$$FMDIFF^XLFDT | WEEK+7 |
$$FMTE^XLFDT | FMAUD+36, DBEMAIL+3, GENERR+4 |
$$FMTHL7^XLFDT | FMAUD+32, FMAUD+46 |
$$HL7TFM^XLFDT | PAYLOAD+24 |
$$NOW^XLFDT | NEWAUDEX+17, NEWAUDEX+24, PAYLOAD+4, DBEMAIL+3, GENERR+4 |
DECODE^XLFJSON | PAYLOAD+20 |
ENCODE^XLFJSON | PAYLOAD+19 |
$$UP^XLFSTR | ANON+7 |
SENDMSG^XMXAPI | DBEMAIL+27 |
ERR2ARR^XOBWLIB | ERRSPMSG+5 |
$$GET^XPAR | NEWAUDEX+8, FMAUD+2, DBEMAIL+23, GENERR+16 |
EN^XPAR | NEWAUDEX+40 |
MES^XPDUTL | DBEMAIL+30, DBEMAIL+31, DBEMAIL+34, DBEMAIL+35 |
$$STA^XUAF4 | PAYLOAD+12, DBEMAIL+6, DBEMAIL+13 |
F4^XUAF4 | DBEMAIL+7 |
$$KSP^XUPARAM | PAYLOAD+12, DBEMAIL+6, DBEMAIL+13 |
$$ACTIVE^XUSAP | ANON+5 |
$$USERTYPE^XUSAP | ANON+8, ANON+9 |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(2 | PATREL+1 |
^DD(9000001 | PATREL+1 |
^DGAUDIT - [#46.3] | PAYLOAD+37, PENDING+5 |
^DGAUDIT(0 | PENDING+3 |
^DGAUDIT1 - [#46.4] | NEWAUDEX+9, NEWAUDEX+23 |
^DGAUDIT1(0 | NEWAUDEX+7, NEWAUDEX+43 |
^DIA - [#1.1] | NEWAUDEX+9, NEWAUDEX+26, NEWAUDEX+29 |
^TMP("XMERR" | DBEMAIL+28 |
^VA(200 - [#200] | FMAUD+55, DBEMAIL+5, DBEMAIL+16 |
^XMB("NETNAME" | DBEMAIL+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DBEMAIL+2~, DBEMAIL+20* |
AUDARR | FMAUD+1~, FMAUD+74 |
AUDARR("data" | FMAUD+27, FMAUD+39, FMAUD+48, FMAUD+54, FMAUD+61 |
AUDGREF | NEWAUDEX+5~, NEWAUDEX+9*, NEWAUDEX+11, NEWAUDEX+19, NEWAUDEX+21, NEWAUDEX+23, NEWAUDEX+27, NEWAUDEX+30, NEWAUDEX+34 |
AUDIEN | FMAUD~, FMAUD+5, FMAUD+74, PAYLOAD~, PAYLOAD+5 |
C | FMAUD+1~ |
CHAR | ESCAPE+1~, ESCAPE+3*, ESCAPE+4*, ESCAPE+5, ESCAPE+6 |
CHARARY | ESCAPE+1~ |
CHARARY( | ESCAPE+3*, ESCAPE+5 |
CNTREC | NEWAUDEX+5~, NEWAUDEX+10*, NEWAUDEX+32* |
D | NEWAUDEX+5~ |
D0 | NEWAUDEX+5~ |
DA | NEWAUDEX+5~, NEWAUDEX+34!*, FMAUD+1~, FMAUD+5*, PAYLOAD+2~ |
DATA | PAYLOAD~ |
DATETIME | FMAUD+1~, FMAUD+30*, FMAUD+31, FMAUD+32, FMAUD+35, FMAUD+36 |
DAYOFYR | WEEK+1~, WEEK+7*, WEEK+8 |
DCCI | FMAUD+1~, FMAUD+15*, FMAUD+16* |
DD | NEWAUDEX+5~ |
DGABORT | NEWAUDEX+5~, NEWAUDEX+10*, NEWAUDEX+11, NEWAUDEX+30, NEWAUDEX+35, NEWAUDEX+36*, NEWAUDEX+41, NEWAUDEX+42* |
DGALTSUB | GENERR~, GENERR+18 |
DGAUD | GETTEXT+7~ |
DGAUD("I" | GETTEXT+11*, GETTEXT+12*, GETTEXT+13 |
DGAUD("errorText" | GETTEXT+10*, GETTEXT+13*, GETTEXT+16 |
DGAUDDATA | GENERR+1~ |
DGAUDDATA("ENTRIES" | GENERR+13 |
DGAUDECNT | PAYLOAD+2~, PAYLOAD+6*, PAYLOAD+22, PAYLOAD+23, PAYLOAD+24, PAYLOAD+25, PAYLOAD+26, PAYLOAD+27, PAYLOAD+28, PAYLOAD+29 , PAYLOAD+30, PAYLOAD+32, PAYLOAD+33, PAYLOAD+34, PAYLOAD+38, PAYLOAD+39 |
DGAUDER2 | GENERR+1~, GENERR+2*, GENERR+4*, GENERR+8, GENERR+9*, GENERR+10*, GENERR+11*, GENERR+14*, GENERR+15*, GENERR+16* , GENERR+17*, GENERR+18! |
DGAUDER2( | GENERR+4*, GENERR+8*, GENERR+10*, GENERR+11*, GENERR+14*, GENERR+15*, GENERR+16*, GENERR+17* |
DGAUDERR | GENERR~, GENERR+11*, GENERR+18! |
DGAUDERR( | GENERR+11 |
DGAUDIEN | PAYLOAD+2~, PAYLOAD+36*, PAYLOAD+37, PAYLOAD+40 |
DGAUDIEN(1 | PAYLOAD+36 |
DGAUDJSON | PAYLOAD+2~ |
DGAUDJSON(1 | PAYLOAD+30 |
>> DGAUDKPX | PAYLOAD+35, PAYLOAD+40 |
>> DGAUDMAX | NEWAUDEX+35, FMAUD+2*, FMAUD+3 |
DGAUDNUM | GENERR+1~, GENERR+13*, GENERR+15 |
>> DGAUDSHUT | NEWAUDEX+11, NEWAUDEX+12*, NEWAUDEX+30, NEWAUDEX+31* |
DGAUDSTANUM | FMAUD+1~, DBEMAIL+1~, DBEMAIL+6*, DBEMAIL+7, DBEMAIL+9 |
>> DGAUDSTOP | NEWAUDEX+11, NEWAUDEX+30 |
>> DGBATSIZE | NEWAUDEX+41 |
DGCTRL | FMAUD+1~, FMAUD+15*, FMAUD+16*, FMAUD+40, FMAUD+42, FMAUD+43, FMAUD+44, FMAUD+45, FMAUD+46, FMAUD+49 , FMAUD+50, FMAUD+51, FMAUD+52, FMAUD+57, FMAUD+58, FMAUD+59, FMAUD+66, FMAUD+67, FMAUD+68, FMAUD+69 , FMAUD+70, FMAUD+71, FMAUD+72 |
DGDEBUGON | NEWAUDEX+6~, NEWAUDEX+8*, NEWAUDEX+37, NEWAUDEX+39*, NEWAUDEX+40 |
>> DGDONE | NEWAUDEX+11 |
DGDUZ | ANON~, ANON+3, ANON+4, ANON+5, ANON+8, ANON+9 |
DGEMAIL | DBEMAIL+1~, DBEMAIL+23*, DBEMAIL+24 |
DGEMSG | ERRSPMSG+3~, ERRSPMSG+11*, ERRSPMSG+12*, ERRSPMSG+13 |
>> DGERR( | ERRSPMSG+13*, ERRSPMSG+14 |
DGERRCODE | ERRSPMSG+3~, ERRSPMSG+4*, ERRSPMSG+13, ERRSPMSG+14 |
DGFDA | NEWAUDEX+24~, PAYLOAD+2~, PAYLOAD+35, PAYLOAD+40 |
DGFDA( | NEWAUDEX+24*, PAYLOAD+22*, PAYLOAD+23*, PAYLOAD+24*, PAYLOAD+25*, PAYLOAD+26*, PAYLOAD+27*, PAYLOAD+28*, PAYLOAD+29*, PAYLOAD+30* , PAYLOAD+32, PAYLOAD+33*, PAYLOAD+34*, PAYLOAD+38*, PAYLOAD+39* |
DGFILERR | NEWAUDEX+24~ |
DGFMERR | PAYLOAD+2~ |
DGFMERR("DIERR" | PAYLOAD+39 |
DGGLB | DBEMAIL+1~, DBEMAIL+32*, DBEMAIL+34 |
DGGLO | DBEMAIL+1~, DBEMAIL+32*, DBEMAIL+33*, DBEMAIL+34* |
DGINST | DBEMAIL+2~, DBEMAIL+7 |
DGINST("VA NA | ME" , DBEMAIL+8 |
DGJSONID | PAYLOAD+2~, PAYLOAD+5*, PAYLOAD+8 |
DGMSG | DBEMAIL+1~ |
DGMSG( | DBEMAIL+20* |
DGMSG(2 | DBEMAIL+11* |
DGMSG(3 | DBEMAIL+12* |
DGMSG(4 | DBEMAIL+13* |
DGMSG(5 | DBEMAIL+14* |
DGMSG(6 | DBEMAIL+15* |
DGMSG(7 | DBEMAIL+16* |
DGMSG(8 | DBEMAIL+17* |
DGMSG(9 | DBEMAIL+18* |
DGMVI | FMAUD+1~, FMAUD+41*, FMAUD+42 |
DGNOW | DBEMAIL+1~, DBEMAIL+3*, DBEMAIL+15 |
DGNOWDTM | PAYLOAD+2~, PAYLOAD+4*, PAYLOAD+5, PAYLOAD+22 |
DGQCNT | PENDING+1~, PENDING+2*, PENDING+3*, PENDING+5*, PENDING+6 |
DGQIEN | PENDING+1~, PENDING+5* |
DGRESPERR | ERRSPMSG~, ERRSPMSG+5 |
DGRESPETXT | ERRSPMSG~, ERRSPMSG+5 |
DGRESPETXT("statusLine" | ERRSPMSG+12 |
DGRESPETXT("text" | ERRSPMSG+11 |
DGSEC | NEWAUDEX+6~ |
DGSITE | DBEMAIL+1~, DBEMAIL+8*, DBEMAIL+9, DBEMAIL+12 |
DGSITEIEN | PAYLOAD+10~, PAYLOAD+15*, PAYLOAD+16 |
DGSITENAM | PAYLOAD+10~, PAYLOAD+16*, PAYLOAD+17 |
DGSQ | DBEMAIL+2~, DBEMAIL+19*, DBEMAIL+20* |
DGSRVID | GENERR+1~, GENERR+3*, GENERR+6, GENERR+7, GENERR+8 |
DGSSLPORT | GENERR+1~, GENERR+6*, GENERR+8 |
DGSTATION | PAYLOAD+10~, PAYLOAD+12*, PAYLOAD+13, PAYLOAD+15 |
DGSTOPFLG | NEWAUDEX+6~ |
DGSUB | DBEMAIL+2~ |
DGSUBJ | DBEMAIL+1~, DBEMAIL+9*, DBEMAIL+10*, DBEMAIL+27 |
DGVAR | DBEMAIL+2~ |
DGVARR | FMAUD+1~, FMAUD+27*, FMAUD+32, FMAUD+35, FMAUD+36, FMAUD+37, FMAUD+38, FMAUD+39*, FMAUD+40, FMAUD+42 , FMAUD+43, FMAUD+44, FMAUD+45, FMAUD+46, FMAUD+48*, FMAUD+49*, FMAUD+50, FMAUD+51, FMAUD+52, FMAUD+54* , FMAUD+58, FMAUD+59, FMAUD+61*, FMAUD+62, FMAUD+64, FMAUD+66, FMAUD+67, FMAUD+68, FMAUD+69, FMAUD+70 , FMAUD+71, FMAUD+72, FMAUD+74, PAYLOAD~, PAYLOAD+7*, PAYLOAD+8, PAYLOAD+11*, PAYLOAD+13, PAYLOAD+14*, PAYLOAD+17 , PAYLOAD+19 |
DGVDATA | FMAUD+1~, FMAUD+9, FMAUD+11 |
DGVDFN | FMAUD+1~, FMAUD+28*, FMAUD+40, FMAUD+41, FMAUD+43, FMAUD+44, FMAUD+45, FMAUD+46 |
DGVDUZ | FMAUD+1~, FMAUD+49*, FMAUD+55, DBEMAIL+1~, DBEMAIL+4*, DBEMAIL+5 |
DGVINST | FMAUD+1~, FMAUD+55*, FMAUD+56*, FMAUD+57, FMAUD+59, DBEMAIL+1~, DBEMAIL+5* |
DGVMSG | FMAUD+1~ |
DGVOFFN | FMAUD+1~, FMAUD+57*, FMAUD+58, DBEMAIL+1~ |
DGVREF | FMAUD+1~, FMAUD+11*, FMAUD+24, FMAUD+25, FMAUD+26, FMAUD+28, FMAUD+30, FMAUD+37, FMAUD+49, FMAUD+50 , FMAUD+51, FMAUD+52, FMAUD+66, FMAUD+67, FMAUD+68, FMAUD+69, FMAUD+70, FMAUD+71, FMAUD+72 |
DGXMINSTR | DBEMAIL+1~, DBEMAIL+27 |
DGXMINSTR("FROM" | DBEMAIL+25* |
DGXMTO | DBEMAIL+1~, DBEMAIL+27 |
DGXMTO( | DBEMAIL+22* |
DGXMTO("G." | DBEMAIL+24* |
DIA | FMAUD+1~, FMAUD+4* |
DIC | NEWAUDEX+5~, NEWAUDEX+16!*, NEWAUDEX+17!*, NEWAUDEX+33!*, FMAUD+1~, FMAUD+5*, PAYLOAD+2~ |
DIC("DR" | NEWAUDEX+17* |
DIC(0 | NEWAUDEX+17* |
DICR | NEWAUDEX+5~ |
DIE | NEWAUDEX+5~, NEWAUDEX+34!* |
DIQ | FMAUD+1~, FMAUD+5* |
DIQ(0 | FMAUD+7*, FMAUD+12* |
DIU | NEWAUDEX+5~ |
DIV | NEWAUDEX+5~ |
DO | NEWAUDEX+5~, PAYLOAD+2~ |
DR | NEWAUDEX+5~, NEWAUDEX+34!*, FMAUD+1~, FMAUD+7*, FMAUD+13* |
DTOUT | NEWAUDEX+5~ |
DUOUT | NEWAUDEX+5~ |
DUZ | DBEMAIL+4, DBEMAIL+16, DBEMAIL+22, DBEMAIL+27 |
ERR | FMAUD+1~ |
ERRARRAY | GETTEXT~ |
ERRARRAY("text" | GETTEXT+12, GETTEXT+13 |
ESCAPED | ESCAPE+1~, ESCAPE+2*, ESCAPE+5*, ESCAPE+6*, ESCAPE+7 |
ESCHAR | ESCAPE+1~ |
EXPRTIEN | NEWAUDEX+13~, NEWAUDEX+19*, NEWAUDEX+23, NEWAUDEX+24 |
FILEDATA | FMAUD+1~ |
FILEDATA("NAME" | FMAUD+64 |
FILENUM | NEWAUDEX+5~, NEWAUDEX+10*, NEWAUDEX+11*, NEWAUDEX+14, NEWAUDEX+15, NEWAUDEX+16, NEWAUDEX+17, NEWAUDEX+19, NEWAUDEX+21, NEWAUDEX+23 , NEWAUDEX+26, NEWAUDEX+27, NEWAUDEX+29, NEWAUDEX+30, NEWAUDEX+32, NEWAUDEX+33, NEWAUDEX+34, FMAUD~, FMAUD+4, FMAUD+62 , FMAUD+63, FMAUD+74, PAYLOAD~, PAYLOAD+5, PATREL~, PATREL+1 |
FMDATE | WEEK~, WEEK+3, WEEK+4*, WEEK+5, WEEK+7 |
GREF | NEWAUDEX+5~, NEWAUDEX+9* |
HDRDATA | PAYLOAD~, PAYLOAD+33, PAYLOAD+38 |
HDRDATA("data" | PAYLOAD+24, PAYLOAD+25, PAYLOAD+26, PAYLOAD+27, PAYLOAD+28, PAYLOAD+29 |
HDRDATA("id" | PAYLOAD+7 |
HDRDATA("site" | PAYLOAD+14 |
HDRDATA("station" | PAYLOAD+11 |
IEN | NEWAUDEX+5~ |
INPUT | ESCAPE~, ESCAPE+2*, ESCAPE+4 |
JSON | FMAUD+1~, FMAUD+74 |
JSONERR | PAYLOAD+2~, PAYLOAD+20, PAYLOAD+34* |
JSONERR( | PAYLOAD+34 |
JSONERR(0 | PAYLOAD+32, PAYLOAD+34 |
LASTDIA | NEWAUDEX+13~, NEWAUDEX+14*, NEWAUDEX+19, NEWAUDEX+21, NEWAUDEX+23, NEWAUDEX+30 |
LOCKED | PAYLOAD+2~ |
N | FMAUD+1~ |
POS | ESCAPE+1~, ESCAPE+4* |
REC | NEWAUDEX+5~, NEWAUDEX+19*, NEWAUDEX+21*, NEWAUDEX+23, NEWAUDEX+26*, NEWAUDEX+27, NEWAUDEX+29*, NEWAUDEX+30*, NEWAUDEX+32, NEWAUDEX+34 |
RECDATA | NEWAUDEX+5~, NEWAUDEX+13~, NEWAUDEX+23*, NEWAUDEX+27* |
RECDATE | NEWAUDEX+13~, NEWAUDEX+23*, NEWAUDEX+25, NEWAUDEX+26*, NEWAUDEX+27*, NEWAUDEX+28* |
RTN | ANON+2~, ANON+3*, ANON+7*, ANON+8*, ANON+9*, ANON+10 |
SWITCHDT | NEWAUDEX+13~, NEWAUDEX+23*, NEWAUDEX+24*, NEWAUDEX+25, NEWAUDEX+28 |
TAG | DBEMAIL~, DBEMAIL+9 |
TMPJSON | PAYLOAD+2~ |
U | NEWAUDEX+34, DBEMAIL+16, PENDING+3 |
UNAME | ANON+2~, ANON+3*, ANON+7 |
VD | NEWAUDEX+6~ |
VM | NEWAUDEX+6~ |
WEEK | WEEK+1~, WEEK+2*, WEEK+8*, WEEK+9*, WEEK+10 |
X | NEWAUDEX+6~, NEWAUDEX+16*, NEWAUDEX+17*, NEWAUDEX+33*, FMAUD+1~, PAYLOAD+2~ |
Y | NEWAUDEX+6~, NEWAUDEX+16, NEWAUDEX+19, NEWAUDEX+34, PAYLOAD+2~, DBEMAIL+2~ |
YRBEG | WEEK+1~, WEEK+5*, WEEK+6, WEEK+7 |
YRBEGDOW | WEEK+1~, WEEK+6*, WEEK+7 |