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

Package: Patient Registration GUI

Routine: AGGLOCK


Information

AGGLOCK ;VNGT/HS/ALA-Locking Routine for Patient Reg ; 16 May 2010 1:07 PM

Source Information

Source file <AGGLOCK.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
UNL(DFN) ;
LOCK(DATA,DFN) ; EP - AGG LOCK PATIENT
; Input
; DFN - Patient IEN
;
; Output:
; DATA = name of global (passed by reference) in which the data is stored
SET ; Report results
ERR ;
UNLOCK(DATA,DFN) ; EP - AGG UNLOCK PATIENT
; Input
; DFN - Patient IEN
;
; Output:
; DATA = name of global (passed by reference) in which the data is stored
; RESULT = 1 (unlock will always succeed)
; RESULT = -1 if invalid patient IEN (shouldn't happen)
; or
; BMXSEC - if M error encountered
;
LST ; If lock is unsuccessful, get 'LAST LOCKED BY' from the panel.
VAL(IEN) ; Validate RECORD ien

External References

Name Field # of Occurrence
^%ZTER ERR+1
$$GET1^DIQ LST+3
$$DT^XLFDT LST+8
$$FMADD^XLFDT LST+8
$$NOW^XLFDT ERR+3

Used in RPC

RPC Name Call Tags
AGG LOCK PATIENT LOCK
AGG UNLOCK PATIENT 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)
^AUPNPAT - [#9000001] LOCK+36, VAL+2, UNL+10
^DD("DD" ERR+3
^DPT - [#2] LOCK+35, LOCK+36, VAL+1, UNL+10
^TMP("AGGLCK" LOCK+16, UNLOCK+13
^XTMP("AGGLCK" LST+2, LST+8*, LST+9, LST+10*, UNL+4, UNL+9!

Label References

Name Line Occurrences
$$VAL LOCK+29, UNLOCK+21
SET LOCK+30, LST+12, UNLOCK+22, UNLOCK+27
UNL UNLOCK+25, ERR+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BMXSEC ERR+4*
CNT LST+9*, LST+10, UNL+3~, UNL+6*, UNL+10
DAT UNL+3~, UNL+4*, UNL+5, UNL+6
DATA LOCK~, LOCK+16*, LOCK+17, LOCK+22, UNLOCK~, UNLOCK+13*, UNLOCK+14, UNLOCK+19, SET+1, SET+2
, ERR+5
DFN LOCK~, LOCK+29, LOCK+35, LOCK+36, LST+2, LST+9, LST+10, UNLOCK~, UNLOCK+21, UNLOCK+25
, ERR+6, UNL~, UNL+1, UNL+4, UNL+9, UNL+10
DT LST+8
DUZ LST+10, UNL+9
ERRDTM ERR+2~, ERR+3*, ERR+4
>> I UNL+10*
IEN VAL~, VAL+1, VAL+2
II LOCK+14~, LOCK+22*, UNLOCK+11~, UNLOCK+19*, SET+1*, SET+2*, ERR+5*
MSG LOCK+14~, LOCK+29*, LST+5*, UNLOCK+11~, UNLOCK+21*, SET+1
>> NAME LST+3*, LST+4*, LST+5
RESULT LOCK+14~, LOCK+30*, LOCK+34*, LOCK+35*, LOCK+36*, LST+1, LST+7, UNLOCK+20~, UNLOCK+22*, UNLOCK+26*
, SET+1
U LOCK+29, LST+8, UNLOCK+21
UID LOCK+14~, LOCK+15*, LOCK+16, UNLOCK+11~, UNLOCK+12*, UNLOCK+13
USER LOCK+32~, LST+2*, LST+3, UNLOCK+20~, UNL+5*, UNL+9
VAL LOCK+14~, LOCK+29*, LOCK+30, UNLOCK+11~, UNLOCK+21*, UNLOCK+22
X LOCK+14~, UNLOCK+11~
Y ERR+2~, ERR+3*
>> ZTSK LOCK+15, UNLOCK+12
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