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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: XQALSURO

Package: Kernel

Routine: XQALSURO


Information

XQALSURO ;ISC-SF.SEA/JLI,ISD/HGW - SURROGATES FOR ALERTS ; May 12, 2021@14:27

Source Information

Source file <XQALSURO.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$DATESURO,$$DCYCLIC,REMVSURO,SUROLIST,SURRO1)^XQALSUR1  (CHEKSUBS,DISPSUR)^XQALSUR2  ($$ACTIVE,$$NAME)^XUSER  
VA FileMan 3 (FILE,UPDATE)^DIE  ($$GET1,GETS)^DIQ  ^DIR  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Kernel 9 XQAL SURROGATE FOR WHICH USERS  XQALDATA  XQALERT  XQALERT SURROGATE SET/REMOVE  XQALERT1  XQALGUI  XQALSET  XQALSET1  
XQALSUR1  
Order Entry Results Reporting 8 ORAREN  ORB3REG  ORB3USER  ORMTIM02  ORWORR1  ORWTPR  ORWTPUA  ORY130  
Text Integration Utility 3 TIUADSIG  TIUALRT  TIUSRVA  
VistA Integration Adapter 1 VIABRPC  

Entry Points

Name Comments DBIA/ICR reference
OTHRSURO ; OPT:- XQALERT SURROGATE SET/REMOVE -- OTHERS SPECIFY SURROGATE FOR SELECTED USER
SURROGAT ; USER SPECIFICATION OF SURROGATE
CYCLIC(XQALSURO,XQAUSER,XQASTRT,XQAEND) ; code added to prevent cyclical surrogates
SETSURO(XQAUSER,XQALSURO,XQALSTRT,XQALEND) ; SR. ICR #2790 (Supported)
; Use SETSURO1 instead
  • ICR #2790
    • Status: Active
    • Usage: Supported
    SETSUROX(XQAUSER,XQALSURO,XQALSTRT,XQALEND) ; SETSURO CODE MOVED TO HERE TO PERMIT AN ERROR TO BE GENERATED AT THE OLD ENTRY POINT
    ACTIVATE(XQAUSER,XQALIEN) ; activates a surrogate
    SETSURO1(XQAUSER,XQALSURO,XQALSTRT,XQALEND) ;EXTRINSIC. ICR #3213 (supported)
    ; This should be used instead of SETSURO
  • ICR #3213
    • Status: Active
    • Usage: Supported
    CHKREMV ;
    REMVSURO(XQAUSER,XQALSURO,XQALSTRT) ;SR. ICR #2790 (supported)
    ; Ends the currently active surrogate relationship
  • ICR #2790
    • Status: Active
    • Usage: Supported
    CURRSURO(XQAUSER,XQASTRT,XQAEND) ;SR. ICR #2790 (supported)
    ; Returns current surrogate for user or -1 usage $$CURRSURO^XQALSURO(DUZ)
  • ICR #2790
    • Status: Active
    • Usage: Supported
    ISACTIVE(XQAUSER) ; checks for whether a surrogate relationship is active or not (returns 0 or 1)
    ACTVSURO(XQAUSER) ;SR. ICR #2790 (supported)
    ; Returns the actual surrogate at this time
  • ICR #2790
    • Status: Active
    • Usage: Supported
    GETSURO(XQAUSER) ;EXTRINSIC. ICR #3213 (supported)
    ; Returns data for surrogate for user including times
  • ICR #3213
    • Status: Active
    • Usage: Supported
    GETFOR ;OPT.
    SUROLIST(XQAUSER,XQALIST) ;SR. ICR #3213 (supported)
    ; Returns list of current and scheduled surrogates for XQAUSER
  • ICR #3213
    • Status: Active
    • Usage: Supported
    SUROFOR(LIST,XQAUSER) ;SR. ICR #3213 (supported)
    ; Returns list of users XQAUSER is acting as a surrogate for
  • ICR #3213
    • Status: Active
    • Usage: Supported
    SENDMESG ;

    External References

    Name Field # of Occurrence
    FILE^DIE ACTIVATE+8
    UPDATE^DIE SETSUROX+6, SETSUROX+16
    $$GET1^DIQ SETSUROX+22, SETSUROX+25, SUROFOR+4
    GETS^DIQ GETSURO+5
    ^DIR OTHRSURO+4, CHKREMV+12, CHKREMV+15, GETFOR+7, GETFOR+11
    $$FMADD^XLFDT SETSUROX+14
    $$FMTE^XLFDT SETSUROX+22, SETSUROX+24
    $$NOW^XLFDT SETSUROX+10, SETSUROX+19, ACTIVATE+4, SETSURO1+4, CURRSURO+7, ISACTIVE+3, ISACTIVE+4, ACTVSURO+3
    ^XMD SENDMESG+4
    $$DATESURO^XQALSUR1 CURRSURO+4
    $$DCYCLIC^XQALSUR1 CYCLIC+3
    REMVSURO^XQALSUR1 REMVSURO+3
    SUROLIST^XQALSUR1 SUROLIST+2
    SURRO1^XQALSUR1 SURROGAT+2
    CHEKSUBS^XQALSUR2 CURRSURO+3
    DISPSUR^XQALSUR2 CHKREMV+7
    $$ACTIVE^XUSER CYCLIC+1, ACTVSURO+4, ACTVSURO+5
    $$NAME^XUSER CYCLIC+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: " ",$P(Y,U,2)
    • Line Location: OTHRSURO+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: CHKREMV+17
    Function Call: WRITE
    • Prompt: " ",$P(Y,U,2)
    • Line Location: GETFOR+7
    Function Call: WRITE
    • Prompt: !,"No entries found.",!!
    • Line Location: GETFOR+9
    Function Call: WRITE
    • Prompt: !,?5,$P(VALUES(I),U,2)
    • Line Location: GETFOR+10
    Routine Call
    • DIE
    • Line Location:
      • ACTIVATE+8
    Routine Call
    • DIE
    • Line Location:
      • SETSUROX+6
      • SETSUROX+16
    Routine Call
    • DIR
    • Line Location:
      • OTHRSURO+4
      • CHKREMV+12
      • CHKREMV+15
      • GETFOR+7
      • GETFOR+11

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^TMP($J GETSURO+4
    ^XTV(8992 - [#8992] SETSUROX+2, ACTIVATE+2, ACTIVATE+3, CURRSURO+9, CURRSURO+11!, CURRSURO+12, CURRSURO+15, CURRSURO+17!, CURRSURO+18, CURRSURO+20
    , CURRSURO+23, CURRSURO+25, CURRSURO+32, ISACTIVE+2, SUROFOR+3

    Label References

    Name Line Occurrences
    $$CURRSURO ACTVSURO+4, ACTVSURO+5, GETSURO+2, SUROFOR+3
    $$CYCLIC SETSURO1+6
    $$GETSURO ACTVSURO+4, ACTVSURO+5
    $$SETSURO1 SETSURO+3
    ACTIVATE SETSUROX+19, CURRSURO+20
    REMVSURO ACTIVATE+4, CHKREMV+16, CURRSURO+29, CURRSURO+34
    SENDMESG SETSUROX+28
    SETSUROX SETSURO1+7
    SUROFOR GETFOR+9
    SURROGAT OTHRSURO+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACTIVE CURRSURO+2~
    COUNT SUROFOR+3~*, SUROFOR+4*, SUROFOR+5
    CURRSURO ACTVSURO+2~, ACTVSURO+4*, ACTVSURO+5*, ACTVSURO+6
    DATA ISACTIVE+1~, ISACTIVE+2*, ISACTIVE+3, ISACTIVE+4
    DATE CURRSURO+26~, CURRSURO+29*, CURRSURO+31*
    DIR OTHRSURO+1~, OTHRSURO+4!, CHKREMV+1~, CHKREMV+12!, CHKREMV+15!, GETFOR+1~, GETFOR+7!, GETFOR+11!
    DIR("?" CHKREMV+11*
    DIR("A" OTHRSURO+2*, OTHRSURO+3*, CHKREMV+10*, CHKREMV+14*, GETFOR+3*, GETFOR+4*, GETFOR+5*, GETFOR+6*
    DIR("B" CHKREMV+9*
    DIR(0 OTHRSURO+2*, CHKREMV+9*, CHKREMV+15*, GETFOR+2*, GETFOR+11*
    DIRUT GETFOR+1~, GETFOR+10!, GETFOR+13!
    DUZ SURROGAT+1
    GLOBREF GETSURO+3~, GETSURO+4*, GETSURO+5, GETSURO+6*, GETSURO+7, GETSURO+8
    I GETFOR+1~, GETFOR+10*, SUROFOR+3~*, SUROFOR+4
    IENS GETSURO+3~, GETSURO+4*, GETSURO+5, GETSURO+6
    IOSL GETFOR+10
    LIST SUROFOR~, SUROFOR+5*
    LIST( SUROFOR+4*
    NEXTSURO ACTVSURO+2~, ACTVSURO+5*
    NOW ACTVSURO+2~, ACTVSURO+3*, ACTVSURO+4, ACTVSURO+5
    SURODATA ACTVSURO+2~, ACTVSURO+4*, ACTVSURO+5*
    U OTHRSURO+4, ACTIVATE+2, ACTIVATE+4, CHKREMV+16, CURRSURO+12, CURRSURO+18, CURRSURO+20, CURRSURO+25, CURRSURO+29, CURRSURO+31
    , CURRSURO+32, ISACTIVE+2, ISACTIVE+3, ISACTIVE+4, ACTVSURO+4, ACTVSURO+5, GETSURO+7, GETFOR+7, GETFOR+10, SUROFOR+4
    VALUES GETFOR+1~, GETFOR+9
    VALUES( GETFOR+10
    X CURRSURO+2~, CURRSURO+23*, CURRSURO+25, CURRSURO+29, CURRSURO+31, GETSURO+3~, GETSURO+7*, GETSURO+9
    X0 ACTIVATE+1~, ACTIVATE+2*, ACTIVATE+3*, ACTIVATE+4
    XMCHAN SENDMESG+1~
    XMDUZ SENDMESG+1~, SENDMESG+3*
    XMSUB SETSUROX+20~, SETSUROX+25*
    XMTEXT SETSUROX+20~, SETSUROX+26*
    XMY SENDMESG+1~
    XMY( SENDMESG+3*
    XQA0 CURRSURO+2~, CURRSURO+20*
    XQACNT GETFOR+1~, GETFOR+10*
    XQAEND CYCLIC~, CYCLIC+3, CURRSURO~, CURRSURO+4, CURRSURO+12*, CURRSURO+18*
    XQAI CHKREMV+1~, CHKREMV+16*, CURRSURO+2~, CURRSURO+9*, CURRSURO+11, CURRSURO+12, CURRSURO+15*, CURRSURO+17, CURRSURO+18
    XQAIENS SETSUROX+1~, SETSUROX+8*, SETSUROX+12, SETSUROX+13, SETSUROX+15, SETSUROX+22, SETSUROX+25
    XQAIVAL CURRSURO+2~, CURRSURO+8*, CURRSURO+12*, CURRSURO+15, CURRSURO+18*, CURRSURO+20
    XQALEND SETSURO~, SETSURO+3, SETSUROX~, SETSUROX+14*, SETSUROX+15, SETSUROX+23, SETSUROX+24, ACTIVATE+1~, ACTIVATE+2*, ACTIVATE+7
    , SETSURO1~, SETSURO1+6, SETSURO1+7
    XQALFM SETSUROX+1~, SETSUROX+3~, ACTIVATE+1~, ACTIVATE+5!
    XQALFM( SETSUROX+12*, SETSUROX+13*, SETSUROX+15*
    XQALFM(8992 SETSUROX+5*, ACTIVATE+5*, ACTIVATE+6*, ACTIVATE+7*
    XQALFM1 SETSUROX+3~
    XQALFM1(1 SETSUROX+4*
    XQALIEN SETSUROX+1~, SETSUROX+16!, ACTIVATE~, ACTIVATE+2
    XQALIEN(1 SETSUROX+19
    XQALIST SUROLIST~, SUROLIST+2
    XQALSTRT SETSURO~, SETSURO+3, SETSUROX~, SETSUROX+10*, SETSUROX+12, SETSUROX+14, SETSUROX+19, SETSUROX+22, ACTIVATE+1~, ACTIVATE+2*
    , ACTIVATE+5, SETSURO1~, SETSURO1+4*, SETSURO1+6, SETSURO1+7, REMVSURO~, REMVSURO+3
    XQALSURO CYCLIC~, CYCLIC+1, CYCLIC+2, CYCLIC+3, CYCLIC+10, SETSURO~, SETSURO+3, SETSUROX~, SETSUROX+13, ACTIVATE+1~
    , ACTIVATE+2*, ACTIVATE+6, SETSURO1~, SETSURO1+3, SETSURO1+6, SETSURO1+7, SETSURO1+8, REMVSURO~, REMVSURO+3, SENDMESG+3
    XQALVAL SETSURO+2~, SETSURO+3*
    XQAMESG SETSUROX+20~
    XQAMESG(1 SETSUROX+21*
    XQAMESG(2 SETSUROX+22*, SETSUROX+23*
    XQAMESG(3 SETSUROX+24*
    XQANOW CURRSURO+2~, CURRSURO+7*, CURRSURO+9, CURRSURO+12, CURRSURO+18, CURRSURO+25, CURRSURO+29, CURRSURO+31
    XQAQUIT CHKREMV+1~, CHKREMV+6*, CHKREMV+12*, CHKREMV+13
    XQASLIST CHKREMV+1~, CHKREMV+6, CHKREMV+7, CHKREMV+8, CHKREMV+10, CHKREMV+15
    XQASLIST( CHKREMV+16
    XQASTR1 CURRSURO+2~, CURRSURO+8*, CURRSURO+9*, CURRSURO+15
    XQASTRT CYCLIC~, CYCLIC+3, CURRSURO~, CURRSURO+4, CURRSURO+9*, CURRSURO+11, CURRSURO+15*, CURRSURO+17, CURRSURO+20*
    XQASURO CURRSURO+32~
    XQASURO1 CURRSURO+32~*, CURRSURO+34
    XQAUSER OTHRSURO+1~, OTHRSURO+5*, SURROGAT+1~*, SURROGAT+2, CYCLIC~, CYCLIC+2, CYCLIC+3, SETSURO~, SETSURO+3, SETSUROX~
    , SETSUROX+2, SETSUROX+4, SETSUROX+5, SETSUROX+8, SETSUROX+19, SETSUROX+22, ACTIVATE~, ACTIVATE+2, ACTIVATE+3, ACTIVATE+4
    , ACTIVATE+5, ACTIVATE+6, ACTIVATE+7, SETSURO1~, SETSURO1+2, SETSURO1+6, SETSURO1+7, CHKREMV+7, CHKREMV+16, REMVSURO~
    , REMVSURO+2, REMVSURO+3, CURRSURO~, CURRSURO+3, CURRSURO+4, CURRSURO+9, CURRSURO+11, CURRSURO+12, CURRSURO+15, CURRSURO+17
    , CURRSURO+18, CURRSURO+20, CURRSURO+23, CURRSURO+25, CURRSURO+29, CURRSURO+32, CURRSURO+34, ISACTIVE~, ISACTIVE+2, ACTVSURO~
    , ACTVSURO+4, GETSURO~, GETSURO+2, GETSURO+4, GETFOR+1~, GETFOR+8*, GETFOR+9, SUROLIST~, SUROLIST+2, SUROFOR~
    , SUROFOR+2, SUROFOR+3
    XQAVAL SETSURO1+5~, SETSURO1+6*, CHKREMV+1~, CHKREMV+16*
    >> XTMUNIT SETSUROX+28
    Y OTHRSURO+1~, OTHRSURO+4, OTHRSURO+5, CHKREMV+1~, CHKREMV+12, CHKREMV+15*, CHKREMV+16, GETFOR+1~, GETFOR+7, GETFOR+8
    YVAL CHKREMV+1~, CHKREMV+16*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All