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

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  YN^DICN  DT^DIQ  
Registration 2 H^DGUTL  (CLOSE,ZIS)^DGUTQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGSEC1  DGSEC3  

Entry Points

Name Comments DBIA/ICR reference
ASKUSR
START
Q
SELUSR
ALLUSR
CHKDTE
PRT
HD
CRCHK
DTRNG
BEGDT
ENDDT

External References

Name Field # of Occurrence
^%DT BEGDTENDDT
H^DGUTL HD+1
CLOSE^DGUTQ Q
ZIS^DGUTQ ASKUSR+2
^DIC DGSEC2+5, ASKUSR+1
YN^DICN ASKUSR
DT^DIQ PRTHD+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+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DGSEC2+5
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: @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,20),1:"Unknown"),?70,$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
  • Variable: X
  • Timeout: DTIME
  • 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+5
    • 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] ALLUSRCHKDTE
^DPT - [#2] START
^VA(200 - [#200] SELUSRPRT
^XUSEC("DG SECURITY OFFICER" DGSEC2+2

Label References

Name Line Occurrences
ALLUSR START
ASKUSR ASKUSR
BEGDT BEGDT+1
CHKDTE SELUSRALLUSR
CRCHK HD
DTRNG DGSEC2+6
ENDDT ENDDT+1
HD CHKDTE
PRT CHKDTE
Q DGSEC2+6, ASKUSRASKUSR+1, ASKUSR+2
SELUSR START

Naked Globals

Name Field # of Occurrence
^(0 STARTSELUSRCHKDTEPRT

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+6*, START, Q!, ALLUSRCHKDTE
DGBEGDT Q!, CHKDTE, DTRNG!, BEGDT+2*
DGCNT START*, Q!, SELUSRALLUSR+1, CHKDTE*
DGDTE Q!, CHKDTE*
DGENDDT Q!, CHKDTE, DTRNG!, ENDDT+2*
DGLNE Q!, HD+1!*, HD+2, HD+3!*
DGNAM START*, Q!, SELUSRALLUSR+1, HD+2
DGPGE START*, Q!, CHKDTE, HD*, CRCHK
DGPGM ASKUSR+2*, Q!
DGPOP DGSEC2+6, Q!, DTRNG*, BEGDT*, ENDDT*
DGRNG1 Q!, SELUSRALLUSR+1, HD, DTRNG!, BEGDT+2*
DGRNG2 Q!, SELUSRALLUSR+1, HD, DTRNG!, ENDDT+2*
>> DGSDFLG BEGDT+1, ENDDT+1
DGSENFLG DGSEC2+4*, DGSEC2+5!
DGSL0 Q!, CHKDTE*, PRTPRT+1
>> DGTIME HD+1
DGUSR ASKUSR!*, ASKUSR+1*, STARTSELUSR, ALLUSR*, CHKDTEPRT
DGVAR ASKUSR+2*, Q!
DGX START*, Q!, ALLUSRCHKDTEHD, CRCHK*
>> DIC DGSEC2+3*, ASKUSR+1*
>> DIC("A" DGSEC2+3*, DGSEC2+5!
>> DIC("S" DGSEC2+4*, DGSEC2+5!
>> DIC(0 DGSEC2+3*, ASKUSR+1*
>> DOB START*, HD+2
DTIME CRCHK
DUZ DGSEC2+2
IO START
IOF SELUSRALLUSR+1, HD
IOSL CHKDTE
IOST CRCHK
POP ASKUSR+2, Q!
>> SSN START*, HD+1
>> X CRCHK*
>> Y DGSEC2+6, ASKUSR+1, PRT*, HD+1*, HD+2*, BEGDTBEGDT+1, BEGDT+2, ENDDTENDDT+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