BQIULLK ;PRXM/HC/DB-Miscellaneous BQI utilities - Lock/Unlock Functions ; 28 May 2008 4:03 PM
Source file <BQIULLK.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ^%ZTER ($$DT,$$FMADD,$$NOW)^XLFDT |
VA Fileman | 1 | $$GET1^DIQ |
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 | ;
|
RPC Name | Call Tags |
---|---|
BQI LOCK RECORD BY TYPE | LOCK |
BQI UNLOCK RECORD BY TYPE | UNLOCK |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
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 | Line Occurrences |
---|---|
UPD | LOCK+50, UNLOCK+40 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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 |