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

KMPDSSD1.m

Go to the documentation of this file. 
  1. KMPDSSD1 ;OAK/RAK - CM Tools Status ;5/1/07  15:07
  1.  ;;3.0;KMPD;;Jan 22, 2009;Build 42
  1.  ;
  1. CPU ;-- cpu/node data
  1.  ;
  1.  N COUNT,DATA,I,LEN,TEXT
  1.  ;
  1.  D CPUGET^KMPDUTL6(.DATA)
  1.  Q:'$D(DATA)
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"")
  1.  S TEXT="   Node/CPU Data............... "
  1.  S (COUNT,I,LEN)=0
  1.  F  S I=$O(DATA(I)) Q:'I  D 
  1.  .S COUNT=COUNT+1,DATA=$G(DATA(I,0)) Q:DATA=""
  1.  .; length of node name
  1.  .S:'LEN LEN=$L($P(DATA,U))+2
  1.  .S TEXT=$S(COUNT=1:TEXT,1:$J(" ",32))_$P(DATA,U)
  1.  .S TEXT=TEXT_$J(" ",32-$L(TEXT)+LEN)_$P(DATA,U,2)_" ("_$P(DATA,U,3)_")"
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,TEXT)
  1.  ;
  1.  Q
  1.  ;
  1. MGRP ;-- mail group members
  1.  ;
  1.  N MEMBER,MEMBER1,NAME,NMARRY
  1.  ;
  1.  S IEN=$O(^XMB(3.8,"B","KMP-CAPMAN",0)) Q:'IEN
  1.  ;
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"")
  1.  ;
  1.  S TEXT="   KMP-CAPMAN Mail Group......."
  1.  ; check MEMBER field #2
  1.  S MEMBER=0
  1.  F  S MEMBER=$O(^XMB(3.8,IEN,1,"B",MEMBER)) Q:'MEMBER  D
  1.  .S NAME=$P($G(^VA(200,MEMBER,0)),U)
  1.  .I NAME'="" S NMARRY(NAME)=MEMBER
  1.  ; remote members
  1.  S MEMBER="",MEMBER1=0
  1.  F  S MEMBER=$O(^XMB(3.8,IEN,6,"B",MEMBER)) Q:MEMBER=""  D 
  1.  .S MEMBER1=0
  1.  .F  S MEMBER1=$O(^XMB(3.8,IEN,6,"B",MEMBER,MEMBER1)) Q:'MEMBER1  D 
  1.  ..S NAME=$P($G(^XMB(3.8,IEN,6,MEMBER1,0)),U)
  1.  ..I NAME'="" S NMARRY(NAME)=MEMBER
  1.  ;
  1.  I '$D(NMARRY) S LN=LN+1 D SET^VALM10(LN,TEXT_" No Users") Q
  1.  ;
  1.  S NAME=""
  1.  F  S NAME=$O(NMARRY(NAME)) Q:NAME=""  D
  1.  .S MEMBER=NMARRY(NAME)
  1.  .S TEXT=TEXT_$J(" ",32-$L(TEXT))_NAME
  1.  .; if not a remote user
  1.  .I NAME'["@" D 
  1.  ..S MEMBER=$$ACTIVE^XUSER(MEMBER) I '+MEMBER S TEXT=TEXT_" ("_$P(MEMBER,U,2)_")"
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,TEXT)
  1.  .S TEXT=""
  1.  ;
  1.  Q
  1.  ;
  1. ROUCHK(KMPDPKG) ;--display routine version info
  1.  ;-----------------------------------------------------------------------
  1.  ; KMPDPKG... CM Package:
  1.  ;            "D" - CM Tools
  1.  ;            "R" - RUM
  1.  ;            "S" - SAGG
  1.  ;-----------------------------------------------------------------------
  1.  ;
  1.  Q:$G(KMPDPKG)=""
  1.  Q:KMPDPKG'="D"&(KMPDPKG'="R")&(KMPDPKG'="S")
  1.  ;
  1.  N I,TEXT,X
  1.  ;
  1.  ; routine check
  1.  D VERPTCH^KMPDUTL1(KMPDPKG,.X)
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"")
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,"")
  1.  S TEXT="   "_$S(KMPDPKG="D":"CM TOOLS",KMPDPKG="R":"RUM",1:"SAGG")_" routines"
  1.  S TEXT=TEXT_$$REPEAT^XLFSTR(".",31-$L(TEXT))
  1.  I '$P($G(X(0)),U,3) S LN=LN+1 D SET^VALM10(LN,TEXT_" "_+X(0)_" Routines - No Problems") Q
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,TEXT)
  1.  S LN=LN+1
  1.  D SET^VALM10(LN,$J(" ",20)_"Current Version"_$J(" ",20)_"Should be")
  1.  S I=0 F  S I=$O(X(I)) Q:I=""  I $P(X(I),U) D 
  1.  .S TEXT="   "_I
  1.  .S TEXT=TEXT_$J(" ",20-$L(TEXT))_$P(X(I),U,4)
  1.  .S:$P(X(I),U,5)]"" TEXT=TEXT_" - "_$P(X(I),U,5)
  1.  .S TEXT=TEXT_$J(" ",55-$L(TEXT))_$P(X(I),U,2)
  1.  .S:$P(X(I),U,3)]"" TEXT=TEXT_" - "_$P(X(I),U,3)
  1.  .S LN=LN+1
  1.  .D SET^VALM10(LN,TEXT)
  1.  ;
  1.  Q
  1.  ;
  1. PKG(KMPDNMSP) ;-- extrinsic function - return package name
  1.  ;-----------------------------------------------------------------------------
  1.  ; KMPDNMSP... H - HL7
  1.  ;             R - RUM
  1.  ;             S - SAGG
  1.  ;             T - Timing
  1.  ;
  1.  ; Return: Package name
  1.  ;         "" if not found
  1.  ;-----------------------------------------------------------------------------
  1.  ;
  1.  Q:$G(KMPDNMSP)="" ""
  1.  ;
  1.  N IEN,NMSP
  1.  S NMSP="KMP"_$S(KMPDNMSP="H"!(KMPDNMSP="T"):"D",1:KMPDNMSP)
  1.  S IEN=$O(^DIC(9.4,"C",NMSP,0))
  1.  Q $S(IEN:$P($G(^DIC(9.4,+IEN,0)),U),1:"")