Routine: DGSEC2

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC YN^DICN DT^DIQ
Registration	2	H^DGUTL (CLOSE,ZIS)^DGUTQ
IHS Changes To ADT	1	^BDGSEC2

Package	Total	Caller Graph
IHS Changes To ADT	2	BDGSEC2 BDGSECL
Registration	2	DGSEC1 DGSEC3

Entry Points

External References

Name	Field # of Occurrence
^%DT	BEGDT, ENDDT
^BDGSEC2	ASKUSR+3
H^DGUTL	HD+1
CLOSE^DGUTQ	Q
ZIS^DGUTQ	ASKUSR+3
^DIC	DGSEC2+15, ASKUSR+1
YN^DICN	ASKUSR
DT^DIQ	PRT, HD+1, HD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,*7,"You do not have the appropriate access privileges to display user access." Line Location: DGSEC2+7
Function Call: WRITE	Prompt: ! Line Location: DGSEC2+15
Function Call: WRITE	Prompt: !!,"Enter 'YES' to display a select user, or 'NO' to display all users." Line Location: ASKUSR+0
Function Call: WRITE	Prompt: ! Line Location: ASKUSR+1
Function Call: WRITE	Prompt: ! Line Location: ASKUSR+2
Function Call: WRITE	Prompt: ! Line Location: ASKUSR+3
Function Call: WRITE	Prompt: @IOF,!!?5,"User ",$S($D(^VA(200,DGUSR,0)):$P(^(0),"^"),1:DGUSR)," did not access the patient record of",!?5,DGNAM,$S(DGRNG1=DGRNG2:" on "_DGRNG1,1:" during "_DGRNG1_" and "_DGRNG2),"." Line Location: SELUSR+0
Function Call: WRITE	Prompt: @IOF,!!?5,"No user access logged for the patient record of ",DGNAM,!?5,$S(DGRNG1=DGRNG2:"on "_DGRNG1,1:"during "_DGRNG1_" and "_DGRNG2),"." Line Location: ALLUSR+1
Function Call: WRITE	Prompt: !,$S($D(^VA(200,DGUSR,0)):$E($P(^(0),"^"),1,20),1:"Unknown") Line Location: PRT+0
Function Call: WRITE	Prompt: ?23 Line Location: PRT+0
Function Call: WRITE	Prompt: ?46,$S($P(DGSL0,"^",3)]"":$E($P(DGSL0,"^",3),1,65),1:"Unknown"),?113,$P($P(^DD(38.11,4,0),$P(DGSL0,"^",4)_":",2),";",1) Line Location: PRT+1
Function Call: WRITE	Prompt: @IOF,!,"Sensitive Patient Access Report for ",DGRNG1," to ",DGRNG2 Line Location: HD+0
Function Call: WRITE	Prompt: ?70,"Page: ",DGPGE Line Location: HD+0
Function Call: WRITE	Prompt: !,DGLNE,!,"Run Date : " Line Location: HD+1
Function Call: WRITE	Prompt: ?14 Line Location: HD+1
Function Call: WRITE	Prompt: ?14 Line Location: HD+1
Function Call: WRITE	Prompt: !,"Patient Name: ",$S($D(DGNAM):DGNAM,1:"Unknown"),?47,"Date of Birth : " Line Location: HD+2
Function Call: WRITE	Prompt: !,DGLNE Line Location: HD+2
Function Call: WRITE	Prompt: !!,"USER",?23,"DATE ACCESSED",?46,"OPTION/PROTOCOL USED",?70,"INPATIENT",!,DGLNE Line Location: HD+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: CRCHK+0
Function Call: WRITE	Prompt: !!,*7,"Press RETURN to continue or '^' to stop " Line Location: CRCHK+0
Function Call: WRITE	Prompt: !!,"** Date Range Selection **" Line Location: DTRNG+0
Function Call: WRITE	Prompt: ! Line Location: BEGDT+0
Function Call: WRITE	Prompt: *7," ??" Line Location: BEGDT+1
Function Call: WRITE	Prompt: ! Line Location: ENDDT+0
Function Call: WRITE	Prompt: *7," ??" Line Location: ENDDT+1
Function Call: WRITE	Prompt: ! Line Location: ENDDT+2
Routine Call	DIC Line Location: DGSEC2+15 ASKUSR+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEGDT+2, ENDDT+2
^DD(38.11	PRT+1
^DGSL(38.1 - [#38.1]	ALLUSR, CHKDTE+1
^DPT - [#2]	START
^VA(200 - [#200]	SELUSR, PRT
^XUSEC("DG SECURITY OFFICER"	DGSEC2+7

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASKUSR*
%DT	BEGDT!, ENDDT!, ENDDT+2!
%DT("A"	BEGDT, ENDDT
%DT(0	BEGDT+2*
DFN	DGSEC2+16*, START, Q!, ALLUSR, CHKDTE+1
DGBEGDT	Q!, CHKDTE+1, DTRNG!, BEGDT+2*
DGCNT	START, Q!, SELUSR, ALLUSR+1, CHKDTE+1
DGDTE	Q!, CHKDTE+1*
DGENDDT	Q!, CHKDTE+1, DTRNG!, ENDDT+2*
DGLNE	Q!, HD+1!, HD+2, HD+3!
DGNAM	START*, Q!, SELUSR, ALLUSR+1, HD+2
DGPGE	START, Q!, HD, CRCHK
DGPGM	ASKUSR+3*, Q!
DGPOP	DGSEC2+16, Q!, DTRNG, BEGDT, ENDDT*
DGRNG1	Q!, SELUSR, ALLUSR+1, HD, DTRNG!, BEGDT+2*
DGRNG2	Q!, SELUSR, ALLUSR+1, HD, DTRNG!, ENDDT+2*
>> DGSDFLG	BEGDT+1, ENDDT+1
DGSENFLG	DGSEC2+12*, DGSEC2+15!
DGSL0	Q!, CHKDTE+1*, PRT, PRT+1
>> DGTIME	HD+1
DGUSR	ASKUSR!, ASKUSR+1, START, SELUSR, ALLUSR*, CHKDTE+1, PRT
DGVAR	ASKUSR+3*, Q!
DGX	START, Q!, ALLUSR, HD, CRCHK
>> DIC	DGSEC2+8, ASKUSR+1
>> DIC("A"	DGSEC2+8*, DGSEC2+15!
>> DIC("S"	DGSEC2+15!
>> DIC(0	DGSEC2+8, ASKUSR+1
>> DOB	START*, HD+2
DTIME	CRCHK
DUZ	DGSEC2+7
IO	START
IOF	SELUSR, ALLUSR+1, HD
IOST	CRCHK
POP	ASKUSR+3, Q!
>> SSN	START*, HD+1
>> X	CRCHK*
>> Y	DGSEC2+16, ASKUSR+1, PRT, HD+1, HD+2*, BEGDT, BEGDT+1, BEGDT+2, ENDDT, ENDDT+1 , ENDDT+2

Customize PDF page

Package: Registration

Routine: DGSEC2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DTRNG
CHKDTE	;F DGDTE=DGENDDT:0 S DGDTE=$O(^DGSL(38.1,"AU",DFN,DGUSR,DGDTE)) Q:'DGDTE!(DGBEGDT<DGDTE) I $D(^DGSL(38.1,DFN,"D",DGDTE,0)) S DGSL0=^(0),DGCNT=DGCNT+1 D HD:'DGPGE!(($Y+4)>IOSL) Q:DGX="^" D PRT
ALLUSR
ASKUSR
ENDDT
Q
START
CRCHK
PRT
SELUSR
BEGDT
HD