Routine: BQIDCLK

Package	Total	Call Graph
Kernel	2	^%ZTER ($$DT,$$FMADD,$$NOW)^XLFDT
VA Fileman	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
UNLOCK(DATA,DFN,DCAT)	; EP - BQI UNLOCK PATIENT BY DX TAG ; Description ; Unlock the patient diagnostic tag record specified by DCAT which was ; previously locked for exclusive editing access. If the ; entry in the 'LAST LOCKED BY' field is for this DUZ then ; delete it (so another user can't accidentally update it). ; Input: ; DFN - Patient IEN ; DCAT - Diagnostic tag defined in ^BQI(90506.2 ; Output: ; DATA = name of global (passed by reference) in which the data is stored
INV	; Invalid dx tag passed - either a subdefinition or not in the file
UPD	; Report results
LOCK(DATA,DFN,DCAT)	; EP - BQI LOCK PATIENT BY DX TAG ; Description ; Attempt to lock a patient diagnostic tag record specified by DCAT for ; exclusive editing access. ; If successful, sets 'LAST LOCKED BY' with the current DUZ ; and returns a RESULT of 1 and the current DUZ. ; If unsuccessful, returns a RESULT of 0 and the DUZ from the ; 'LAST LOCKED BY' field. ; Input: ; DFN - Patient IEN ; DCAT - Diagnostic tag defined in ^BQI(90506.2
ERR	;

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^BQI(90506.2 - [#90506.2]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BQI(90506.2 - [#90506.2]	LOCK+34
^BQIREG - [#90509]	LOCK+42, UNLOCK+37
^DD("DD"	ERR+5
^TMP("BQIDCLK"	LOCK+24, LOCK+25!, UNLOCK+18, UNLOCK+19!
^XTMP("BQIDCLK"	LOCK+46, LOCK+52, LOCK+53, UNLOCK+30, UNLOCK+33!, ERR+2!

Name	Field # of Occurrence
>> BMXSEC	ERR+6*
BQII	LOCK+22~, LOCK+30, UNLOCK+16~, UNLOCK+24, UPD+1, UPD+2
DATA	LOCK~, LOCK+24, LOCK+30, UNLOCK~, UNLOCK+18, UNLOCK+24, UPD+1, UPD+2
DCAT	LOCK~, LOCK+34, LOCK+42, LOCK+46, LOCK+53, UNLOCK~, UNLOCK+30, UNLOCK+33, UNLOCK+37, ERR+2
DCATIEN	LOCK+22~, LOCK+34*, LOCK+36
DFN	LOCK~, LOCK+42, LOCK+46, LOCK+53, UNLOCK~, UNLOCK+30, UNLOCK+33, UNLOCK+37, ERR+2
DT	LOCK+52
DUZ	LOCK+53, UNLOCK+33, ERR+2
ERRDTM	ERR+4~, ERR+5*, ERR+6
MSG	LOCK+22~, LOCK+32, LOCK+49, UNLOCK+16~, UNLOCK+28, UPD+1, INV+1
>> NAME	LOCK+47, LOCK+48, LOCK+49
RDATA	UNLOCK+16~
REGIEN	UNLOCK+16~
RESULT	LOCK+22~, LOCK+41, LOCK+42, LOCK+45, LOCK+51, UNLOCK+26~, UNLOCK+36, UPD+1, INV+1
U	LOCK+52
UID	LOCK+22~, LOCK+23, LOCK+24, LOCK+25, UNLOCK+16~, UNLOCK+17, UNLOCK+18, UNLOCK+19
USER	LOCK+38~, LOCK+46, LOCK+47, UNLOCK+26~, UNLOCK+30, UNLOCK+33
X	LOCK+22~, UNLOCK+16~
Y	ERR+4~, ERR+5*
>> ZTSK	LOCK+23, UNLOCK+17

RPC Name	Call Tags
BQI LOCK PATIENT BY DX TAG	LOCK
BQI UNLOCK PATIENT BY DX TAG	UNLOCK