PRCOTEST ;WISC/DJM-LOCAL ROUTINE TO START OR STOP SERVER ;6/19/96 11:01 AM
V ;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
START ;This routine will start server PRCOSRV2.
;
S ^PRCTMP("BUGS","PRCH")=""
Q
STOP ;This will stop PRCOSRV2 from processing mail messages.
S ^PRCTMP("BUGS","PRCH")=1
Q
VIEW ;This will display all 'saved' places in PRCOSRV2.
W ! S AA=0 F S AA=$O(^PRCTMP("PRCOSRV2",AA)) Q:AA="" D
. S BB=0 F S BB=$O(^PRCTMP("PRCOSRV2",AA,BB)) Q:BB="" D
. . S CC=0 F S CC=$O(^PRCTMP("PRCOSRV2",AA,BB,CC)) Q:CC="" W !,"^PRCTMP(""PRCOSRV2"","_AA_","_BB_","_CC_")="_^PRCTMP("PRCOSRV2",AA,BB,CC)
. . Q
. Q
Q
VIEWISM ;This will display all 'saved' places in PRCOSRV.
W ! S AA=0 F S AA=$O(^PRCTMP("PRCOSRV",AA)) Q:AA="" D
. S BB=0 F S BB=$O(^PRCTMP("PRCOSRV",AA,BB)) Q:BB="" D
. . S CC=0 F S CC=$O(^PRCTMP("PRCOSRV",AA,BB,CC)) Q:CC="" W !,"^PRCTMP(""PRCOSRV"","_AA_","_BB_","_CC_")="_^PRCTMP("PRCOSRV",AA,BB,CC)
. . Q
. Q
Q
SEE ;Display "BUGS"
W !,"^PRCTMP(""BUGS"",""PRCH"")="_$G(^PRCTMP("BUGS","PRCH"))
Q
KILL ;Remove "PRCOSRV2" and "BUGS" global
K ^PRCTMP("PRCOSRV2"),^PRCTMP("BUGS")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCOTEST 1213 printed Dec 13, 2024@02:12:18 Page 2
PRCOTEST ;WISC/DJM-LOCAL ROUTINE TO START OR STOP SERVER ;6/19/96 11:01 AM
V ;;5.1;IFCAP;;Oct 20, 2000
+1 ;Per VHA Directive 10-93-142, this routine should not be modified.
START ;This routine will start server PRCOSRV2.
+1 ;
+2 SET ^PRCTMP("BUGS","PRCH")=""
+3 QUIT
STOP ;This will stop PRCOSRV2 from processing mail messages.
+1 SET ^PRCTMP("BUGS","PRCH")=1
+2 QUIT
VIEW ;This will display all 'saved' places in PRCOSRV2.
+1 WRITE !
SET AA=0
FOR
SET AA=$ORDER(^PRCTMP("PRCOSRV2",AA))
if AA=""
QUIT
Begin DoDot:1
+2 SET BB=0
FOR
SET BB=$ORDER(^PRCTMP("PRCOSRV2",AA,BB))
if BB=""
QUIT
Begin DoDot:2
+3 SET CC=0
FOR
SET CC=$ORDER(^PRCTMP("PRCOSRV2",AA,BB,CC))
if CC=""
QUIT
WRITE !,"^PRCTMP(""PRCOSRV2"","_AA_","_BB_","_CC_")="_^PRCTMP("PRCOSRV2",AA,BB,CC)
+4 QUIT
End DoDot:2
+5 QUIT
End DoDot:1
+6 QUIT
VIEWISM ;This will display all 'saved' places in PRCOSRV.
+1 WRITE !
SET AA=0
FOR
SET AA=$ORDER(^PRCTMP("PRCOSRV",AA))
if AA=""
QUIT
Begin DoDot:1
+2 SET BB=0
FOR
SET BB=$ORDER(^PRCTMP("PRCOSRV",AA,BB))
if BB=""
QUIT
Begin DoDot:2
+3 SET CC=0
FOR
SET CC=$ORDER(^PRCTMP("PRCOSRV",AA,BB,CC))
if CC=""
QUIT
WRITE !,"^PRCTMP(""PRCOSRV"","_AA_","_BB_","_CC_")="_^PRCTMP("PRCOSRV",AA,BB,CC)
+4 QUIT
End DoDot:2
+5 QUIT
End DoDot:1
+6 QUIT
SEE ;Display "BUGS"
+1 WRITE !,"^PRCTMP(""BUGS"",""PRCH"")="_$GET(^PRCTMP("BUGS","PRCH"))
+2 QUIT
KILL ;Remove "PRCOSRV2" and "BUGS" global
+1 KILL ^PRCTMP("PRCOSRV2"),^PRCTMP("BUGS")
+2 QUIT