Routine: DGSEC4

Information

DGSEC4 ;ALB/MM,JAP - Utilities for record access & sensitive record processing;10/6/99 ; 10/26/05 12:46pm

Source Information

Source file <DGSEC4.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 34

Package	Total	Caller Graph
IHS GPRA Information System	8	BGP2GUA BGP3GUA BGP4GUA BGP5GUA BGP6GUA BGP7GUA BGP8GUA BGPGP
Mental Health Social Services	8	AMHEGR AMHEGS AMHGP AMHLEE AMHLEER AMHLEFP2 AMHSFR AMHUTIL2
Registration	7	DGRRLU2 DGRRLU6 DGRRLUA DGSEC DPTLK1 VAFCPDAT VAFCRAUD
Order Entry Results Reporting	2	ORRHCQ1 ORWCIRN
General Medical Record - Vitals	1	GMVRPCP
IHS Changes To ADT	1	BDGPI
IHS Electronic Health Record	1	BEHOPTCX
IHS Patient	1	AUPNLK
Inpatient Medications	1	PSJDPT
Outpatient Pharmacy	1	PSODPT
Patient Registration GUI	1	AGGPTSEN
Pharmacy Benefits Management	1	PSULRHL1
iCare	1	BQIPTSEN

Entry Points

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	ICR #3027 Status: Active Usage: Supported
EMPL(DFN,DGCHELIG)	;Does patient have any eligibility codes equal to ; EMPLOYEE	ICR #3646 Status: Active Usage: Controlled Subscription
NOTICE(RESULT,DFN,DGOPT,ACTION)	;RPC/API entry point for log entry and message generation	ICR #3027 Status: Active Usage: Supported
PRIV	;Privacy Act statement for DGSENS array

Name	Field # of Occurrence
MSG^BDGSECU	PRIV+9
$$STATUS^BDGSPT2	PTSEC+30
BULTIN1^DGSEC	NOTICE+14
SETLOG1^DGSEC	PTSEC+52, NOTICE+15
ACCESSED^DIET	AUDIT
$$GET1^DIQ	PTSEC+46, OWNREC+37, MSG+4
^XMD	MSG+18
$$GET^XPAR	AUDIT
$$ACTIVE^XUSAP	OWNREC+36
$$USERTYPE^XUSAP	OWNREC+36

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

Local Variables

Legend:

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

Customize PDF page

Package: Registration

Routine: DGSEC4

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 34

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: