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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 6 SEND^DGSEC  ^DGSEC2  ^DGSEC3  H^DGUTL  (CLOSE,QUE,ZIS)^DGUTQ  SECA08^VAFCDD01  
VA FileMan 6 ^DIC  YN^DICN  ^DIE  (,IXALL)^DIK  DT^DIQ  ^DIR  
Kernel 1 $$NOW^XLFDT  

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

Package Total Caller Graph
Registration 5 DG SECURITY DISPLAY LOG  DG SECURITY ENTER/EDIT  DG SECURITY PURGE LOG  DG SECURITY PURGE PATIENTS  ^DGSL(38.1  

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.

External References

Name Field # of Occurrence
SEND^DGSEC BULTIN+20
^DGSEC2 2+2
^DGSEC3 3+2
H^DGUTL PURNON+1, PURNON+3
CLOSE^DGUTQ Q
QUE^DGUTQ ASKPRT+2
ZIS^DGUTQ ASKPRT+1
^DIC A+1, 1+4, BULTIN+9
YN^DICN ASKPUR+1, ASKPRT
^DIE 1+21
^DIK PURNON+2
IXALL^DIK DGSEC1+4
DT^DIQ PURNON+1, PURNON+3
^DIR RUSURE+6
SECA08^VAFCDD01 1+26
$$NOW^XLFDT BULTIN+7

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
Routine Call
  • DIC
  • Line Location:
    • A+1
    • 1+4
    • BULTIN+9
Routine Call
  • DIE
  • Line Location:
    • 1+21
Routine Call
  • DIR
  • Line Location:
    • RUSURE+6

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" BULTIN+7
^DG(43 - [#43] BULTIN+2, BULTIN+4
^DGSL(38.1 - [#38.1] 1+9, 1+17, 1+23, BULTIN+8, BULTIN+14, BULTIN+17, PURNON+2
^DOPT("DGSEC1" DGSEC1+3*
^DPT - [#2] BULTIN+12, PURNON+2
^XMB(3.8 - [#3.8] BULTIN+5
^XUSEC("DG SECURITY OFFICER" 4+2
^XUSEC("DG SENSITIVITY" 1+3

Label References

Name Line Occurrences
$$RUSURE 1+14
1 1+10, 1+28
@( A+1
A DGSEC1+3, A+1
ASKPRT ASKPRT
ASKPUR ASKPUR+2
PURNON ASKPRT+1
Q ASKPUR+1, ASKPRT, ASKPRT+1, ASKPRT+2

Naked Globals

Name Field # of Occurrence
^("D" BULTIN+17
^("NOT" BULTIN+2
^(0 BULTIN+12, PURNON+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASKPUR~, ASKPUR+1*, ASKPUR+2, ASKPRT*
DA 1+2~, 1+5*, 1+9, 1+17, 1+23, 1+26, BULTIN+8, BULTIN+12, BULTIN+14, BULTIN+17
, PURNON+2*
DE 1+22!
DFN PURNON+2*, Q!
DGB BULTIN+2!*, BULTIN+3, BULTIN+4*, BULTIN+5*, BULTIN+20
DGCNT PURNON+1*, PURNON+2*, PURNON+3, Q!
DGI BULTIN+6~, BULTIN+13*
DGPGM ASKPRT+1*, Q!
DGPRT ASKPRT*, ASKPRT+1, ASKPRT+2, PURNON+1, PURNON+2, PURNON+3, Q!
DGSENFLG 1+4*!
>> DGTIME PURNON+1, PURNON+3
DGVAR ASKPRT+1*, Q!
DIC A~, A+1*, 1+2~, 1+4*, BULTIN+1~, BULTIN+9*, PURNON~
DIC("A" 1+4*!
DIC(0 A+1*, 1+4*, BULTIN+9*
DIE 1+18*, 1+22!
DIK DGSEC1+2~, DGSEC1+4*, PURNON+2*
DIR RUSURE+2~
DIR("A" RUSURE+4*
DIR("B" RUSURE+5*
DIR(0 RUSURE+3*
DIRUT RUSURE+2~, RUSURE+7
DLAYGO 1+2~, 1+4*
DQ 1+22!
DR 1+2~, 1+19*, 1+20*
DUZ 1+3, 1+19, 4+2
I DGSEC1+2~, DGSEC1+3*
ION ASKPRT+2*
OK 1+8~, 1+10, 1+14*, 1+20
POP ASKPRT+1, Q!
SECSRCE 1+8~, 1+9*, 1+10, 1+12, 1+20, BULTIN+1~, BULTIN+14*, BULTIN+16
SENSAFTR 1+16~, 1+23*, 1+26, 1+27!
SENSBEF 1+16~, 1+17*, 1+26, 1+27!
SUB BULTIN+1~*
U BULTIN+4, BULTIN+5, BULTIN+10
X DGSEC1+2~, DGSEC1+3*, A~, 1+2~, BULTIN+1~, BULTIN+8*, BULTIN+9*, RUSURE+2~
XMB BULTIN+6~, BULTIN+7*, BULTIN+20
XMB( BULTIN+13*
XMB(1 BULTIN+8*, BULTIN+10*
XMB(2 BULTIN+12*
XMB(3 BULTIN+15*
XMB(4 BULTIN+16*
XMB(5 BULTIN+18*
XMB(6 BULTIN+19*
XMB(7 BULTIN+7*
XMY BULTIN+6~, BULTIN+20
XMY("G." BULTIN+20*
XMY0 BULTIN+6~
XMZ BULTIN+6~
Y A~, A+1, 1+2~, 1+4, 1+5, BULTIN+1~, BULTIN+7*, BULTIN+10, PURNON~, PURNON+1*
, PURNON+3*, RUSURE+2~, RUSURE+8

Marked Items

Name Field # of Occurrence
$T(@(1)+1 DGSEC1+3
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 |  Marked Items  | All