Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GECSULOC

Package: Generic Code Sheet

Routine: GECSULOC


Information

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

Source Information

Source file <GECSULOC.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call