KMPDSS1 ;OAK/RAK - CP Status ;2/14/05 10:49
;;3.0;KMPD;;Jan 22, 2009;Build 42
;
DISPLAY(KMPDAPP) ;-display environment data
;-----------------------------------------------------------------------------
; KMPDAPP... CP application
; H^HL7
; R^RUM
; S^SAGG
; T^TIMING
;-----------------------------------------------------------------------------
;
Q:$G(KMPDAPP)=""
Q:"HRST"'[$P(KMPDAPP,U)
;
S KMPDNMSP=$P(KMPDAPP,U) Q:KMPDNMSP=""
S KMPDTITL=$P(KMPDAPP,U,2)
;
D EN^VALM("KMPD STATUS")
;
Q
;
HDR ; -- header code
;
Q:$G(KMPDNMSP)=""
;
N ROUTINE,TEXT,VERSION
;
S ROUTINE="KMP"_$S(KMPDNMSP="H"!(KMPDNMSP="T"):"D",1:KMPDNMSP)_"UTL"
;
; version data
; if sagg
I $P(KMPDNMSP,U)="S" D
.S VERSION="" S X="KMPSUTL" X ^%ZOSF("TEST") Q:'$T
.S VERSION=$P($T(+2^KMPSUTL),";",3)_"^"_$P($T(+2^KMPSUTL),";",5)
; all others
E S @("VERSION=$$VERSION^"_ROUTINE)
;
; header text
S TEXT="Environment Check for "_$G(KMPDTITL)
S TEXT=$J(" ",IOM-$L(TEXT)\2)_TEXT
S VALMHDR(1)=TEXT
S TEXT=$$PKG($P(KMPDNMSP,U))_" v"_$P(VERSION,U)_" "_$P(VERSION,U,2)
S TEXT=$J(" ",IOM-$L(TEXT)\2)_TEXT
S VALMHDR(2)=TEXT
;
Q
;
INIT ; -- init variables and list array
;
Q:$G(KMPDNMSP)=""
;
N ROUTINE
;
S ROUTINE="FORMAT^KMPDSS"_$S(KMPDNMSP="H"!(KMPDNMSP="T"):"D",1:KMPDNMSP)_"(.VALMCNT)"
;
D @(ROUTINE)
;
;D FORMAT^KMPRSSA(.VALMCNT)
;
Q
;
HELP ; -- help code
;
S X="?" D DISP^XQORM1 W !!
;
Q
;
EXIT ; -- exit code
;
K @VALMAR
;
Q
;
EXPND ; -- expand code
;
Q
;
PKG(KMPDNM) ;-- extrinsic function - return package name
;-----------------------------------------------------------------------------
; KMPDNM... H - HL7
; R - RUM
; S - SAGG
; T - Timing
;-----------------------------------------------------------------------------
;
Q:$G(KMPDNM)="" ""
Q:"HRST"'[KMPDNM ""
;
N IEN,NMSP
;
S NMSP="KMP"_$S(KMPDNM="H"!(KMPDNM="T"):"D",1:KMPDNM)
S IEN=$O(^DIC(9.4,"C",NMSP,0))
Q $P($G(^DIC(9.4,+IEN,0)),U)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPDSS1 2116 printed Dec 13, 2024@01:40:39 Page 2
KMPDSS1 ;OAK/RAK - CP Status ;2/14/05 10:49
+1 ;;3.0;KMPD;;Jan 22, 2009;Build 42
+2 ;
DISPLAY(KMPDAPP) ;-display environment data
+1 ;-----------------------------------------------------------------------------
+2 ; KMPDAPP... CP application
+3 ; H^HL7
+4 ; R^RUM
+5 ; S^SAGG
+6 ; T^TIMING
+7 ;-----------------------------------------------------------------------------
+8 ;
+9 if $GET(KMPDAPP)=""
QUIT
+10 if "HRST"'[$PIECE(KMPDAPP,U)
QUIT
+11 ;
+12 SET KMPDNMSP=$PIECE(KMPDAPP,U)
if KMPDNMSP=""
QUIT
+13 SET KMPDTITL=$PIECE(KMPDAPP,U,2)
+14 ;
+15 DO EN^VALM("KMPD STATUS")
+16 ;
+17 QUIT
+18 ;
HDR ; -- header code
+1 ;
+2 if $GET(KMPDNMSP)=""
QUIT
+3 ;
+4 NEW ROUTINE,TEXT,VERSION
+5 ;
+6 SET ROUTINE="KMP"_$SELECT(KMPDNMSP="H"!(KMPDNMSP="T"):"D",1:KMPDNMSP)_"UTL"
+7 ;
+8 ; version data
+9 ; if sagg
+10 IF $PIECE(KMPDNMSP,U)="S"
Begin DoDot:1
+11 SET VERSION=""
SET X="KMPSUTL"
XECUTE ^%ZOSF("TEST")
if '$TEST
QUIT
+12 SET VERSION=$PIECE($TEXT(+2^KMPSUTL),";",3)_"^"_$PIECE($TEXT(+2^KMPSUTL),";",5)
End DoDot:1
+13 ; all others
+14 IF '$TEST
SET @("VERSION=$$VERSION^"_ROUTINE)
+15 ;
+16 ; header text
+17 SET TEXT="Environment Check for "_$GET(KMPDTITL)
+18 SET TEXT=$JUSTIFY(" ",IOM-$LENGTH(TEXT)\2)_TEXT
+19 SET VALMHDR(1)=TEXT
+20 SET TEXT=$$PKG($PIECE(KMPDNMSP,U))_" v"_$PIECE(VERSION,U)_" "_$PIECE(VERSION,U,2)
+21 SET TEXT=$JUSTIFY(" ",IOM-$LENGTH(TEXT)\2)_TEXT
+22 SET VALMHDR(2)=TEXT
+23 ;
+24 QUIT
+25 ;
INIT ; -- init variables and list array
+1 ;
+2 if $GET(KMPDNMSP)=""
QUIT
+3 ;
+4 NEW ROUTINE
+5 ;
+6 SET ROUTINE="FORMAT^KMPDSS"_$SELECT(KMPDNMSP="H"!(KMPDNMSP="T"):"D",1:KMPDNMSP)_"(.VALMCNT)"
+7 ;
+8 DO @(ROUTINE)
+9 ;
+10 ;D FORMAT^KMPRSSA(.VALMCNT)
+11 ;
+12 QUIT
+13 ;
HELP ; -- help code
+1 ;
+2 SET X="?"
DO DISP^XQORM1
WRITE !!
+3 ;
+4 QUIT
+5 ;
EXIT ; -- exit code
+1 ;
+2 KILL @VALMAR
+3 ;
+4 QUIT
+5 ;
EXPND ; -- expand code
+1 ;
+2 QUIT
+3 ;
PKG(KMPDNM) ;-- extrinsic function - return package name
+1 ;-----------------------------------------------------------------------------
+2 ; KMPDNM... H - HL7
+3 ; R - RUM
+4 ; S - SAGG
+5 ; T - Timing
+6 ;-----------------------------------------------------------------------------
+7 ;
+8 if $GET(KMPDNM)=""
QUIT ""
+9 if "HRST"'[KMPDNM
QUIT ""
+10 ;
+11 NEW IEN,NMSP
+12 ;
+13 SET NMSP="KMP"_$SELECT(KMPDNM="H"!(KMPDNM="T"):"D",1:KMPDNM)
+14 SET IEN=$ORDER(^DIC(9.4,"C",NMSP,0))
+15 QUIT $PIECE($GET(^DIC(9.4,+IEN,0)),U)
