Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGSEC2

Package: Registration

Routine: DGSEC2


Information

DGSEC2 ;ALB/RMO - Display User Access to Patient Record ; 22 JUN 87 1:00 pm

Source Information

Source file <DGSEC2.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 4

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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
ALLUSR START
ASKUSR ASKUSR
BEGDT BEGDT+1
CHKDTE SELUSR, ALLUSR
CRCHK HD
DTRNG DGSEC2+16
ENDDT ENDDT+1
PRT CHKDTE+1
Q DGSEC2+16, ASKUSR, ASKUSR+1, ASKUSR+3
SELUSR START

Naked Globals

Name Field # of Occurrence
^(0 START, SELUSR, CHKDTE+1, PRT

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All