©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
BQIRGLK ;PRXM/HC/DB-Patient Register Lock/Unlock Functions ; 14 Nov 2007 4:03 PM
Source file <BQIRGLK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RFILE(REG) | ; Get register file number
|
|
| UPD | ; Report results
|
|
| ERR | ;
|
|
| UNLOCK(DATA,DFN,REG,PTIEN) | ; EP - BQI UNLOCK PATIENT BY REGISTER
; Description ; Unlock the patient register record specified by REG and PTIEN 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 ; REG - Register defined in ^BQI(90507 ; PTIEN - Register IEN to be locked ; Output: ; DATA = name of global (passed by reference) in which the data is stored |
|
| LOCK(DATA,DFN,REG,PTIEN) | ; EP - BQI LOCK PATIENT BY REGISTER
; Description ; Attempt to lock a patient register record specified by REG and PTIEN 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 ; REG - Register defined in ^BQI(90507 ; PTIEN - Register patient IEN to be locked ; Output: ; DATA = name of global (passed by reference) in which the data is stored |
| RPC Name | Call Tags |
|---|---|
| BQI LOCK PATIENT BY REGISTER | LOCK |
| BQI UNLOCK PATIENT BY REGISTER | UNLOCK |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^BQI(90507 - [#90507] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BQI(90507 - [#90507] | RFILE+2, RFILE+5 |
| ^DD("DD" | ERR+5 |
| ^TMP("BQIRGLK" | LOCK+24, LOCK+25!, UNLOCK+20, UNLOCK+21! |
| ^XTMP("BQIRGLK" | LOCK+48, LOCK+54*, LOCK+55*, UNLOCK+39, UNLOCK+42!, ERR+2! |
| Name | Line Occurrences |
|---|---|
| $$RFILE | LOCK+32, UNLOCK+30 |
| UPD | LOCK+33, LOCK+57, UNLOCK+31, UNLOCK+48 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BMXSEC | ERR+6* |
| BQII | LOCK+22~, LOCK+30*, UNLOCK+18~, UNLOCK+26*, UPD+1*, UPD+2* |
| DATA | LOCK~, LOCK+24*, LOCK+30, UNLOCK~, UNLOCK+20*, UNLOCK+26, UPD+1, UPD+2 |
| DFN | LOCK~, LOCK+37, UNLOCK~, UNLOCK+35 |
| DT | LOCK+54 |
| DUZ | LOCK+55, UNLOCK+42, ERR+2 |
| ERRDTM | ERR+4~, ERR+5*, ERR+6 |
| FILE | LOCK+22~, LOCK+32*, LOCK+33, LOCK+38, LOCK+48, LOCK+55, UNLOCK+18~, UNLOCK+30*, UNLOCK+31, UNLOCK+36 , UNLOCK+39, UNLOCK+42, RFILE+1~, RFILE+5*, RFILE+6, RFILE+7, ERR+2 |
| >> GLBREF | LOCK+38*, LOCK+44, UNLOCK+36*, UNLOCK+46 |
| MSG | LOCK+22~, LOCK+32*, LOCK+51*, UNLOCK+18~, UNLOCK+30*, UPD+1 |
| >> NAME | LOCK+49*, LOCK+50*, LOCK+51 |
| PTIEN | LOCK~, LOCK+35*, LOCK+36*, LOCK+37*, LOCK+38, LOCK+48, LOCK+55, UNLOCK~, UNLOCK+33*, UNLOCK+34* , UNLOCK+35*, UNLOCK+36, UNLOCK+39, UNLOCK+42, ERR+2 |
| RDATA | UNLOCK+18~, RFILE+1~, RFILE+5* |
| REG | LOCK~, LOCK+32, UNLOCK~, UNLOCK+30, RFILE~, RFILE+2 |
| REGIEN | UNLOCK+18~, RFILE+1~, RFILE+2*, RFILE+3, RFILE+4, RFILE+5 |
| RESULT | LOCK+22~, LOCK+33*, LOCK+43*, LOCK+44*, LOCK+47, LOCK+53, UNLOCK+28~, UNLOCK+31*, UNLOCK+45*, UPD+1 |
| U | LOCK+32, LOCK+54, UNLOCK+30 |
| UID | LOCK+22~, LOCK+23*, LOCK+24, LOCK+25, UNLOCK+18~, UNLOCK+19*, UNLOCK+20, UNLOCK+21 |
| USER | LOCK+40~, LOCK+48*, LOCK+49, UNLOCK+28~, UNLOCK+39*, UNLOCK+42 |
| X | LOCK+22~, UNLOCK+18~ |
| Y | ERR+4~, ERR+5* |
| >> ZTSK | LOCK+23, UNLOCK+19 |