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 ;07/24/12 10:24

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

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 19

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 1 TIUADSIG  
VistA Integration Adapter 1 VIABRPC  

Entry Points

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

    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+7, CHKREMV+8, GETFOR+7, GETFOR+11
    $$FMADD^XLFDT SETSUROX+14
    $$FMTE^XLFDT SETSUROX+22, SETSUROX+24, CHKREMV+5
    $$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 CHKREMV+3, SUROLIST+2
    SURRO1^XQALSUR1 SURROGAT+2
    CHEKSUBS^XQALSUR2 CURRSURO+3
    $$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: !,"Current Surrogate(s):",?35,"START DATE",?60,"END DATE"
    • Line Location: CHKREMV+4
    Function Call: WRITE
    • Prompt: !,XQAI," ",$P(XQASLIST(XQAI),U,2),?35,$$FMTE^XLFDT($P(XQASLIST(XQAI),U,3)),?60,$$FMTE^XLFDT($P(XQASLIST(XQAI),U,4))
    • Line Location: CHKREMV+5
    Function Call: WRITE
    • Prompt: !," No current surrogates",!
    • Line Location: CHKREMV+6
    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:
      • SETSUROX+6
      • SETSUROX+16
    Routine Call
    • DIE
    • Line Location:
      • ACTIVATE+8
    Routine Call
    • DIR
    • Line Location:
      • OTHRSURO+4
      • CHKREMV+7
      • CHKREMV+8
      • 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+10, CURRSURO+13, CURRSURO+14, CURRSURO+16, CURRSURO+19, CURRSURO+21
    , CURRSURO+28, CURRSURO+36, 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
    $$ISACTIVE CURRSURO+36
    $$SETSURO1 SETSURO+3
    ACTIVATE SETSUROX+19, CURRSURO+16
    REMVSURO ACTIVATE+4, CHKREMV+9, CURRSURO+25, CURRSURO+30, CURRSURO+40, CURRSURO+41
    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+22~, CURRSURO+25*, CURRSURO+27*, CURRSURO+31, CURRSURO+36*, CURRSURO+40, CURRSURO+41, CURRSURO+42*, CURRSURO+44
    DATE1 CURRSURO+38~*, CURRSURO+40, CURRSURO+41
    DIR OTHRSURO+1~, OTHRSURO+4!, CHKREMV+1~, CHKREMV+7!, CHKREMV+8!, GETFOR+1~, GETFOR+7!, GETFOR+11!
    DIR("?" CHKREMV+7*
    DIR("A" OTHRSURO+2*, OTHRSURO+3*, CHKREMV+7*, CHKREMV+8*, GETFOR+3*, GETFOR+4*, GETFOR+5*, GETFOR+6*
    DIR(0 OTHRSURO+2*, CHKREMV+7*, CHKREMV+8*, 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+5, CHKREMV+9, CURRSURO+10, CURRSURO+14, CURRSURO+16, CURRSURO+21, CURRSURO+25
    , CURRSURO+27, CURRSURO+28, CURRSURO+36, 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+19*, CURRSURO+21, CURRSURO+25, CURRSURO+27, 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+16*
    XQACNT GETFOR+1~, GETFOR+10*
    XQAEND CYCLIC~, CYCLIC+3, CURRSURO~, CURRSURO+4, CURRSURO+10*, CURRSURO+14*
    XQAI CHKREMV+1~, CHKREMV+5*, CHKREMV+9*, CURRSURO+2~, CURRSURO+9*, CURRSURO+10, CURRSURO+13*, CURRSURO+14
    XQAIENS SETSUROX+1~, SETSUROX+8*, SETSUROX+12, SETSUROX+13, SETSUROX+15, SETSUROX+22, SETSUROX+25
    XQAIVAL CURRSURO+2~, CURRSURO+8*, CURRSURO+10*, CURRSURO+13, CURRSURO+14*, CURRSURO+16
    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
    XQALLIST CURRSURO+31~, CURRSURO+42!
    XQALLIST( CURRSURO+31*, CURRSURO+37, CURRSURO+38, CURRSURO+44*
    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+10, CURRSURO+14, CURRSURO+21, CURRSURO+25, CURRSURO+27, CURRSURO+36
    XQASLIST CHKREMV+1~, CHKREMV+3, CHKREMV+6, CHKREMV+7, CHKREMV+8
    XQASLIST( CHKREMV+5, CHKREMV+9
    XQASTR1 CURRSURO+2~, CURRSURO+8*, CURRSURO+9*, CURRSURO+13
    XQASTRT CYCLIC~, CYCLIC+3, CURRSURO~, CURRSURO+4, CURRSURO+9*, CURRSURO+13*, CURRSURO+16*
    XQASURO CURRSURO+28~, CURRSURO+36*, CURRSURO+40, CURRSURO+42*, CURRSURO+44
    XQASURO1 CURRSURO+28~*, CURRSURO+30, CURRSURO+35*, CURRSURO+36*, CURRSURO+37, CURRSURO+38, CURRSURO+41
    XQAUDATE CURRSURO+31~*, CURRSURO+42
    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+3, CHKREMV+9, REMVSURO~
    , REMVSURO+2, REMVSURO+3, CURRSURO~, CURRSURO+3, CURRSURO+4, CURRSURO+9, CURRSURO+10, CURRSURO+13, CURRSURO+14, CURRSURO+16
    , CURRSURO+19, CURRSURO+21, CURRSURO+25, CURRSURO+28, CURRSURO+30, CURRSURO+31, CURRSURO+35, CURRSURO+42, 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+9*
    >> XTMUNIT SETSUROX+28
    Y OTHRSURO+1~, OTHRSURO+4, OTHRSURO+5, CHKREMV+1~, CHKREMV+7, CHKREMV+8*, CHKREMV+9, GETFOR+1~, GETFOR+7, GETFOR+8
    YVAL CHKREMV+1~, CHKREMV+9*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All