source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCOTEST.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1PRCOTEST ;WISC/DJM-LOCAL ROUTINE TO START OR STOP SERVER ;6/19/96 11:01 AM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4START ;This routine will start server PRCOSRV2.
5 ;
6 S ^PRCTMP("BUGS","PRCH")=""
7 Q
8STOP ;This will stop PRCOSRV2 from processing mail messages.
9 S ^PRCTMP("BUGS","PRCH")=1
10 Q
11VIEW ;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
18VIEWISM ;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
25SEE ;Display "BUGS"
26 W !,"^PRCTMP(""BUGS"",""PRCH"")="_$G(^PRCTMP("BUGS","PRCH"))
27 Q
28KILL ;Remove "PRCOSRV2" and "BUGS" global
29 K ^PRCTMP("PRCOSRV2"),^PRCTMP("BUGS")
30 Q
Note: See TracBrowser for help on using the repository browser.