Routine: AGGLOCK

Information

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

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	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