AGGLOCK ;VNGT/HS/ALA-Locking Routine for Patient Reg ; 16 May 2010 1:07 PM
Source file <AGGLOCK.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ^%ZTER ($$DT,$$FMADD,$$NOW)^XLFDT |
VA Fileman | 1 | $$GET1^DIQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
UNL(DFN) | ;
|
|
LOCK(DATA,DFN) | ; EP - AGG LOCK PATIENT
; Input ; DFN - Patient IEN ; ; Output: ; DATA = name of global (passed by reference) in which the data is stored |
|
SET | ; Report results
|
|
ERR | ;
|
|
UNLOCK(DATA,DFN) | ; EP - AGG UNLOCK PATIENT
; Input ; DFN - Patient IEN ; ; Output: ; DATA = name of global (passed by reference) in which the data is stored ; RESULT = 1 (unlock will always succeed) ; RESULT = -1 if invalid patient IEN (shouldn't happen) ; or ; BMXSEC - if M error encountered ; |
|
LST | ; If lock is unsuccessful, get 'LAST LOCKED BY' from the panel.
|
|
VAL(IEN) | ; Validate RECORD ien
|
RPC Name | Call Tags |
---|---|
AGG LOCK PATIENT | LOCK |
AGG UNLOCK PATIENT | UNLOCK |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNPAT - [#9000001] | LOCK+36, VAL+2, UNL+10 |
^DD("DD" | ERR+3 |
^DPT - [#2] | LOCK+35, LOCK+36, VAL+1, UNL+10 |
^TMP("AGGLCK" | LOCK+16, UNLOCK+13 |
^XTMP("AGGLCK" | LST+2, LST+8*, LST+9, LST+10*, UNL+4, UNL+9! |
Name | Line Occurrences |
---|---|
$$VAL | LOCK+29, UNLOCK+21 |
SET | LOCK+30, LST+12, UNLOCK+22, UNLOCK+27 |
UNL | UNLOCK+25, ERR+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> BMXSEC | ERR+4* |
CNT | LST+9*, LST+10, UNL+3~, UNL+6*, UNL+10 |
DAT | UNL+3~, UNL+4*, UNL+5, UNL+6 |
DATA | LOCK~, LOCK+16*, LOCK+17, LOCK+22, UNLOCK~, UNLOCK+13*, UNLOCK+14, UNLOCK+19, SET+1, SET+2 , ERR+5 |
DFN | LOCK~, LOCK+29, LOCK+35, LOCK+36, LST+2, LST+9, LST+10, UNLOCK~, UNLOCK+21, UNLOCK+25 , ERR+6, UNL~, UNL+1, UNL+4, UNL+9, UNL+10 |
DT | LST+8 |
DUZ | LST+10, UNL+9 |
ERRDTM | ERR+2~, ERR+3*, ERR+4 |
>> I | UNL+10* |
IEN | VAL~, VAL+1, VAL+2 |
II | LOCK+14~, LOCK+22*, UNLOCK+11~, UNLOCK+19*, SET+1*, SET+2*, ERR+5* |
MSG | LOCK+14~, LOCK+29*, LST+5*, UNLOCK+11~, UNLOCK+21*, SET+1 |
>> NAME | LST+3*, LST+4*, LST+5 |
RESULT | LOCK+14~, LOCK+30*, LOCK+34*, LOCK+35*, LOCK+36*, LST+1, LST+7, UNLOCK+20~, UNLOCK+22*, UNLOCK+26* , SET+1 |
U | LOCK+29, LST+8, UNLOCK+21 |
UID | LOCK+14~, LOCK+15*, LOCK+16, UNLOCK+11~, UNLOCK+12*, UNLOCK+13 |
USER | LOCK+32~, LST+2*, LST+3, UNLOCK+20~, UNL+5*, UNL+9 |
VAL | LOCK+14~, LOCK+29*, LOCK+30, UNLOCK+11~, UNLOCK+21*, UNLOCK+22 |
X | LOCK+14~, UNLOCK+11~ |
Y | ERR+2~, ERR+3* |
>> ZTSK | LOCK+15, UNLOCK+12 |