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 ; [ 01/04/2002 7:06 AM ]

Source Information

Source file <DGSEC1.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA Fileman 7 ^%DT  ^DIC  YN^DICN  ^DIE  (,IXALL)^DIK  DT^DIQ  ^DIR  
Registration 5 SEND^DGSEC  ^DGSEC2  ^DGSEC3  H^DGUTL  (CLOSE,QUE,ZIS)^DGUTQ  
IHS Changes To ADT 1 $$HRCN^BDGF2  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 4 DG SECURITY DISPLAY LOG  DG SECURITY ENTER/EDIT  DG SECURITY PURGE LOG  DG SECURITY PURGE PATIENTS  
IHS Changes To ADT 1 BDGSECL  

Entry Points

Name Comments DBIA/ICR reference
A
BULTIN ;This bulletin is sent if a patient's sensitivity is removed.
PURNON
RUSURE() ; Description: Asks user if they are sure they want to edit the DG SECURITY LOG record.
ASKPRT
IHS ;EP; -- entry point from IHS protocol;IHS/ANMC/LJF 9/6/2000
1 ;
3 ;
2 ;
Q
4 ;
ASKPUR
ED
DTR ;-- get date range

External References

Name Field # of Occurrence
^%DT DTR+1, ED
$$HRCN^BDGF2 BULTIN+13, PURNON+5
SEND^DGSEC BULTIN+21
^DGSEC2 2+2
^DGSEC3 3+2
H^DGUTL PURNON+1, PURNON+6
CLOSE^DGUTQ Q
QUE^DGUTQ ASKPRT+2
ZIS^DGUTQ ASKPRT+1
^DIC A+1, 1+5, BULTIN+9
YN^DICN ASKPUR+1, ASKPRT
^DIE IHS+1, IHS+17
^DIK PURNON+4
IXALL^DIK DGSEC1+14
DT^DIQ PURNON+1, PURNON+6
^DIR RUSURE+6
$$VAL^XBDIQ1 BULTIN+13
$$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+4
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+5
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: !," ...",$S($D(^DPT(DFN,0)):$P(^(0),"^")_" ("_$$HRCN^BDGF2(DFN,DUZ(2))_")",1:"Unknown")
  • Line Location: PURNON+3
Function Call: WRITE
  • Prompt: !," ...",$S($D(^DPT(DFN,0)):$P(^(0),"^")_" ("_$$HRCN^BDGF2(DFN,DUZ(2))_")",1:"Unknown")
  • Line Location: PURNON+5
Function Call: WRITE
  • Prompt: !!,"Purge completed "
  • Line Location: PURNON+6
Function Call: WRITE
  • Prompt: ". ","Number of records purged: ",DGCNT
  • Line Location: PURNON+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DTR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: !!,"Ending Date cannot be before Starting Date! Please reenter.",!
  • Line Location: ED+3
Routine Call
  • DIE
  • Line Location:
    • IHS+1
    • IHS+17
Routine Call
  • DIC
  • Line Location:
    • A+1
    • 1+5
    • BULTIN+9
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, DTR+3, ED+2
^DG(43 - [#43] BULTIN+2, BULTIN+4
^DGSL(38.1 - [#38.1] IHS+5, IHS+13, IHS+19, BULTIN+8, BULTIN+15, BULTIN+18, PURNON+4
^DOPT("DGSEC1" DGSEC1+13*
^DPT - [#2] PURNON+5
^XMB(3.8 - [#3.8] BULTIN+5
^XUSEC("DG SECURITY OFFICER" 4+2
^XUSEC("DG SENSITIVITY" 1+4

Label References

Name Line Occurrences
$$RUSURE IHS+10
1 IHS+6, IHS+24
@( A+1
A DGSEC1+13, A+1
ASKPRT ASKPRT
ASKPUR ASKPUR+2, DTR+2
DTR ASKPUR+3, ED+1, ED+3
PURNON ASKPRT+1
Q 1+2, ASKPUR+1, ASKPUR+4, ASKPRT, ASKPRT+1, ASKPRT+2

Naked Globals

Name Field # of Occurrence
^("D" BULTIN+18
^("NOT" BULTIN+2
^(0 PURNON+4, PURNON+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

Marked Items

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