Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BTPWLOCK

Package: Tracking Procedure Workflow

Routine: BTPWLOCK


Information

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

Source Information

Source file <BTPWLOCK.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Tracking Procedure Workflow 1 BTPWBTAD  

Entry Points

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
;

External References

Name Field # of Occurrence
^%ZTER ERR+1
$$GET1^DIQ LOCK+37
$$DT^XLFDT LOCK+42
$$FMADD^XLFDT LOCK+42
$$NOW^XLFDT ERR+3

Used in RPC

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
$$VAL LOCK+25, UNLOCK+22
SET LOCK+26, LOCK+45, UNLOCK+23, UNLOCK+28
UNL UNLOCK+26

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All