DGSEC4 ;ALB/MM,JAP - Utilities for record access & sensitive record processing;10/6/99 ; 10/26/05 12:46pm
Source file <DGSEC4.m>
Package | Total | Call Graph |
---|---|---|
IHS Changes To ADT | 2 | MSG^BDGSECU $$STATUS^BDGSPT2 |
VA Fileman | 2 | ACCESSED^DIET $$GET1^DIQ |
Kernel | 1 | ($$ACTIVE,$$USERTYPE)^XUSAP |
MailMan | 1 | ^XMD |
Registration | 1 | (BULTIN1,SETLOG1)^DGSEC |
Toolkit | 1 | $$GET^XPAR |
Name | Comments | DBIA/ICR reference |
---|---|---|
AUDIT | ||
MSG(DGDUZ) | ;Send Missing SSN in New Person file message to mailgroup
|
|
OWNREC(DGREC,DFN,DGDUZ,DGMSG,DGNEWPT,DGPTSSN) | ;Determine if user accessing his/her own Patient file (#2) record
|
|
SENS(DGSENS,DFN,DGDUZ,DDS,DGSENFLG) | ;Determine if sensitive record
|
|
PTSEC(RESULT,DFN,DGMSG,DGOPT) | ;RPC/API entry point for patient sensitive & record access checks
|
|
EMPL(DFN,DGCHELIG) | ;Does patient have any eligibility codes equal to
; EMPLOYEE |
|
NOTICE(RESULT,DFN,DGOPT,ACTION) | ;RPC/API entry point for log entry and message generation
|
|
PRIV | ;Privacy Act statement for DGSENS array
|
RPC Name | Call Tags |
---|---|
DG SENSITIVE RECORD ACCESS | PTSEC |
DG SENSITIVE RECORD BULLETIN | NOTICE |
FileNo | Call Tags |
---|---|
^DPT - [#2] | ACCESSED^DIET |
^VA(200 - [#200] | GET1^DIQ |
^DG(43 - [#43] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(43 - [#43] | OWNREC+27 |
^DGSL(38.1 - [#38.1] | PTSEC+46, AUDIT+5, AUDIT+7 |
^DIC(8 - [#8] | EMPL+23, EMPL+27 |
^DPT - [#2] | OWNREC+43, EMPL+22 |
^DPT("AEL" | EMPL+27 |
^VA(200 - [#200] | AUDIT+9 |
^XUSEC("DG RECORD ACCESS" | OWNREC+32 |
^XUSEC("DG SECURITY OFFICER" | AUDIT+20 |
^XUSEC("DG SENSITIVITY" | AUDIT+23 |
Name | Line Occurrences |
---|---|
$$EMPL | AUDIT+3 |
MSG | OWNREC+42 |
OWNREC | PTSEC+37 |
PRIV | AUDIT+22, AUDIT+25 |
SENS | PTSEC+41 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTION | NOTICE~, NOTICE+13*, NOTICE+14, NOTICE+15 |
DDS | SENS~, AUDIT+18, AUDIT+19, PRIV+2, PRIV+21 |
DFN | PTSEC~, PTSEC+23, PTSEC+30, PTSEC+37, PTSEC+41, PTSEC+46, PTSEC+52, NOTICE~, NOTICE+10, NOTICE+14 , NOTICE+15, OWNREC~, OWNREC+22, OWNREC+43, SENS~, SENS+19, AUDIT, AUDIT+3, AUDIT+5, AUDIT+7 , 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~ , AUDIT+9, AUDIT+20, AUDIT+23 |
DGELIG | EMPL+17~, EMPL+22*, EMPL+23, EMPL+26*, EMPL+27* |
DGEMPLEE | SENS+17~, AUDIT+3*, AUDIT+5, AUDIT+7, AUDIT+20, EMPL+17~, EMPL+18*, EMPL+23*, EMPL+25, EMPL+27* , EMPL+28 |
DGLNE | SENS+17~, PRIV+1*, PRIV+2, PRIV+21 |
DGMSG | PTSEC~, PTSEC+29*, PTSEC+31, PTSEC+36*, PTSEC+37, OWNREC~, OWNREC+33*, OWNREC+42, SENS+17~, AUDIT+9* , AUDIT+10, AUDIT+12 |
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+52, 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~, AUDIT+1 |
DGSENS | SENS~ |
DGSENS(1 | SENS+20*, SENS+22*, AUDIT+11*, AUDIT+14*, AUDIT+21*, AUDIT+24* |
DGSENS(10 | PRIV+21* |
DGSENS(2 | SENS+21*, AUDIT+12*, AUDIT+17*, AUDIT+18* |
DGSENS(3 | AUDIT+13*, AUDIT+19* |
DGSENS(4 | PRIV+2* |
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+30, PTSEC+37, PTSEC+41, PTSEC+48, PTSEC+52, NOTICE+11, NOTICE+14, NOTICE+15 |
RESULT | PTSEC~, PTSEC+22!, PTSEC+37, PTSEC+40!, PTSEC+41, NOTICE~, NOTICE+10*, NOTICE+11*, NOTICE+16* |
RESULT(1 | PTSEC+24*, PTSEC+31*, PTSEC+38*, PTSEC+39*, PTSEC+45, PTSEC+46, PTSEC+50* |
RESULT(2 | PTSEC+25*, PTSEC+32*, PTSEC+51* |
RESULT(3 | PTSEC+33* |
U | PTSEC+46, OWNREC+27, OWNREC+43, AUDIT+7 |
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~ |