Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCOTEST

PRCOTEST.m

Go to the documentation of this file.
  1. PRCOTEST ;WISC/DJM-LOCAL ROUTINE TO START OR STOP SERVER ;6/19/96 11:01 AM
  1. V ;;5.1;IFCAP;;Oct 20, 2000
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. START ;This routine will start server PRCOSRV2.
  1. ;
  1. S ^PRCTMP("BUGS","PRCH")=""
  1. Q
  1. STOP ;This will stop PRCOSRV2 from processing mail messages.
  1. S ^PRCTMP("BUGS","PRCH")=1
  1. Q
  1. VIEW ;This will display all 'saved' places in PRCOSRV2.
  1. W ! S AA=0 F S AA=$O(^PRCTMP("PRCOSRV2",AA)) Q:AA="" D
  1. . S BB=0 F S BB=$O(^PRCTMP("PRCOSRV2",AA,BB)) Q:BB="" D
  1. . . 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)
  1. . . Q
  1. . Q
  1. Q
  1. VIEWISM ;This will display all 'saved' places in PRCOSRV.
  1. W ! S AA=0 F S AA=$O(^PRCTMP("PRCOSRV",AA)) Q:AA="" D
  1. . S BB=0 F S BB=$O(^PRCTMP("PRCOSRV",AA,BB)) Q:BB="" D
  1. . . 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)
  1. . . Q
  1. . Q
  1. Q
  1. SEE ;Display "BUGS"
  1. W !,"^PRCTMP(""BUGS"",""PRCH"")="_$G(^PRCTMP("BUGS","PRCH"))
  1. Q
  1. KILL ;Remove "PRCOSRV2" and "BUGS" global
  1. K ^PRCTMP("PRCOSRV2"),^PRCTMP("BUGS")
  1. Q