- 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 Feb 18, 2025@23:07:03 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)