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

Package: iCare

Routine: BQIULLK


Information

BQIULLK ;PRXM/HC/DB-Miscellaneous BQI utilities - Lock/Unlock Functions ; 28 May 2008 4:03 PM

Source Information

Source file <BQIULLK.m>

Call Graph

Call Graph Total: 3

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

Entry Points

Name Comments DBIA/ICR reference
UNLOCK(DATA,DFN,TYPE) ; EP - BQI UNLOCK RECORD BY TYPE
; Description
; Unlock a record type (problem, family history, etc. - specified by TYPE)
; for a patient previously locked for exclusive editing access. If the
; entry in the 'LAST LOCKED BY' field is for this DUZ then
; delete it (so another user can't accidentally update it).
; Input:
; DFN - Patient IEN
; TYPE - Type of record to be locked for this patient
; Output:
; DATA = name of global (passed by reference) in which the data is stored
LOCK(DATA,DFN,TYPE) ; EP - BQI LOCK RECORD BY TYPE
; Description
; Attempt to lock a record type (problem, family history, etc.) for a patient
; If successful, sets 'LAST LOCKED BY' with the current DUZ
; and returns a RESULT of 1 and the current DUZ.
; If unsuccessful, returns a RESULT of 0 and the DUZ from the
; 'LAST LOCKED BY' field.
; Input:
; DFN - Patient IEN
; TYPE - Type of record to be locked for this patient
UPD ; Report results
ERR ;

External References

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

Used in RPC

RPC Name Call Tags
BQI LOCK RECORD BY TYPE LOCK
BQI UNLOCK RECORD BY TYPE 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)
^BQILOCK( LOCK+37, UNLOCK+38
^DD("DD" ERR+5
^TMP("BQIULLK" LOCK+24, LOCK+25!, UNLOCK+19, UNLOCK+20!
^XTMP("BQIULLK" LOCK+41, LOCK+47*, LOCK+48*, UNLOCK+31, UNLOCK+34!, ERR+2!

Label References

Name Line Occurrences
UPD LOCK+50, UNLOCK+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMXSEC LOCK+21*, UNLOCK+16*, ERR+6*
BQII LOCK+22~, LOCK+30*, UNLOCK+17~, UNLOCK+25*, UPD+1*, UPD+2*
DATA LOCK~, LOCK+24*, LOCK+30, UNLOCK~, UNLOCK+19*, UNLOCK+25, UPD+1, UPD+2
>> DCAT ERR+2
DCATIEN LOCK+22~
DFN LOCK~, LOCK+37, LOCK+41, LOCK+48, UNLOCK~, UNLOCK+31, UNLOCK+34, UNLOCK+38, ERR+2
DT LOCK+47
DUZ LOCK+48, UNLOCK+34, ERR+2
ERRDTM ERR+4~, ERR+5*, ERR+6
MSG LOCK+22~, LOCK+32*, LOCK+44*, UNLOCK+17~, UNLOCK+29*, UPD+1
>> NAME LOCK+42*, LOCK+43*, LOCK+44
RDATA UNLOCK+17~
REGIEN UNLOCK+17~
RESULT LOCK+22~, LOCK+36*, LOCK+37*, LOCK+40, LOCK+46, UNLOCK+27~, UNLOCK+37*, UPD+1
TYPE LOCK~, LOCK+21, LOCK+24, LOCK+25, LOCK+37, LOCK+41, LOCK+47, LOCK+48, UNLOCK~, UNLOCK+16
, UNLOCK+19, UNLOCK+20, UNLOCK+31, UNLOCK+34, UNLOCK+38, ERR+2
U LOCK+47
UID LOCK+22~, LOCK+23*, LOCK+24, LOCK+25, UNLOCK+17~, UNLOCK+18*, UNLOCK+19, UNLOCK+20
USER LOCK+33~, LOCK+41*, LOCK+42, UNLOCK+27~, UNLOCK+31*, UNLOCK+34
X LOCK+22~, UNLOCK+17~
Y ERR+4~, ERR+5*
>> ZTSK LOCK+23, UNLOCK+18
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All