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