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>
| 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+56, 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 |
| 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+47, OWNREC+56, 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+38, OWNREC+39, OWNREC+50, 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*, SENS+17~, SENS+31*, SENS+32, SENS+34 |
| DGNEWPT | OWNREC~, OWNREC+22, OWNREC+56, OWNREC+57 |
| DGNPERR | OWNREC+34~, MSG+3~ |
| DGNPNAME | MSG+3~, MSG+4*, MSG+9, MSG+15 |
| DGNPSSN | OWNREC+28~, OWNREC+50*, OWNREC+51, OWNREC+58 |
| DGOPT | PTSEC~, PTSEC+37, PTSEC+39, NOTICE~, NOTICE+12*, NOTICE+14, NOTICE+15 |
| DGPTSSN | OWNREC~, OWNREC+56*, OWNREC+57*, OWNREC+58 |
| DGREC | OWNREC~ |
| DGREC(1 | OWNREC+23*, OWNREC+25*, OWNREC+48*, OWNREC+59* |
| DGREC(2 | OWNREC+24*, OWNREC+49*, OWNREC+60* |
| 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* |
| DGSTA | OWNREC+34~, OWNREC+35*, OWNREC+39, OWNREC+45 |
| 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* |
| DGTFDATA | OWNREC+40~, OWNREC+43*, OWNREC+44, OWNREC+45, OWNREC+46 |
| DGTFDFN | OWNREC+40~, OWNREC+46*, OWNREC+47 |
| DGTFLST | OWNREC+34~, OWNREC+39 |
| DGTFLST( | OWNREC+42, OWNREC+43 |
| DGTIME | SENS+17~ |
| DGXTFL | OWNREC+40~, OWNREC+41*, OWNREC+42*, OWNREC+43 |
| DUZ | PTSEC+27, PTSEC+31, PTSEC+33, PTSEC+37, NOTICE+11, NOTICE+14, NOTICE+15 |
| DUZ(2 | OWNREC+35 |
| 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+56, 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~ |