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

Package: Registration

Routine: DGSEC1


Information

DGSEC1 ;ALB/RMO-MAS Security Options ;7/24/99 23:48

Source Information

Source file <DGSEC1.m>

Entry Points

Name Comments DBIA/ICR reference
A
1 ;
BULTIN ;This bulletin is sent if a patient's sensitivity is removed.
2 ;
3 ;
4 ;
ASKPUR
ASKPRT
PURNON
Q
RUSURE() ; Description: Asks user if they are sure they want to edit the DG SECURITY LOG record.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !!?3,$C(7),"You do not have the appropriate access privileges to assign security."
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+4
Function Call: WRITE
  • Prompt: !!?3,$C(7),"You do not have the appropriate access privileges to purge patients."
  • Line Location: 4+2
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to purge all non-sensitive patients"
  • Line Location: ASKPUR+1
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to purge non-sensitive patients, or 'NO' to exit this process."
  • Line Location: ASKPUR+2
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to print patients 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 Non-sensitive Patients from Security Log started "
  • Line Location: PURNON+1
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: PURNON+1
Function Call: WRITE
  • Prompt: !," ...",$S($D(^DPT(DFN,0)):$P(^(0),"^")_" ("_$P(^(0),"^",9)_")",1:"Unknown")
  • Line Location: PURNON+2
Function Call: WRITE
  • Prompt: !!,"Purge completed "
  • Line Location: PURNON+3
Function Call: WRITE
  • Prompt: ". ","Number of records purged: ",DGCNT
  • Line Location: PURNON+3

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