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