Routine: XQALBUTL

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

Package	Total	Caller Graph
Order Entry Results Reporting	6	ORB3C1 ORB3MGR2 ORB3REC ORB3SPEC ORB3U1 ORWTPR
IHS Changes To Lab	1	BLRUTIL7
Kernel	1	XQALDEL
Registration	1	DGRPECE2

Entry Points

Name	Comments	DBIA/ICR reference
LISTCURR(XQALBKUP)	;
LISTGET(XQALBKUP,XLIST)	;
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
BKUPREVW	;OPT - SET BACKUP REVIEWER(S) IN PARAMETER FILE - Moved from XQALDEL
CHKCURR(ENTITY,XQALBKUP)	;
NOTIPURG(Y)	; SR. ICR #3010 (supported) ; Called by option ORB PURG NOTIF - purge existing notifs: notification	ICR #3010 Status: Active Usage: Supported
NEWLOOP	;
OLDPURG	;called by RECIPURG, PTPURG, NOTIPURG - KILLs specified alert entries
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
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.
EN	;
GETINST(ENTITY,XQALBKUP)	;
BK1	; Select NEW PERSON entry as backup reviewer
BK2
RECIPURG(XQX)	; SR. ICR #3010 (supported) ; Called by option ORB PURG RECIP - purge existing notifs: recipient/DUZ	ICR #3010 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
ENTTYPE(XQALVALS,XQALLAST)	;
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
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
PTPURG(DFN)	; SR. ICR #3010 (supported) ; Called by option ORB PURG PATIENT - purge existing notifs: patient	ICR #3010 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)
LOOP	;

External References

Name	Field # of Occurrence
$$FIND1^DIC	LISTGET+2
$$GET1^DID	MAKELIST+6
$$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+6, DELSTAT+5, LISTGET+3
^("E"	MAKELIST+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	MAKELIST~, MAKELIST+2, MAKELIST+6
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*
FILE	MAKELIST~, MAKELIST+5, MAKELIST+6
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
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+7
U	PKGPEND+3, USERLIST+6, MAKELIST+6, 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+6 , 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*
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

Customize PDF page

Package: Kernel

Routine: XQALBUTL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: