Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DGSL(38.1 - [#38.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call