Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XULMP

XULMP.m

Go to the documentation of this file.
  1. XULMP ;IRMFO-ALB/CJM/SWO/RGG - KERNEL LOCK MANAGER ;12/01/2012
  1. ;;8.0;KERNEL;**608**;JUL 10, 1995;Build 84
  1. ;;Per VA Directive 6402, this routine should not be modified
  1. ;
  1. ; ******************************************************************
  1. ; * *
  1. ; * The Kernel Lock Manager is based on the VistA Lock Manager *
  1. ; * developed by Tommy Martin. *
  1. ; * *
  1. ; ******************************************************************
  1. ;Setting up parameters
  1. ;
  1. GETPARMS(PARMS,ERROR) ;
  1. ;
  1. K PARMS
  1. S ERROR=""
  1. D
  1. .N IEN,NODE,SUB,COUNT
  1. .S IEN=$O(^XLM(8993.1,0))
  1. .I 'IEN S ERROR="Parameter file not setup" Q
  1. .S NODE=$G(^XLM(8993.1,IEN,0))
  1. .S PARMS("ON?")=$S($P(NODE,"^",2)="e":1,1:0)
  1. .S PARMS("PRODUCTION?")=$$PROD^XUPROD()
  1. .S (COUNT,SUB)=0
  1. .F S SUB=$O(^XLM(8993.1,IEN,3,SUB)) Q:'SUB D
  1. ..N BOX,IP,PORT,SHORTNM
  1. ..S NODE=$G(^XLM(8993.1,IEN,3,SUB,0))
  1. ..S BOX=$P(NODE,"^")
  1. ..Q:BOX=""
  1. ..S PORT=$P(NODE,"^",3)
  1. ..I PORT="",BOX'=$$NODE^XULMU Q
  1. ..S IP=$P(NODE,"^",2)
  1. ..I '$L(IP),BOX'=$$NODE^XULMU Q
  1. ..S PARMS("NODES",BOX,"IP ADDRESS")=IP
  1. ..S PARMS("NODES",BOX,"PORT")=PORT
  1. ..S PARMS("NODES",BOX,"SHORT NAME")=$P(NODE,"^",4)
  1. ..S PARMS("NODES",BOX)=SUB
  1. ..S COUNT=COUNT+1
  1. ..S PARMS("NODES")=COUNT
  1. .I '$D(PARMS("NODES",$$NODE^XULMU)) S PARMS("NODES",$$NODE^XULMU,"IP ADDRESS")="",PARMS("NODES",$$NODE^XULMU,"PORT")="",PARMS("NODES")=$G(PARMS("NODES"))+1
  1. Q $S($L($G(ERROR)):0,1:1)
  1. ;
  1. EDIT ;Edit the site parameters
  1. N DA,DIE,DR
  1. S DA=$O(^XLM(8993.1,0))
  1. I 'DA D
  1. .N DATA
  1. .S DATA(.01)=+$$SITE^VASITE
  1. .S DA=$$ADD^XULMU(8993.1,,.DATA)
  1. I 'DA D PAUSE^XULMU("There is no entry in the XULM LOCK MANAGER PARAMETERS file!") Q
  1. S DR="[XULM EDIT PARAMETERS]"
  1. S DIE=8993.1
  1. D ^DIE
  1. Q
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;