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

KMPDSS1.m

Go to the documentation of this file.
  1. KMPDSS1 ;OAK/RAK - CP Status ;2/14/05 10:49
  1. ;;3.0;KMPD;;Jan 22, 2009;Build 42
  1. ;
  1. DISPLAY(KMPDAPP) ;-display environment data
  1. ;-----------------------------------------------------------------------------
  1. ; KMPDAPP... CP application
  1. ; H^HL7
  1. ; R^RUM
  1. ; S^SAGG
  1. ; T^TIMING
  1. ;-----------------------------------------------------------------------------
  1. ;
  1. Q:$G(KMPDAPP)=""
  1. Q:"HRST"'[$P(KMPDAPP,U)
  1. ;
  1. S KMPDNMSP=$P(KMPDAPP,U) Q:KMPDNMSP=""
  1. S KMPDTITL=$P(KMPDAPP,U,2)
  1. ;
  1. D EN^VALM("KMPD STATUS")
  1. ;
  1. Q
  1. ;
  1. HDR ; -- header code
  1. ;
  1. Q:$G(KMPDNMSP)=""
  1. ;
  1. N ROUTINE,TEXT,VERSION
  1. ;
  1. S ROUTINE="KMP"_$S(KMPDNMSP="H"!(KMPDNMSP="T"):"D",1:KMPDNMSP)_"UTL"
  1. ;
  1. ; version data
  1. ; if sagg
  1. I $P(KMPDNMSP,U)="S" D
  1. .S VERSION="" S X="KMPSUTL" X ^%ZOSF("TEST") Q:'$T
  1. .S VERSION=$P($T(+2^KMPSUTL),";",3)_"^"_$P($T(+2^KMPSUTL),";",5)
  1. ; all others
  1. E S @("VERSION=$$VERSION^"_ROUTINE)
  1. ;
  1. ; header text
  1. S TEXT="Environment Check for "_$G(KMPDTITL)
  1. S TEXT=$J(" ",IOM-$L(TEXT)\2)_TEXT
  1. S VALMHDR(1)=TEXT
  1. S TEXT=$$PKG($P(KMPDNMSP,U))_" v"_$P(VERSION,U)_" "_$P(VERSION,U,2)
  1. S TEXT=$J(" ",IOM-$L(TEXT)\2)_TEXT
  1. S VALMHDR(2)=TEXT
  1. ;
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. ;
  1. Q:$G(KMPDNMSP)=""
  1. ;
  1. N ROUTINE
  1. ;
  1. S ROUTINE="FORMAT^KMPDSS"_$S(KMPDNMSP="H"!(KMPDNMSP="T"):"D",1:KMPDNMSP)_"(.VALMCNT)"
  1. ;
  1. D @(ROUTINE)
  1. ;
  1. ;D FORMAT^KMPRSSA(.VALMCNT)
  1. ;
  1. Q
  1. ;
  1. HELP ; -- help code
  1. ;
  1. S X="?" D DISP^XQORM1 W !!
  1. ;
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. ;
  1. K @VALMAR
  1. ;
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. ;
  1. Q
  1. ;
  1. PKG(KMPDNM) ;-- extrinsic function - return package name
  1. ;-----------------------------------------------------------------------------
  1. ; KMPDNM... H - HL7
  1. ; R - RUM
  1. ; S - SAGG
  1. ; T - Timing
  1. ;-----------------------------------------------------------------------------
  1. ;
  1. Q:$G(KMPDNM)="" ""
  1. Q:"HRST"'[KMPDNM ""
  1. ;
  1. N IEN,NMSP
  1. ;
  1. S NMSP="KMP"_$S(KMPDNM="H"!(KMPDNM="T"):"D",1:KMPDNM)
  1. S IEN=$O(^DIC(9.4,"C",NMSP,0))
  1. Q $P($G(^DIC(9.4,+IEN,0)),U)