Routine: BTPWLOCK

Information

BTPWLOCK ;VNGT/HS/ALA-Locking Routine for CMET ; 31 Dec 2009 10:11 AM

Source file <BTPWLOCK.m>

Package	Total	Call Graph
Kernel	2	^%ZTER ($$DT,$$FMADD,$$NOW)^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Tracking Procedure Workflow	1	BTPWBTAD

Name	Comments	DBIA/ICR reference
SET	; Report results
ERR	;
LOCK(DATA,DFN,TYPE,CMIEN)	; EP - BTPW LOCK CMET RECORD ; Input ; DFN - Patient IEN ; TYPE - T=Tracked, Q=Queued ; CMIEN - Record IEN ; Output: ; DATA = name of global (passed by reference) in which the data is stored
VAL(TYPE,IEN)	;EP - Validate RECORD ien
UNL(TYPE,CMIEN)	; EP ; Get 'LAST LOCKED BY'.
UNLOCK(DATA,DFN,TYPE,CMIEN)	; EP - BTPW UNLOCK CMET RECORD ; Input ; DFN - Patient IEN ; TYPE - T=Tracked, Q=Queued ; CMIEN - Record IEN ; Output: ; DATA = name of global (passed by reference) in which the data is stored ; RESULT = 1 (unlock will always succeed) ; RESULT = -1 if problem identified with file 90507 (shouldn't happen) ; or ; BMXSEC - if M error encountered ;

RPC Name	Call Tags
BTPW LOCK CMET RECORD	LOCK
BTPW UNLOCK CMET RECORD	UNLOCK

Name	Line Occurrences (* Changed, ! Killed)
^BTPWP - [#90620]	LOCK+31, VAL+3, UNL+6
^BTPWQ(	LOCK+32, VAL+4, UNL+7
^DD("DD"	ERR+3
^TMP("BTPWLCK"	LOCK+17, UNLOCK+14
^XTMP("BTPWLCK"	LOCK+36, LOCK+42, LOCK+43, UNL+2, UNL+5!

Name	Field # of Occurrence
>> BMXSEC	ERR+4*
CMIEN	LOCK~, LOCK+25, LOCK+31, LOCK+32, LOCK+36, LOCK+43, UNLOCK~, UNLOCK+22, UNLOCK+26, UNL~ , UNL+2, UNL+5, UNL+6, UNL+7
DATA	LOCK~, LOCK+17, LOCK+18, LOCK+23, UNLOCK~, UNLOCK+14, UNLOCK+15, UNLOCK+20, SET+1, SET+2 , ERR+5
DFN	LOCK~, UNLOCK~
DT	LOCK+42
DUZ	LOCK+43, UNL+5
ERRDTM	ERR+2~, ERR+3*, ERR+4
IEN	VAL~, VAL+1, VAL+3, VAL+4
II	LOCK+15~, LOCK+23, UNLOCK+12~, UNLOCK+20, SET+1, SET+2, ERR+5*
MSG	LOCK+15~, LOCK+25, LOCK+39, UNLOCK+12~, UNLOCK+22*, SET+1
>> NAME	LOCK+37, LOCK+38, LOCK+39
RESULT	LOCK+15~, LOCK+26, LOCK+30, LOCK+31, LOCK+32, LOCK+35, LOCK+41, UNLOCK+21~, UNLOCK+23, UNLOCK+27 , SET+1
TYPE	LOCK~, LOCK+25, LOCK+31, LOCK+32, LOCK+36, LOCK+43, UNLOCK~, UNLOCK+22, UNLOCK+26, VAL~ , VAL+2, VAL+3, VAL+4, UNL~, UNL+2, UNL+5, UNL+6, UNL+7
U	LOCK+25, LOCK+42, UNLOCK+22
UID	LOCK+15~, LOCK+16, LOCK+17, UNLOCK+12~, UNLOCK+13, UNLOCK+14
USER	LOCK+28~, LOCK+36, LOCK+37, UNLOCK+21~, UNL+2, UNL+5
VAL	LOCK+15~, LOCK+25, LOCK+26, UNLOCK+12~, UNLOCK+22, UNLOCK+23
X	LOCK+15~, UNLOCK+12~
Y	ERR+2~, ERR+3*
>> ZTSK	LOCK+16, UNLOCK+13