DGSEC4 ;ALB/MM,JAP,LAB,ATG/JPN,ISL/DKA - Utilities for record access & sensitive record processing ;July 6, 2020@21:55
Source file <DGSEC4.m>
Package | Total | Call Graph |
---|---|---|
Registration | 2 | SELAUD^DGAUDIT2 (BULTIN1,SETLOG1)^DGSEC |
Kernel | 1 | ($$ACTIVE,$$USERTYPE)^XUSAP |
MailMan | 1 | ^XMD |
VA FileMan | 1 | $$GET1^DIQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
PTSEC(RESULT,DFN,DGMSG,DGOPT) | ;RPC/API entry point for patient sensitive & record access checks
|
|
NOTICE(RESULT,DFN,DGOPT,ACTION) | ;RPC/API entry point for log entry and message generation
|
|
OWNREC(DGREC,DFN,DGDUZ,DGMSG,DGNEWPT,DGPTSSN) | ;Determine if user accessing his/her own Patient file (#2) record
|
|
MSG(DGDUZ) | ;Send Missing SSN in New Person file message to mailgroup
|
|
SENS(DGSENS,DFN,DGDUZ,DDS,DGSENFLG) | ;Determine if sensitive record
|
|
PRIV | ;Privacy Act statement for DGSENS array
|
|
EMPL(DFN,DGCHELIG) | ;Does patient have any eligibility codes equal to
; EMPLOYEE |
|
RPC Name | Call Tags |
---|---|
DG SENSITIVE RECORD ACCESS | PTSEC |
DG SENSITIVE RECORD BULLETIN | NOTICE |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^DGAUDIT2 - [#46.5] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(43 - [#43] | OWNREC+27 |
^DGSL(38.1 - [#38.1] | SENS+27, SENS+29 |
^DIC(8 - [#8] | EMPL+23, EMPL+27 |
^DPT - [#2] | OWNREC+43, EMPL+22 |
^DPT("AEL" | EMPL+27 |
^VA(200 - [#200] | SENS+31 |
^XUSEC("DG RECORD ACCESS" | OWNREC+32 |
^XUSEC("DG SECURITY OFFICER" | SENS+42 |
^XUSEC("DG SENSITIVITY" | SENS+45 |
Name | Line Occurrences |
---|---|
$$EMPL | SENS+25 |
MSG | OWNREC+42 |
OWNREC | PTSEC+27 |
PRIV | SENS+44, SENS+47 |
SENS | PTSEC+31 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTION | NOTICE~, NOTICE+13*, NOTICE+14, NOTICE+15 |
DDS | SENS~, SENS+40, SENS+41, PRIV+1, PRIV+15 |
DFN | PTSEC~, PTSEC+23, PTSEC+27, PTSEC+31, PTSEC+37, PTSEC+39, NOTICE~, NOTICE+10, NOTICE+14, NOTICE+15 , OWNREC~, OWNREC+22, OWNREC+43, SENS~, SENS+19, SENS+25, SENS+27, SENS+29, EMPL~, EMPL+22 , EMPL+27 |
DG1 | SENS+17~ |
DGA1 | SENS+17~ |
DGCHELIG | EMPL~, EMPL+19*, EMPL+21, EMPL+25 |
DGDATE | SENS+17~ |
DGDUZ | OWNREC~, OWNREC+30, OWNREC+32, OWNREC+36, OWNREC+37, OWNREC+42, MSG~, MSG+4, MSG+10, SENS~ , SENS+31, SENS+42, SENS+45 |
DGELIG | EMPL+17~, EMPL+22*, EMPL+23, EMPL+26*, EMPL+27* |
DGEMPLEE | SENS+17~, SENS+25*, SENS+27, SENS+29, SENS+42, EMPL+17~, EMPL+18*, EMPL+23*, EMPL+25, EMPL+27* , EMPL+28 |
DGLNE | SENS+17~ |
DGMSG | PTSEC~, PTSEC+26*, PTSEC+27, OWNREC~, OWNREC+33*, OWNREC+42, SENS+17~, SENS+31*, SENS+32, SENS+34 |
DGNEWPT | OWNREC~, OWNREC+22, OWNREC+43, OWNREC+44 |
DGNPERR | OWNREC+34~, MSG+3~ |
DGNPNAME | MSG+3~, MSG+4*, MSG+9, MSG+15 |
DGNPSSN | OWNREC+28~, OWNREC+37*, OWNREC+38, OWNREC+45 |
DGOPT | PTSEC~, PTSEC+37, PTSEC+39, NOTICE~, NOTICE+12*, NOTICE+14, NOTICE+15 |
DGPTSSN | OWNREC~, OWNREC+43*, OWNREC+44*, OWNREC+45 |
DGREC | OWNREC~ |
DGREC(1 | OWNREC+23*, OWNREC+25*, OWNREC+39*, OWNREC+46* |
DGREC(2 | OWNREC+24*, OWNREC+40*, OWNREC+47* |
DGSENFLG | SENS~, SENS+23 |
DGSENS | SENS~ |
DGSENS(1 | SENS+20*, SENS+22*, SENS+33*, SENS+36*, SENS+43*, SENS+46* |
DGSENS(10 | PRIV+7* |
DGSENS(11 | PRIV+8* |
DGSENS(12 | PRIV+9* |
DGSENS(13 | PRIV+10* |
DGSENS(14 | PRIV+11* |
DGSENS(15 | PRIV+12* |
DGSENS(16 | PRIV+13* |
DGSENS(17 | PRIV+14* |
DGSENS(18 | PRIV+15* |
DGSENS(2 | SENS+21*, SENS+34*, SENS+39*, SENS+40* |
DGSENS(3 | SENS+35*, SENS+41* |
DGSENS(4 | PRIV+1* |
DGSENS(5 | PRIV+2* |
DGSENS(6 | PRIV+3* |
DGSENS(7 | PRIV+4* |
DGSENS(8 | PRIV+5* |
DGSENS(9 | PRIV+6* |
DGT | SENS+17~ |
DGTEXT | MSG+3~ |
DGTEXT(1 | MSG+6* |
DGTEXT(2 | MSG+7* |
DGTEXT(3 | MSG+8* |
DGTEXT(4 | MSG+9* |
DGTEXT(5 | MSG+10* |
DGTEXT(6 | MSG+11* |
DGTEXT(7 | MSG+12* |
DGTEXT(8 | MSG+13* |
DGTIME | SENS+17~ |
DUZ | PTSEC+27, PTSEC+31, PTSEC+33, PTSEC+37, NOTICE+11, NOTICE+14, NOTICE+15 |
RESULT | PTSEC~, PTSEC+22!, PTSEC+27, PTSEC+30!, PTSEC+31, NOTICE~, NOTICE+10*, NOTICE+11*, NOTICE+16* |
RESULT(1 | PTSEC+24*, PTSEC+28*, PTSEC+29*, PTSEC+32, PTSEC+35*, PTSEC+39 |
RESULT(2 | PTSEC+25*, PTSEC+36* |
U | OWNREC+27, OWNREC+43, SENS+29 |
XMCHAN | MSG+3~, MSG+17* |
XMDUZ | MSG+3~, MSG+15* |
XMSUB | MSG+3~, MSG+5* |
XMTEXT | MSG+3~, MSG+14* |
XMY | MSG+3~ |
XMY("G.DG MIS | SING NEW PERSON SSN" , MSG+16* |
XMZ | MSG+3~ |