- 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 Feb 18, 2025@23:38:41 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