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

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  
Radiology Nuclear Medicine 1 ^RARPT  
Run Time Library 1 RGUT  
Scheduling 1 SDSCUTL  

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)
    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

    External References

    Name Field # of Occurrence
    ^A7RDPACT Q+6
    CLRMSG^DDS DISP+5, NOTCE1+1
    SELAUD^DGAUDIT2 DGSEC+36, SETUSR+6
    DISPPRF^DGPFAPI Q+5
    ^DGPMSTAT LOCK+21
    $$EMPL^DGSEC4 BULTIN1+18
    OWNREC^DGSEC4 DGSEC+17, REC+11
    SENS^DGSEC4 DGSEC+29
    H^DGUTL LOCK+19
    YN^DICN NOTCE1
    $$GET1^DIQ DGSEC+36, 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+38, 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 processing this patient record"
    • Line Location: NOTCE1+0
    Function Call: WRITE
    • Prompt: "Enter 'YES' to continue processing, or 'NO' to quit processing 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+4
    ^DPT - [#2] LOCK+10, LOCK+12, BULTIN1+17, BULTIN1+20

    Label References

    Name Line Occurrences
    BULTIN1 DGSEC+54, BULTIN+2
    DISP DGSEC+21, DGSEC+33, DGSEC+42, DGSEC+49, DGSEC+55, REC+13
    LOCK LOCK
    NOTCE1 DGSEC+50, NOTCE1
    Q DGSEC+19, DGSEC+31, DGSEC+34, DGSEC+56, SETLOG+3
    QTLOADX LOADXMY+12
    SEND BULTIN1+22
    SETLOG1 DGSEC+45, DGSEC+52, 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+5~, NOTCE1*
    ARRAY DISP~, DISP+3
    ARRAY( DISP+8, DISP+9, DISP+10
    >> DDS DGSEC+22, DGSEC+29, REC+14, DISP+5, DISP+7, NOTCE1, NOTCE1+1
    >> DDSHBX DISP+5, NOTCE1+1
    >> DDXY DISP+5, NOTCE1+1
    DFN DGSEC+5~, 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+5~, SETLOG+2, SETLOG1~, LOCK+21, SETUSR+1, Q!
    DGA1 SETLOG1+7~
    DGANS DGSEC+5~, DGSEC+22*, 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, DISP+10
    DGLNE Q!
    DGM LOADXMY+8~, LOADXMY+11*, LOADXMY+12, LOADXMY+13
    DGMSG DGSEC+5~, DGSEC+54, DGSEC+55, Q!, BULTIN1~
    DGMSG(1 BULTIN1+23*
    >> DGNEWPT DGSEC+16, DGSEC+17, REC+11
    DGOPT DGSEC+5~, DGSEC+36, DGSEC+38*, DGSEC+45, DGSEC+52, DGSEC+54, SETLOG+2, BULTIN+2, SETLOG1~, LOCK+23*
    , SETUSR+1, SETUSR+6, Q!, BULTIN1~, BULTIN1+15*, BULTIN1+20
    DGPFSAVY Q+4~*, Q+5!
    DGPTSSN DGSEC+5~, DGSEC+16*, DGSEC+17, REC+9~, REC+10*, REC+11
    DGREC DGSEC+5~, DGSEC+17, DGSEC+21, REC+11, REC+13, REC+15*, REC+16*
    DGREC(1 DGSEC+19, REC+12, REC+15
    DGSEN Q!
    >> DGSENFLG DGSEC+29
    DGSENS DGSEC+5~, DGSEC+29, DGSEC+33, DGSEC+42, DGSEC+49
    DGSENS(1 DGSEC+31, DGSEC+34, DGSEC+39, DGSEC+46
    >> DGSM DGSEC+55
    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~, DISP+9*, DISP+10
    DGY DGSEC+5~, DGSEC+7*, DGSEC+17, DGSEC+18, DGSEC+36, Q!
    >> DIC(0 DGSEC+40, DGSEC+47, DGSEC+55, Q+2, DISP+4
    DPTBTDT DGSEC+4!
    DPTSAVY Q+7*!
    DTIME DGSEC+22, REC+14
    DUZ DGSEC+4, DGSEC+17, DGSEC+29, DGSEC+45, DGSEC+52, DGSEC+54, REC+11, SETLOG+2, BULTIN+2
    DX DGSEC+5~, DISP+5*, NOTCE1+1*
    DY DGSEC+5~, 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+38, 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+16, 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+38, SETLOG1+7~, LOCK+23, Q!, BULTIN1+7~, BULTIN1+15
    Y DGSEC+4, DGSEC+7, DGSEC+18*, DGSEC+20*, DGSEC+29, DGSEC+32*, DGSEC+43, DGSEC+45, DGSEC+51, DGSEC+52
    , DGSEC+54, 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