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 |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
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 | Line Occurrences |
---|---|
$$VAL | LOCK+25, UNLOCK+22 |
SET | LOCK+26, LOCK+45, UNLOCK+23, UNLOCK+28 |
UNL | UNLOCK+26 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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 |