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  | All
Print Page as PDF
Routine: DGSEC

Package: Registration

Routine: DGSEC


Information

DGSEC ;ALB/RMO - MAS Patient Look-up Security Check ; 3/24/04 7:53pm

Source Information

Source file <DGSEC.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 5 SELAUD^DGAUDIT2  DISPPRF^DGPFAPI  ^DGPMSTAT  ($$EMPL,OWNREC,SENS)^DGSEC4  H^DGUTL  
VA FileMan 3 CLRMSG^DDS  YN^DICN  $$GET1^DIQ  
Kernel 2 $$NOW^XLFDT  OP^XQCHK  
MailMan 1 ^XMB  
NDBI 1 ^A7RDPACT  
Text Integration Utility 1 ENPAT^GMRPNCW  
Uncategorized 1 EN^MPRCHK  

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

Package Total Caller Graph
Registration 5 DGROHLU  DGSEC1  DGSEC4  DPTLK  DPTLK2  
Imaging 3 MAGDQR03  MAGDSTD1  MAGVD001  
Patient Data Exchange 3 VAQBUL02  VAQBUL04  VAQBUL06  
Record Tracking 2 RTB  RTUTL3  
Scheduling 2 SDES2STOREPAT  SDSCUTL  
Radiology Nuclear Medicine 1 ^RARPT  
Run Time Library 1 RGUT  

Entry Points

Name Comments DBIA/ICR reference
REC ;DPTLK2 entry point when adding new Patient file record
SETLOG ;Entry point for DBIA #2242
  • ICR #2242
    • Status: Active
    • Usage: Controlled Subscription
    BULTIN ;Entry point for DBIA #2242
  • ICR #2242
    • Status: Active
    • Usage: Controlled Subscription
    SETLOG1(DFN,DGDUZ,DG1,DGOPT) ;Adds/updates entry in DG Security Log file (38.1)
  • ICR #7467
    • Status: Pending
    • Usage: Controlled Subscription
    LOCK
    SETUSR
    Q
    BULTIN1(DFN,DGDUZ,DGOPT,DGMSG) ;Generate sensitive record access bulletin
    SEND(XMB,XMY) ;Queue mail bulletin
    DISP(ARRAY) ;Display message text to screen
    NOTCE1
    LOADXMY() ;this adds the contents of field #509 of File #43 to the XMY array
  • ICR #1031
    • Status: Active
    • Usage: Private
    QTLOADX
    DISP2V ;Display message text to screen for Vista

    External References

    Name Field # of Occurrence
    ^A7RDPACT Q+6
    CLRMSG^DDS DISP+5, NOTCE1+1
    SELAUD^DGAUDIT2 DGSEC+37, SETUSR+6
    DISPPRF^DGPFAPI Q+5
    ^DGPMSTAT LOCK+21
    $$EMPL^DGSEC4 BULTIN1+18
    OWNREC^DGSEC4 DGSEC+18, REC+11
    SENS^DGSEC4 DGSEC+30
    H^DGUTL LOCK+19
    YN^DICN NOTCE1
    $$GET1^DIQ DGSEC+37, SETUSR+6, BULTIN1+13, LOADXMY+11
    ENPAT^GMRPNCW Q+7
    EN^MPRCHK Q+8
    $$NOW^XLFDT LOCK+17, BULTIN1+21
    ^XMB SEND+3
    OP^XQCHK DGSEC+39, LOCK+23, BULTIN1+15

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: DISP+7
    Function Call: WRITE
    • Prompt: "Do you want to continue accessing this patient record"
    • Line Location: NOTCE1+0
    Function Call: WRITE
    • Prompt: "Enter 'YES' to continue accessing, or 'NO' to quit accessing this record."
    • Line Location: NOTCE1+0
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $D(DDS)
    • Line Location: NOTCE1+0
    Routine Call
    • DDS
    • Line Location:
      • DISP+5
      • NOTCE1+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^XMB(3.8 - [#3.8] GET1^DIQ
    ^DGAUDIT2 - [#46.5] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("RM" DISP+5
    ^%ZOSF("TEST" Q+1
    ^DD("DD" BULTIN1+21
    ^DG(391 - [#391] LOCK+11
    ^DG(43 - [#43] BULTIN1+10, BULTIN1+12, LOADXMY+10
    ^DGSL(38.1 - [#38.1] LOCK, LOCK+2, LOCK+3*, LOCK+4*, LOCK+5*, LOCK+6*, LOCK+15*, LOCK+17*, SETUSR, SETUSR+1*
    , SETUSR+2*, SETUSR+3*, SETUSR+4
    ^DIC(8 - [#8] LOCK+13
    ^DISV( DGSEC+5
    ^DPT - [#2] LOCK+10, LOCK+12, BULTIN1+17, BULTIN1+20

    Label References

    Name Line Occurrences
    BULTIN1 DGSEC+55, BULTIN+2
    DISP DGSEC+22, DGSEC+34, DGSEC+43, DGSEC+56, REC+13, DISP2V+21
    DISP2V DGSEC+50
    LOCK LOCK
    NOTCE1 DGSEC+51, NOTCE1
    Q DGSEC+20, DGSEC+32, DGSEC+35, DGSEC+57, SETLOG+3
    QTLOADX LOADXMY+12
    SEND BULTIN1+22
    SETLOG1 DGSEC+46, DGSEC+53, SETLOG+2
    SETUSR SETUSR

    Naked Globals

    Name Field # of Occurrence
    ^("NOT" BULTIN1+10
    ^("TYPE" LOCK+10
    ^(0 LOCK+11, SETUSR+1*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % DGSEC+6~, NOTCE1*
    ARRAY DISP~, DISP+3
    ARRAY( DISP+8, DISP+9
    >> DDS DGSEC+23, DGSEC+30, REC+14, DISP+5, DISP+7, NOTCE1, NOTCE1+1, DISP2V+20
    >> DDSHBX DISP+5, NOTCE1+1
    >> DDXY DISP+5, NOTCE1+1
    DFN DGSEC+6~, SETLOG1~, LOCK, LOCK+2, LOCK+3, LOCK+4, LOCK+5, LOCK+10, LOCK+12, LOCK+15
    , LOCK+17, SETUSR, SETUSR+1, SETUSR+2, SETUSR+3, SETUSR+4, SETUSR+6, BULTIN1~, BULTIN1+17, BULTIN1+18
    , BULTIN1+20
    DG1 DGSEC+6~, SETLOG+2, SETLOG1~, LOCK+21, SETUSR+1, Q!
    DGA1 SETLOG1+7~
    DGANS DGSEC+6~, DGSEC+23*, REC+14*
    DGB BULTIN1+10!*, BULTIN1+11, BULTIN1+12*, BULTIN1+13*, BULTIN1+20, LOADXMY+8~, LOADXMY+10*, LOADXMY+11
    DGDATE SETLOG1+7~, Q!
    DGDTE SETLOG1+7~, SETUSR*, SETUSR+1, SETUSR+2, SETUSR+3, Q!
    DGDUZ SETLOG1~, SETUSR+1, SETUSR+3, BULTIN1~
    DGEMPLEE BULTIN1+7~, BULTIN1+18*, BULTIN1+19
    DGERR LOADXMY+8~, LOADXMY+9*, LOADXMY+12*, QTLOADX
    DGI DISP+6~, DISP+8*, DISP+9
    DGLNE Q!, DISP2V+1~, DISP2V+5*, DISP2V+6, DISP2V+20
    DGM LOADXMY+8~, LOADXMY+11*, LOADXMY+12, LOADXMY+13
    DGMSG DGSEC+6~, DGSEC+55, DGSEC+56, Q!, BULTIN1~
    DGMSG(1 BULTIN1+23*
    >> DGNEWPT DGSEC+17, DGSEC+18, REC+11
    DGOPT DGSEC+6~, DGSEC+37, DGSEC+39*, DGSEC+46, DGSEC+53, DGSEC+55, SETLOG+2, BULTIN+2, SETLOG1~, LOCK+23*
    , SETUSR+1, SETUSR+6, Q!, BULTIN1~, BULTIN1+15*, BULTIN1+20
    DGPFSAVY Q+4~*, Q+5!
    DGPTSSN DGSEC+6~, DGSEC+17*, DGSEC+18, REC+9~, REC+10*, REC+11
    DGREC DGSEC+6~, DGSEC+18, DGSEC+22, REC+11, REC+13, REC+15*, REC+16*
    DGREC(1 DGSEC+20, REC+12, REC+15
    DGSEN Q!
    >> DGSENFLG DGSEC+30
    DGSENS DGSEC+6~, DGSEC+30, DGSEC+34, DGSEC+43, DISP2V+21
    DGSENS(1 DGSEC+32, DGSEC+35, DGSEC+40, DGSEC+47, DISP2V+2*
    DGSENS(10 DISP2V+12*
    DGSENS(11 DISP2V+13*
    DGSENS(12 DISP2V+14*
    DGSENS(13 DISP2V+15*
    DGSENS(14 DISP2V+16*
    DGSENS(15 DISP2V+17*
    DGSENS(16 DISP2V+18*
    DGSENS(17 DISP2V+19*
    DGSENS(18 DISP2V+20*
    DGSENS(2 DISP2V+3*
    DGSENS(3 DISP2V+4*
    DGSENS(4 DISP2V+6*
    DGSENS(5 DISP2V+7*
    DGSENS(6 DISP2V+8*
    DGSENS(7 DISP2V+9*
    DGSENS(8 DISP2V+10*
    DGSENS(9 DISP2V+11*
    >> DGSM DGSEC+56
    DGT SETLOG1+7~, LOCK+20*
    DGTEST Q+1~*, Q+3, Q+6, Q+7, Q+8
    DGTIME SETLOG1+7~, LOCK+20, SETUSR*, SETUSR+1, Q!
    DGWHERE DISP+6~
    DGY DGSEC+6~, DGSEC+8*, DGSEC+18, DGSEC+19, DGSEC+37, Q!
    >> DIC(0 DGSEC+41, DGSEC+48, DGSEC+56, Q+2, DISP+4
    DPTBTDT DGSEC+5!
    DPTSAVY Q+7*!
    DTIME DGSEC+23, REC+14
    DUZ DGSEC+5, DGSEC+18, DGSEC+30, DGSEC+46, DGSEC+53, DGSEC+55, REC+11, SETLOG+2, BULTIN+2
    DX DGSEC+6~, DISP+5*, NOTCE1+1*
    DY DGSEC+6~, DISP+5*, NOTCE1+1*
    ELIG LOCK+8~, LOCK+12*, LOCK+13
    FLAG LOCK+8~, LOCK+9*, LOCK+11*, LOCK+12, LOCK+14*, LOCK+15
    U DGSEC+39, LOCK+5, LOCK+6, LOCK+23, SETUSR+1, BULTIN1+10, BULTIN1+12, BULTIN1+15, BULTIN1+17, BULTIN1+20
    >> VALM("TITLE" SETLOG1+9, BULTIN1+9
    X DGSEC+17, REC+10, LOCK+8~, LOCK+10*, LOCK+11, LOCK+13*, LOCK+14, Q+3*, Q+6*, Q+7*
    , Q+8*, DISP+5*
    XMB BULTIN1+16~, BULTIN1+17*, BULTIN1+22, SEND~
    XMB(1 BULTIN1+17*, BULTIN1+19*
    XMB(2 BULTIN1+20*
    XMB(3 BULTIN1+20*
    XMB(4 BULTIN1+21*
    XMSUB BULTIN1+7~, BULTIN1+11*
    XMY BULTIN1+16~, BULTIN1+22, SEND~
    XMY("G." BULTIN1+20*, LOADXMY+13*
    XMY0 BULTIN1+16~
    XMZ BULTIN1+16~
    XQOPT DGSEC+39, SETLOG1+7~, LOCK+23, Q!, BULTIN1+7~, BULTIN1+15
    Y DGSEC+5, DGSEC+8, DGSEC+19*, DGSEC+21*, DGSEC+30, DGSEC+33*, DGSEC+44, DGSEC+46, DGSEC+52, DGSEC+53
    , DGSEC+55, SETLOG+2, BULTIN+2, Q+2, Q+4, Q+5*, Q+7*, Q+8, BULTIN1+21~*, NOTCE1*
    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  | All