BQIDCLK ;PRXM/HC/DB-Patient Diagnostic Tag Lock/Unlock Functions ; 18 Mar 2008 4:03 PM
Source file <BQIDCLK.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,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 | ;
|
RPC Name | Call Tags |
---|---|
BQI LOCK PATIENT BY DX TAG | LOCK |
BQI UNLOCK PATIENT BY DX TAG | UNLOCK |
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 | Line Occurrences |
---|---|
INV | LOCK+34, LOCK+36 |
UPD | LOCK+55, UNLOCK+39, INV+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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 |