Routine: DGSEC1

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
VA Fileman	7	^%DT ^DIC YN^DICN ^DIE (,IXALL)^DIK DT^DIQ ^DIR
Registration	5	SEND^DGSEC ^DGSEC2 ^DGSEC3 H^DGUTL (CLOSE,QUE,ZIS)^DGUTQ
IHS Changes To ADT	1	$$HRCN^BDGF2
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$NOW^XLFDT

Package

Total

Call Graph

VA Fileman

^%DT ^DIC YN^DICN ^DIE (,IXALL)^DIK DT^DIQ ^DIR

Registration

SEND^DGSEC ^DGSEC2 ^DGSEC3 H^DGUTL (CLOSE,QUE,ZIS)^DGUTQ

IHS Changes To ADT

$$HRCN^BDGF2

IHS VA Utilities

$$VAL^XBDIQ1

Kernel

$$NOW^XLFDT

Package	Total	Caller Graph
Registration	4	DG SECURITY DISPLAY LOG DG SECURITY ENTER/EDIT DG SECURITY PURGE LOG DG SECURITY PURGE PATIENTS
IHS Changes To ADT	1	BDGSECL

Package

Total

Caller Graph

Registration

DG SECURITY DISPLAY LOG DG SECURITY ENTER/EDIT DG SECURITY PURGE LOG DG SECURITY PURGE PATIENTS

IHS Changes To ADT

BDGSECL

Entry Points

Name	Comments	DBIA/ICR reference
A
BULTIN	;This bulletin is sent if a patient's sensitivity is removed.
PURNON
RUSURE()	; Description: Asks user if they are sure they want to edit the DG SECURITY LOG record.
ASKPRT
IHS	;EP; -- entry point from IHS protocol;IHS/ANMC/LJF 9/6/2000
1	;
3	;
2	;
Q
4	;
ASKPUR
ED
DTR	;-- get date range

External References

Name	Field # of Occurrence
^%DT	DTR+1, ED
$$HRCN^BDGF2	BULTIN+13, PURNON+5
SEND^DGSEC	BULTIN+21
^DGSEC2	2+2
^DGSEC3	3+2
H^DGUTL	PURNON+1, PURNON+6
CLOSE^DGUTQ	Q
QUE^DGUTQ	ASKPRT+2
ZIS^DGUTQ	ASKPRT+1
^DIC	A+1, 1+5, BULTIN+9
YN^DICN	ASKPUR+1, ASKPRT
^DIE	IHS+1, IHS+17
^DIK	PURNON+4
IXALL^DIK	DGSEC1+14
DT^DIQ	PURNON+1, PURNON+6
^DIR	RUSURE+6
$$VAL^XBDIQ1	BULTIN+13
$$NOW^XLFDT	BULTIN+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+1
Function Call: WRITE	Prompt: !!?3,$C(7),"You do not have the appropriate access privileges to assign security." Line Location: 1+4
Function Call: WRITE	Prompt: ! Line Location: 1+5
Function Call: WRITE	Prompt: !!?3,$C(7),"You do not have the appropriate access privileges to purge patients." Line Location: 4+2
Function Call: WRITE	Prompt: !!,"Are you sure you want to purge all non-sensitive patients" Line Location: ASKPUR+1
Function Call: WRITE	Prompt: !!,"Enter 'YES' to purge non-sensitive patients, or 'NO' to exit this process." Line Location: ASKPUR+2
Function Call: WRITE	Prompt: !!,"Enter 'YES' to print patients being purged, or 'NO' to schedule purge." Line Location: ASKPRT+0
Function Call: WRITE	Prompt: ! Line Location: ASKPRT+1
Function Call: WRITE	Prompt: ! Line Location: ASKPRT+2
Function Call: WRITE	Prompt: !!,"Purge Non-sensitive Patients from Security Log started " Line Location: PURNON+1
Function Call: WRITE	Prompt: ".",! Line Location: PURNON+1
Function Call: WRITE	Prompt: !," ...",$S($D(^DPT(DFN,0)):$P(^(0),"^")_" ("_$P(^(0),"^",9)_")",1:"Unknown") Line Location: PURNON+2
Function Call: WRITE	Prompt: !," ...",$S($D(^DPT(DFN,0)):$P(^(0),"^")_" ("_$$HRCN^BDGF2(DFN,DUZ(2))_")",1:"Unknown") Line Location: PURNON+3
Function Call: WRITE	Prompt: !," ...",$S($D(^DPT(DFN,0)):$P(^(0),"^")_" ("_$$HRCN^BDGF2(DFN,DUZ(2))_")",1:"Unknown") Line Location: PURNON+5
Function Call: WRITE	Prompt: !!,"Purge completed " Line Location: PURNON+6
Function Call: WRITE	Prompt: ". ","Number of records purged: ",DGCNT Line Location: PURNON+6
Function Call: WRITE	Prompt: ! Line Location: DTR+1
Function Call: WRITE	Prompt: ! Line Location: ED+0
Function Call: WRITE	Prompt: !!,"Ending Date cannot be before Starting Date! Please reenter.",! Line Location: ED+3
Routine Call	DIE Line Location: IHS+1 IHS+17
Routine Call	DIC Line Location: A+1 1+5 BULTIN+9
Routine Call	DIR Line Location: RUSURE+6

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DGSL(38.1 - [#38.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BULTIN+7, DTR+3, ED+2
^DG(43 - [#43]	BULTIN+2, BULTIN+4
^DGSL(38.1 - [#38.1]	IHS+5, IHS+13, IHS+19, BULTIN+8, BULTIN+15, BULTIN+18, PURNON+4
^DOPT("DGSEC1"	DGSEC1+13*
^DPT - [#2]	PURNON+5
^XMB(3.8 - [#3.8]	BULTIN+5
^XUSEC("DG SECURITY OFFICER"	4+2
^XUSEC("DG SENSITIVITY"	1+4

Name	Line Occurrences
$$RUSURE	IHS+10
1	IHS+6, IHS+24
@(	A+1
A	DGSEC1+13, A+1
ASKPRT	ASKPRT
ASKPUR	ASKPUR+2, DTR+2
DTR	ASKPUR+3, ED+1, ED+3
PURNON	ASKPRT+1
Q	1+2, ASKPUR+1, ASKPUR+4, ASKPRT, ASKPRT+1, ASKPRT+2

Name	Field # of Occurrence
^("D"	BULTIN+18
^("NOT"	BULTIN+2
^(0	PURNON+4, PURNON+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASKPUR~, ASKPUR+1, ASKPUR+2, ASKPRT
%DT	DTR+1*, ED!
%DT("A"	DTR+1, ED
BDGED	PURNON+4, ED+1!, ED+2*, ED+3
>> BDGEDY	ED+2*
BDGSD	ASKPUR+4, PURNON+4, DTR+2!, DTR+3*, ED+3
>> BDGSDY	DTR+3*
BDGSECL	1+2!
DA	1+3~, 1+6, IHS+1!, IHS+5, IHS+13, IHS+19, BULTIN+8, BULTIN+13, BULTIN+15, BULTIN+18 , PURNON+4
DE	IHS+18!
DFN	PURNON+4*, PURNON+5, Q!
DGB	BULTIN+2!, BULTIN+3, BULTIN+4, BULTIN+5*, BULTIN+21
DGCNT	PURNON+1, PURNON+5, PURNON+6, Q!
DGI	BULTIN+6~, BULTIN+14*
DGPGM	ASKPRT+1*, Q!
DGPRT	ASKPRT*, ASKPRT+1, ASKPRT+2, PURNON+1, PURNON+4, PURNON+6, Q!
DGSENFLG	1+5*!
>> DGTIME	PURNON+1, PURNON+6
DGVAR	ASKPRT+1*, Q!
DIC	A~, A+1, 1+3~, 1+5, BULTIN+1~, BULTIN+9*, PURNON~
DIC("A"	1+5*!
DIC(0	A+1, 1+5, BULTIN+9*
DIE	IHS+1!, IHS+14, IHS+18!
DIK	DGSEC1+12~, DGSEC1+14, PURNON+4
DIR	RUSURE+2~
DIR("A"	RUSURE+4*
DIR("B"	RUSURE+5*
DIR(0	RUSURE+3*
DIRUT	RUSURE+2~, RUSURE+7
DLAYGO	1+3~, 1+5*
DQ	IHS+18!
DR	1+3~, IHS+1!, IHS+15, IHS+16*
DUZ	1+4, IHS+15, 4+2
DUZ(2	BULTIN+13, PURNON+5
I	DGSEC1+12~, DGSEC1+13*
ION	ASKPRT+2*
OK	IHS+4~, IHS+6, IHS+10*, IHS+16
POP	ASKPRT+1, Q!
SECSRCE	IHS+4~, IHS+5, IHS+6, IHS+8, IHS+16, BULTIN+1~, BULTIN+15, BULTIN+17
SENSAFTR	IHS+12~, IHS+19*, IHS+23!
SENSBEF	IHS+12~, IHS+13*, IHS+23!
SUB	BULTIN+1~*
U	BULTIN+4, BULTIN+5, BULTIN+10
X	DGSEC1+12~, DGSEC1+13, A~, 1+3~, BULTIN+1~, BULTIN+8, BULTIN+9*, RUSURE+2~
XMB	BULTIN+6~, BULTIN+7*, BULTIN+21
XMB(	BULTIN+14*
XMB(1	BULTIN+8, BULTIN+10
XMB(2	BULTIN+13*
XMB(3	BULTIN+16*
XMB(4	BULTIN+17*
XMB(5	BULTIN+19*
XMB(6	BULTIN+20*
XMB(7	BULTIN+7*
XMY	BULTIN+6~, BULTIN+21
XMY("G."	BULTIN+21*
XMY0	BULTIN+6~
XMZ	BULTIN+6~
Y	A~, A+1, 1+3~, 1+5, 1+6, BULTIN+1~, BULTIN+7, BULTIN+10, PURNON~, PURNON+1 , PURNON+6*, RUSURE+2~, RUSURE+8, DTR+2, DTR+3, ED+1, ED+2

Customize PDF page

Package: Registration

Routine: DGSEC1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items