©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BQIPLLK ;VNGT/HS/KJH-Panel Lock/Unlock Functions ; 23 Feb 2006 5:08 PM
Source file <BQIPLLK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UNLOCK(DATA,OWNR,PLIEN) | ; EP -- BQI UNLOCK PANEL
; Description ; Unlock the panel specified by OWNR and PLIEN 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: ; OWNR - Owner of the panel to be unlocked ; PLIEN - Panel IEN to be unlocked ; Output: ; DATA = name of global (passed by reference) in which the data is stored |
|
| UULK(DATA,OWNR) | ; EP -- BQI UNLOCK ICARE USER
|
|
| LOCK(DATA,OWNR,PLIEN) | ; EP -- BQI LOCK PANEL
; Description ; Attempt to lock the panel specified by OWNR and PLIEN 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: ; OWNR - Owner of the panel to be locked ; PLIEN - Panel IEN to be locked ; Output: ; DATA = name of global (passed by reference) in which the data is stored |
|
| ERR | ;
|
|
| ULK(DATA,OWNR) | ; EP -- BQI LOCK ICARE USER
; Input: ; OWNR - Owner of the panel to be locked ; ; RESULT = 1 if the lock succeeded ; = 0 if the lock failed |
| RPC Name | Call Tags |
|---|---|
| BQI LOCK PANEL | LOCK |
| BQI UNLOCK PANEL | UNLOCK |
| BQI LOCK ICARE USER | ULK |
| BQI UNLOCK ICARE USER | UULK |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| 90505.01 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BQICARE - [#90505] | LOCK+32, LOCK+39, LOCK+53, UNLOCK+42, ULK+19, UULK+14 |
| ^DD("DD" | ERR+3 |
| ^TMP("BQIPLLK" | LOCK+22, LOCK+23!, LOCK+28*, LOCK+60*, LOCK+61*, UNLOCK+18, UNLOCK+19!, UNLOCK+24*, UNLOCK+45*, UNLOCK+46* |
| ^TMP("BQIPLULK" | ULK+8 |
| ^TMP("BQIPLUULK" | UULK+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BMXSEC | LOCK+31*, LOCK+32*, LOCK+49*, LOCK+53, UNLOCK+37*, ERR+4* |
| BQII | LOCK+20~, LOCK+28*, LOCK+60*, LOCK+61*, UNLOCK+16~, UNLOCK+24*, UNLOCK+45*, UNLOCK+46*, ULK+6~, ULK+10* , ULK+15, ULK+22*, ULK+23*, UULK+1~, UULK+5*, UULK+10, UULK+17*, UULK+18* |
| BQINEW | LOCK+46~, UNLOCK+34~ |
| BQINEW( | LOCK+47*, UNLOCK+35* |
| DA | LOCK+34~, LOCK+35*, UNLOCK+26~, UNLOCK+27* |
| DA(1 | LOCK+35*, UNLOCK+27* |
| DATA | LOCK~, LOCK+22*, UNLOCK~, UNLOCK+18*, ULK~, ULK+8*, ULK+9, ULK+15, ULK+22, ULK+23 , UULK~, UULK+3*, UULK+4, UULK+10, UULK+17, UULK+18 |
| DUZ | LOCK+47, UNLOCK+33, ULK+10, UULK+5 |
| ERRDTM | ERR+2~, ERR+3*, ERR+4 |
| ERROR | LOCK+34~, LOCK+49, UNLOCK+26~, UNLOCK+37 |
| IENS | LOCK+34~, LOCK+35*, LOCK+42, LOCK+47, UNLOCK+26~, UNLOCK+27*, UNLOCK+30, UNLOCK+35 |
| NAME | LOCK+34~, LOCK+56*, LOCK+57*, LOCK+60 |
| OWNR | LOCK~, LOCK+32, LOCK+35, LOCK+39, LOCK+53, UNLOCK~, UNLOCK+27, UNLOCK+42, ULK~, ULK+10* , ULK+19, UULK~, UULK+5*, UULK+14 |
| PLIEN | LOCK~, LOCK+31, LOCK+32, LOCK+35, LOCK+39, LOCK+53, UNLOCK~, UNLOCK+27, UNLOCK+42 |
| RESULT | LOCK+34~, LOCK+38*, LOCK+39*, LOCK+42, LOCK+45, LOCK+60, UNLOCK+26~, UNLOCK+41*, UNLOCK+45, ULK+6~ , ULK+18*, ULK+19*, ULK+22, UULK+1~, UULK+13*, UULK+17 |
| UID | LOCK+20~, LOCK+21*, LOCK+22, LOCK+23, LOCK+28, LOCK+60, LOCK+61, UNLOCK+16~, UNLOCK+17*, UNLOCK+18 , UNLOCK+19, UNLOCK+24, UNLOCK+45, UNLOCK+46, ULK+6~, ULK+7*, ULK+8, UULK+1~, UULK+2*, UULK+3 |
| USER | LOCK+34~, LOCK+35*, LOCK+42*, LOCK+47*, LOCK+56, LOCK+60, UNLOCK+26~, UNLOCK+30*, UNLOCK+33 |
| X | LOCK+20~, UNLOCK+16~, ULK+6~, UULK+1~ |
| Y | ERR+2~, ERR+3* |
| >> ZTSK | LOCK+21, UNLOCK+17, ULK+7, UULK+2 |