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: DGAUDIT1

Package: Registration

Routine: DGAUDIT1


Information

DGAUDIT1 ; ISL/DKA - Dataset 1 of VAS VistA Audit Solution ; 03 Aug 2021 1:05 PM

Source Information

Source file <DGAUDIT1.m>

Call Graph

Call Graph

Call Graph Total: 21

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  

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 DGAUDIT  DGAUDIT1  DGAUDIT2  DGAUDIT3  

Entry Points

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$ANON FMAUD+26
$$FMAUD NEWAUDEX+32
$$PATREL NEWAUDEX+15
$$PENDING NEWAUDEX+35, NEWAUDEX+41, FMAUD+3
DBEMAIL NEWAUDEX+38
PAYLOAD FMAUD+74

Local Variables

Legend:

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