Routine: XQCHK

Information

XQCHK ; SEA/MJM - Check security on option # XQCY ;4/28/11

Source file <XQCHK.m>

Package	Total	Call Graph
Kernel	4	XQO^XQ92 ($$CHCKL,$$CHCKRL,$$CHKOOO)^XQCHK2 ($$ACCESS,OPACCES)^XQCHK3 ^XQDATE

Package	Total	Caller Graph
Kernel	9	XQ12 XQ71 XQ72 XQ74 XQ75 XQSTCK XQT XQTOC XUS5
Order Entry Results Reporting	5	ORCHTAB ORQPT2 ORWRA ORWU ORY148
PCE Patient Care Encounter	2	PXRRGPRT PXRRPCR
Registration	2	DGQPT2 DGSEC
Barcode Medication Administration	1	ALPBGEN2
Clinical Reminders	1	PXRMXPR
Health Summary	1	GMTSHCPR
HealtheVet Desktop	1	XHDX

Name	Comments	DBIA/ICR reference
OP1()	;Extrinsic function call returns 3 pieces: 1. "P", "O", or "U" for
SET	;Produce the same XQY0 as SET1^XQ7 without the synonym
ACCESS(%XQUSR,%XQOP)	;Find out if a user has access to a particular option	ICR #10078 Status: Active Usage: Supported
JMP	;Check all options in jump path in %XQJP returned as "" if not OK
CHK
KEYSET(XQU)	;Collect users keys and set them into ^TMP($J)
OPACCES	;Entry point for the option that checks to see if a user has
MES	;Messages for rejected options from a call to XQCHK
OP	;Find out what option or protocol is in charge right now	ICR #10078 Status: Active Usage: Supported
S1
OUT

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: MES+1
Function Call: WRITE	Prompt: !!?5,"==> Sorry, ",$S($D(XQPRMN):"your Primary Menu",1:"this option")," is out of order with the message:",!?10,$P(^DIC(19,XQY,0),U,3) Line Location: MES+2
Function Call: WRITE	Prompt: !!?5,"==> Sorry, ",$S($D(XQPRMN):"your Primary Menu",1:"this option")," is locked." Line Location: MES+3
Function Call: WRITE	Prompt: !!?5,"==> Sorry, ",$S($D(XQPRMN):"your Primary Menu",1:"this option")," has a reverse lock on it." Line Location: MES+4
Function Call: WRITE	Prompt: !!?5,"==> Sorry, ",$S($D(XQPRMN):"your Primary Menu",1:"this option")," not allowed right now." Line Location: MES+5
Function Call: WRITE	Prompt: !!?5,"==> Sorry, ",$S($D(XQPRMN):"your Primary Menu",1:"this option")," not allowed on this device." Line Location: MES+6

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	XQCHK+5, CHK+9, SET+1, S1, S1+1, S1+3, MES+2, OP+4, OP1+9
^DIC(19.1 - [#19.1]	KEYSET+2
^TMP($J	KEYSET+2*
^VA(200 - [#200]	KEYSET+2
^XUTL("XQO"	JMP+2

Name	Field # of Occurrence
%	CHK+7, CHK+9, OUT!, S1+1, S1+2, S1+3, S1+4!, OP1+6~, OP1+8, OP1+9* , OP1+10, OP1+11, KEYSET+1~, KEYSET+2
%XQ	OP+2, OP+3, OP+4, OP+6!, OP1+6~, OP1+7, OP1+8, OP1+9
%XQ1	OP+3, OP+4, OP+6!, OP1+6~, OP1+8, OP1+9
%XQCI	JMP+2*, JMP+3!
%XQI	CHK+9, OUT!, S1+1, S1+4!
>> %XQJP	JMP+2*
%XQOP	ACCESS~, ACCESS+1
%XQUSR	ACCESS~, ACCESS+1
%Y	OUT!
DUZ	CHK+3, CHK+5
>> IOS	CHK+9
U	CHK+7, CHK+8, JMP+2, S1, S1+1, S1+2, S1+3, MES+2, OP+2, OP+3 , OP+4, OP1+7, OP1+8, OP1+9, OP1+10, KEYSET+2
>> X	CHK+7*
XQCY	XQCHK+4, XQCHK+5, XQCHK+6, CHK, CHK+2, CHK+3, CHK+5, CHK+7, CHK+9, CHK+10 , JMP+2*, JMP+3!, MES+2, MES+3, MES+4, MES+5, MES+6
XQCY0	XQCHK+6, CHK, CHK+2, CHK+3, CHK+5, CHK+7, CHK+8, OUT!, JMP+2, JMP+3!
>> XQDIC	JMP+2
XQI	KEYSET+1~, KEYSET+2*
>> XQJMP	XQCHK+4, JMP+1
>> XQOPT	OP+3, OP+4, OP+5*
>> XQORNOD	OP+3, OP+4, OP1+8, OP1+9
>> XQPRMN	MES+2, MES+3, MES+4, MES+5, MES+6
XQRT	CHK+2~, CHK+3~, CHK+5~*
>> XQSAV	XQCHK+6*
XQU	KEYSET~, KEYSET+2
>> XQY	XQCHK+6, SET+1, S1, S1+1, S1+3, MES+2, OP+4, OP1+9
>> XQY0	XQCHK+5, XQCHK+6, S1, S1+2, S1+3*
XQZ	CHK+7*, OUT!