| 1 | PRCOTEST ;WISC/DJM-LOCAL ROUTINE TO START OR STOP SERVER ;6/19/96 11:01 AM
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | START ;This routine will start server PRCOSRV2.
|
|---|
| 5 | ;
|
|---|
| 6 | S ^PRCTMP("BUGS","PRCH")=""
|
|---|
| 7 | Q
|
|---|
| 8 | STOP ;This will stop PRCOSRV2 from processing mail messages.
|
|---|
| 9 | S ^PRCTMP("BUGS","PRCH")=1
|
|---|
| 10 | Q
|
|---|
| 11 | VIEW ;This will display all 'saved' places in PRCOSRV2.
|
|---|
| 12 | W ! S AA=0 F S AA=$O(^PRCTMP("PRCOSRV2",AA)) Q:AA="" D
|
|---|
| 13 | . S BB=0 F S BB=$O(^PRCTMP("PRCOSRV2",AA,BB)) Q:BB="" D
|
|---|
| 14 | . . 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)
|
|---|
| 15 | . . Q
|
|---|
| 16 | . Q
|
|---|
| 17 | Q
|
|---|
| 18 | VIEWISM ;This will display all 'saved' places in PRCOSRV.
|
|---|
| 19 | W ! S AA=0 F S AA=$O(^PRCTMP("PRCOSRV",AA)) Q:AA="" D
|
|---|
| 20 | . S BB=0 F S BB=$O(^PRCTMP("PRCOSRV",AA,BB)) Q:BB="" D
|
|---|
| 21 | . . 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)
|
|---|
| 22 | . . Q
|
|---|
| 23 | . Q
|
|---|
| 24 | Q
|
|---|
| 25 | SEE ;Display "BUGS"
|
|---|
| 26 | W !,"^PRCTMP(""BUGS"",""PRCH"")="_$G(^PRCTMP("BUGS","PRCH"))
|
|---|
| 27 | Q
|
|---|
| 28 | KILL ;Remove "PRCOSRV2" and "BUGS" global
|
|---|
| 29 | K ^PRCTMP("PRCOSRV2"),^PRCTMP("BUGS")
|
|---|
| 30 | Q
|
|---|
