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

Package: iCare

Routine: BQIDCLK


Information

BQIDCLK ;PRXM/HC/DB-Patient Diagnostic Tag Lock/Unlock Functions ; 18 Mar 2008 4:03 PM

Source Information

Source file <BQIDCLK.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,DCAT) ; EP - BQI UNLOCK PATIENT BY DX TAG
; Description
; Unlock the patient diagnostic tag record specified by DCAT which was
; 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
; DCAT - Diagnostic tag defined in ^BQI(90506.2
; Output:
; DATA = name of global (passed by reference) in which the data is stored
INV ; Invalid dx tag passed - either a subdefinition or not in the file
UPD ; Report results
LOCK(DATA,DFN,DCAT) ; EP - BQI LOCK PATIENT BY DX TAG
; Description
; Attempt to lock a patient diagnostic tag record specified by DCAT for
; exclusive editing access.
; 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
; DCAT - Diagnostic tag defined in ^BQI(90506.2
ERR ;

External References

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

Used in RPC

RPC Name Call Tags
BQI LOCK PATIENT BY DX TAG LOCK
BQI UNLOCK PATIENT BY DX TAG UNLOCK

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BQI(90506.2 - [#90506.2] LOCK+34
^BQIREG - [#90509] LOCK+42, UNLOCK+37
^DD("DD" ERR+5
^TMP("BQIDCLK" LOCK+24, LOCK+25!, UNLOCK+18, UNLOCK+19!
^XTMP("BQIDCLK" LOCK+46, LOCK+52*, LOCK+53*, UNLOCK+30, UNLOCK+33!, ERR+2!

Label References

Name Line Occurrences
INV LOCK+34, LOCK+36
UPD LOCK+55, UNLOCK+39, INV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMXSEC ERR+6*
BQII LOCK+22~, LOCK+30*, UNLOCK+16~, UNLOCK+24*, UPD+1*, UPD+2*
DATA LOCK~, LOCK+24*, LOCK+30, UNLOCK~, UNLOCK+18*, UNLOCK+24, UPD+1, UPD+2
DCAT LOCK~, LOCK+34, LOCK+42, LOCK+46, LOCK+53, UNLOCK~, UNLOCK+30, UNLOCK+33, UNLOCK+37, ERR+2
DCATIEN LOCK+22~, LOCK+34*, LOCK+36
DFN LOCK~, LOCK+42, LOCK+46, LOCK+53, UNLOCK~, UNLOCK+30, UNLOCK+33, UNLOCK+37, ERR+2
DT LOCK+52
DUZ LOCK+53, UNLOCK+33, ERR+2
ERRDTM ERR+4~, ERR+5*, ERR+6
MSG LOCK+22~, LOCK+32*, LOCK+49*, UNLOCK+16~, UNLOCK+28*, UPD+1, INV+1*
>> NAME LOCK+47*, LOCK+48*, LOCK+49
RDATA UNLOCK+16~
REGIEN UNLOCK+16~
RESULT LOCK+22~, LOCK+41*, LOCK+42*, LOCK+45, LOCK+51, UNLOCK+26~, UNLOCK+36*, UPD+1, INV+1*
U LOCK+52
UID LOCK+22~, LOCK+23*, LOCK+24, LOCK+25, UNLOCK+16~, UNLOCK+17*, UNLOCK+18, UNLOCK+19
USER LOCK+38~, LOCK+46*, LOCK+47, UNLOCK+26~, UNLOCK+30*, UNLOCK+33
X LOCK+22~, UNLOCK+16~
Y ERR+4~, ERR+5*
>> ZTSK LOCK+23, UNLOCK+17
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