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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XQALBUTL

Package: Kernel

Routine: XQALBUTL


Information

XQALBUTL ; ISC-SF/JLI - Utilities for OE/RR notifications ;10/19/18 13:24

Source Information

Source file <XQALBUTL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 $$FIND1^DIC  $$GET1^DID  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 3 $$NOW^XLFDT  DELA^XQALDEL  $$ACTIVE^XUSER  
Toolkit 1 (GETLST,PUT)^XPAR  

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

Package Total Caller Graph
Order Entry Results Reporting 12 ORB3  ORB3C1  ORB3FUP1  ORB3MGR2  ORB3REC  ORB3SPEC  ORB3U1  ORB3U2  
ORB3UTL  ORBSMART  ORWORB  ORWTPR  
Kernel 2 XQALDATA  XQALDEL  
Registration 1 DGRPECE2  

Entry Points

Name Comments DBIA/ICR reference
EN ;
RECIPURG(XQX) ; SR. ICR #3010 (supported)
; Called by option ORB PURG RECIP - purge existing notifs: recipient/DUZ
  • ICR #3010
    • Status: Active
    • Usage: Supported
    PTPURG(DFN) ; SR. ICR #3010 (supported)
    ; Called by option ORB PURG PATIENT - purge existing notifs: patient
  • ICR #3010
    • Status: Active
    • Usage: Supported
    NOTIPURG(Y) ; SR. ICR #3010 (supported)
    ; Called by option ORB PURG NOTIF - purge existing notifs: notification
  • ICR #3010
    • Status: Active
    • Usage: Supported
    OLDPURG ;called by RECIPURG, PTPURG, NOTIPURG - KILLs specified alert entries
    AHISTORY(XQAID,ROOT) ; SR. ICR #2778 (supported)
    ; Returns information from alert tracking file for alert with XQAID as its alert ID. The data is returned desendent from the closed root passed in ROOT.
  • ICR #2788
    • Status: Active
    • Usage: Supported
    PENDING(XQAUSER,XQAID) ; SR. ICR #2778 (supported)
    ; Returns whether the user specified has the alert indicated by XQAID pending. (1=YES, 0=NO)
  • ICR #2788
    • Status: Active
    • Usage: Supported
    PKGPEND(XQAUSER,XQAPKG) ; SR. ICR #2778 (supported)
    ; Returns 1 if the user indicated by XQAUSER has any pending alerts with the first ';'-piece of XQAID contains the package identifier indicated by XQAPKG.
  • ICR #2788
    • Status: Active
    • Usage: Supported
    ALERTDAT(XQAID,ROOT) ; SR. ICR #2778 (supported)
    ; Returns information from alert tracking file for alert with XQAID in array XQALERTD. If the alert is not present, the array is undefined.
  • ICR #2788
    • Status: Active
    • Usage: Supported
    USERLIST(XQAID,ROOT) ; SR. ICR #2778 (supported)
    ; Returns recipients of alert with ID of XQAID from alert tracking file in array XQALUSER
  • ICR #2788
    • Status: Active
    • Usage: Supported
    USERDATA(XQAID,XQAUSER,ROOT) ; SR. ICR #2778 (supported)
    ; Returns information from alert tracking file related to alert with ID of XQAID for user specified by XQAUSER
  • ICR #2788
    • Status: Active
    • Usage: Supported
    MAKELIST(ARRAY,FILE,IENS) ; Makes a list of fields as subscripts in ARRAY with the values of the fields as the value. If internal and external differ, the value is given as internal^external.
    DELSTAT(XQAIDVAL,VALUES) ; .SR ICR #3197 (supported)
    BKUPREVW ;OPT - SET BACKUP REVIEWER(S) IN PARAMETER FILE - Moved from XQALDEL
    BK1 ; Select NEW PERSON entry as backup reviewer
    BK2
    NEWPERSN() ;
    ; Select a Backup Reviewer, then select parameter cases for this Backup
    ; Reviewer. You may then select another Backup Reviewer for additional
    ; parameter cases if necessary.
    NEWLOOP ;
    ENTTYPE(XQALVALS,XQALLAST) ;
    CHKCURR(ENTITY,XQALBKUP) ;
    GETINST(ENTITY,XQALBKUP) ;
    LOOP ;
    LISTCURR(XQALBKUP) ;
    LISTGET(XQALBKUP,XLIST) ;

    External References

    Name Field # of Occurrence
    $$FIND1^DIC LISTGET+2
    $$GET1^DID MAKELIST+16
    $$GET1^DIQ USERLIST+6, BK2+11, LOOP+3, LISTCURR+5, LISTCURR+6
    GETS^DIQ MAKELIST+5
    ^DIR BK2+7, NEWLOOP+3, ENTTYPE+3, LOOP+4, LOOP+8
    $$NOW^XLFDT RECIPURG+2, PTPURG+2, NOTIPURG+2
    GETLST^XPAR GETINST+2
    PUT^XPAR CHKCURR+2, CHKCURR+3
    DELA^XQALDEL OLDPURG+1
    $$ACTIVE^XUSER NEWLOOP+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: NEWLOOP+1
    Function Call: WRITE
    • Prompt: !,$C(7),"This is not an ACTIVE USER... Select an Active user",!
    • Line Location: NEWLOOP+4
    Function Call: WRITE
    • Prompt: " ...Done"
    • Line Location: CHKCURR+2
    Function Call: WRITE
    • Prompt: " ...Done"
    • Line Location: CHKCURR+3
    Function Call: WRITE
    • Prompt: !,"There "_$S(XQAA=1:"is",1:"are")_" currently "_XQAA_" instance"_$S(XQAA>1:"s",1:"")_" for this entity"
    • Line Location: LOOP+1
    Function Call: WRITE
    • Prompt: !,?5,+XQAA(I),?10,$$GET1^DIQ(200,IEN_",",.01)
    • Line Location: LOOP+3
    Function Call: WRITE
    • Prompt: $C(7),!!,"To "_$S(XQATYP="r":"REPLACE",1:"DELETE")_" an entry enter an instance number from the list."
    • Line Location: LOOP+11
    Function Call: WRITE
    • Prompt: !,"Currently Backup Reviewer for:"
    • Line Location: LISTCURR+3
    Function Call: WRITE
    • Prompt: !?10,$S(FILNUM=4:"Division",FILNUM=4.2:"System",FILNUM=49:"Service",FILNUM=200:"User",1:"UNKNOWN???")_":",?25,$$GET1^DIQ(FILNUM,ENTIEN_",",.01)
    • Line Location: LISTCURR+6
    Routine Call
    • DIC
    • Line Location:
      • LISTGET+2
    Routine Call
    • DIR
    • Line Location:
      • BK2+7
      • NEWLOOP+3
      • ENTTYPE+3
      • LOOP+4
      • LOOP+8

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^TMP("XQALMAKELIST" MAKELIST+3
    ^XTV(8989.5 - [#8989.5] LISTGET+3
    ^XTV(8992 - [#8992] RECIPURG+3, PTPURG+3, NOTIPURG+3, PENDING+2, PKGPEND+3
    ^XTV(8992.1 - [#8992.1] AHISTORY+4, AHISTORY+5, ALERTDAT+5, USERLIST+5, USERLIST+6, USERDATA+5, USERDATA+6, DELSTAT+3, DELSTAT+4, DELSTAT+5

    Label References

    Name Line Occurrences
    $$ENTTYPE BK2+3
    $$GETINST CHKCURR+1
    $$LISTGET LISTCURR+2
    $$NEWPERSN BK1+1
    CHKCURR BK2+7, BK2+11
    LISTCURR BK1+2
    LOOP LOOP+11
    MAKELIST ALERTDAT+6, USERDATA+7
    NEWLOOP NEWLOOP+4
    OLDPURG RECIPURG+3, PTPURG+3, NOTIPURG+3

    Naked Globals

    Name Field # of Occurrence
    ^( RECIPURG+3, PTPURG+3, NOTIPURG+3, PKGPEND+3, USERLIST+6, MAKELIST+9, DELSTAT+5, LISTGET+3
    ^("E" MAKELIST+9

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARRAY MAKELIST~, MAKELIST+2, MAKELIST+10, MAKELIST+13, MAKELIST+14, MAKELIST+16
    CNT LISTGET+1~, LISTGET+2*, LISTGET+3*, LISTGET+4
    DFN PTPURG~, PTPURG+3
    DIR BKUPREVW+1~, BK2+8!, NEWLOOP+3!, ENTTYPE+3!, GETINST+1~, LOOP+4!, LOOP+8!
    DIR("A" BK2+6*, NEWLOOP+1*, NEWLOOP+2*, ENTTYPE+1!, LOOP+4*, LOOP+8*
    DIR(0 BK2+6*, NEWLOOP+1*, ENTTYPE+3*, LOOP+4*, LOOP+8*
    DIRUT BKUPREVW+1~, BK1+1, BK2+3!, NEWLOOP+3!, ENTTYPE+3!, GETINST+1~, LOOP+4!, LOOP+8!
    ENT LISTCURR+1~, LISTCURR+4*, LISTGET+1~, LISTGET+3*
    ENT1 LISTGET+1~, LISTGET+3*
    ENTFIL LISTCURR+1~, LISTCURR+5*
    ENTIEN LISTCURR+1~, LISTCURR+5*, LISTCURR+6
    ENTITY CHKCURR~, CHKCURR+1, CHKCURR+2, CHKCURR+3, GETINST~, GETINST+2
    ERR BKUPREVW+1~, CHKCURR+2, CHKCURR+3
    FIELD MAKELIST+1~, MAKELIST+6*, MAKELIST+8, MAKELIST+9, MAKELIST+10, MAKELIST+11, MAKELIST+13, MAKELIST+14, MAKELIST+16
    FILE MAKELIST~, MAKELIST+5, MAKELIST+6, MAKELIST+14, MAKELIST+16
    FILNAM LISTCURR+1~, LISTCURR+5*
    FILNUM LISTCURR+1~, LISTCURR+5*, LISTCURR+6
    I PKGPEND+2~, PKGPEND+3*, USERLIST+2~, USERLIST+6*, DELSTAT+1~, DELSTAT+5*, ENTTYPE+2*, GETINST+1~, LOOP+3*
    IEN ALERTDAT+2~, ALERTDAT+5*, ALERTDAT+6, USERLIST+2~, USERLIST+5*, USERLIST+6, USERDATA+2~, USERDATA+5*, USERDATA+6, USERDATA+7
    , GETINST+1~, LOOP+3*, LISTGET+1~, LISTGET+3*
    IEN2 USERDATA+2~, USERDATA+6*, USERDATA+7
    IENS MAKELIST~, MAKELIST+5, MAKELIST+6, MAKELIST+14
    IMAX GETINST+1~, LOOP+3*, LOOP+8
    INST LISTGET+1~, LISTGET+3*
    ISELF GETINST+1~, LOOP+2*, LOOP+3*, LOOP+4
    J GETINST+1~, LOOP+5*, LOOP+6*
    N USERLIST+2~, USERLIST+6*
    NVALS LISTCURR+1~, LISTCURR+2*
    PARAMIEN LISTGET+1~, LISTGET+2*, LISTGET+3
    ROOT AHISTORY~, AHISTORY+3, AHISTORY+5, ALERTDAT~, ALERTDAT+3*, ALERTDAT+4, ALERTDAT+5, ALERTDAT+6, USERLIST~, USERLIST+3*
    , USERLIST+4, USERLIST+5, USERLIST+6, USERDATA~, USERDATA+3*, USERDATA+4, USERDATA+5, USERDATA+6, USERDATA+7, MAKELIST+1~
    , MAKELIST+3*, MAKELIST+4, MAKELIST+5, MAKELIST+6, MAKELIST+14, MAKELIST+17
    U PKGPEND+3, USERLIST+6, MAKELIST+9, DELSTAT+5, BK2+6, BK2+7, ENTTYPE+2, LOOP+3, LISTCURR+5
    VALUES DELSTAT~, DELSTAT+2!*, DELSTAT+5*
    VALUES( DELSTAT+5*
    X AHISTORY+2~, AHISTORY+4*, AHISTORY+5, PKGPEND+2~, PKGPEND+3*, PKGPEND+4, USERLIST+2~, USERLIST+6*, MAKELIST+1~, MAKELIST+9*
    , MAKELIST+10, MAKELIST+14*, DELSTAT+1~, DELSTAT+5*, BK2+3, NEWLOOP+3, ENTTYPE+3, LISTCURR+1~, LISTCURR+5*, LISTGET+1~
    , LISTGET+3*
    X1 DELSTAT+1~, DELSTAT+5*
    >> X2 DELSTAT+5*
    XLIST LISTCURR+1~, LISTCURR+2, LISTGET~
    XLIST( LISTCURR+4, LISTGET+3*
    XQA RECIPURG+2~, RECIPURG+3*, PTPURG+2~, PTPURG+3*, NOTIPURG+2~, NOTIPURG+3*, OLDPURG+1
    XQAA GETINST+1~, GETINST+2, LOOP+1, LOOP+8
    XQAA( LOOP+3, LOOP+6, LOOP+9, LOOP+10
    XQADAT RECIPURG+2~*, PTPURG+2~*, NOTIPURG+2~*
    XQADATE DELSTAT+1~, DELSTAT+2*, DELSTAT+3*
    >> XQAENT BK2+7*
    XQAFN DELSTAT+1~, DELSTAT+4*, DELSTAT+5
    XQAI GETINST+1~, LOOP+6*, LOOP+9*, LOOP+10
    XQAID OLDPURG+1~*, AHISTORY~, AHISTORY+4, PENDING~, PENDING+2, ALERTDAT~, ALERTDAT+5, USERLIST~, USERLIST+5, USERDATA~
    , USERDATA+5, DELSTAT+1~, DELSTAT+2*, DELSTAT+3*, DELSTAT+4
    XQAIDVAL DELSTAT~, DELSTAT+2, DELSTAT+3
    >> XQAINST CHKCURR+1*, CHKCURR+2, CHKCURR+3
    XQALBKUP BKUPREVW+1~, BK1+1*, BK1+2, BK2+6, BK2+7, BK2+11, CHKCURR~, CHKCURR+1, CHKCURR+2, GETINST~
    , LOOP+3, LISTCURR~, LISTCURR+2, LISTGET~, LISTGET+3
    XQALCASE BKUPREVW+1~, BK2+3*, BK2+5, BK2+6, BK2+7, BK2+11, ENTTYPE+2*, ENTTYPE+3
    XQALLAST BK2+1~, BK2+2*, BK2+3, BK2+5, BK2+11, ENTTYPE~, ENTTYPE+2
    XQALVALS BK2+1~, BK2+3, ENTTYPE~
    XQALVALS( BK2+6, BK2+7, ENTTYPE+2
    XQALVALS(1 BK2+2*
    XQALVALS(2 BK2+2*
    XQALVALS(3 BK2+2*
    XQALVALS(4 BK2+2*
    XQALX MAKELIST+12~, MAKELIST+14*
    XQAPKG PKGPEND~, PKGPEND+3
    XQATYP GETINST+1~, LOOP+5*, LOOP+8, LOOP+11, LOOP+12
    XQAUSER PENDING~, PENDING+2, PKGPEND~, PKGPEND+3, USERDATA~, USERDATA+6
    XQAVAL GETINST+1~, LOOP+12*, LOOP+13
    XQAX DELSTAT+1~, DELSTAT+2*, DELSTAT+3*
    >> XQERR GETINST+2
    XQIEN LISTCURR+1~, LISTCURR+4*, LISTCURR+5
    XQK RECIPURG+2~, RECIPURG+3*, PTPURG+2~, PTPURG+3*, NOTIPURG+2~, NOTIPURG+3*
    XQPARAM BKUPREVW+1~, BKUPREVW+2*, CHKCURR+2, CHKCURR+3, GETINST+2
    XQX RECIPURG~, RECIPURG+3, PTPURG+2~, PTPURG+3*, NOTIPURG+2~, NOTIPURG+3*
    Y NOTIPURG~, NOTIPURG+3, BK2+7, BK2+11*, NEWLOOP+4, NEWLOOP+5, ENTTYPE+4, GETINST+1~, LOOP+4, LOOP+5
    , LOOP+7, LOOP+8*, LOOP+9, LOOP+10*, LOOP+11, LOOP+12
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All