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

Package Total Caller Graph
Order Entry Results Reporting 11 ORB3  ORB3C1  ORB3FUP1  ORB3MGR2  ORB3REC  ORB3SPEC  ORB3U1  ORB3UTL  
ORBSMART  ORWORB  ORWTPR  
Kernel 1 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
PTPURG(DFN) ; SR. ICR #3010 (supported)
; Called by option ORB PURG PATIENT - purge existing notifs: patient
NOTIPURG(Y) ; SR. ICR #3010 (supported)
; Called by option ORB PURG NOTIF - purge existing notifs: notification
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.
PENDING(XQAUSER,XQAID) ; SR. ICR #2778 (supported)
; Returns whether the user specified has the alert indicated by XQAID pending. (1=YES, 0=NO)
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.
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.
USERLIST(XQAID,ROOT) ; SR. ICR #2778 (supported)
; Returns recipients of alert with ID of XQAID from alert tracking file in array XQALUSER
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
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