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 Total: 15

Package Total Call Graph
Registration 4 DISPPRF^DGPFAPI  ^DGPMSTAT  ($$EMPL,OWNREC,SENS)^DGSEC4  H^DGUTL  
Uncategorized 3 ^A7RDPACT  ENPAT^GMRPNCW  EN^MPRCHK  
VA Fileman 3 CLRMSG^DDS  YN^DICN  $$GET1^DIQ  
IHS Changes To ADT 2 $$HRCN^BDGF2  $$STATUS^BDGSPT2  
Kernel 2 $$NOW^XLFDT  OP^XQCHK  
MailMan 1 ^XMB  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Registration 5 DGROHLU  DGSEC1  DGSEC4  DPTLK  DPTLK2  
CIA Utilities 1 CIAU  
IHS Emergency Dept Dashboard 1 BEDDUTIL  
IHS Patient 1 AUPNLK  
Mental Health Social Services 1 AMHUTIL2  
Scheduling 1 SDSCUTL  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^A7RDPACT Q+6
    $$HRCN^BDGF2 BULTIN1+18
    $$STATUS^BDGSPT2 DGSEC+17
    CLRMSG^DDS DISP+5, NOTCE1+1
    DISPPRF^DGPFAPI Q+5
    ^DGPMSTAT LOCK+22
    $$EMPL^DGSEC4 BULTIN1+19
    OWNREC^DGSEC4 DGSEC+33, REC+11
    SENS^DGSEC4 DGSEC+45
    H^DGUTL LOCK+20
    YN^DICN NOTCE1
    $$GET1^DIQ DGSEC+62, BULTIN1+13, LOADXMY+11
    ENPAT^GMRPNCW Q+7
    EN^MPRCHK Q+8
    $$NOW^XLFDT LOCK+18, BULTIN1+22
    ^XMB SEND+3
    OP^XQCHK DGSEC+52, LOCK+24, 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
    ^DG(43 - [#43] GET1^DIQ

    Global Variables Directly Accessed

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

    Label References

    Name Line Occurrences
    BULTIN1 DGSEC+81, BULTIN+2
    DISP DGSEC+21, DGSEC+37, DGSEC+49, DGSEC+69, DGSEC+76, DGSEC+82, REC+13
    LOCK LOCK
    NOTCE1 DGSEC+77, NOTCE1
    Q DGSEC+35, DGSEC+47, DGSEC+61, DGSEC+83, SETLOG+3
    QTLOADX LOADXMY+12
    SEND BULTIN1+23
    SETLOG1 DGSEC+63, DGSEC+72, DGSEC+79, 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+11~, NOTCE1*
    ARRAY DISP~, DISP+3
    ARRAY( DISP+8, DISP+9, DISP+10
    >> DDS DGSEC+38, DGSEC+45, REC+14, DISP+5, DISP+7, NOTCE1, NOTCE1+1
    >> DDSHBX DISP+5, NOTCE1+1
    >> DDXY DISP+5, NOTCE1+1
    DFN DGSEC+11~, SETLOG1~, LOCK, LOCK+2, LOCK+3, LOCK+4, LOCK+5, LOCK+10, LOCK+12, LOCK+15
    , LOCK+16, LOCK+18, SETUSR, SETUSR+1, SETUSR+2, SETUSR+3, SETUSR+4, BULTIN1~, BULTIN1+17, BULTIN1+18
    , BULTIN1+19, BULTIN1+21
    DG1 DGSEC+11~, SETLOG+2, SETLOG1~, LOCK+22, SETUSR+1, Q!
    DGA1 SETLOG1+7~
    DGANS DGSEC+11~, DGSEC+38*, REC+14*
    DGB BULTIN1+10!*, BULTIN1+11, BULTIN1+12*, BULTIN1+13*, BULTIN1+21, 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+19*, BULTIN1+20
    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+11~, DGSEC+81, DGSEC+82, Q!, BULTIN1~
    DGMSG(1 BULTIN1+24*
    >> DGNEWPT DGSEC+32, DGSEC+33, REC+11
    DGOPT DGSEC+11~, DGSEC+52*, DGSEC+63, DGSEC+72, DGSEC+79, DGSEC+81, SETLOG+2, BULTIN+2, SETLOG1~, LOCK+24*
    , SETUSR+1, Q!, BULTIN1~, BULTIN1+15*, BULTIN1+21
    DGPFSAVY Q+4~*, Q+5!
    DGPTSSN DGSEC+11~, DGSEC+32*, DGSEC+33, REC+9~, REC+10*, REC+11
    DGREC DGSEC+11~, DGSEC+33, DGSEC+37, REC+11, REC+13, REC+15*, REC+16*
    DGREC(1 DGSEC+35, REC+12, REC+15
    DGSEN Q!
    >> DGSENFLG DGSEC+45
    DGSENS DGSEC+11~, DGSEC+45, DGSEC+49, DGSEC+69, DGSEC+76
    DGSENS(1 DGSEC+47, DGSEC+61, DGSEC+66, DGSEC+73
    >> DGSM DGSEC+82
    DGT SETLOG1+7~, LOCK+21*
    DGTEST Q+1~*, Q+3, Q+6, Q+7, Q+8
    DGTIME SETLOG1+7~, LOCK+21, SETUSR*, SETUSR+1, Q!
    DGWHERE DISP+6~, DISP+9*, DISP+10
    DGY DGSEC+11~, DGSEC+13*, DGSEC+17, DGSEC+33, DGSEC+34, DGSEC+62, Q!
    >> DIC(0 DGSEC+67, DGSEC+74, DGSEC+82, Q+2, DISP+4
    DPTBTDT DGSEC+10!
    DPTSAVY Q+7*!
    DTIME DGSEC+38, REC+14
    DUZ DGSEC+10, DGSEC+17, DGSEC+33, DGSEC+45, DGSEC+63, DGSEC+72, DGSEC+79, DGSEC+81, REC+11, SETLOG+2
    , BULTIN+2
    DUZ(2 BULTIN1+18
    DX DGSEC+11~, DISP+5*, NOTCE1+1*
    DY DGSEC+11~, DISP+5*, NOTCE1+1*
    ELIG LOCK+8~, LOCK+12*, LOCK+13
    FLAG LOCK+8~, LOCK+9*, LOCK+11*, LOCK+12, LOCK+14*, LOCK+15, LOCK+16
    MSG DGSEC+19~, DGSEC+21
    MSG(2 DGSEC+19*
    MSG(3 DGSEC+20*
    U DGSEC+52, DGSEC+62, LOCK+5, LOCK+6, LOCK+24, SETUSR+1, BULTIN1+10, BULTIN1+12, BULTIN1+15, BULTIN1+17
    , BULTIN1+21
    >> VALM("TITLE" SETLOG1+9, BULTIN1+9
    X DGSEC+32, 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+23, SEND~
    XMB(1 BULTIN1+17*, BULTIN1+18*, BULTIN1+20*
    XMB(2 BULTIN1+21*
    XMB(3 BULTIN1+21*
    XMB(4 BULTIN1+22*
    XMSUB BULTIN1+7~, BULTIN1+11*
    XMY BULTIN1+16~, BULTIN1+23, SEND~
    XMY("G." BULTIN1+21*, LOADXMY+13*
    XMY0 BULTIN1+16~
    XMZ BULTIN1+16~
    XQOPT DGSEC+52, SETLOG1+7~, LOCK+24, Q!, BULTIN1+7~, BULTIN1+15
    Y DGSEC+10, DGSEC+13, DGSEC+18*, DGSEC+34*, DGSEC+36*, DGSEC+45, DGSEC+48*, DGSEC+63, DGSEC+70, DGSEC+72
    , DGSEC+78, DGSEC+79, DGSEC+81, SETLOG+2, BULTIN+2, Q+2, Q+4, Q+5*, Q+7*, Q+8
    , BULTIN1+22~*, 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