Routine: GECSULOC

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

GECSULOC ;WISC/RFJ-lock system ;01 Nov 93

Source Information

Source file <GECSULOC.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	3	DD^%DT NOW^%DTC FILE^DICN

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Generic Code Sheet	2	GECSBATC GECSTRAN

Entry Points

Name	Comments	DBIA/ICR reference
LOCKSYS(GECSSYST)	; lock generic code sheet system ; gecssyst='SITE'-'SYSTEM ID'-'BATCH or TRANSMIT' ; example: 460-VOL-BATCH ; return entry number for success, 0 if already locked
UNLOCK(DA)	; unlock generic code sheet system da

External References

Name	Field # of Occurrence
DD^%DT	LOCKSYS+18
NOW^%DTC	LOCKSYS+15
FILE^DICN	LOCKSYS+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unable to add system ",GECSSYST," to LOCK file # 2101.6." Line Location: LOCKSYS+11
Function Call: WRITE	Prompt: !,"SYSTEM ",GECSSYST," IS CURRENTLY LOCKED BY ",$P($G(^VA(200,+$P(%,"^",3),0)),"^")," ON ",Y,"." Line Location: LOCKSYS+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GECS(2101.6 - [#2101.6]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GECS(2101.6 - [#2101.6]	LOCKSYS+6, LOCKSYS+7, LOCKSYS+10, LOCKSYS+11, LOCKSYS+13, LOCKSYS+15, LOCKSYS+18, UNLOCK+1, UNLOCK+2, UNLOCK+3
^VA(200 - [#200]	LOCKSYS+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LOCKSYS+15, LOCKSYS+18*, LOCKSYS+19
D0	LOCKSYS+8~
DA	LOCKSYS+11*, LOCKSYS+13, LOCKSYS+15, LOCKSYS+18, UNLOCK~, UNLOCK+1, UNLOCK+2, UNLOCK+3
DD	LOCKSYS+8~
DIC	LOCKSYS+8~, LOCKSYS+9*
DIC(0	LOCKSYS+9*
DLAYGO	LOCKSYS+8~, LOCKSYS+9*
DUZ	LOCKSYS+15
GECSSYST	LOCKSYS~, LOCKSYS+6, LOCKSYS+9, LOCKSYS+11, LOCKSYS+19
X	LOCKSYS+8~, LOCKSYS+9*
Y	LOCKSYS+8~, LOCKSYS+18*, LOCKSYS+19