Routine: BQIULLK

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,TYPE)	; EP - BQI UNLOCK RECORD BY TYPE ; Description ; Unlock a record type (problem, family history, etc. - specified by TYPE) ; for a patient 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 ; TYPE - Type of record to be locked for this patient ; Output: ; DATA = name of global (passed by reference) in which the data is stored
LOCK(DATA,DFN,TYPE)	; EP - BQI LOCK RECORD BY TYPE ; Description ; Attempt to lock a record type (problem, family history, etc.) for a patient ; 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 ; TYPE - Type of record to be locked for this patient
UPD	; Report results
ERR	;

Name	Line Occurrences (* Changed, ! Killed)
^BQILOCK(	LOCK+37, UNLOCK+38
^DD("DD"	ERR+5
^TMP("BQIULLK"	LOCK+24, LOCK+25!, UNLOCK+19, UNLOCK+20!
^XTMP("BQIULLK"	LOCK+41, LOCK+47, LOCK+48, UNLOCK+31, UNLOCK+34!, ERR+2!

Name	Field # of Occurrence
>> BMXSEC	LOCK+21, UNLOCK+16, ERR+6*
BQII	LOCK+22~, LOCK+30, UNLOCK+17~, UNLOCK+25, UPD+1, UPD+2
DATA	LOCK~, LOCK+24, LOCK+30, UNLOCK~, UNLOCK+19, UNLOCK+25, UPD+1, UPD+2
>> DCAT	ERR+2
DCATIEN	LOCK+22~
DFN	LOCK~, LOCK+37, LOCK+41, LOCK+48, UNLOCK~, UNLOCK+31, UNLOCK+34, UNLOCK+38, ERR+2
DT	LOCK+47
DUZ	LOCK+48, UNLOCK+34, ERR+2
ERRDTM	ERR+4~, ERR+5*, ERR+6
MSG	LOCK+22~, LOCK+32, LOCK+44, UNLOCK+17~, UNLOCK+29*, UPD+1
>> NAME	LOCK+42, LOCK+43, LOCK+44
RDATA	UNLOCK+17~
REGIEN	UNLOCK+17~
RESULT	LOCK+22~, LOCK+36, LOCK+37, LOCK+40, LOCK+46, UNLOCK+27~, UNLOCK+37*, UPD+1
TYPE	LOCK~, LOCK+21, LOCK+24, LOCK+25, LOCK+37, LOCK+41, LOCK+47, LOCK+48, UNLOCK~, UNLOCK+16 , UNLOCK+19, UNLOCK+20, UNLOCK+31, UNLOCK+34, UNLOCK+38, ERR+2
U	LOCK+47
UID	LOCK+22~, LOCK+23, LOCK+24, LOCK+25, UNLOCK+17~, UNLOCK+18, UNLOCK+19, UNLOCK+20
USER	LOCK+33~, LOCK+41, LOCK+42, UNLOCK+27~, UNLOCK+31, UNLOCK+34
X	LOCK+22~, UNLOCK+17~
Y	ERR+4~, ERR+5*
>> ZTSK	LOCK+23, UNLOCK+18