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

RGRSPARM.m

Go to the documentation of this file.
  1. RGRSPARM ;ALB/RJS-EDIT SEND/STOP/SUSPEND PARAMETER ;2/10/97
  1. ;;1.0;CLINICAL INFO RESOURCE NETWORK;**19**;30 Apr 99
  1. ;
  1. ;Reference to $$SEND^VAFHUTL supported by IA #2624
  1. EN ;
  1. ;This routine is used to edit the STOP MPI/PD MESSAGING field (#16)
  1. ;in the CIRN SITE PARAMETER file (#991.8), to STOP/SEND/SUSPEND
  1. ;messages.
  1. ;
  1. N DA,DIE,DR,RGMAS,X
  1. S DA=$O(^RGSITE(991.8,0))
  1. I +DA'>0 Q
  1. S DR="16",DIE="991.8"
  1. D ^DIE
  1. S RGMAS=$P($$SEND^VAFHUTL,"^",2)
  1. I X'=RGMAS W !?5,"Does not match MAS parameter."
  1. E W !?5,"In sync with MAS parameter."
  1. Q