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: DGSEC3

Package: Registration

Routine: DGSEC3


Information

DGSEC3 ;ALB/RMO - Purge Record of User Access from Security Log ; 22 JUN 87 1:00 pm

Source Information

Source file <DGSEC3.m>

Entry Points

Name Comments DBIA/ICR reference
ASKPAT
ASKDTE
ASKPRT
PURUSR
Q
PURSEL
PURALL
DELUSR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,*7,"You do not have the appropriate access privileges to purge user access."
  • Line Location: DGSEC3+2
Function Call: WRITE
  • Prompt: !!?3,*7,"Record of user access can not be purged from the security log."
  • Line Location: DGSEC3+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Select PATIENT: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKPAT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'ALL' or a select patient to purge user access from security log."
  • Line Location: ASKPAT+2
Function Call: WRITE
  • Prompt: !!?1,*7,"Record of user access can not be purged prior to ",+DGSDFLG," day(s), please",!?1,"select a day on or before "
  • Line Location: ASKDTE+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: ASKDTE+1
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to print users 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 User Access from Security Log started "
  • Line Location: PURUSR+0
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: PURUSR+0
Function Call: WRITE
  • Prompt: !!,"Purge completed "
  • Line Location: PURUSR+1
Function Call: WRITE
  • Prompt: ". ","Number of records purged: ",DGCNT
  • Line Location: PURUSR+1
Function Call: WRITE
  • Prompt: !," ...",$S($D(^VA(200,+$P(DGSL0,"^",2),0)):$E($P(^(0),"^"),1,15),1:"Unknown")," accessed ",$S($D(^DPT(DFN,0)):$E($P(^(0),"^"),1,20),1:"Unknown")," on "
  • Line Location: DELUSR+1

FileMan Files Accessed Via FileMan Db Call

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